|
PureBytes Links
Trading Reference Links
|
I have had this same problem in the past. The issue is that internally, TS
doesn't remember variable values with any more granularity than the current
bar (doesn't remember what happened on the last tick of the current bar). I
made a simple DLL and TS function to get around this problem. I am attaching
it to this post. This is for 16 bit TS4. You must copy the DoOnce16.DLL file
into your \Omega\Prog\ directory.
{--------------------}
{Function DoOnce}
{When DoOnce returns True, it means no Alert has occurred on the current bar
yet}
Inputs: Symbol(NumericSimple);
DefineDLLFunc:"DoOnce16.DLL",LONG,
"DoEvent",Long,{Symbol Number}
LONG;{Bar Time}
Value1 = DoEvent(Symbol, Time);
if Value1 = 1 Then DoOnce = True Else DoOnce = False;
{End of Function DoOnce}
{--------------------}
To test the function I created a simple Indicator:
{-----------------------}
{Indicator AlertOnce}
Inputs: SymNum(1100); {Add this input to your existing Indicator/System
Code}
{Prep the DoOnce Function}
If CurrentBar = 1 then Condition1 = DoOnce(SymNum);
if LastBarOnChart = True then begin
{Some Simple Condition is met}
If Close > Open Then Begin
if DoOnce(SymNum) Then Alert = True;
end;
end;
if 1 = 0 then Plot1(0,"Bogus"); {Every indicator needs a plot statement}
{End Indicator AlertOnce}
{----------------------------}
You can use the DoOnce function on multiple graphs, just change the Symbol #
to a unique number on each chart where you call this function. The DoOnce
Function is designed to return True the first time a condition is met on the
current bar and false every time thereafter on the current bar. Make sure to
enable your indicators to update on every tick.
Enjoy!
I take no responsibility for how you use any of this material. It has not
been designed for any specific purpose other than to illustrate how to make
an alert only do once per bar. Use at your own risk! This program contains
no warrantees or guarantees of any kind. I disclaim any and all losses you
might incur through the use of this program in actual trading.
Patrick White
Copyright 2001 Patrick White.
begin 666 DOONCE16.DLL
M35H*``(````$``\`__\``, `````````0 ``````````````````````````
M````````````````````D ```+0)NA `#A_-(;@!3,TAD)!4:&ES('!R;V=R
M86T@;75S="!B92!R=6X@=6YD97(@36EC<F]S;V9T(%=I;F1O=W,N#0HD````
M````````````3D4&`+4`$ ``````"8 #```$``#T``$````#``0`!0`.`$ `
M8 !@`'0`?@!5`0```@`(`````@`````````*`P(`<0U0$7$-`````-$0`0`2
M`"@!40`F"!0`H )0$* "!D1/3TY#10``!T1/159%3E0"```!``4`# `1`!D`
M``-'1$D&2T523D5,!%5315('5TE..#=%30A/3$4R1$E34 9&4$E.250&1E!4
M15)-!D9034%42 +_`\T_`60%`\T_!)8````*1$]/3D-%+D1,3 ```*JJJJJJ
MJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ
MJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ
MJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ
MJJJJJJJJJJJJJJJJJJJJJJH``.FG!NFD!NFA!NF>!NF;!NF8!NF5!NF2!O__
M____________________________________________________________
M_________P`"( #__P``__\``/__``#__P``__\``/__``#__P``__\``/__
M``#__P``__\``/__``#__P``__\``/__``#__P``__\``/__``#__P``__\`
M`/__``#__P``__\``/__``#__P``__\``/__``#__P``__\``/__``#__P``
M__\``/__``#__P``__\``/__``#__P``__\``/__``#__P``Z,8`QP9 !0``
M+O<&,@<$`'5?_P9 !2[_'IP`"\!T2XD.1 6)%CX%B1XT!8P&-@x)/D8%B39(
M!8P&+@xxxxxx`*,P!8D6,@57,\!0+O\>Y `N_QZ8``O =!'HW #H60!R"?\.
M0 4>Z$$`'Z! !;1,S2&)-C0%C 8V!8D.1 6)/D8%QP9(!0``+O\>< "C, 6)
M%C(%Z*(`Z!\`<@O_!D %51[H!@`?7:% !<N))D(%Z#L#ZHH`___+R^@!`,.
M/CP%`W(!P[@$`</#G%%65P;]BPX8``,.( "^* `#\4Z+/AP``_E/'@?SI+D8
M`+\A!_.D!U]>69W#_#/ BPX*!XL^#@<>!_.JZ"D)P_QFQP8@```````>#AX'
M'S/ N4X`OYP$\ZI(N0@`O^H$\ZJY#@"^. "_\@3SI1_#,\"C. 6T,,TAAL2C
M.@xx! #H(0##G%18.\2P`742G%@x`$!0G9Q8J0! L )T`K #HCP%G<.["P`N
M_Q[P``O =!Z##C@%`KL%`"[_'O `HX(%)4#@HX0%NPD`+O\>\ ##+O<&,@<@
M`'0#Z!0$BR9"!<,*P'4"L 7I$@3H0?_H4?^X,A/H"O]:63/ 4(OL@^PB4%!0
M4%%2RP"L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&
MK :L!JP&K :L!JP&K ; !\L(K :L!HP"B J=`JP&K :L!JP&K :L!JP&K :L
M!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&
M7 VL!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&I@*L!JP&K :L
M!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&
MK :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L
M!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&
MK :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L
M!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&
MK :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L
M!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&
MK :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&K :L!JP&BP`QNC$?K#\*
M``YDX?^,R+D'`;[$`K^ `!X>!X[8_*6KXOP?PV2*!":(!49'"L!U],.I#P!T
M!>@"`$##T>C1Z-'HT>C#4%-14FH`+O\>J !:65M8PSQA<@8\>G<"-"##4P8/
MH.@%``^A!UO#:$(@9E N_QZ ``O =!-04"[_'HP`60O =0>+P@x = '#L ?Y
MPP",V)!5B^P>CMB+7@x+VW4(BT8&HYP$ZUF#^P%W!HS(,]+K48/[$'<+T>,N
MBX<6`#/2ZT&!^P`!=0>XG@x,VNLT@?L``G4%Z# `ZRF!^P`$=0/IZ0"!^P`(
M=1<SR2[W!C('@ !T#(MV!N@)!XO&C.+K`S/ F1]=R@@`9E9F5[@#-2[_'F `
M!E.X`R6Z108>#A\N_QY@`!^))LH$C!;,! ^R)KH$Q!ZV! 93_S; !/\VR 1F
MH9X$9HL>H@xxxxxx!&:+%JH$9HLVK@xxxxxx!(LNO@xx!L($CB;$!(XNQ@x=
M'\L>+HX>905FHYX$9HD>H@xxxxxx!&:)%JH$9HDVK@xxxxxx!(DNO@x,!L($
MC";$!(PNQ@x/!L $9H\&M@x/!L@$B2:Z!(P6O 0/LB;*!+@#)5H?+O\>8 !F
M7V9>PQ]=ZZ `LC2ZL@xxxxxxx@:V@(E6VNL%M(")1MKV1MK_=07'1MHS@(!^
MVO%S`<O+L #/`%!O=V5R0F%S:6,`0T]-4U!%0P!%<G)O<B!A="!P9VTM8W1R
M.DYO($1/4R R+C K)$YO(#@P.#<D4')O9W)A;2!T;V\@8FEG)$YO(#@P,C@x
M*R1.;R X,#,X-BLD``#$`$)B2&A/;U%Q" @("! 0`@(_$S(3/QL_'S\7+"(%
MA ! '$8``,A"````?P```#\``,#_``" ?S7":"&BV@x)_S\UPF@xxxx/R?X_
MA63>^3/S!+7_/P!"P/\`2,#_`$K _ZP�H@(" @(" @(" @(" @(" @"H *
M``H````*@/9_`````/9_````````CP;&!H\&R 98)O9'! 1T$%D/MLV#Q 2#
MQ CB^_\NQ@xxx$<$)H]'!B:/1Q(FCT<0)@^V3P>+\='F`_'!Y@)F)H] #F8F
MCT *@^X,=?%F)HM &F8F*T 6?'IF0$ET(8/&#&8FB4 29B:+0!IF)BM %GQA
M0&8F]V 227?C= )R5&8FB4<(9B;W9Q)R2&8F#[=/$.,*9C/29O?Q4%)F6&8]
M```!`'8%)H!/! )F4.C#_&9:<B)F)HE7#";'!P``)HE'`@:.P#/ Z!0`!R:
M3P0$_R[&!K )9O\VQ@;I&_[\9HO*9^,F9H'Y```!`'(&9KD```$`9BO1,__S
MJF:%TG0+C,$N`PXX`([!Z]3#)O9'! 1U!/\N[ !FCP;&!E@x]D<$$'0060^V
MS8/$!(/$".+[_R[&!C+D628Z3P;H3@%:)CM7$NA&`5H/MLV+\='F`_'!Y@*-
M> Z)/M8&9H\&V 9F)O\U9EIF)CM0#N@?`69:9B8[4 KH%0&#[@QUYPKD#X4`
M`28Z3P</A?@`9HL6V 9F)CM5_ ^,Z@`FB$<$9B:+#68KRGY#)H!_!B!U/&92
M4P8FBT<,)HM7#BT$`(/:`,'B`R8#5P*.PHO8@\,$@^L$<P>,QH/N"([&9C/V
M9B:'-^B<`N+H!UMF6F8F_W<(9B;_=PPF#[9/!S/V9B:)%68FBT :9B8K0!9F
M0$ET'8/&#&8FB4 29B:+0!IF)BM %D!F)O=@$DEWY7),9B:)1PAF)O=G$G)
M9B8/MT\0XP]F,])F]_%04F989B:)1PQF/0```0!V!2: 3P0"9HO()HM'`N@x
M`'(2@\0()HE'`B: 3P0$_R[&!K )9B:/1PQF)H]'"+JP"6;_-L8&Z6W\= *T
M_\-3!F914"[_'H@`9ED+P'0B4&91:$(@+O\>D `+P'034"[_'HP`"\!U"8O"
M"\!T`P=;PP=;L#/YP^@&`'(!R^DG_":*1P2H!'1%)H!_!B!R%":+3P@xxx<*
M!B;$/^@Q``>H$'4JJ!!T$#/ 9B:+5PPFCD<"Z-?]ZQ8SP":'1P)3'@;H+ `'
M'UMR!B: 9P3[^,-"9C/V9B:'->A2`8/'!',)C,8N`S8X`([&XN9*=>/XPU N
M_QZ(``O =!=04"[_'I0`"\!U"B[_'H0`"\!U`\-8P[ S^</H,0",!H8%9L<&
MB 4`````QP:4!>0$C!Z6!</\5E<>#A^Y" "^J <S__.EK;_^?ZL?7U[#4U%F
MN " ``#HSOER!8[ Z-7_65O#XUB!^>Y_<@.Y[G^#P0>.!H8%,_\FBWT""_\/
MA( `)CL-=_$FBQ4KT8/Z$G(U)HD5`_J#QP0FB57ZB]& SH"#Z0<FB4W^)HE5
M_ /Y)L8%`":)50$K^0979EK#9C/2Q#Z4!<,#T2: 30& `_HF@$W_@"OZ@\<$
M@^D')H=-_B:+%8?/)HE5!(?7)HE5`HOY)HM-_@/Y)L8%`"OY!E=F6L,FBQ8&
M``O2= 6.PNEF_U >!N@xxx(*'XP&!@`?6.E4_P<?6;D``&:Z`````,0^E 7#
M"_9^2%-1'F967A^#[@2+'(#G?XM,_@x)>#,K\0/9B1R)6/X#\X'^`(!T;(L,
M"\EX9BOS`0P#V8E8_@/S*_&+7 *+= 2)=P2)7 +K2\,#\X'^`(!T*8L,"\EX
M(_]T!/]T`H?9`4C^*_$#V8D<65N)3 *)7 2)=P*+V8EW!.L9B'S_*_.(? &+
MWH<>`@")7 +'1 0``(EW!!]96\.!YO]_= IF5EX/H62+3/[#,\D/M#:4!<.!
MY_]_= EF5U\')HM5_L,STL0^E 7#@>;_?W03'F967A\[3/YW"(E,_@/QQ@x`
M'\-345)6!HX&A@xx`("["@`KP[X&`":+#.,<C,*.P28[!W7R)HL$CL(FB02+
MP0;HL/T'<];K`?@'7EI96\-;!XU'!5 &4R;$7P&)7MR!9MK_?\LW``(`&@`"
M`````@`<``,````%`3@``@!R``4!.@`"`'$`!0$\``(`MP`%`3X``@#!``4!
M0 `"`*X`!0%"``(`M0`%`40``@"V``4!1@`"`,,`!0%(``(`LP`%`4H``@"^
M``4!3 `"`,(`!0%.``(`K0`"`*@!! ````,!5 `"`*\``P%8``,`V@`#`5P`
M`P!R``,!8 `"`&8``P%D``,`6 `#`6@``@"P``,!; `#`%L``P%P``(`@P`#
M`70``P!L``,!> `"`# ``P%\``,`) `#`8 ``@`/``,!A `"`!$``P&(``(`
M%0`#`8P``@`2``,!D `"`! ``P&4``(`$P`#`9@``P`%``,!G `"`%L``P&@
M``(`7P`#`:0``@`S``,!J `#`&@``P&L``,``0`#`;0``P!M``,!N `#`&4`
M`P&\``,`;P`#`< ``@!K``,!Q `#`!8``P'(``(`NP`#`<P``@"]``,!T `#
M`.@``P'4``4`! `#`=@`!0`&``,!W `%``<``P'@``,`<0`#`>0``@`>``,!
MZ `"`*8``P'L``(`'0`#`? `! `!``(`'@`$````JJJJJJJJJJJJJJJJJJJJ
MJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ
MJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ
MJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ
MJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ
MJJJJJJJJJJJJJJJJJJJJJJJJ``````````````````````0````B!P``Y ``
M`"8'```<````"@@````````!``@!``````````````0`````````````````
M````````````````````````````````````````````````````````````
M```````````````````````````````````````````````````````!``@!
M``````````````0`````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M`````````````````````/____\``@``( ````````#_____``````$```"J
MJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ
MJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ
MJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ
MJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ
MJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJKX]P;@!/__=0[#
MG/CW!N $__]U`IW#G>L+P\-W!2O"> '#L E:#E+_+@x!"])U!0KD=0'#L ;K
M[ O2>/C#48O*F3O*677NPPO >.D+TG7EPU",P O#6'0!P[ )Z\=F468/M\IF
M,])F]_%04F989EG#]T;:`(!U`<.!=MH`@(M.W./U@x[:`$!:_^'_'LP!_Q[\
M````<&*,V)!5B^QF4V969E<>CMB#[!1F,\!F4&909E!F4&904/\>A '#````
M`&8/OP8>"&:+#B('9CO(#X64`+LF!QX'_QX``68QP&909@^_!B((9E QP%"X
M! !0N @!4#' 4+LF!QX'_Q[L`+N8!QX'_QX``68QP&909@^_!B((9E QP%"X
M! !0N @!4#' 4+N8!QX'_Q[L`&;'!B('`0```&:+1@x+'B('P>,"C@xx!R9F
MB0=FBT8&BQXB!\'C`HX&F@<F9HD'9L=&R $```#I) %FBP8B!V:)1M!FQT;4
M`0```&;'1LP!````Z64`BU[,P>,"C@xx!R9FBP=FBTX*9CO(#X5$`(M>S,'C
M`HX&F@<F9HL'9HM.!F8[R ^%#@!FQT;(`````.DU`.D=`&:+1@:+7LS!XP*.
M!IH')F:)!V;'1L@!````Z14`9HM&U&8!1LQFBT;,9HM.T&8[R'V.9HL&(@=F
MBT[,9CO(#XZ&`&8/OP8B"&8#!B('9HD&(@=F,<!F4&:+!B('9E QP%"X! !0
MN @!4+B `%"[)@<>!_\>\ !F,<!F4&:+!B('9E QP%"X! !0N @!4+B `%"[
MF <>!_\>\ !FBT8*BQXB!\'C`HX&* <F9HD'9HM&!HL>(@?!XP*.!IH')F:)
B!V;'1L@!````9HM&R&906%J-9O(?9E]F7F9;7<H(````````
`
end
|