以下是通达信红绿灯副图源码(无源码的请下载附件导入)
CC:=INDEXC;
A:=MAX(MA(CC,60),MA(CC,120));
B:=MIN(MA(CC,60),MA(CC,120));
绿灯行:CC>A,COLORGREEN;
红灯停:CC<B,COLORRED;
黄灯观望:A>=CC AND CC>=B,COLORYELLOW ;
STICKLINE(CC>A,0,2,8,0),COLORGREEN,LINETHICK2;
STICKLINE(CC<B,0,2,8,0),COLORRED,LINETHICK2;
STICKLINE(A>=CC AND CC>=B,0,2,8,0),COLORYELLOW,LINETHICK2;
614255451.jpg
|