Thanks txuk. Ive got it fitted where I want it now. Another question: Is there any way to set alerts on this program? What I would like to have is an alert that would trigger when volume hits a certain prv level but it would have to be one that could be turned on and off so it doesnt drive you nuts in the morning.. Afternoons are often so slow that I go into my exercise room and start working out. I have a speaker in there that is hooked up to my computer and I have a few alerts set up. I would like to add this to it if possible.
Take a look at Edgehunter's post: http://www.elitetrader.com/vb/showthread.php?s=&threadid=54894&perpage=6&pagenumber=394 which should get you headed in the right direction.
You need the following things to fire off a sound if the value of a cell hits your target... The first is a timer event that is continuously running (once you start it) in excel called by a click on a macro button on the menu bar... you create a timer event with an api call in your VB area... and then add the timer event code and then run it with the macor button mentioned above here is the declaration and the variables and the timer start event, the timer end event and the timer event itself which has the play sound event in it... Public Declare Function SetTimer Lib "user32" ( _ ByVal HWnd As Long, ByVal nIDEvent As Long, _ ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long Public Declare Function KillTimer Lib "user32" ( _ ByVal HWnd As Long, ByVal nIDEvent As Long) As Long Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" _ (ByVal filename As String, ByVal snd_async As Long) As Long Public TimerID As Long Public TimerSeconds As Single third to play that sound you need to call an api sound function in your VB... which is also added above which a function that is inside your continuously running timer event... which checks your volume every whatever seconds... Sub StartTimer() TimerSeconds = 10 'pop the windows time every x seconds TimerID = SetTimer(0&, 0&, TimerSeconds * 1000&, AddressOf TimerProc) End Sub Sub EndTimer() runTimer = False KillTimer 0&, TimerID End Sub Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, _ ByVal nIDEvent As Long, ByVal dwTimer As Long) On Error GoTo Err_Prob 'pseudo code... If Cell X value = 200000 then PlaySound ("c:\WINNT\Media\notify.wav") Else 'Do nuthin End If Exit_Err_Prob: Exit Sub Err_Prob: EndTimer End Sub here is code that makes the sound that is called from the timer event Function PlaySound(sWavFile As String) ' Purpose: Plays a sound. ' Argument: the full path and file name. End Function you can also call the -timer end event- when you want to not check the volume value with a similar macro button on the menu bar that says end time and when click calls the end timer event cj... HtHs __________________ HAVE STOP - WILL TRADE If You Have The Vision We Have The Code
EdgeHunter I appreciate your effort bud but your way over my head. I have to be led by the hand on this kind of stuff. Its not really important, Im just getting spoiled more every day. A word to the wise, you can make a lot of money in this present environment with opening range breakouts. I dont know how long it will last but it sure is working good for now. Have a great weekend all.
We've got one more tool. The illusive A/D, which I have finally figured out how to get it into an intuitive TWS/EXCEL form that caters to TWS's limitations. Having all 3 variables side beside will just be super. I just need to polish off the when to look at it which is where I'm sure most screw ups will occur. After watching and modifying all the various angles from which I understood it, I have finally found what I believe to be the more intuitive graphical form. Granted, I can process the action very very quickly and it will most likely take some time for others. We shall see... VSTScalper is currently commenting in a similar vein. Seeing all the pieces and how they fit together is just more icing on the cake (ie. channels of channels, channels of traverses/retraces, PRV, B/A PAIR, B/A VOL, DOM A/D, STR.SQU). Kind Regards, MAK
Well, if you guys need any code to sound an alarm there it is... For the OPening range breakouts... what time frame... 5 minute Hi Lo range or ? cj
Edgehunter I dont use opening range breakout it the formal sense. All I am looking for is the market to start in one direction then reverse and take out the hod/lod within the first few bars or move sideways for a bit making a couple of s/r points which are then broken. I am using the 5 min. chart. Basically what they are is rockets.
Numerous examples the last couple of weeks: <img src="http://www.elitetrader.com/vb/attachment.php?s=&postid=1054289">