最新公告
  • 欢迎您光临九毛八公式指标网www.9m8.cn,本站全新改版试运行,期间内容全部免费,欢迎下载!欢迎加入本站VIP
  • 通达信漂亮整齐的财务基本面副图指标 基本面信息一目了然 源码 附图

    正文概述    2024-04-14 20:02:57  
    {用法:DRAWTEXT_FIX(COND,X,Y,TYPE,TEXT),
    当COND条件满足时,在当前指标窗口内(X,Y)位置书写文字TEXT,
    X,Y为书写点在窗口中相对于左上角的百分比,TYPE:0为左对齐,1为右对齐。}


    DRAWRECTREL(0,0,999,80,RGB(218,165,32));{顶栏}
    DRAWRECTREL(0,90,120,999,RGB(70,130,180));{左一栏}
    DRAWRECTREL(120,90,380,999,RGB(169,169,169));{左二栏}
    DRAWRECTREL(380,90,600,999,RGB(70,130,180));{左三栏}
    DRAWRECTREL(600,90,880,999,RGB(169,169,169));{左四栏}
    DRAWRECTREL(880,90,999,999,RGB(70,130,180));{左五栏}

    品种类型:=FINANCE(3);
    DRAWTEXT_FIX(1,0.005,0.15,0,'品种类型: '),COLORWHITE;
    DRAWTEXT_FIX(品种类型=1,0.045,0.15,0,'沪 深 A 股'),COLORMAGENTA;
    DRAWTEXT_FIX(品种类型=2,0.045,0.15,0,' 中 小 板'),COLORMAGENTA;
    DRAWTEXT_FIX(品种类型=3,0.045,0.15,0,' 创 业 板'),COLORMAGENTA;
    DRAWTEXT_FIX(1,0.005,0.25,0,STRCAT(STRCAT('股总市值: ',CON2STR(FINANCE(41)/100000000,0)),'亿元')),COLORWHITE;
    DRAWTEXT_FIX(1,0.005,0.35,0,STRCAT(STRCAT('流通市值: ',CON2STR(CAPITAL*C/1000000,2)),'亿元')),COLORWHITE;
    DRAWTEXT_FIX(1,0.005,0.45,0,STRCAT('股东人数: ',STRCAT(CON2STR(FINANCE(8),0),'人'))),COLORWHITE;
    DRAWTEXT_FIX(1,0.005,0.55,0,STRCAT(STRCAT('人均持股: ',CON2STR(ROUND(FINANCE(7)/FINANCE(8)),0)),'股')),COLORWHITE;
    DRAWTEXT_FIX(1,0.005,0.65,0,STRCAT('行业版块: ',HYBLOCK))COLORWHITE;
    DRAWRECTREL(003,730,100,800,RGB(220,20,60));{涂色}
    DRAWTEXT_FIX(1,0.005,0.75,0,STRCAT('细分版块: ',DYBLOCK)),COLORWHITE;
    DRAWTEXT_FIX(1,0.005,0.85,0,STRCAT(STRCAT('套牢盘%: ',CON2STR(100-WINNER(CLOSE)*100,2)),' %')),COLORWHITE;
    机构总量:=FINONE(246,0,0);
    DRAWTEXT_FIX(1,0.005,0.95,0,STRCAT(STRCAT('机构总量:',VAR2STR(机构总量,0)),' 家')),COLORWHITE;




    {----------------------------}
    DRAWRECTREL(120,90,380,140,RGB(218,165,32));{涂色}
    DRAWTEXT_FIX(1,0.15,0.10,0,'重点①:盈利能力'),COLORWHITE;

    净资收益率:=(FINANCE(30)/FINANCE(19)*100);
    DRAWTEXT_FIX(1,0.15,0.15,0,STRCAT(STRCAT('净资收益率 : ',CON2STR(净资收益率,0)),'%')),COLORYELLOW;
    DRAWTEXT_FIX(1,0.25,0.15,0,'【良好=8,优秀=10】'),COLOR0000FF;
    营业利润率:=(FINANCE(23)/FINANCE(20))*100;
    DRAWTEXT_FIX(1,0.15,0.25,0,STRCAT(STRCAT('营业利润率 : ',CON2STR(营业利润率,0)),'%')),COLORYELLOW;
    DRAWTEXT_FIX(1,0.25,0.25,0,'【良好:10%,优秀〉20%】'),COLOR0000FF{反应公司的经营能力,衡量企业经营效率的指标};
    销售毛利率:=(1-(FINANCE(21)/FINANCE(20)))*100,COLORGREEN;
    DRAWTEXT_FIX(1,0.15,0.35,0,STRCAT(STRCAT('销售毛利率 : ',CON2STR(销售毛利率,0)),'%')),COLORYELLOW;
    DRAWTEXT_FIX(1,0.25,0.35,0,'【销售毛利率〉20%】'),COLOR0000FF;
    净利润率:=(FINANCE(30)/FINANCE(20)*100);
    DRAWTEXT_FIX(1,0.15,0.45,0,STRCAT(STRCAT('净利润率 : ',CON2STR(净利润率,1)),'%')),COLORYELLOW;
    DRAWTEXT_FIX(1,0.25,0.45,0,'【低于1.5倍:原始价格】'),COLOR0000FF;


    {----------------------------}
    DRAWRECTREL(120,500,380,550,RGB(218,165,32));{涂色}
    DRAWTEXT_FIX(1,0.15,0.51,0,'重点②:成长能力'),COLORWHITE;
    营业利润增长:=FINONE(189,0,0);
    DRAWTEXT_FIX(1,0.15,0.57,0,STRCAT(STRCAT('营业利润增长: ',CON2STR(营业利润增长,0)),'%')),COLORYELLOW;
    DRAWTEXT_FIX(1,0.25,0.57,0,'【数值越高对股价越好】'),COLOR0000FF;
    净利润增长率:=FINVALUE(184),NODRAW;
    DRAWTEXT_FIX(1,0.15,0.65,0,STRCAT(STRCAT('净利润增长率: ',CON2STR(净利润增长率,1)),'%')),COLORYELLOW;
    DRAWTEXT_FIX(1,0.25,0.65,0,'【数值越高,盈利能力越强】'),COLOR0000FF;
    总资产周转率:=FINANCE(20)/FINANCE(10)*100,NODRAW,COLORGREEN;
    DRAWTEXT_FIX(1,0.15,0.75,0,'总资产周转率: '),COLORYELLOW;
    DRAWTEXT_FIX(1,0.205,0.75,0,STRCAT(VAR2STR(总资产周转率,2),'%')),COLORCYAN;
    DRAWTEXT_FIX(1,0.25,0.75,0,'【资产规模的增长情况】'),COLOR0000FF;
    投资收益增长:=FINONE(188,0,0);
    DRAWTEXT_FIX(1,0.15,0.85,0,'投资收益增长: '),COLORYELLOW;
    DRAWTEXT_FIX(1,0.205,0.85,0,STRCAT(VAR2STR(投资收益增长,2),'%')),COLORCYAN;
    净资产增长率:=STRCAT(STRCAT('净资产增长率:',CON2STR(FINONE(185,0,0),2)),'%');{主营收入同比增长率}
    DRAWTEXT_FIX(ISLASTBAR,0.15,0.95,0,净资产增长率),COLORYELLOW;
    DRAWTEXT_FIX(1,0.25,0.95,0,'【规模扩张速度-数值高发展强】'),COLOR0000FF;



    {----------------------------}
    DRAWRECTREL(380,90,600,140,RGB(218,165,32));{涂色}
    DRAWTEXT_FIX(1,0.40,0.10,0,'③偿债能力:'),COLORWHITE;
    现金比率:=FINONE(161,0,0);
    DRAWTEXT_FIX(1,0.40,0.15,0,'现金比率:'),COLORYELLOW;
    DRAWTEXT_FIX(1,0.45,0.15,0,STRCAT(VAR2STR(现金比率,0),'%')),COLORCYAN;
    总负债率:=FINANCE(9);{资产负债率}
    DRAWTEXT_FIX(1,0.40,0.25,0,'总负债率:')COLORYELLOW;
    DRAWTEXT_FIX(1,0.45,0.25,0,STRCAT(CON2STR(总负债率,0),' %')),COLORRED;
    DRAWTEXT_FIX(1,0.40,0.35,0,'流动比率:'),COLOR00CCCC;{流动比率值>1.5<2.5较为合理,低于1说明偿债能力欠佳。}
    DRAWNUMBER_FIX(1,0.45,0.35,0,CONST(FINANCE(11)/FINANCE(15))),COLORWHITE;
    DRAWTEXT_FIX(1,0.50,0.35,0,'【>1.5<2.5 低1偿债差】'),COLOR0000FF;
    负债比率:=(FINANCE(15)+FINANCE(16))/FINANCE(10)*100;
    DRAWTEXT_FIX(1,0.40,0.45,0,STRCAT(STRCAT('负债比率: ',CON2STR(负债比率,2)),'%')),COLORYELLOW;




    {----------------------------}

    DRAWRECTREL(380,500,600,550,RGB(218,165,32));{涂色}
    DRAWTEXT_FIX(1,0.40,0.51,0,'④经营效率:'),COLORWHITE;
    主营收同比:=STRCAT(STRCAT('主营收同比: ',CON2STR(FINANCE(44),2)),'%');{主营收入同比增长率}
    DRAWTEXT_FIX(ISLASTBAR,0.40,0.57,0,主营收同比),COLORYELLOW;
    主营占比:=FINANCE(20)/(FINANCE(20)+FINANCE(22)+FINANCE(24)+FINANCE(25))*100,NODRAW;
    DRAWTEXT_FIX(1,0.40,0.65,0,STRCAT(STRCAT('主营占比: ',CON2STR(主营占比,2)),'%')),COLORYELLOW;
    DRAWTEXT_FIX(1,0.50,0.65,0,'【太低不务正业】'),COLOR0000FF;
    优质资产率:=((FINANCE(19)-FINANCE(22)-FINANCE(27))/FINANCE(19));{理论上越大越好但不同行业有不同标准};
    DRAWTEXT_FIX(1,0.40,0.75,0,STRCAT(STRCAT('优质资产率: ',CON2STR(优质资产率,0)),'%')),COLORCYAN;
    DRAWTEXT_FIX(1,0.50,0.75,0,'【越大越好,HY不同标准】'),COLOR0000FF;
    存货周转率:=(FINANCE(20)-FINANCE(23))/FINANCE(27);
    DRAWTEXT_FIX(1,0.40,0.85,0,STRCAT(STRCAT('存货周转率: ',CON2STR(存货周转率,2)),'%')),COLORYELLOW;
    应收款周转:=FINVALUE(172);
    DRAWTEXT_FIX(1,0.40,0.95,0,STRCAT(STRCAT('应收款周转: ',CON2STR(应收款周转,2)),'%')),COLORYELLOW;




    {----------------------------}

    DRAWRECTREL(600,90,880,140,RGB(218,165,32));{涂色}
    DRAWTEXT_FIX(1,0.70,0.10,0,'⑤估值评估:'),COLORWHITE;
    行业市盈率:=HYSYL;
    DRAWTEXT_FIX(1,0.65,0.15,0,'行业市盈率:'),COLORYELLOW;
    DRAWNUMBER_FIX(1,0.70,0.15,0,行业市盈率),COLORWHITE;
    市盈率:=DYNAINFO(39),NODRAW;
    DRAWTEXT_FIX(1,0.65,0.25,0,'市盈率:'),COLORYELLOW;
    DRAWNUMBER_FIX(1,0.70,0.25,0,市盈率),COLORWHITE;
    DRAWTEXT_FIX(1,0.75,0.25,0,'【低估:〈10 高估:〉21-28 】'),COLOR0000FF;
    市盈增长比PEG:=DYNAINFO(39)/FINANCE(43);
    DRAWTEXT_FIX(1,0.65,0.35,0,'市盈增长比PEG:'),COLORYELLOW;
    DRAWNUMBER_FIX(1,0.72,0.35,0,市盈增长比PEG),COLORWHITE;
    市净率:=CONST(DYNAINFO(7) / FINANCE(34))COLORYELLOW,NODRAW;
    DRAWTEXT_FIX(1,0.65,0.45,0,'市净率:'),COLORYELLOW;
    DRAWNUMBER_FIX(1,0.70,0.45,0,市净率),COLORWHITE;
    DRAWTEXT_FIX(1,0.75,0.45,0,'【低于1.5倍:原始价格】'),COLOR0000FF;




    {----------------------------}
    DRAWRECTREL(600,500,880,550,RGB(218,165,32));{涂色}
    DRAWTEXT_FIX(1,0.70,0.51,0,'⑥现金能力:'),COLORWHITE;
    DRAWTEXT_FIX (1,0.65,0.57,0,'现金流:'),COLORYELLOW;
    DRAWNUMBER_FIX(1,0.70,0.57,0,CONST(FINANCE(25)/1000000000)),COLORWHITE;
    DRAWTEXT_FIX(1,0.75,0.57,0,'【减少或负数时-注意】'),COLOR0000FF;
    现金负债比:=(FINANCE(25)/FINANCE(15)),NODRAW;{缺长期负债或负债总额,理论上越大越好但不同行业有不同标准}
    DRAWTEXT_FIX(1,0.65,0.65,0,STRCAT(STRCAT('现金负债比: ',CON2STR(现金负债比,2)),'%')),COLORYELLOW;
    DRAWTEXT_FIX(1,0.75,0.65,0,'【现金负债比〈30%】'),COLOR0000FF;
    DRAWTEXT_FIX(1,0.65,0.75,0,'现金流利润比:'),COLORYELLOW;
    DRAWNUMBER_FIX(1,0.70,0.75,0,CONST(FINANCE(25)/FINANCE(29))),COLORYELLOW;
    DRAWTEXT_FIX(1,0.75,0.75,0,'【良好〉0.6 优秀〉0.95】'),COLOR0000FF;
    DRAWTEXT_FIX(1,0.65,0.85,0,'股价现金流比:'),COLORYELLOW;
    DRAWNUMBER_FIX(1,0.70,0.85,0,CONST(FINANCE(1)*C/FINANCE(25))),COLOR00CCCC;
    DRAWTEXT_FIX(1,0.75,0.85,0,'【流比〉0 流比〈60】'),COLOR0000FF;
    DRAWTEXT_FIX(1,0.65,0.95,0,'每股经营现金流:'),COLORYELLOW;
    DRAWNUMBER_FIX(1,0.72,0.95,0,CONST(FINANCE(25)/FINANCE(1))),COLOR00CCCC;
    {----------------------------}


    DRAWTEXT_FIX(1,0.00,0.020,0,'财务基本面信息')COLORWHITE;
    DRAWTEXT_FIX(1,0.07,0.020,0,STRCAT(STRCAT('每股净资产:',CON2STR(FINANCE(34),2)),'元')),COLORBLACK;
    DRAWTEXT_FIX(1,0.18,0.020,0,STRCAT(STRCAT('每股未分配利润:',CON2STR(FINANCE(32),2)),'元')),COLORWHITE;
    DRAWTEXT_FIX (1,0.3150,0.020,0,STRCAT(STRCAT('每股收益:',CON2STR(FINANCE(38),2)),'元')),COLORBLACK;
    DRAWTEXT_FIX (1,0.405,0.020,0,STRCAT(STRCAT('股息率:',CON2STR(FINANCE(45),2)),'%')),COLORWHITE;
    DRAWTEXT_FIX (1,0.54,0.020,0,STRCAT(STRCAT('应收款:',CON2STR(FINANCE(22)/100000000,2)),'亿元')),COLORBLACK;
    DRAWTEXT_FIX (1,0.630,0.020,0,STRCAT(STRCAT('存货:',CON2STR(FINANCE(27)/100000000,2)),'亿元')),COLORWHITE;


    十大股东市值:=STRCAT(STRCAT('十大股东市值: ',CON2STR(FINONE(245,0,0)*C/100000000,1)),'亿元');
    DRAWTEXT_FIX(1,0.805,0.020,0,十大股东市值)COLORBLACK;



    九毛八公式指标,一个优质的公式指标平台!
    九毛八公式指标 » 通达信漂亮整齐的财务基本面副图指标 基本面信息一目了然 源码 附图 加入收藏