分享股海网,最好股票软件下载中心,股票软件,股票书籍,股票公式,股票知识,炒股教程
分享到:
☆ 私募云 ☆ | 股软教程 | 公式教程 | 收藏股海网
股海网,最好股票软件下载中心,股票软件,股票书籍,股票公式,股票知识,炒股教程
股海首页 | 指标公式 | 分析软件 | 行情软件 | 数据软件 | 资讯题材 | 工具应用 | 期货基金 | 书籍教程 | 技术指标 | 股票内参 | 外汇期货 | 股票知识 |
股票软件 大智慧 通达信 飞狐 东财通 操盘手 指南针 同花顺 钱龙 券商软件 手机炒股 和谐软件 证券之星 金融界 分析家 数据下载 数据接口 期货 基金 教程
股票公式 大智慧 通达信 飞狐 同花顺 东财通 | 股票池 大智慧 通达信 | 股票书籍 | 指标分解 MACD BOLL KDJ OBV CCI RSI DMI SAR VOL DDX DDY DDZ WR CR
当前位置:→ 股海网 > 指标公式 > 飞狐公式 > 正文 ※ 在线检测公式未来函数 ※
  • 飞狐的版块排序前八名个股源码

  • 简介:飞狐的版块排序前八名个股源码 x1:=140 ; y1:=60; y2:=90; BKNAME:='板块指数'; STKC:=stkcount(BKNAME); variable:s=0,ZFSZ[STKC]=0,ZFNAME[10]='',ZFNumber[10]=0; for p=1 to stkc do begin Ty1:=STKFROMBLK(BKNAME,p); Ty2:=dynainfo2(14,ty1)*100; ZFSZ[p]:=Ty2; if Ty2=0 then s:=s+
  • 标签:飞狐,版块排序,前八名,个股源码 来源:www.guhai.com.cn 时间:12-05-15 点击: 下载:

股海网股票公式说明:股票公式文件使用以及说明(新手必读)!提供了公式源码的一般不提供文件下载,请了解!

飞狐的版块排序前八名个股源码

x1:=140 ;    
y1:=60; y2:=90;  
BKNAME:='板块指数';  
STKC:=stkcount(BKNAME);  
variable:s=0,ZFSZ[STKC]=0,ZFNAME[10]='',ZFNumber[10]=0;  
for p=1 to stkc do begin  
Ty1:=STKFROMBLK(BKNAME,p);  
Ty2:=dynainfo2(14,ty1)*100;  
ZFSZ[p]:=Ty2;  
if Ty2>=0 then  s:=s+1;  
end  
NWY:=sortpos(ZFSZ,0,1,stkc);    
for p1 =1 to 10 do begin  
  ZFDM:=STKFROMBLK(BKNAME,ZFSZ[stkc-(p1-1)]);    
Te:=stknameex(ZFDM);   
ZFNAME[p1]:=strleft(te,strlen(te)-4);  
ZFNumber[p1]:=dynainfo2(14,ZFDM)*100;   
end;  
drawtextex(1,1,x1,y1,ZFNAME[1]+'('+ numtostr(stkcount(ZFNAME[1]),0)+ ')  ' +   numtostr(ZFNumber[1],2) + ' %'),color5050ff,align2;   
drawtextex(1,1,x1,y1+y2,ZFNAME[2]+'('+ numtostr(stkcount(ZFNAME[2]),0)+ ')  ' +  numtostr(ZFNumber[2],2) + ' %'),color5050ff,align2;   
drawtextex(1,1,x1,y1+y2*2,ZFNAME[3]+'('+ numtostr(stkcount(ZFNAME[3]),0)+ ')  ' +  numtostr(ZFNumber[3],2) + ' %'),color5050ff,align2;   
drawtextex(1,1,x1,y1+y2*3,ZFNAME[4]+'('+ numtostr(stkcount(ZFNAME[4]),0)+ ')  ' +  numtostr(ZFNumber[4],2) + ' %'),color5050ff,align2;   
drawtextex(1,1,x1,y1+y2*4,ZFNAME[5]+'('+ numtostr(stkcount(ZFNAME[5]),0)+ ')  ' +   numtostr(ZFNumber[5],2) + ' %'),color5050ff,align2;   
drawtextex(1,1,x1,y1+y2*5,ZFNAME[6]+'('+ numtostr(stkcount(ZFNAME[6]),0)+ ')  ' +   numtostr(ZFNumber[6],2) + ' %'),color5050ff,align2;   
drawtextex(1,1,x1,y1+y2*6,ZFNAME[7]+'('+ numtostr(stkcount(ZFNAME[7]),0)+ ')  ' +   numtostr(ZFNumber[7],2) + ' %'),color5050ff,align2;   
drawtextex(1,1,x1,y1+y2*7,ZFNAME[8]+'('+ numtostr(stkcount(ZFNAME[8]),0)+ ')  ' +   numtostr(ZFNumber[8],2) + ' %'),color5050ff,align2;   
drawtextex(1,1,x1,y1+y2*8,ZFNAME[9]+'('+ numtostr(stkcount(ZFNAME[9]),0)+ ')  ' +   numtostr(ZFNumber[9],2) + ' %'),color5050ff,align2;   
drawtextex(1,1,x1,y1+y2*9,ZFNAME[10]+'('+ numtostr(stkcount(ZFNAME[10]),0)+ ')  ' +   numtostr(ZFNumber[10],2) + ' %'),color5050ff,align2;   
variable:MinZFStr[10]='';  
paa:=0;  
WHILE Paa<10 do begin  
PAA:=Paa+1;  
MinStkName:=ZFNAME[paa];  
STKNum:=stkcount(MinStkName);  
variable:ZF[STKNum]=0;  
for p2=1 to stkNum do begin  
Ty1:=STKFROMBLK(MinStkName,p2);  
Ty2:=dynainfo2(14,ty1)*100;  
ZF[p2]:=Ty2;  
end  
NWY:=sortpos(ZF,0,1,stkNum );  
ub:=if(STKNum>=8,8,STKNum);    
for p3 =1 to UB do begin  
  ZFDM:=STKFROMBLK(MinStkName,ZF[STKNum-(p3-1)]);    
Te:=stknameex(ZFDM);   
MinZFStr[paa]:=MinZFStr[paa] +'('+Te + numtostr(dynainfo2(14,ZFDM)*100,2) +'%'+')'+ ' ';//  
end;  
end;  
x4:=160;  
drawtextex(1,1,x4,y1,MinZFStr[1]),color5050ff;   
drawtextex(1,1,x4,y1+Y2,MinZFStr[2]),color5050ff;   
drawtextex(1,1,x4,y1+Y2*2,MinZFStr[3]),color5050ff;   
drawtextex(1,1,x4,y1+Y2*3,MinZFStr[4]),color5050ff;   
drawtextex(1,1,x4,y1+Y2*4,MinZFStr[5]),color5050ff;   
drawtextex(1,1,x4,y1+Y2*5,MinZFStr[6]),color5050ff;   
drawtextex(1,1,x4,y1+Y2*6,MinZFStr[7]),color5050ff;   
drawtextex(1,1,x4,y1+Y2*7,MinZFStr[8]),color5050ff;   
drawtextex(1,1,x4,y1+Y2*8,MinZFStr[9]),color5050ff;   
drawtextex(1,1,x4,y1+Y2*9,MinZFStr[10]),color5050ff;
 

下载链接:(下载本站资源请点击下面进入下载页“蓝色图标”)
飞狐的版块排序前八名个股源码下载
查看全部评论     相关评论:
评论内容:
昵称: 验证码:验证码