领涨板块中领涨个股前8名-飞狐公式-股海网

领涨板块中领涨个股前8名
相关简介：C/C++ Code 复制内容到剪贴板 x1:=140; y1:=60;y2:=90; BKNAME:= '板块指数' ; STKC:=stkcount(BKNAME); variable:s=0,ZFSZ[STKC]=0,ZFNAME[10]= '' ,ZFNumber[10]=0; for p=1tostkc do begin Ty1:=STKFROMBLK(BKNAME,p); Ty2:=dynainfo2(14,ty1)*100; ZFS
文章来源：择股网作者：股海网发布时间：2009-09-10浏览次数：下载次数：26收藏：

领涨板块中领涨个股前8名

C/C++ Code复制内容到剪贴板

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;

下载链接：( 说明：股海资源如需解压密码的请输入本站域名：www.guhai.com.cn请仔细输入！）

本地下载（免费下载）

上一篇：超级主图（改编）下一篇：航海家之海洋寻底

☞股海网提供公式解密、改选股服务联系点击查看详情（有偿服务,非诚勿扰）...

☞股海网公式指标安装帮助说明，新手必读，好好学习天天向上！...

☞股海网注册、登录、下载问题说明，如遇问题请查阅。...

问题反馈

上传会员:

股海网

文件大小:

Bytes

上传时间:

2009-09-10

下载积分:

下载地址: 点击下载

免责声明:

请仔细阅读并同意后才能下载

本附件为用户分享上传，股海网没有对文件进行验证，不能保证下载资源的准确性、安全性和完整性，也不保证下载资源能正常安装和使用，且下载后扣除的积分无法退还，除非您充分理解并完全接受本声明，否则您无权下载。
本站对提供下载的软件、指标、资料等不拥有任何权利，其版权归该下载资源的合法拥有者所有。本附件仅供学习和研究使用，不得用于商业或者非法用途，如有侵犯您的版权，请参看《股海网侵权处理流程》《股海网免责声明条款》。
点击下载无反应时，更换主流浏览器重新登录操作，如360浏览器、Edge浏览器、谷歌浏览器，个别浏览器有不兼容现象。

勾选以下表示您已经阅读并同意以上声明才能下载本文件，扣除积分无法退还！

√ 我已阅读所有条款规定， 请点我同意 所有条款内容！我自愿下载！ ←

提示：如下载失败，请点关闭刷新此页面或提交问题反馈给管理员→

关闭

指标公式

看盘软件

股票数据

数据题材

工具应用

期货基金

指标战法

股海宝贝

炒股知识

资讯消息

VIP之家