酒店装修一间房多少钱:领涨板块中领涨个股前8名
来源:百度文库 编辑:偶看新闻 时间:2024/05/09 03:39:39
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;
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
end
NWY:=sortpos(ZFSZ,0,1,stkc);
for p1 =1 to 10 do begin
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)+ ')
drawtextex(1,1,x1,y1+y2,ZFNAME[2]+'('+ numtostr(stkcount(ZFNAME[2]),0)+ ')
drawtextex(1,1,x1,y1+y2*2,ZFNAME[3]+'('+ numtostr(stkcount(ZFNAME[3]),0)+ ')
drawtextex(1,1,x1,y1+y2*3,ZFNAME[4]+'('+ numtostr(stkcount(ZFNAME[4]),0)+ ')
drawtextex(1,1,x1,y1+y2*4,ZFNAME[5]+'('+ numtostr(stkcount(ZFNAME[5]),0)+ ')
drawtextex(1,1,x1,y1+y2*5,ZFNAME[6]+'('+ numtostr(stkcount(ZFNAME[6]),0)+ ')
drawtextex(1,1,x1,y1+y2*6,ZFNAME[7]+'('+ numtostr(stkcount(ZFNAME[7]),0)+ ')
drawtextex(1,1,x1,y1+y2*7,ZFNAME[8]+'('+ numtostr(stkcount(ZFNAME[8]),0)+ ')
drawtextex(1,1,x1,y1+y2*8,ZFNAME[9]+'('+ numtostr(stkcount(ZFNAME[9]),0)+ ')
drawtextex(1,1,x1,y1+y2*9,ZFNAME[10]+'('+ numtostr(stkcount(ZFNAME[10]),0)+ ')
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
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;
现在A股的领涨板块是什么板块?
现在A股的领涨板块是什么板块?
怎样知道股票当天的领涨板块.
同花顺软件怎样查看当天的领涨板块
新能源板块为什么在收盘前跳水?
股巿有色金色板块和煤板块的领头羊是哪些股?
征集学习板块名!!奖金100~~
股票前加“G”字的个股是什么意思
天津板块为啥涨?
板块~~~~~~
如何成为一个股名和基金投资者?
大智慧软件中个股财务指标里的"概念板块 每经G股 股权改革"指的是什么意思?请朋友帮忙解释一下!谢谢!
上海卫视改版前播个股行情时的音乐是什麽曲子?
音乐排行榜前20名
日文名前是什么意思?
主力增仓的个股到底会不会涨
国际黄金大涨为什么国内黄金个股下跌呢?
个股代码
个股询问
个股基本面?
个股询问
三国中谁最强!排前8名!!
世界前8名的大学是哪几所? 忘解答
F1赛车的前8名积分分别是多少?