分析家公式网,提供指标公式,股票软件 用户登录  |  用户 注册
当前位置:分析家公式网股票公式大智慧L2公式 → 一键转帖:条形伸缩公式

软件名称:[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]

关于本站 | 网站帮助 | 广告合作 | 声明 | 友情连接 | 网站地图 |
分析家公式网声明:本站所有股票公式软件资料均网上公开收集,如侵权请联系删帖。站内所有广告,均与本站无关!
Copyright © 2003-2024 70822.Com. All Rights Reserved .
页面执行时间:46.87500 毫秒