软件名称:[B]条形伸缩公式[/B]
软件类型:国产软件
运行环境:Win9X/Win2000/WinXP/Win2003/
软件语言:简体中文
授权方式:解密版
软件大小:4.00 KB
官方主页:Home Page
更新时间:2009-06-23 20:22:00
软件简介:
{引用涨幅3}
A:DYNAINFO(14);
{条形伸缩}
DRAWTEXTABS(2,15,'上证 ' +NUMTOSTRN(STKINDI('1a0001','引用涨幅3.A')*100,2)+'%'),COLORwhite;
DRAWTEXTABS(2,45,'深证 ' +NUMTOSTRN(STKINDI('399001','引用涨幅3.A')*100,2)+'%'),COLORwhite;
DRAWTEXTABS(2,75,'个股 ' +NUMTOSTRN(("引用涨幅3.a"*100),2 )+'%'),COLORwhite;
DRAWTEXTABS(180,86,'0%'),COLORwhite;
DRAWTEXTABS(280,86,'5%'),COLORwhite;
DRAWTEXTABS(380,86,'10%'),COLORwhite;
DRAWRECTABS(180,85 ,180+200 ,86 ,rgb(255,0,0 )),LAYER6,coloraaaaaa;
上证:=STKINDI('1a0001','引用涨幅3.A')*100*20;
深证:=STKINDI('399001','引用涨幅3.A')*100*20;
个股:="引用涨幅3.a"*100*20;
IF 上证>=0 THEN BEGIN DRAWRECTABS(180,15 ,180+上证 ,25 ,rgb(255,0,0 )),LAYER6,coloraaaaaa;end;
IF 上证<0 THEN BEGIN DRAWRECTABS(180,15 ,180-上证 ,25 ,rgb(0,255,0 )),LAYER6,coloraaaaaa;end;
IF 深证>=0 THEN BEGIN DRAWRECTABS(180,45 ,180+深证 ,55 ,rgb(255,0,0 )),LAYER6,coloraaaaaa;end;
IF 深证<0 THEN BEGIN DRAWRECTABS(180,45 ,180-深证 ,55 ,rgb(0,255,0 )),LAYER6,coloraaaaaa;end;
IF 个股>=0 THEN BEGIN DRAWRECTABS(180,75 ,180+个股 ,85 ,rgb(255,0,0 )),LAYER6,coloraaaaaa;end;
IF 个股<0 THEN BEGIN DRAWRECTABS(180,75 ,180-个股 ,85 ,rgb(0,255,0 )),LAYER6,coloraaaaaa;end;
DRAWTEXTABS(20,110,STKLABEL),LINETHICK6,Colorffff00;
DRAWTEXTABS(140,110,STKNAME),LINETHICK6,Color00ffff;
[url=http://www.70822.com/soft/sort013/sort03/down-10337.html]条形伸缩公式[/url]