打印本文
關(guān)閉窗口
相關(guān)標(biāo)簽:
?
原理解析：
源碼：
?
DRAWRECTREL(0,0,150,500,RGB(255,0,0));
DRAWTEXTREL(15,55,''+STKLABEL+''+STKNAME),LINETHICK1,COLORwhite;
ZYTB:=FINANCE2(11);JLTB:=FINANCE2(10);
奧運(yùn)概念:(STRFIND(BKNAME,'奧運(yùn)',1)>0),COLOR00FFFF,POINTDOT,LINETHICK0;{http://www.kzuj.com.cn}
整體上市:(STRFIND(BKNAME,'整體上市',1)>0),COLORFF00FF,POINTDOT,LINETHICK0;{http://www.kzuj.com.cn}
定向增發(fā):(STRFIND(BKNAME,'定向增發(fā)',1)>0),COLOR00FF00,POINTDOT,LINETHICK0;{http://www.kzuj.com.cn}
預(yù)盈預(yù)增:(STRFIND(BKNAME,'預(yù)盈預(yù)增',1)>0),COLOR0000FF,POINTDOT,LINETHICK0;{http://www.kzuj.com.cn}
基金重倉(cāng):(STRFIND(BKNAME,'基金重倉(cāng)',1)>0),COLORFFFF00,POINTDOT,LINETHICK0;{http://www.kzuj.com.cn}
DRAWTEXTREL(450,50,'■機(jī)構(gòu)評(píng)級(jí):'+Extrastring('評(píng)級(jí)')),colorFFFF00;
DRAWTEXTREL(165,50,'總股本:'+NUMTOSTRN(FINANCE2(35),0)+'萬' +'流通A股:'+NUMTOSTRN(FINANCE2(37),0)+'萬'),COLOR00ffff;
if DISPSTATUS=2 then begin;
var100:='所屬地區(qū):';
if inblock('安徽')=1 then var100:=var100+' 安 徽';
if inblock('北京')=1 then var100:=var100+' 北 京';
if inblock('福建')=1 then var100:=var100+' 福 建';
if inblock('甘肅')=1 then var100:=var100+' 甘 肅';
if inblock('廣東')=1 then var100:=var100+' 廣 東';
if inblock('廣西')=1 then var100:=var100+' 廣 西';
if inblock('貴州')=1 then var100:=var100+' 貴 州';
if inblock('海南')=1 then var100:=var100+' 海 南';
if inblock('河北')=1 then var100:=var100+' 河 北';
if inblock('河南')=1 then var100:=var100+' 河 南';
if inblock('黑龍江')=1 then var100:=var100+' 黑龍江';
if inblock('湖北')=1 then var100:=var100+' 湖 北';
if inblock('湖南')=1 then var100:=var100+' 湖 南';
if inblock('吉林')=1 then var100:=var100+' 吉 林';
if inblock('江蘇')=1 then var100:=var100+' 江 蘇';
if inblock('江西')=1 then var100:=var100+' 江 西';
if inblock('遼寧')=1 then var100:=var100+' 遼 寧';
if inblock('內(nèi)蒙古')=1 then var100:=var100+' 內(nèi)蒙古';
if inblock('寧夏')=1 then var100:=var100+' 寧 夏';
if inblock('青海')=1 then var100:=var100+' 青 海';
if inblock('山東')=1 then var100:=var100+' 山 東';
if inblock('山西')=1 then var100:=var100+' 山 西';
if inblock('陜西')=1 then var100:=var100+' 陜 西';
if inblock('上海')=1 then var100:=var100+' 上 海';
if inblock('深圳')=1 then var100:=var100+' 深 圳';
if inblock('四川')=1 then var100:=var100+' 四 川';
if inblock('天津')=1 then var100:=var100+' 天 津';
if inblock('***')=1 then var100:=var100+' ***';
if inblock('新疆')=1 then var100:=var100+' 新 疆';
if inblock('云南')=1 then var100:=var100+' 云 南';
if inblock('浙江')=1 then var100:=var100+' 浙 江';
if inblock('重慶')=1 then var100:=var100+' 重 慶';
if inblock('H股')=1 then var100:=var100+' H股';
if inblock('3G')=1 then var100:=var100+' 3G';
if inblock('QFII持股')=1 then var100:=var100+' QFII持股';
if inblock('創(chuàng)投')=1 then var100:=var100+' 創(chuàng)投';
if inblock('次新股')=1 then var100:=var100+' 次新股';
if inblock('大盤')=1 then var100:=var100+' 大盤';
if inblock('參股金融')=1 then var100:=var100+' 參股金融';
if inblock('股權(quán)投資')=1 then var100:=var100+' 股權(quán)投資';
end;
DRAWTEXTREL(20,295,var100),color00ffff;
DRAWTEXTREL(250,300,'■市盈率:'+NUMTOSTRN(DYNAINFO(39),2)+'%'+' ■每股收益:'+NUMTOSTRN(FINANCE2(3),3)+' ■主營(yíng)收入:'+NUMTOSTRN(FINANCE2(27),0)+'元'+' ■主營(yíng)同比:'+NUMTOSTRN(ZYTB,2)+'%'+' ■凈利同比:'+NUMTOSTRN(JLTB,0)+'%'),COLORffffff;
DRAWTEXTREL(20,550,'--*-- 凈資產(chǎn):'+NUMTOSTRN(FINANCE2(4),2)+'元'+'--*-- 凈資收益率:'+NUMTOSTRN(FINANCE2(5),2)+'%'+' --*--公積金:'+NUMTOSTRN(FINANCE2(7),2)+'元'+' --*--未分配利潤(rùn):'+NUMTOSTRN(FINANCE2(8),2)+'元 --*--'),COLORRED;
DRAWTEXTREL(10,800,'所屬板塊:'+BKNAME),COLORffffff;
AA:=DISPSTATUS=2;
買入:=STRFIND(Extrastring('評(píng)級(jí)'),'買入',1)>0{,COLOR00FF00};
增持:=STRFIND(Extrastring('評(píng)級(jí)'),'增持',1)>0{,COLOR0000FF};
持有:=STRFIND(Extrastring('評(píng)級(jí)'),'持有',1)>0{,COLORFF00FF};
STICKLINE(C*AA,0,9,6,1),COLORFFFFFF;
STICKLINE(買入*AA,0,9,6,0),COLOR00FF00;
STICKLINE(增持*AA,0,9,6,0),COLOR0000FF;
STICKLINE(持有*AA,0,9,6,0),COLORFF00FF;
10,COLOR0000FF;
DRAWTEXTREL(810,550,'■買入'),COLOR00FF00;
DRAWTEXTREL(860,550,'■增持'),COLOR0000FF;
DRAWTEXTREL(910,550,'■持有'),COLORFF00FF;
DRAWTEXTREL(960,550,'=>'),COLORwhite;
DRAWTEXT(奧運(yùn)概念*AA,10,''),COLOR00FFFF;
DRAWTEXT(整體上市*AA,8.5,''),COLORFF00FF;
DRAWTEXT(定向增發(fā)*AA,7,''),COLOR00FF00;
DRAWTEXT(預(yù)盈預(yù)增*AA,5.5,''),COLOR0000FF;
DRAWTEXT(基金重倉(cāng)*AA,4,''),COLORFFFF00;
?
公式導(dǎo)入教程: 【通達(dá)信公式源碼導(dǎo)入方法教程】 【同花順公式源碼導(dǎo)入方法教程】 【大智慧新一代公式源碼導(dǎo)入方法教程】
?