conversione dell’indicatore infoboard dal software mt4 grazie anticipatamente

Forums › ProRealTime forum Italiano › Supporto ProBuilder › conversione dell’indicatore infoboard dal software mt4 grazie anticipatamente

Viewing 4 posts - 1 through 4 (of 4 total)
  • 09/11/2020 at 7:54 AM #143907
    settival

    //+——————————————————————+
    //| Infoboard.mq4 |
    //+——————————————————————+
    #property indicator_chart_window

    #import “user32.dll”
    int PostMessageW(int hWnd,int Msg,int wParam,int lParam);
    int RegisterWindowMessageW(string lpString);
    #import

    extern string Version_140=””;
    extern int Corner=1;
    extern int Offset_X = 1;
    extern int Offset_Y = 21;
    extern bool All_Other_Objects_To_Background=true;
    extern int Days_For_ATR=100;

    extern bool Show_Symbol_and_Timeframe=1;
    extern bool Show_Price_and_Spread=1;
    extern bool Show_Time_and_Tick = 1;
    extern bool Show_Fractal_Trend = 1;
    extern bool Show_Average_Hi_Lo = 1;
    extern bool Show_Today_Hi_Lo=1;
    extern bool Show_Hi_Lo_to_Spread=1;
    extern bool Show_Current_Bar_Hi_Lo=1;
    extern bool Show_Previous_Bar_Hi_Lo=1;
    extern bool Show_Tickvalue = 1;
    extern bool Show_Stoplevel = 1;
    extern bool Show_Swap=1;

    extern color Background_Color=C’40,40,40′;
    extern color Text_Color=C’220,220,220′;
    extern color Text_Label_Color=C’120,120,120′;
    extern color Up_Color=Green;
    extern color Middle_Color=Yellow;
    extern color Down_Color=Red;

    double old_price,old_spread;
    string timeframe;
    string tick=”n”;
    int di,po,ti;

    string info_font=”Verdana”;
    int info_fontsize=8;

    int tf[]={1,5,15,30,60,240,1440};
    string tf_label[]={“M1″,”M5″,”M15″,”M30″,”H1″,”H4″,”D1”};
    int tf_lab_ofset[]={4,4,2,2,4,4,4};
    int xp[4],yo[10],lo[3];
    int x,y,ofs_sema=23;;
    //+——————————————————————+
    //| |
    //+——————————————————————+
    int init()
    {

    int ylen=3;
    int TitleX,TitleY,WebX,WebY,extend_board,offset_col;
    int symlen=StringLen(Symbol());

    if(All_Other_Objects_To_Background)
    {
    int hwnd=WindowHandle(Symbol(),Period());
    int msg=RegisterWindowMessageW(“MetaTrader4_Internal_Message”);
    PostMessageW(hwnd,msg,2,1);
    }

    if(Show_Symbol_and_Timeframe)
    {
    if(symlen>7)
    {
    extend_board=symlen-6;
    offset_col=symlen*5;
    }
    ylen+=3;
    }

    if(Show_Price_and_Spread) ylen+=3;
    if(Show_Time_and_Tick) ylen+=3;
    if(Show_Fractal_Trend) ylen+=4;
    if(Show_Average_Hi_Lo) ylen+=1;
    if(Show_Today_Hi_Lo) ylen+=1;
    if(Show_Hi_Lo_to_Spread) ylen+=1;
    if(Show_Current_Bar_Hi_Lo) ylen+=1;
    if(Show_Previous_Bar_Hi_Lo) ylen+=1;
    if(Show_Tickvalue) ylen+=1;
    if(Show_Stoplevel) ylen+=1;
    if(Show_Swap) ylen+=2;

    if(Corner>3) Corner=1;

    switch(Corner)
    {
    case 0: x = Offset_X;
    y = Offset_Y;
    TitleX = x+42;
    TitleY = y+3;
    WebX = x+60;
    WebY = y+21;
    xp[0] = x+132+offset_col;
    xp[1] = x+10;
    xp[2] = x+10;
    xp[3] = x+123;
    yo[0] = y+40;
    yo[1] = 14;
    yo[2] = 26;
    yo[3] = 6;
    yo[4] = 0;
    yo[5] = 10;
    yo[6] = 14;
    yo[7] = 24;
    yo[8] = 45;
    yo[9] = 14;
    lo[0] = -32;
    lo[1] = -28;
    lo[2] = 10;

    CreateBox(“XBoard_Main”,x,y,14+extend_board,ylen);

    break;

    case 1: x = Offset_X;
    y = Offset_Y;
    TitleX = x+42;
    TitleY = y+3;
    WebX = x+60;
    WebY = y+21;
    xp[0] = x+10;
    xp[1] = x+80;
    xp[2] = x+74;
    xp[3] = x+10;
    yo[0] = y+40;
    yo[1] = 14;
    yo[2] = 26;
    yo[3] = 6;
    yo[4] = 0;
    yo[5] = 10;
    yo[6] = 14;
    yo[7] = 24;
    yo[8] = 45;
    yo[9] = 14;
    lo[0] = -32;
    lo[1] = -28;
    lo[2] = 10;

    CreateBox(“XBoard_Main”,x,y,14+extend_board,ylen);

    ArraySetAsSeries(tf,true);
    ArraySetAsSeries(tf_label,true);
    ArraySetAsSeries(tf_lab_ofset,true);

    break;

    case 2: x = Offset_X;
    y = Offset_Y-(25-ylen)*14;
    TitleX = x+42;
    TitleY = y+3+330;
    WebX = x+60;
    WebY = y+325;
    xp[0] = x+132+offset_col;
    xp[1] = x+10;
    xp[2] = x+10;
    xp[3] = x+123;
    yo[0] = y+295;
    yo[1] = -30;
    yo[2] = -10;
    yo[3] = 9;
    yo[4] = 12;
    yo[5] = -29;
    yo[6] = -300;
    yo[7] = -4;
    yo[8] = -28;
    yo[9] = -14;
    lo[0] = 24;
    lo[1] = 22;
    lo[2] = -11;

    CreateBox(“XBoard_Main”,x,y+(25-ylen)*14,14+extend_board,ylen);

    break;

    case 3: x = Offset_X;
    y = Offset_Y-(25-ylen)*14;
    TitleX = x+42;
    TitleY = y+3+330;
    WebX = x+60;
    WebY = y+325;
    xp[0] = x+10;
    xp[1] = x+80;
    xp[2] = x+75;
    xp[3] = x+10;
    yo[0] = y+295;
    yo[1] = -30;
    yo[2] = -10;
    yo[3] = 9;
    yo[4] = 12;
    yo[5] = -29;
    yo[6] = -300;
    yo[7] = -4;
    yo[8] = -28;
    yo[9] = -14;
    lo[0] = 24;
    lo[1] = 22;
    lo[2] = -11;

    CreateBox(“XBoard_Main”,x,y+(25-ylen)*14,14+extend_board,ylen);

    ArraySetAsSeries(tf,true);
    ArraySetAsSeries(tf_label,true);
    ArraySetAsSeries(tf_lab_ofset,true);

    break;
    }

    switch(Period())
    {
    case 1 : timeframe = “M1”; break;
    case 5 : timeframe = “M5”; break;
    case 15 : timeframe = “M15”; break;
    case 30 : timeframe = “M30”; break;
    case 60 : timeframe = “H1”; break;
    case 240 : timeframe = “H4”; break;
    case 1440 : timeframe = “D1”; break;
    case 10080 : timeframe = “W1”; break;
    case 43200 : timeframe = “MN1″; break;
    default : timeframe = Period()+” Min”; break;
    }

    switch(Digits)
    {
    case 0: di = 0; po = 1; ti = 1; break;
    case 1: di = 1; po = 1; ti = 10; break;
    case 2: di = 0; po = 100; ti = 1; break;
    case 3: di = 1; po = 100; ti = 10; break;
    case 4: di = 0; po = 10000; ti = 1; break;
    case 5: di = 1; po = 10000; ti = 10; break;
    default: di= Digits;
    }

    CreateText(“XBoard_Title”,TitleX,TitleY,”INFOBOARD”,11,”Arial Black”,Text_Color);
    CreateText(“XBoard_Web”,WebX,WebY,”www.truetl.com”,7,”Arial”,Text_Color);

    return(0);
    }
    //+——————————————————————+
    //| |
    //+——————————————————————+
    int deinit()
    {

    for(int i=ObjectsTotal(); i>=0; i–)
    {
    if(StringSubstr(ObjectName(i),0,7)==”XBoard_”)
    {
    ObjectDelete(ObjectName(i));
    }
    }
    return(0);
    }
    //+——————————————————————+
    //| |
    //+——————————————————————+
    int start()
    {

    int i,c,a;
    double uplevel,dolevel,new_price,new_spread,avg;

    if(All_Other_Objects_To_Background)
    {
    for(i=ObjectsTotal(); i>=0; i–)
    {
    if(StringSubstr(ObjectName(i),0,7)!=”XBoard_”)
    {
    ObjectSet(ObjectName(i),OBJPROP_BACK,1);
    }
    }
    }

    y=yo[0];

    for(a=1; a<11; a++) CreateText(“XBoard_Line1″+”_”+a,a*16+x-3,y+lo[0],”_”,20,”Verdana”,Text_Label_Color);

    if(Show_Symbol_and_Timeframe)
    {
    CreateText(“XBoard_Tf”,xp[0],y,timeframe,16,”Verdana”,Text_Color);
    CreateText(“XBoard_Symbol”,xp[1],y,Symbol(),16,”Verdana”,Text_Color);
    y+=yo[2];

    CreateText(“XBoard_Tf_label”,xp[0],y,”TF”,6,”Verdana”,Text_Label_Color);
    CreateText(“XBoard_Symbol_label”,xp[1],y,”SYMBOL”,6,”Verdana”,Text_Label_Color);
    y+=yo[1];
    }

    if(Show_Price_and_Spread)
    {

    new_price=Bid;

    if(old_price<new_price) { CreateText(“XBoard_Price”,xp[1],y,DoubleToStr(new_price,Digits),16,”Verdana”,Up_Color); } else if(old_price>new_price) {
    CreateText(“XBoard_Price”,xp[1],y,DoubleToStr(new_price,Digits),16,”Verdana”,Down_Color);
    } else {
    CreateText(“XBoard_Price”,xp[1],y,DoubleToStr(new_price,Digits),16,”Verdana”,Middle_Color);
    }

    old_price=new_price;

    new_spread=(Ask-Bid)*po;

    if(old_spread<new_spread) { CreateText(“XBoard_Spread”,xp[0],y,DoubleToStr(new_spread,di),16,”Verdana”,Up_Color); } else if(old_spread>new_spread) {
    CreateText(“XBoard_Spread”,xp[0],y,DoubleToStr(new_spread,di),16,”Verdana”,Down_Color);
    } else {
    CreateText(“XBoard_Spread”,xp[0],y,DoubleToStr(new_spread,di),16,”Verdana”,Middle_Color);
    }

    old_spread=new_spread;

    y+=yo[2];
    CreateText(“XBoard_Spread_label”,xp[0],y,”SPREAD”,6,”Verdana”,Text_Label_Color);
    CreateText(“XBoard_Price_label”,xp[1],y,”BID PRICE”,6,”Verdana”,Text_Label_Color);
    y+=yo[1];
    }

    if(Show_Time_and_Tick)
    {

    CreateText(“XBoard_Tick”,xp[0],y,tick,18,”Wingdings”,Text_Color);

    datetime closetime=Time[0]+(Time[0]-Time[1])-TimeCurrent();
    string TimeRemain = TimeToStr(closetime,TIME_SECONDS);
    if(TimeRemain==”invalid time” || StringFind(TimeRemain,”-“,0)>=0 || StringLen(TimeRemain)==0 || TimeRemain==” “)
    {
    TimeRemain= “Waiting…”;
    }

    CreateText(“XBoard_Time”,xp[1],y,TimeRemain,16,”Verdana”,Text_Color);

    if(tick==”n”)
    {
    tick= “o”;
    } else {
    tick=”n”;
    }

    y+=yo[2];
    CreateText(“XBoard_Tick_label”,xp[0],y,”TICK”,6,”Verdana”,Text_Label_Color);
    CreateText(“XBoard_Time_label”,xp[1],y,”TIME REMAIN”,6,”Verdana”,Text_Label_Color);
    y+=yo[1];
    }

    if(Show_Symbol_and_Timeframe || Show_Price_and_Spread || Show_Time_and_Tick)
    {
    for(a=1; a<11; a++) CreateText(“XBoard_Line2″+”_”+a,a*16+x-3,y+lo[1],”_”,20,”Verdana”,Text_Label_Color);
    y+=yo[3];
    } else {
    y+=yo[4];
    }

    if(Show_Fractal_Trend)
    {

    CreateText(“XBoard_Fractal_label”,x+57,y,”FRACTAL TREND”,6,”Verdana”,Text_Label_Color);
    y+=yo[5];

    for(i=0; i<7; i++)
    {

    CreateText(“XBoard_Segment_”+i,x+16+ofs_sema*i,y,CharToStr(108),20,”Wingdings”,Gray);
    CreateText(“XBoard_Segment_Label_”+i,x+16+tf_lab_ofset[i]+ofs_sema*i,y+yo[7],tf_label[i],6,”Verdana”,Text_Label_Color);

    for(c=3; c<200; c++) { if(iHigh(Symbol(),tf[i],c) >= iHigh(Symbol(),tf[i],c+1) &&
    iHigh(Symbol(),tf[i],c) >= iHigh(Symbol(),tf[i],c+2) &&
    iHigh(Symbol(),tf[i],c) >= iHigh(Symbol(),tf[i],c-1) &&
    iHigh(Symbol(),tf[i],c) >= iHigh(Symbol(),tf[i],c-2))
    break;
    }
    uplevel=iHigh(Symbol(),tf[i],c);

    for(c=3; c<200; c++)
    {
    if(iLow(Symbol(),tf[i],c) <= iLow(Symbol(),tf[i],c+1) &&
    iLow(Symbol(),tf[i],c) <= iLow(Symbol(),tf[i],c+2) &&
    iLow(Symbol(),tf[i],c) <= iLow(Symbol(),tf[i],c-1) &&
    iLow(Symbol(),tf[i],c) <= iLow(Symbol(),tf[i],c-2))
    break;
    }
    dolevel=iLow(Symbol(),tf[i],c);

    if(Bid<dolevel) ObjectSet(“XBoard_Segment_”+i,OBJPROP_COLOR,Down_Color); if(Bid>=dolevel && Bid<=uplevel) ObjectSet(“XBoard_Segment_”+i,OBJPROP_COLOR,Middle_Color); if(Bid>uplevel) ObjectSet(“XBoard_Segment_”+i,OBJPROP_COLOR,Up_Color);
    }

    for(a=1; a<11; a++) CreateText(“XBoard_Line3″+”_”+a,a*16+x-3,y+lo[2],”_”,20,”Verdana”,Text_Label_Color);
    y+=yo[8];
    }

    if(Show_Average_Hi_Lo)
    {
    for(i=1; i<=Days_For_ATR; i++)
    {
    avg+=iHigh(Symbol(),1440,i)-iLow(Symbol(),1440,i);
    }
    double PrevHiLo=(avg/Days_For_ATR)*po;
    CreateText(“XBoard_ATR”,xp[3],y,DoubleToStr(PrevHiLo,di),info_fontsize,”Verdana”,Text_Color);
    CreateText(“XBoard_ATR_label”,xp[2],y,Days_For_ATR+” Days ATR:”,info_fontsize,”Verdana”,Text_Color);
    y+=yo[9];
    }

    if(Show_Today_Hi_Lo)
    {
    double TodayHiLo=(iHigh(Symbol(),1440,0)-iLow(Symbol(),1440,0))*po;
    CreateText(“XBoard_TodayHiLo”,xp[3],y,DoubleToStr(TodayHiLo,di),info_fontsize,”Verdana”,Text_Color);
    CreateText(“XBoard_TodayHiLo_label”,xp[2],y,”Today Hi-Lo:”,info_fontsize,”Verdana”,Text_Color);
    y+=yo[9];
    }

    if(Show_Hi_Lo_to_Spread)
    {
    double HiLoToSpread=PrevHiLo/NormalizeDouble((Ask-Bid)*po,di);
    CreateText(“XBoard_ATRToSpread”,xp[3],y,DoubleToStr(HiLoToSpread,2)+”X”,info_fontsize,”Verdana”,Text_Color);
    CreateText(“XBoard_ATRToSpread_label”,xp[2],y,”ATR/Spread Ratio:”,info_fontsize,”Verdana”,Text_Color);
    y+=yo[9];
    }

    if(Show_Current_Bar_Hi_Lo)
    {
    double BarHiLo=(High[0]-Low[0])*po;
    CreateText(“XBoard_CurrentBarHiLo”,xp[3],y,DoubleToStr(BarHiLo,di),info_fontsize,”Verdana”,Text_Color);
    CreateText(“XBoard_CurrentBarHiLo_label”,xp[2],y,”Current Bar Hi-Lo:”,info_fontsize,”Verdana”,Text_Color);
    y+=yo[9];
    }

    if(Show_Previous_Bar_Hi_Lo)
    {
    double PrevBarHiLo=(High[1]-Low[1])*po;
    CreateText(“XBoard_PrevBarHiLo”,xp[3],y,DoubleToStr(PrevBarHiLo,di),info_fontsize,”Verdana”,Text_Color);
    CreateText(“XBoard_PrevBarHiLo_label”,xp[2],y,”Prev Bar Hi-Lo:”,info_fontsize,”Verdana”,Text_Color);
    y+=yo[9];
    }

    if(Show_Tickvalue)
    {
    CreateText(“XBoard_Tickvalue”,xp[3],y,DoubleToStr(MarketInfo(Symbol(),MODE_TICKVALUE)*ti,3),info_fontsize,”Verdana”,Text_Color);
    CreateText(“XBoard_Tickvalue_label”,xp[2],y,”Tickvalue:”,info_fontsize,”Verdana”,Text_Color);
    y+=yo[9];
    }

    if(Show_Stoplevel)
    {
    CreateText(“XBoard_Stoplevel”,xp[3],y,DoubleToStr(MarketInfo(Symbol(),MODE_STOPLEVEL),3),info_fontsize,”Verdana”,Text_Color);
    CreateText(“XBoard_Stoplevel_label”,xp[2],y,”Stoplevel:”,info_fontsize,”Verdana”,Text_Color);
    y+=yo[9];
    }

    if(Show_Swap)
    {
    CreateText(“XBoard_SwapLong”,xp[3],y,DoubleToStr(MarketInfo(Symbol(),MODE_SWAPLONG),Digits),info_fontsize,”Verdana”,Text_Color);
    CreateText(“XBoard_SwapLong_label”,xp[2],y,”Swap Long:”,info_fontsize,”Verdana”,Text_Color);
    y+=yo[9];

    CreateText(“XBoard_SwapShort”,xp[3],y,DoubleToStr(MarketInfo(Symbol(),MODE_SWAPSHORT),Digits),info_fontsize,”Verdana”,Text_Color);
    CreateText(“XBoard_SwapShort_label”,xp[2],y,”Swap Short:”,info_fontsize,”Verdana”,Text_Color);
    }

    return(0);
    }
    //+——————————————————————+
    //| |
    //+——————————————————————+
    void CreateText(string label,int posx,int posy,string text,int fontsize,string font,color fontcolor)
    {
    ObjectDelete(label);
    ObjectCreate(label,OBJ_LABEL,0,0,0);
    ObjectSet(label,OBJPROP_CORNER,Corner);
    ObjectSet(label,OBJPROP_XDISTANCE,posx);
    ObjectSet(label,OBJPROP_YDISTANCE,posy);
    ObjectSet(label,OBJPROP_BACK,false);
    ObjectSetText(label,text,fontsize,font,fontcolor);
    }
    //+——————————————————————+
    //| |
    //+——————————————————————+
    void CreateBox(string name,int xpos,int ypos,int xsize,int ysize)
    {
    for(int a=0; a<xsize; a++)
    {
    for(int b=0; b<ysize; b++)
    {
    CreateText(name+”_”+a+”_”+b,a*13+xpos,b*14+ypos,CharToStr(110),18,”Wingdings”,Background_Color);
    }
    }
    }
    //+——————————————————————+

    09/11/2020 at 8:01 AM #143909
    settival

    vorrei chiedervi un aiuto per la conversione di questo indicatore mt4 in codice prorealtime , in particolare la parte delle informazioni del frattale sui diversi timeframe

    ringrazio anticipatamente

    valentino

    09/11/2020 at 8:15 AM #143913
    Nicolas

    Alcune limitazioni per la conversione di questo codice:

    • compatibile solo con PRT v11
    • non può essere ancorato nel grafico dei prezzi
    • deve essere aggiunto in una finestra separata come un oscillatore (per evitare problemi di zoom avanti e indietro non ancorati)
    • non è possibile recuperare il valore dello spread
    09/11/2020 at 8:29 AM #143916
    settival

    grazie Nicolas. e’ invece possibile convertire solo la parte dei frattali per i diversi timeframe?

     

  • Author
    Posts
Viewing 4 posts - 1 through 4 (of 4 total)

Find exclusive trading pro-tools on ProRealCode Marketplace

Similar topics:
conversione dell’indicatore cam dal software di trading tradestation
conversione dell’indicatore moving average 3.0 dal software trading tradingview
conversione dell’indicatore tutte le candele dal software tradingview
conversione dell’indicatore scalp time
conversione dell’indicator vpn dal software di trading tradestation
conversione dell’indicatore mad dal software di trading tradingview
conversione dell’indicatore net dal software di trading tradestation
conversione dell’indicatore roc dal software di trading tradestation
conversione dell’indicatore rsih dal software di trading tradingview
conversione indicatore mt4 buy sell magic

Create your free account now and post your request to benefit from the help of the community
Register or Login