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

RE: Text display of variables



PureBytes Links

Trading Reference Links

Bob
Thanks, But it looks like Omega in their greater wisdom has removed the
Commentary feature from TS6 which I am using.

Regards
Jerry

> -----Original Message--
> From: Bob Fulks [mailto:bfulks@xxxxxxxxxxxx]
> Sent: Sunday, December 16, 2001 3:29 PM
> To: drwar@xxxxxxxxxxxx
> Cc: Omega-List
> Subject: Re: Text display of variables
>
>
> At 2:46 PM -0500 12/16/01, Jerry wrote:
>
> >Does anyone have some indicator code for displaying several
> variables , say
> >on the right hand side of the screen.
>
>
> Not on the right side of the screen but in the "Expert Commentary"
> window.
>
> This code adds commentary to tell you the value of your key variables
> on any bar you apply the cursor to when Expert Commentary is enabled.
> Use your own variable names, obviously. I find it very useful.
>
> (Credit: I think I got the idea from Bill Brower's TS Express
> newsletter a long time ago. <http://www.insideedge.net/>)
>
> Bob Fulks
>
>
> {Commentary to show debug data}
>
> Vars:    SCo1(""),       {String for Condition1 value}
>          SCo2(""),       {String for Condition2 value}
>          SCo3(""),       {String for Condition3 value}
>          String1("");    {Output string}
>
> #BeginCmtryOrAlert
> if AtCommentaryBar then begin
>
>    if Condition1 then SCo1 = "TRUE" else SCo1 = "FALSE";
>    if Condition2 then SCo2 = "TRUE" else SCo2 = "FALSE";
>    if Condition3 then SCo3 = "TRUE" else SCo3 = "FALSE";
>
>    String1 = "Values: " +
>       newline + "  Date   = " + NumToStr(Date, 0) +
>       newline + "  Time   = " + NumToStr(Time, 0) +
>       newline + "  MState = " + NumToStr(MState, 0) +
>       newline + "  MP     = " + NumToStr(MP, 0) +
>       newline + "  High   = " + NumToStr(High, 2) +
>       newline + "  Low    = " + NumToStr(Low, 2) +
>       newline + "  Close  = " + NumToStr(Close, 2) +
>       newline + "  SlowK  = " + NumToStr(SK, 0) +
>       newline + "  Slope  = " + NumToStr(Slope, 2) +
>       newline + "  Top    = " + NumToStr(Top, 2) +
>       newline + "  Bot    = " + NumToStr(Bot, 2) +
>       newline + "  SellPt = " + NumToStr(SellPt, 2) +
>       newline + "  Cond1  = " + SCo1 +
>       newline + "  Cond2  = " + SCo2 +
>       newline + "  Cond3  = " + SCo3;
>
>    Commentary(String1);
> end;
> #end;
>