当前位置:→ 公式网 > 大智慧公式 > 正文  公式解密、改选股等业务 联系点击查看详情...

以下是【大智慧L2】板块涨幅排名(源码)(无源码的请下载附件导入)

今天无意间在网上看到涨幅排名的源码,觉得不错,贴出来大家看看
可以加到行情里据此排序
希望老师们改进让他更完美

如果侵犯了了网友的版权,站内短信请告知我,谢谢


A:DYNAINFO(14);

x1:=15 ; x2:=210; x3:=405; x4:=600; x5:=800; x6:=850;  y1:=9; y2:=120; y3:=250; y4:=380; y5:=510; y6:=640; y7:=770; y8:=900;
IF STKINDI('1a0001','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(5,9,'上证:' +NUMTOSTRN(STKINDI('1a0001','引用涨幅.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('1a0001','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(5,9,'上证:' +NUMTOSTRN(STKINDI('1a0001','引用涨幅.A')*100,2)+'%'),COLORGREEN;end;
IF STKINDI('993124','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(108,9,'深证:' +NUMTOSTRN(STKINDI('993124','引用涨幅.A')*100,2)+'%'),COLORRED;end;
IF STKINDI('993124','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(108,9,'深证:' +NUMTOSTRN(STKINDI('993124','引用涨幅.A')*100,2)+'%'),COLORGREEN;end;
IF STKINDI('991036','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y2,'991036 券    商:' +NUMTOSTRN(STKINDI('991036','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991036','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y2,'991036 券    商:' +NUMTOSTRN(STKINDI('991036','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991028','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y3,'991028 医    药:' +NUMTOSTRN(STKINDI('991028','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991028','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y3,'991028 医    药:' +NUMTOSTRN(STKINDI('991028','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991017','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y4,'991017 银 行 类:' +NUMTOSTRN(STKINDI('991017','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991017','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y4,'991017 银 行 类:' +NUMTOSTRN(STKINDI('991017','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991007','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y5,'991007 房 地 产:' +NUMTOSTRN(STKINDI('991007','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991007','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y5,'991007 房 地 产:' +NUMTOSTRN(STKINDI('991007','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991034','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y6,'991034 有色金属:' +NUMTOSTRN(STKINDI('991034','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991034','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y6,'991034 有色金属:' +NUMTOSTRN(STKINDI('991034','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991021','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y7,'991021 农林牧渔:' +NUMTOSTRN(STKINDI('991021','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991021','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y7,'991021 农林牧渔:' +NUMTOSTRN(STKINDI('991021','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991035','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y8,'991035 造纸印刷:' +NUMTOSTRN(STKINDI('991035','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991035','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y8,'991035 造纸印刷:' +NUMTOSTRN(STKINDI('991035','引用涨幅.A')*100,2)+'%'),colorb48c33;end;

IF STKINDI('991018','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y1,'991018 旅游酒店:' +NUMTOSTRN(STKINDI('991018','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991018','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y1,'991018 旅游酒店:' +NUMTOSTRN(STKINDI('991018','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991023','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y2,'991023 商业连锁:' +NUMTOSTRN(STKINDI('991023','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991023','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y2,'991023 商业连锁:' +NUMTOSTRN(STKINDI('991023','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991020','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y3,'991020 酿酒食品:' +NUMTOSTRN(STKINDI('991020','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991020','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y3,'991020 酿酒食品:' +NUMTOSTRN(STKINDI('991020','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991008','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y4,'991008 纺织服装:' +NUMTOSTRN(STKINDI('991008','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991008','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y4,'991008 纺织服装:' +NUMTOSTRN(STKINDI('991008','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991006','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y5,'991006 电子信息:' +NUMTOSTRN(STKINDI('991006','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991006','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y5,'991006 电子信息:' +NUMTOSTRN(STKINDI('991006','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991004','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y6,'991004 计 算 机:' +NUMTOSTRN(STKINDI('991004','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991004','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y6,'991004 计 算 机:' +NUMTOSTRN(STKINDI('991004','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991026','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y7,'991026 汽 车 类:' +NUMTOSTRN(STKINDI('991026','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991026','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y7,'991026 汽 车 类:' +NUMTOSTRN(STKINDI('991026','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991014','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x2,y8,'991014 电    器:' +NUMTOSTRN(STKINDI('991014','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991014','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x2,y8,'991014 电   器:' +NUMTOSTRN(STKINDI('991014','引用涨幅.A')*100,2)+'%'),colorb48c33;end;

IF STKINDI('993745','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y1,'993745 稀缺资源:' +NUMTOSTRN(STKINDI('993745','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993745','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y1,'993745 稀缺资源:' +NUMTOSTRN(STKINDI('993745','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991019','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y2,'991019 煤炭石油:' +NUMTOSTRN(STKINDI('991019','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991019','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y2,'991019 煤炭石油:' +NUMTOSTRN(STKINDI('991019','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991009','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y3,'991009 钢    铁:' +NUMTOSTRN(STKINDI('991009','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991009','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y3,'991009 钢    铁:' +NUMTOSTRN(STKINDI('991009','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991024','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y4,'991024 建    材:' +NUMTOSTRN(STKINDI('991024','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991024','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y4,'991024 建    材:' +NUMTOSTRN(STKINDI('991024','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991027','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y5,'991027 机    械:' +NUMTOSTRN(STKINDI('991027','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991027','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y5,'991027 机    械:' +NUMTOSTRN(STKINDI('991027','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991011','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y6,'991011 化工化纤:' +NUMTOSTRN(STKINDI('991011','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991011','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y6,'991011 化工化纤:' +NUMTOSTRN(STKINDI('991011','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991002','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y7,'991002 工程建筑:' +NUMTOSTRN(STKINDI('991002','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991002','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y7,'991002 工程建筑:' +NUMTOSTRN(STKINDI('991002','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991037','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y8,'991037 电力设备:' +NUMTOSTRN(STKINDI('991037','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991037','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y8,'991037 电力设备:' +NUMTOSTRN(STKINDI('991037','引用涨幅.A')*100,2)+'%'),colorb48c33;end;

IF STKINDI('991032','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y1,'991032 教育传媒:' +NUMTOSTRN(STKINDI('991032','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991032','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y1,'991032 教育传媒:' +NUMTOSTRN(STKINDI('991032','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991010','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y2,'991010 供水供气:' +NUMTOSTRN(STKINDI('991010','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991010','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y2,'991010 供水供气:' +NUMTOSTRN(STKINDI('991010','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991033','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y3,'991033 仪电仪表:' +NUMTOSTRN(STKINDI('991033','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991033','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y3,'991033 仪电仪表:' +NUMTOSTRN(STKINDI('991033','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991136','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y4,'991136 运输物流:' +NUMTOSTRN(STKINDI('991136','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991136','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y4,'991136 运输物流:' +NUMTOSTRN(STKINDI('991136','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991016','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y5,'991016 交通设施:' +NUMTOSTRN(STKINDI('991016','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991016','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y5,'991016 交通设施:' +NUMTOSTRN(STKINDI('991016','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991031','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y6,'991031 外    贸:' +NUMTOSTRN(STKINDI('991031','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991031','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y6,'991031 外    贸:' +NUMTOSTRN(STKINDI('991031','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991003','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y7,'991003 电    力:' +NUMTOSTRN(STKINDI('991003','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991003','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y7,'991003 电    力:' +NUMTOSTRN(STKINDI('991003','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991135','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y8,'991135 通    信:' +NUMTOSTRN(STKINDI('991135','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991135','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y8,'991135 通    信:' +NUMTOSTRN(STKINDI('991135','引用涨幅.A')*100,2)+'%'),colorb48c33;end;


IF STKINDI('993685','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y1,'993685  3     G:' +NUMTOSTRN(STKINDI('993685','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993685','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y1,'993685  3     G:' +NUMTOSTRN(STKINDI('993685','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993695','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y2,'993695 创    投:' +NUMTOSTRN(STKINDI('993695','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993695','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y2,'993695 创    投:' +NUMTOSTRN(STKINDI('993695','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993095','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y3,'993095 奥    运:' +NUMTOSTRN(STKINDI('993095','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993095','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y3,'993095 奥    运:' +NUMTOSTRN(STKINDI('993095','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993585','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y4,'993585 新 能 源:' +NUMTOSTRN(STKINDI('993585','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993585','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y4,'993585 新 能 源:' +NUMTOSTRN(STKINDI('993585','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993091','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y5,'993091 新 上 海:' +NUMTOSTRN(STKINDI('993091','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993091','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y5,'993091 新 上 海:' +NUMTOSTRN(STKINDI('993091','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993128','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y6,'993128 农业龙头:' +NUMTOSTRN(STKINDI('993128','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993128','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y6,'993128 农业龙头:' +NUMTOSTRN(STKINDI('993128','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993645','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y7,'993645 节能环保:' +NUMTOSTRN(STKINDI('993645','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993645','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y7,'993645 节能环保:' +NUMTOSTRN(STKINDI('993645','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993665','引用涨幅.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y8,'993665 航天军工:' +NUMTOSTRN(STKINDI('993665','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993665','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y8,'993665 航天军工:' +NUMTOSTRN(STKINDI('993665','引用涨幅.A')*100,2)+'%'),colorb48c33;end;
 

 



关于我们 - 联系我们 - 广告合作 - 下载声明 - 网站帮助 - 友情链接 - 网站地图 - RSS订阅 - TOP
湘ICP备09016573号-3 增值电信业务经营ICP许可证:湘B2-20210269 湘公网安备43108102000039号
Copyright © 铭网科技,All Rights Reserved.
股票公式,股票指标,股票软件,股票知识