分析家公式网,提供指标公式,股票软件 用户登录  |  用户 注册
当前位置：分析家公式网 → 股票公式 → 大智慧L2公式 → 一键转帖：【大智慧L2】板块涨幅排名（可排序 源码）

软件名称：[B]【大智慧L2】板块涨幅排名（可排序 源码）[/B]
软件类型：国产软件
运行环境：Win2000/WinXP/Win2003/WinVista
软件语言：简体中文
授权方式：共享软件
软件大小：27.0 KB
官方主页：Home Page
更新时间：2010-08-07 05:46:34
软件简介:

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

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

先建立第一个公式，名称是：引用涨幅
A:DYNAINFO(14);

第二个公式：名称是：板块涨幅排名{只能是4个汉字，大智慧真垃圾}
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 稀缺zi源：' +NUMTOSTRN(STKINDI('993745','引用涨幅.A')*100,2)+'%'),COLOR7711EE;end;
IF STKINDI('993745','引用涨幅.A')*100<0 THEN BEGIN DRAWTEXTREL(x3,y1,'993745 稀缺zi源：' +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<
[url=http://www.70822.com/soft/sort013/sort03/down-23400.html]【大智慧L2】板块涨幅排名（可排序 源码）[/url]

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