Hi bruce,

please look at the code I've posted here:

http://forums.worden.com/default.aspx?g=posts&t=58697

I'm trying to add a popup message when price has crossed up through the "entry" level.

I have added the code, as per this capture:

http://screencast.com/t/uelJQw6F7a

but it's not working, it'll endlessly popup messages.

This is what I want to achieve : 

example V on 60min (have to change "entrypercent to 25%, in order to get the "entry" cross)

http://screencast.com/t/71jt2OPL

Do you know of a way to just show a single message when the cross occurs?

thanks.

Add something like the following to the beginning of your RealCode:

Static Sym As String

Then change:

If price.Bar.lastvalue(k - 1) < entry Then

To:

If Price.Bar.Value(k - 1) < entry AndAlso Sym <> CurrentSymbol Then

With the following line in addition to the showmessage inside the If construct:

Sym = CurrentSymbol

If you switch away from a symbol with a message and switch back without any other messages showing, the symbol will not show the message again. But if there is a message from another symbol in between, then the symbol will show the message again.

fantastic. thanks !

Also trying to get an audible alert:

I do not know. When I do essentially the same thing (but with notify.wav instead of lightbulb.wav), it works just fine and plays the sound whenever there is a popup.

ok, got it.

some of my wav files work, and some don't.

no problem, just used another file.

thanks again.

Since I use multiple charts with different timeframes at the same time I want when the message pops up, to show the timeframe as well.

I wrote the following as a private subroutine:

then I'm trying to incorporate the tframe string into the showmessage command:

showmessage("entry AB=CD up, on " & WhatTimeFrame.tframe & Me.currentsymbol)

and :

showmessage("entry AB=CD up, on " & WhatTimeFrame & Me.currentsymbol)

both give me the error :

argument not specified for parameter "tframe" of 'Private Sub WhatTimeFrame(tframe as astring)'

oops sorry:

Private Sub TFrame (tframe As String)

is

Private Sub WhatTimeFrame (tframe As String)

I'm not a programmer and couldn't say what might be wrong with your technique. That said, if we change this from a Sub to a Function:

	Private Function WhatTimeFrame() As String
		Dim tframe As String
		If me.BarInterval.Days > 0 then
			Select Case Me.TimeFrame.TotalDays ' daily timeframes
				Case  1 
					tframe = "daily"
				Case 2
					tframe = "2days"
			end Select
		else 
			Select Case Me.BarInterval.TotalMinutes ' minute timeframes
				Case 1
					tframe = "1min"
				Case 2 
					tframe = "2min"
				Case 3
					tframe = "3min"
				Case 5 
					tframe = "5min"
				Case 8
					tframe = "8min"
				Case 10 
					tframe = "10min"
				Case 15
					tframe = "15min"
				Case 30 
					tframe = "30min"
				Case 60
					tframe = "60min"
				Case 120 
					tframe = "120min"
			End Select
		End If
		Return tframe
	End Function

Then we can use:

showmessage("entry AB=CD up, on " & WhatTimeFrame() & Me.currentsymbol)

The error cleared, however it does NOT show in the pop up message

besides 

showmessage("entry AB=CD up, on " & WhatTimeFrame() & Me.currentsymbol)

I tried :

ok, got it!

forgot the "return tframe" statement in the function.

thanks.  

I'm still not a programmer and I still can't troubleshoot your code, but you could try replacing your function with something shorter:

	Private Function WhatTimeFrame() As String
		Dim tframe As String
		If me.BarInterval.Days > 0 then
			tframe = Me.BarInterval.Days & " Days "
		else
			tframe = Me.BarInterval.TotalMinutes & " Minutes"
		End If
		Return tframe
	End Function

OK, I'm happy to read you were able to figure it out.

ah, much better.  

need to study a bit more on functions, subs, etc..   organize my spagetti code

thx Bruce!

Hi bruce, I want to explore if there is a way to make this work a little better.

I have written this into a condition, that sorts a watchlist.

the message keeps triggering several times during the bar where price surpasses the "entry".

I'd like to find a way that it'll show the message just once for the bar, where the condition passes.

my thinking on how to tackle this so far:

register the exact time where price surpasses the "entry".

write the ticker and time when the condition passed into a "list" , or an array perhaps.

for argument sake, for example AAPL passed at 15:36:00 on a 5min chart, and the condition runs every 15 seconds.

so write AAPL with the time into an array. (or maybe we could/have to use the hashtable thingy for this)

next time the condition runs, at 15:36:15 , and AAPL still passed the condition then check the array, determine that AAPL's last entry was still on the same current 5min bar, and therefore DO NOT do the "showmessage - lokistatic" routine.

So the first step I want to find out is if there is a way to register the time when the price surpasses the "entry", and for now as an exercise add the time to the showmessage.

Do you know how we can capture the time at a certain event?

Hope I'm making sense, and as always open; to any of your thoughts.

thx,

P.

A label for the current time of day could be written as:

Label = DateTime.Now.TimeOfDay.ToString

But you could probably just store DateTime.Now instead of the text you would use in the label. This would allow you to compare the stored date to Price.DateValue(1). If the stored date is less than or equal to Price.DateValue(1), then it was caclulated during the previous bar and not the current bar.

I am guessing you would have two static lists. One would just be a list of symbols and the other would be a list with the DateTime when the symbol was added to the other list. That said, I am not a programmer and do not have any suggestions as to the exact details.

me neither; not a programmer. :-) but really appreciate your ideas and suggestions, it has helped me a lot.

So I will spend some time on this. If I get anything workable I'll post it.

thx,

P.

see:

http://forums.worden.com/default.aspx?g=posts&t=52507

If you have any ideas to improve on the code plz let me know.

thx