当前位置:→ 股海网飞狐公式 → 正文
  • 飞狐的版块排序前八名个股源码

  • 相关简介:飞狐的版块排序前八名个股源码 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+

  • 文章来源:股海网作者:股海网发布时间:2012-05-15浏览次数:下载次数:0收藏:

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

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;
 

公式解密、改选股联系 点击查看详情(有偿服务,非诚勿扰)...
问题反馈

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

  • 下载资源所需积分

    0

  • 当前拥有积分

    0

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

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