公式网-网站导航


网站搜索：  

公式在线 发表于2009/9/10 9:29:49

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

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

 

C/C++ Code复制内容到剪贴板
  1. x1:=140 ;     
  2. y1:=60; y2:=90;   
  3. BKNAME:='板块指数';   
  4. STKC:=stkcount(BKNAME);   
  5. variable:s=0,ZFSZ[STKC]=0,ZFNAME[10]='',ZFNumber[10]=0;   
  6. for p=1 to stkc do begin   
  7. Ty1:=STKFROMBLK(BKNAME,p);   
  8. Ty2:=dynainfo2(14,ty1)*100;   
  9. ZFSZ[p]:=Ty2;   
  10. if Ty2>=0 then  s:=s+1;   
  11. end   
  12. NWY:=sortpos(ZFSZ,0,1,stkc);     
  13. for p1 =1 to 10 do begin   
  14.   ZFDM:=STKFROMBLK(BKNAME,ZFSZ[stkc-(p1-1)]);     
  15. Te:=stknameex(ZFDM);    
  16. ZFNAME[p1]:=strleft(te,strlen(te)-4);   
  17. ZFNumber[p1]:=dynainfo2(14,ZFDM)*100;    
  18. end;   
  19. drawtextex(1,1,x1,y1,ZFNAME[1]+'('+ numtostr(stkcount(ZFNAME[1]),0)+ ')  ' +   numtostr(ZFNumber[1],2) + ' ％'),color5050ff,align2;    
  20. drawtextex(1,1,x1,y1+y2,ZFNAME[2]+'('+ numtostr(stkcount(ZFNAME[2]),0)+ ')  ' +  numtostr(ZFNumber[2],2) + ' ％'),color5050ff,align2;    
  21. drawtextex(1,1,x1,y1+y2*2,ZFNAME[3]+'('+ numtostr(stkcount(ZFNAME[3]),0)+ ')  ' +  numtostr(ZFNumber[3],2) + ' ％'),color5050ff,align2;    
  22. drawtextex(1,1,x1,y1+y2*3,ZFNAME[4]+'('+ numtostr(stkcount(ZFNAME[4]),0)+ ')  ' +  numtostr(ZFNumber[4],2) + ' ％'),color5050ff,align2;    
  23. drawtextex(1,1,x1,y1+y2*4,ZFNAME[5]+'('+ numtostr(stkcount(ZFNAME[5]),0)+ ')  ' +   numtostr(ZFNumber[5],2) + ' ％'),color5050ff,align2;    
  24. drawtextex(1,1,x1,y1+y2*5,ZFNAME[6]+'('+ numtostr(stkcount(ZFNAME[6]),0)+ ')  ' +   numtostr(ZFNumber[6],2) + ' ％'),color5050ff,align2;    
  25. drawtextex(1,1,x1,y1+y2*6,ZFNAME[7]+'('+ numtostr(stkcount(ZFNAME[7]),0)+ ')  ' +   numtostr(ZFNumber[7],2) + ' ％'),color5050ff,align2;    
  26. drawtextex(1,1,x1,y1+y2*7,ZFNAME[8]+'('+ numtostr(stkcount(ZFNAME[8]),0)+ ')  ' +   numtostr(ZFNumber[8],2) + ' ％'),color5050ff,align2;    
  27. drawtextex(1,1,x1,y1+y2*8,ZFNAME[9]+'('+ numtostr(stkcount(ZFNAME[9]),0)+ ')  ' +   numtostr(ZFNumber[9],2) + ' ％'),color5050ff,align2;    
  28. drawtextex(1,1,x1,y1+y2*9,ZFNAME[10]+'('+ numtostr(stkcount(ZFNAME[10]),0)+ ')  ' +   numtostr(ZFNumber[10],2) + ' ％'),color5050ff,align2;    
  29. variable:MinZFStr[10]='';   
  30. paa:=0;   
  31. WHILE Paa<10 do begin   
  32. PAA:=Paa+1;   
  33. MinStkName:=ZFNAME[paa];   
  34. STKNum:=stkcount(MinStkName);   
  35. variable:ZF[STKNum]=0;   
  36. for p2=1 to stkNum do begin   
  37. Ty1:=STKFROMBLK(MinStkName,p2);   
  38. Ty2:=dynainfo2(14,ty1)*100;   
  39. ZF[p2]:=Ty2;   
  40. end   
  41. NWY:=sortpos(ZF,0,1,stkNum );   
  42. ub:=if(STKNum>=8,8,STKNum);     
  43. for p3 =1 to UB do begin   
  44.   ZFDM:=STKFROMBLK(MinStkName,ZF[STKNum-(p3-1)]);     
  45. Te:=stknameex(ZFDM);    
  46. MinZFStr[paa]:=MinZFStr[paa] +'('+Te + numtostr(dynainfo2(14,ZFDM)*100,2) +'％'+')'+ ' ';//   
  47. end;   
  48. end;   
  49. x4:=160;   
  50. drawtextex(1,1,x4,y1,MinZFStr[1]),color5050ff;    
  51. drawtextex(1,1,x4,y1+Y2,MinZFStr[2]),color5050ff;    
  52. drawtextex(1,1,x4,y1+Y2*2,MinZFStr[3]),color5050ff;    
  53. drawtextex(1,1,x4,y1+Y2*3,MinZFStr[4]),color5050ff;    
  54. drawtextex(1,1,x4,y1+Y2*4,MinZFStr[5]),color5050ff;    
  55. drawtextex(1,1,x4,y1+Y2*5,MinZFStr[6]),color5050ff;    
  56. drawtextex(1,1,x4,y1+Y2*6,MinZFStr[7]),color5050ff;    
  57. drawtextex(1,1,x4,y1+Y2*7,MinZFStr[8]),color5050ff;    
  58. drawtextex(1,1,x4,y1+Y2*8,MinZFStr[9]),color5050ff;    
  59. drawtextex(1,1,x4,y1+Y2*9,MinZFStr[10]),color5050ff;    

 



网站搜索：  



Copyright © 2009-2010 gszb.com ™,All Rights Reserved.　
公式网-www.gszx.com.cn-股票指标公式网