打印本文
關閉窗口
相關標簽:
?
原理解析：
源碼：
?
DRAWRECTREL(0,0,150,500,RGB(255,0,0));
DRAWTEXTREL(15,55,''+STKLABEL+''+STKNAME),LINETHICK1,COLORwhite;
ZYTB:=FINANCE2(11);JLTB:=FINANCE2(10);
奧運概念:(STRFIND(BKNAME,'奧運',1)>0),COLOR00FFFF,POINTDOT,LINETHICK0;{http://m.weiqiv.net.cn}
整體上市:(STRFIND(BKNAME,'整體上市',1)>0),COLORFF00FF,POINTDOT,LINETHICK0;{http://m.weiqiv.net.cn}
定向增發:(STRFIND(BKNAME,'定向增發',1)>0),COLOR00FF00,POINTDOT,LINETHICK0;{http://m.weiqiv.net.cn}
預盈預增:(STRFIND(BKNAME,'預盈預增',1)>0),COLOR0000FF,POINTDOT,LINETHICK0;{http://m.weiqiv.net.cn}
基金重倉:(STRFIND(BKNAME,'基金重倉',1)>0),COLORFFFF00,POINTDOT,LINETHICK0;{http://m.weiqiv.net.cn}
DRAWTEXTREL(450,50,'■機構評級:'+Extrastring('評級')),colorFFFF00;
DRAWTEXTREL(165,50,'總股本:'+NUMTOSTRN(FINANCE2(35),0)+'萬' +'流通A股:'+NUMTOSTRN(FINANCE2(37),0)+'萬'),COLOR00ffff;
if DISPSTATUS=2 then begin;
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('遼寧')=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('H股')=1 then var100:=var100+' H股';
if inblock('3G')=1 then var100:=var100+' 3G';
if inblock('QFII持股')=1 then var100:=var100+' QFII持股';
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+' 股權投資';
end;
DRAWTEXTREL(20,295,var100),color00ffff;
DRAWTEXTREL(250,300,'■市盈率:'+NUMTOSTRN(DYNAINFO(39),2)+'%'+' ■每股收益:'+NUMTOSTRN(FINANCE2(3),3)+' ■主營收入:'+NUMTOSTRN(FINANCE2(27),0)+'元'+' ■主營同比:'+NUMTOSTRN(ZYTB,2)+'%'+' ■凈利同比:'+NUMTOSTRN(JLTB,0)+'%'),COLORffffff;
DRAWTEXTREL(20,550,'--*-- 凈資產:'+NUMTOSTRN(FINANCE2(4),2)+'元'+'--*-- 凈資收益率:'+NUMTOSTRN(FINANCE2(5),2)+'%'+' --*--公積金:'+NUMTOSTRN(FINANCE2(7),2)+'元'+' --*--未分配利潤:'+NUMTOSTRN(FINANCE2(8),2)+'元 --*--'),COLORRED;
DRAWTEXTREL(10,800,'所屬板塊:'+BKNAME),COLORffffff;
AA:=DISPSTATUS=2;
買入:=STRFIND(Extrastring('評級'),'買入',1)>0{,COLOR00FF00};
增持:=STRFIND(Extrastring('評級'),'增持',1)>0{,COLOR0000FF};
持有:=STRFIND(Extrastring('評級'),'持有',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(奧運概念*AA,10,''),COLOR00FFFF;
DRAWTEXT(整體上市*AA,8.5,''),COLORFF00FF;
DRAWTEXT(定向增發*AA,7,''),COLOR00FF00;
DRAWTEXT(預盈預增*AA,5.5,''),COLOR0000FF;
DRAWTEXT(基金重倉*AA,4,''),COLORFFFF00;
?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?