当前位置:→ 公式网大智慧公式 → 正文
  • 大智慧板块涨幅源码

  • 相关简介:大智慧板块涨幅源码 下面另发个可用的板块涨幅于以补过。先将涨幅引用引入装上才可使用的。 {涨幅引用} 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','涨幅

  • 文章来源:公式网 发布时间:2012-05-17浏览次数:下载次数:0

大智慧板块涨幅源码

大智慧板块涨幅源码

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

{涨幅引用}
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,'银行类: ' +NUMTOSTRN(STKINDI('991017','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991017','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y4,'银行类: ' +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,'稀缺资源: ' +NUMTOSTRN(STKINDI('993745','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993745','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y1,'稀缺资源: ' +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')*100<0 THEN BEGIN DRAWTEXTREL(x3,y6,'化工化纤: ' +NUMTOSTRN(STKINDI('991011','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991002','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y7,'工程建筑: ' +NUMTOSTRN(STKINDI('991002','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991002','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y7,'工程建筑: ' +NUMTOSTRN(STKINDI('991002','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991037','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x3,y8,'电力设备: ' +NUMTOSTRN(STKINDI('991037','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991037','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y8,'电力设备: ' +NUMTOSTRN(STKINDI('991037','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991032','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y1,'教育传媒: ' +NUMTOSTRN(STKINDI('991032','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991032','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y1,'教育传媒: ' +NUMTOSTRN(STKINDI('991032','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991010','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y2,'供水供气: ' +NUMTOSTRN(STKINDI('991010','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991010','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y2,'供水供气: ' +NUMTOSTRN(STKINDI('991010','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991033','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y3,'仪电仪表: ' +NUMTOSTRN(STKINDI('991033','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991033','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y3,'仪电仪表: ' +NUMTOSTRN(STKINDI('991033','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991136','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y4,'运输物流: ' +NUMTOSTRN(STKINDI('991136','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991136','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y4,'运输物流: ' +NUMTOSTRN(STKINDI('991136','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991016','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y5,'交通设施: ' +NUMTOSTRN(STKINDI('991016','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991016','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y5,'交通设施: ' +NUMTOSTRN(STKINDI('991016','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991031','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y6,'外 贸: ' +NUMTOSTRN(STKINDI('991031','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991031','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y6,'外 贸: ' +NUMTOSTRN(STKINDI('991031','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991003','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y7,'电 力: ' +NUMTOSTRN(STKINDI('991003','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991003','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y7,'电 力: ' +NUMTOSTRN(STKINDI('991003','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('991135','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x4,y8,'通 信: ' +NUMTOSTRN(STKINDI('991135','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('991135','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x4,y8,'通 信: ' +NUMTOSTRN(STKINDI('991135','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993685','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y1,'3 G: ' +NUMTOSTRN(STKINDI('993685','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993685','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y1,'3 G: ' +NUMTOSTRN(STKINDI('993685','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993695','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y2,'创 投: ' +NUMTOSTRN(STKINDI('993695','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993695','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y2,'创 投: ' +NUMTOSTRN(STKINDI('993695','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993095','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y3,'奥 运: ' +NUMTOSTRN(STKINDI('993095','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993095','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y3,'奥 运: ' +NUMTOSTRN(STKINDI('993095','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993585','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y4,'新能源: ' +NUMTOSTRN(STKINDI('993585','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993585','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y4,'新能源: ' +NUMTOSTRN(STKINDI('993585','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993091','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y5,'新上海: ' +NUMTOSTRN(STKINDI('993091','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993091','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y5,'新上海: ' +NUMTOSTRN(STKINDI('993091','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993128','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y6,'农业龙头: ' +NUMTOSTRN(STKINDI('993128','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993128','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y6,'农业龙头: ' +NUMTOSTRN(STKINDI('993128','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993645','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y7,'节能环保: ' +NUMTOSTRN(STKINDI('993645','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993645','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y7,'节能环保: ' +NUMTOSTRN(STKINDI('993645','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993665','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y8,'航天军工: ' +NUMTOSTRN(STKINDI('993665','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993665','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y8,'航天军工: ' +NUMTOSTRN(STKINDI('993665','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993795','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x6,y1,'中字头: ' +NUMTOSTRN(STKINDI('993795','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993795','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x6,y1,'中字头: ' +NUMTOSTRN(STKINDI('993795','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993139','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x6,y2,'大 盘: ' +NUMTOSTRN(STKINDI('993139','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993139','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x6,y2,'大 盘: ' +NUMTOSTRN(STKINDI('993139','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993140','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x6,y3,'中 盘: ' +NUMTOSTRN(STKINDI('993140','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993140','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x6,y3,'中 盘: ' +NUMTOSTRN(STKINDI('993140','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993141','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x6,y4,'小 盘: ' +NUMTOSTRN(STKINDI('993141','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993141','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x6,y4,'小 盘: ' +NUMTOSTRN(STKINDI('993141','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993142','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x6,y5,'高 价: ' +NUMTOSTRN(STKINDI('993142','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993142','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x6,y5,'高 价: ' +NUMTOSTRN(STKINDI('993142','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993143','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x6,y6,'中 价: ' +NUMTOSTRN(STKINDI('993143','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993143','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x6,y6,'中 价: ' +NUMTOSTRN(STKINDI('993143','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993144','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x6,y7,'低 价: ' +NUMTOSTRN(STKINDI('993144','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993144','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x6,y7,'低 价: ' +NUMTOSTRN(STKINDI('993144','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993386','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x6,y8,'预 增: ' +NUMTOSTRN(STKINDI('993386','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993386','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x6,y8,'预 增: ' +NUMTOSTRN(STKINDI('993386','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993385','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x5,y3,'预 减: ' +NUMTOSTRN(STKINDI('993385','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993385','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x5,y3,'预 减: ' +NUMTOSTRN(STKINDI('993385','涨幅引用.A')*100,2)+'%'),colorb48c33;end;

{板块涨B}
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('993625','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,y2,'QFII持股: ' +NUMTOSTRN(STKINDI('993625','涨幅引用.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993625','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTREL(x1,y2,'QFII持股: ' +NUMTOSTRN(STKINDI('993625','涨幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI('993798','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTREL(x1,

 ☟问题反馈 ☞┄┄┄┄┄┄┄┄┄┄→收藏资源:

大智慧板块涨幅源码

  • 下载资源所需积分

    0

  • 当前拥有积分

    0

上传会员: 
公式网
文件大小: 
Bytes
上传时间: 
2012-05-17
下载积分: 
-
免责声明: 
请仔细阅读并同意后才能下载
本附件为用户分享上传,公式网没有对文件进行验证,不能保证下载资源的准确性、安全性和完整性,也不保证下载资源能正常安装和使用,且下载后扣除的积分无法退还,除非您充分理解并完全接受本声明,否则您无权下载。
本站对提供下载的软件、指标、资料等不拥有任何权利,其版权归该下载资源的合法拥有者所有。本附件仅供学习和研究使用,不得用于商业或者非法用途,如有侵犯您的版权, 请参看 《公式网侵权处理流程》《公式网免责声明条款》
点击下载无反应时,更换主流浏览器重新登录操作,如360浏览器、Edge浏览器、谷歌浏览器,个别浏览器有不兼容现象。
勾选以下表示您已经阅读并同意以上声明才能下载本文件,扣除积分无法退还!
我已阅读所有条款规定, 请点我同意 所有条款内容!我自愿下载!
提示:如下载失败,请点关闭刷新此页面或提交问题反馈给管理员→
关闭

关于我们 - 联系我们 - 隐私政策 - 免责声明 - 下载帮助 - 广告合作 - SiteMap - TOP
增值电信业务经营ICP许可证:湘B2-20210269 湘ICP备09016573号-3 湘公网安备43108102000039号
Copyright © 2025 铭网科技,All Rights Reserved.