分析家公式网,提供指标公式,股票软件 用户登录  |  用户 注册
当前位置：分析家公式网 → 股票公式 → 大智慧L2公式 → 一键转帖：另发个可用的“板块涨幅”给大家分享

软件名称：[B]另发个可用的“板块涨幅”给大家分享[/B]
软件类型：国产软件
运行环境：Win2000/WinXP/Win2003/WinVista
软件语言：简体中文
授权方式：共享软件
软件大小：0 Bytes
官方主页：Home Page
更新时间：2010-05-07 04:58:47
软件简介:

不好意思，前面转发的“板块决策 每天前十 板块监控的指标”没注意到参数不完整无法使用，给大家造成不便，在此至歉。。。


下面另发个可用的“板块涨幅”于以补过。先将“涨幅引用”引入装上才可使用的。

{涨幅引用}
A:DYNAINFO(14);

{板块涨A}
x1:=15 ; x2:=180; x3:=350; x4:=520; x5:=680; x6:=850;  y1:=9; y2:=120; y3:=250; y4:=380; y5:=510; y6:=640; y7:=770; y8:=900;
DRAWTEXTREL(5,9,'上证：'+NUMTOSTRN(STKINDI('1a0001','涨幅引用.A')*100,2)+'%'),{colorb48c33}COLORWHITE;
DRAWTEXTREL(80,9,'深证：'+NUMTOSTRN(STKINDI('993124','涨幅引用.A')*100,2)+'%'),{colorb48c33}COLORWHITE;
IF STKINDI('991036','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y2,'券  商：  ' +NUMTOSTRN(STKINDI('991036','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991036','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y2,'券  商：  ' +NUMTOSTRN(STKINDI('991036','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991028','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y3,'医  药：  ' +NUMTOSTRN(STKINDI('991028','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991028','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y3,'医  药：  ' +NUMTOSTRN(STKINDI('991028','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991017','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y4,'银hang类：  ' +NUMTOSTRN(STKINDI('991017','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991017','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y4,'银hang类：  ' +NUMTOSTRN(STKINDI('991017','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991007','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y5,'房地产：  ' +NUMTOSTRN(STKINDI('991007','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991007','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y5,'房地产：  ' +NUMTOSTRN(STKINDI('991007','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991034','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y6,'有色金属：  ' +NUMTOSTRN(STKINDI('991034','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991034','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y6,'有色金属：  ' +NUMTOSTRN(STKINDI('991034','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991021','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y7,'农林牧渔：  ' +NUMTOSTRN(STKINDI('991021','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991021','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y7,'农林牧渔：  ' +NUMTOSTRN(STKINDI('991021','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991035','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y8,'造纸印刷：  ' +NUMTOSTRN(STKINDI('991035','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991035','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y8,'造纸印刷：  ' +NUMTOSTRN(STKINDI('991035','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991018','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y1,'旅游酒店：  ' +NUMTOSTRN(STKINDI('991018','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991018','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y1,'旅游酒店：  ' +NUMTOSTRN(STKINDI('991018','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991023','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y2,'商业连锁：  ' +NUMTOSTRN(STKINDI('991023','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991023','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y2,'商业连锁：  ' +NUMTOSTRN(STKINDI('991023','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991020','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y3,'酿酒食品：  ' +NUMTOSTRN(STKINDI('991020','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991020','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y3,'酿酒食品：  ' +NUMTOSTRN(STKINDI('991020','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991008','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y4,'纺织服装：  ' +NUMTOSTRN(STKINDI('991008','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991008','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y4,'纺织服装：  ' +NUMTOSTRN(STKINDI('991008','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991006','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y5,'电子信息：  ' +NUMTOSTRN(STKINDI('991006','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991006','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y5,'电子信息：  ' +NUMTOSTRN(STKINDI('991006','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991004','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y6,'计算机：  ' +NUMTOSTRN(STKINDI('991004','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991004','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y6,'计算机：  ' +NUMTOSTRN(STKINDI('991004','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991026','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y7,'汽车类：  ' +NUMTOSTRN(STKINDI('991026','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991026','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y7,'汽车类：  ' +NUMTOSTRN(STKINDI('991026','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991014','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y8,'电  器：  ' +NUMTOSTRN(STKINDI('991014','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991014','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y8,'电  器：  ' +NUMTOSTRN(STKINDI('991014','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993745','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y1,'稀缺zi源：  ' +NUMTOSTRN(STKINDI('993745','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993745','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y1,'稀缺zi源：  ' +NUMTOSTRN(STKINDI('993745','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991019','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y2,'煤炭石油：  ' +NUMTOSTRN(STKINDI('991019','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991019','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y2,'煤炭石油：  ' +NUMTOSTRN(STKINDI('991019','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991009','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y3,'钢  铁：  ' +NUMTOSTRN(STKINDI('991009','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991009','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y3,'钢  铁：  ' +NUMTOSTRN(STKINDI('991009','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991024','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y4,'建  材：  ' +NUMTOSTRN(STKINDI('991024','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991024','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y4,'建  材：  ' +NUMTOSTRN(STKINDI('991024','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991027','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y5,'机  械：  ' +NUMTOSTRN(STKINDI('991027','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991027','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y5,'机  械：  ' +NUMTOSTRN(STKINDI('991027','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991011','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y6,'化工化纤：  ' +NUMTOSTRN(STKINDI('991011','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991011','涨幅引用.A')*10
[url=http://www.70822.com/soft/sort013/sort03/down-19836.html]另发个可用的“板块涨幅”给大家分享[/url]

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