Re: Text display of variables

[Bob Fulks <bfulks@xxxxxxxxxxxx>]

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;