好股票网每日提供最新股票软件下载,如果您觉得不错,麻烦推荐给您的好友,谢谢!
您现在的位置:好股票网 >> 股票软件 >> 选股公式 >> 飞狐公式

板块聚焦(源码+图)

[下载地址]

好股票网经过测试可运行,该软件通过多款专业杀毒软件扫描

  • 360通过
  • 金山通过
  • 瑞星通过
  • 江民通过
  • 卡巴通过
  • 诺顿通过
  • 运行平台:Win7/Vista/WinXP/Win2003/
  • 软件语言:简体中文
  • 更新时间:2011-02-22 09:02:18
  • 软件评级:
  • 软件类型:选股公式 - 飞狐公式
  • 授权方式:共享版
  • 软件大小:2.00 KB
  • 解压密码:goodgupiao
  • 下载统计:
  • 相关Tags:
已有次下载
推 荐88
不推荐0

板块聚焦(源码+图)介绍

好股票软件下载网(www.goodgupiao.com)提示:您正在下载的是:板块聚焦(源码+图)

X1:=140;
Y1:=5;
Y2:=100;
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)+' %'),ALIGN2,colorFF;
DRAWTEXTEX(1,1,X1,Y1+Y2,ZFNAME[2]+'('+NUMTOSTR(STKCOUNT(ZFNAME[2]),0)+') '+NUMTOSTR(ZFNUMBER[2],2)+' %'),ALIGN2,color80FF;
DRAWTEXTEX(1,1,X1,Y1+Y2*2,ZFNAME[3]+'('+NUMTOSTR(STKCOUNT(ZFNAME[3]),0)+') '+NUMTOSTR(ZFNUMBER[3],2)+' %'),ALIGN2,colorFFFF;
DRAWTEXTEX(1,1,X1,Y1+Y2*3,ZFNAME[4]+'('+NUMTOSTR(STKCOUNT(ZFNAME[4]),0)+') '+NUMTOSTR(ZFNUMBER[4],2)+' %'),ALIGN2,colorFF00;
DRAWTEXTEX(1,1,X1,Y1+Y2*4,ZFNAME[5]+'('+NUMTOSTR(STKCOUNT(ZFNAME[5]),0)+') '+NUMTOSTR(ZFNUMBER[5],2)+' %'),ALIGN2,colorFF0000;
DRAWTEXTEX(1,1,X1,Y1+Y2*5,ZFNAME[6]+'('+NUMTOSTR(STKCOUNT(ZFNAME[6]),0)+') '+NUMTOSTR(ZFNUMBER[6],2)+' %'),ALIGN2,colorFFFF00;
DRAWTEXTEX(1,1,X1,Y1+Y2*6,ZFNAME[7]+'('+NUMTOSTR(STKCOUNT(ZFNAME[7]),0)+') '+NUMTOSTR(ZFNUMBER[7],2)+' %'),ALIGN2,colorFF00FF;
DRAWTEXTEX(1,1,X1,Y1+Y2*7,ZFNAME[8]+'('+NUMTOSTR(STKCOUNT(ZFNAME[8]),0)+') '+NUMTOSTR(ZFNUMBER[8],2)+' %'),ALIGN2,colorFF8080;
DRAWTEXTEX(1,1,X1,Y1+Y2*8,ZFNAME[9]+'('+NUMTOSTR(STKCOUNT(ZFNAME[9]),0)+') '+NUMTOSTR(ZFNUMBER[9],2)+' %'),ALIGN2,color808040;
DRAWTEXTEX(1,1,X1,Y1+Y2*9,ZFNAME[10]+'('+NUMTOSTR(STKCOUNT(ZFNAME[10]),0)+') '+NUMTOSTR(ZFNUMBER[10],2)+' %'),ALIGN2,colorFFFFFF;
VARIABLE:MINZFSTR[10]='';
PAA:=0;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(MINZFSTR,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]),colorFF;
DRAWTEXTEX(1,1,X4,Y1+Y2,MINZFSTR[2]),color80FF;
DRAWTEXTEX(1,1,X4,Y1+Y2*2,MINZFSTR[3]),colorFFFF;
DRAWTEXTEX(1,1,X4,Y1+Y2*3,MINZFSTR[4]),colorFF00;
DRAWTEXTEX(1,1,X4,Y1+Y2*4,MINZFSTR[5]),colorFF0000;
DRAWTEXTEX(1,1,X4,Y1+Y2*5,MINZFSTR[6]),colorFFFF00;
DRAWTEXTEX(1,1,X4,Y1+Y2*6,MINZFSTR[7]),colorFF00FF;
DRAWTEXTEX(1,1,X4,Y1+Y2*7,MINZFSTR[8]),colorFF8080;
DRAWTEXTEX(1,1,X4,Y1+Y2*8,MINZFSTR[9]),color808040;
DRAWTEXTEX(1,1,X4,Y1+Y2*9,MINZFSTR[10]),colorFFFFFF;


 


好股票软件下载网(www.goodgupiao.com)提醒您:股市有风险,投资需谨慎。
板块聚焦(源码+图)下载地址
相关说明
  • 好股票软件下载网欢迎用户将网页内容和下载地址转发到博客、微博、论坛等。
  • 所有软件已经过工作人员安装检测,如不能正常运行,请检查运行环境和硬件配置,或在评论中反馈,工作人员会及时处理。
  • 判断软件好坏,请用户参考用户评论或者软件好评度
  • 为了达到最快的下载速度,推荐使用网际快车迅雷下载本站软件。
  • 如果您发现下载链接错误,请点击报告错误谢谢!