[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: automating Metastock



PureBytes Links

Trading Reference Links

Sorry if I offended you.
I was merely asking what is the url of the website where this information
will be posted.

----- Original Message -----
From: "A.J. Maas" <anthmaas@xxxxxxxxx>
To: <metastock@xxxxxxxxxxxxx>
Sent: Sunday, June 11, 2000 7:13 AM
Subject: Re: automating Metastock


> Blind or something?
>
> > To prevent the list from the avalanche of those very interesting and
> > educational answers like "Yes I am interested", "I'd like a copy", etc.,
I
> > suggest that anybody interested should drop me a message privately if
> > (s)he wants the spreadsheet.
> > I will then put the spreadsheet on my website (download section) for a
while.
>
> Regards,
> Ton Maas
> ms-irb@xxxxxxxxxxxxxxxx
> Dismiss the ".nospam" bit (including the dot) when replying.
> Homepage  http://home.planet.nl/~anthmaas
>
>
> ----- Original Message -----
> From: "Tom Bowen" <trbowen@xxxxxxxxxxxxxx>
> To: <metastock@xxxxxxxxxxxxx>
> Sent: zondag 11 juni 2000 1:05
> Subject: Re: automating Metastock
>
>
> > I would like to examine your code.
> > Where/when will it be posted?
> > Thanks.
> >
> > ----- Original Message -----
> > From: "Thomas Pfluegl" <thomas.pfluegl@xxxxxxxxxxxxxxxxx>
> > To: <metastock@xxxxxxxxxxxxx>
> > Cc: <anthmaas@xxxxxxxxx>; <wlake@xxxxxxxxx>
> > Sent: Friday, June 09, 2000 1:21 PM
> > Subject: Re: automating Metastock
> >
> >
> > > Hi Ton, Walter et al,
> > >
> > > Before I turn to the NumLock-Key problem I'd like to say that I've
also
> > > attempted to automate MetaStock with Excel-VBA.
> > > For example a couple of months ago I wrote a sub which runs the first
> > > exploration available in the MetaStock "Explorer Dialog" for a
Specific
> > Date.
> > > The difficult part is to trigger events when something happens, e.g.
when
> > > the window "Exploration Completed" appears, a VBA API call
> > > (FindWindow("#32770")) assumes the exploration completed. You need a
spy
> > > program (e.g. Spy++, SPYXX.EXE) to find out the correct titles or
numbers
> > > of a specific window.
> > > The VBA routine waits until the exploration is done and adds one day
to
> > > the exploration date (Specific Date). If "Specific Date" is a Saturday
or
> > > Sunday it will add another day, so that no time will be wasted. You
can
> > run
> > > the exploration even for a week (extra PC doesn't hurt) and the
results
> > > will be pasted into an Excel sheet.
> > >
> > > To prevent the list from the avalanche of those very interesting and
> > > educational answers like "Yes I am interested", "I'd like a copy",
etc., I
> > > suggest that anybody interested should drop me a message privately if
> > (s)he
> > > wants the spreadsheet.
> > > I will then put the spreadsheet on my website (download section) for a
> > while.
> > >
> > > >Re: your NumLock-Key problem ...
> > > >Why is, at the end of one of my VBA macro's, the KB's
> > > >NumLock-Key automaticaly been switched OFF?
> > > >(eg each time an excel macro is run, and it needs a "manual
> > > >corrective" ON press later, after a macro is finished)
> > >
> > > Usually the NumLock status is manipulated when using the XL "SendKeys"
> > method.
> > >
> > > The code to manipulate the keyboard status requires some API calls.
> > > This code works in my software environment (Win98, MSOffice 97
> > Professional
> > > Edition SR-2).
> > > Put this from
> > >
> >
''''''''''''''''''''''START'''''''''''''''''''''''''''''''''''''''''''''''''
> > > ''''''''' to
> > >
> >
''''''''''''''''''''''''''''END'''''''''''''''''''''''''''''''''''''''''''''
> > > ''''''''''''' in a new module of your "Personal.xls" or as
"AutoStart".
> > > After the procedure which turns the numlock off, run the "NUMLock()"
> > > procedure like this:
> > >
> > > Sub NUMLock_Switch_Tons_NUMLock_On()
> > >     Call NUMLock
> > > End Sub
> > >
> > > With the macro Num_Lock_Check() you can check the status of the
keyboard
> > > and run other subs if desired.
> > >
> > >
> >
''''''''''''''''''''''START'''''''''''''''''''''''''''''''''''''''''''''''''
> > > '''''''''
> > >
> >
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
> > > ''''''''''''''''''''''''
> > > Option Explicit
> > > Dim RecordNumber2 As Integer
> > > '   Declare constant for keys
> > >      Const VK_CAPITAL As Integer = &H14
> > >      Const VK_NUMLOCK = &H90
> > > '   Declare Windows API functions
> > >     Declare Sub GetKeyboardState Lib "USER32" (lpKeyState As Any)
> > >     Declare Sub SetKeyboardState Lib "USER32" (lpKeyState As Any)
> > >
> > >
> >
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
> > > ''''''''''''''''''''''''
> > >
> > > Property Get NUMLOCK_ON() As Boolean
> > >     Dim lpbKeyState(128) As Integer
> > >     GetKeyboardState lpbKeyState(0)
> > >     If lpbKeyState(VK_NUMLOCK / 2) Then
> > >          NUMLOCK_ON = True
> > >             Else:  NUMLOCK_ON = False
> > >     End If
> > > End Property
> > >
> >
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
> > > ''''''''''''''''''''''''
> > > Property Let NUMLOCK_ON(State As Boolean)
> > >     Dim lpbKeyState(128) As Integer
> > >     GetKeyboardState lpbKeyState(0)
> > >     If State And 128 Then
> > >         lpbKeyState(VK_NUMLOCK / 2) = 1
> > >             Else: lpbKeyState(VK_NUMLOCK / 2) = 0
> > >     End If
> > >     SetKeyboardState lpbKeyState(0)
> > > End Property
> > >
> > >
> >
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
> > > ''''''''''''''''''''''''
> > > Sub NUMLock()
> > >     Dim blnCapsState As Boolean
> > >     ' use the  NUMLOCK_ON Property to GET the state of the capslock
key
> > >     blnCapsState = NUMLOCK_ON
> > >
> > >     If blnCapsState = True Then
> > >         Exit Sub
> > >     Else
> > >     ' use the NUMLOCK_ON Property to SET the state of the capslock key
> > >      NUMLOCK_ON = Not blnCapsState
> > >
> > >     blnCapsState = NUMLOCK_ON
> > >     End If
> > > End Sub
> > >
> > >
> >
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
> > > ''''''''''''''''''''''''
> > > Sub NUMLock_Switch_Tons_NUMLock_On()
> > >     Call NUMLock
> > > End Sub
> > >
> > >
> >
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
> > > ''''''''''''''''''''''''
> > > Sub Num_Lock_Check()
> > > Dim iReturn As Integer
> > >     iReturn = GetKeyState(VK_NUMLOCK)
> > >     If iReturn = 1 Then
> > >         MsgBox "Num Lock is on", vbInformation, "Hi Ton!"
> > >     Else
> > >         MsgBox "Num Lock is off", vbInformation, "Hi Ton!"
> > >     End If
> > > End Sub
> > >
> >
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
> > > ''''''''''''''''''''''''
> > >
> >
''''''''''''''''''''''''''''END'''''''''''''''''''''''''''''''''''''''''''''
> > > '''''''''''''
> > >
> > > HTH & have a nice weekend,
> > > Thomas Pfluegl
> > >
> > > >Date: Tue, 6 Jun 2000 22:44:43 -0400
> > > >From: "Walter Lake" < >
> > > >Subject: Re: automating Metastock
> > > >
> > > >
> > > >Hi Ton
> > > >
> > > >
> > > >Thanks for your emails ... you've given me lots of stuff to track
down
> > and
> > > >to download and learn.
> > > >
> > > >
> > > >Will get back to you on your various suggestions.
> > > >
> > > >
> > > >Re: your NumLock-Key problem ... Did you record your VBA macro or
write
> > it
> > > >in the VBE (Alt + F11) as a module?
> > > >
> > > >
> > > >I tried recording a series of actions switching it on and off and
using
> > the
> > > >numeric keypad etc. .. nothing showed up in the code?
> > > >
> > > >
> > > >When I stepped through the code using F8 the NumLock stayed on all
the
> > time
> > > >and the code repeated all the actions and entered all the data
> > accurately??
> > > >
> > > >Best regards as always
> > > >Walter.
> >
> --------------------------------------------------------------------------
> > --
> > > Thomas Pfluegl,  Rudersdorf 8,  A - 4212 Neumarkt
> > > Austria               Tel.  ++ 43 - (0) 7941 - 8106
> > > http://keplerweb.oeh.uni-linz.ac.at/trading/index.html
> >
> --------------------------------------------------------------------------
> > --
> > > Austria/Europe --> high mountains --> Mozart --> no kangaroos
> >
> --------------------------------------------------------------------------
> > --
> > >
> >
>
>