Color Bars
This script that colors bars based on Net and leaves the unchanged bars
yellow. I went ahead and added the code necessary to give you an
Alert when you have a sequence of unchanged bars. Now that the
script is written, I am sure you can read follow along with the script's logic
and make adjustments to the script to make it work the way you have in
mind.
var i,j: integer;
begin
if who=41 then begin
j:=GetVariable(eCommission);
for i:=BarBegin to BarEnd do begin
if Bar(eNet,i)>0 then SetBar(eColor,i,1);
if Bar(eNet,i)<0 then SetBar(eColor,i,2);
if Bar(eNet,i)=0 then inc(j) else j:=0;
if (j=3) and (i=BarEnd) then
Alert(True, 'Place Order Alert',
clRed, clWhite, '');
end;
SetVariable(eCommission,j);
end;
end;
The one item that might need explaining is the use of the GetVariable/SetVariable
operating on the chart's Commission variable. We need a place to
store the counter J in between executions. Since this script might
be used by multiple charts simultaneously, this counter needs to be preserved
between calls. The counter is the trigger to when an alert should be
shown. Commission is probably not needed by your scripts, which
makes it available as storage for our script counter J.
To use this script, cut and paste it into the script editor and save it under
a useful name. Display your chart, and click the #1 button on the
Color Bar drop down panel. This will dress the chart using a
user defined color bar, and the script will be called with the Who variable
having a value of 41 to do the bar coloring.
|
