//+------------------------------------------------------------------+ //| +JoGET#58+.mq4 | //| Copyright © 2008, masemus | //| Gresik@Indonesia | //+------------------------------------------------------------------+ #property copyright "masemus" #property link "masemus@yahoo.com" #property indicator_chart_window //---- Pos! extern int window = 0; extern int corner = 3; //---- BBAO int FastMA = 5; int SlowMA = 12; int MA_Mode = MODE_EMA; int MA_PriceType = PRICE_CLOSE; int BBperiode = 10; double StDv = 1; //---- BuySell extern color DN_clr = DeepPink; extern color UP_clr = DodgerBlue; extern color SW_clr = DarkGray; extern color tDN_clr = LightPink; extern color tUP_clr = LightSkyBlue; extern color tSW_clr = LightGray; extern color Time_clr = Magenta; extern color Spread_clr = RosyBrown; extern color Text_clr = Silver; //---- MarketToday :: Mtr extern color DN0_clr = Yellow; extern color DN1_clr = Gold; extern color DN2_clr = Orange; extern color DN3_clr = DarkOrange; extern color DN4_clr = OrangeRed; extern color DN5_clr = Red; extern color UP0_clr = GreenYellow; extern color UP1_clr = LightGreen; extern color UP2_clr = LimeGreen; extern color UP3_clr = MediumSeaGreen; extern color UP4_clr = SeaGreen; extern color UP5_clr = Green; extern color SW0_clr = DarkGray; extern color SW2dn_clr = LightPink; extern color SW2up_clr = LightSkyBlue; //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ int start() { //***************************************************************************************************** //Info string Teks="", Teks_Menit, Teks_Detik; double d_A, d_B; //Time for Next Candle d_B = (Time[4]-Time[5])-MathMod(CurTime(),Time[4]-Time[5]); d_A = d_B/60; d_B = (d_A-MathFloor(d_A))*60; d_A = MathFloor(d_A); Teks_Menit = DoubleToStr(d_A,0); Teks_Detik = DoubleToStr(d_B,0); Teks=Teks_Menit+":"+Teks_Detik; //Price double Price1 = iMA(Symbol(),0,1,0,MODE_EMA,PRICE_CLOSE,0); Teks=DoubleToStr(Price1,Digits); int R1=0,R5=0,R10=0,R20=0,RAvg=0,i=0; R1 = (iHigh(NULL,PERIOD_D1,1)-iLow(NULL,PERIOD_D1,1))/Point; for(i=1;i<=5;i++) R5 = R5 + (iHigh(NULL,PERIOD_D1,i)-iLow(NULL,PERIOD_D1,i))/Point; for(i=1;i<=10;i++) R10 = R10 + (iHigh(NULL,PERIOD_D1,i)-iLow(NULL,PERIOD_D1,i))/Point; for(i=1;i<=20;i++) R20 = R20 + (iHigh(NULL,PERIOD_D1,i)-iLow(NULL,PERIOD_D1,i))/Point; R5 = R5/5; R10 = R10/10; R20 = R20/20; RAvg = (R1+R5+R10+R20)/4; string HI="",LO="",SPREAD="",PIPS="",DAV="",HILO="",PRC,Pips="",Av="",AV_Yest=""; string OPEN=""; color color_pip,color_av; double Open_Today = iOpen(NULL,1440,0); double CLOSE = iClose(NULL,1440,0); double SPRD = (Ask - Bid)/Point; double High_Today = iHigh(NULL,1440,0); double Low_Today = iLow(NULL,1440,0); PIPS = DoubleToStr((CLOSE-Open_Today)/Point,0); SPREAD = (DoubleToStr(SPRD,Digits-4)); DAV = (DoubleToStr(RAvg,Digits-4)); AV_Yest = (iHigh(NULL,PERIOD_D1,1)-iLow(NULL,PERIOD_D1,1))/Point; HILO = DoubleToStr((High_Today-Low_Today)/Point,0); OPEN = (DoubleToStr(Open_Today,Digits)); HI = (DoubleToStr(High_Today,Digits)); LO = (DoubleToStr(Low_Today,Digits)); if (CLOSE >= Open_Today) {Pips= "-";color_pip = LimeGreen; } if (CLOSE < Open_Today) {Pips= "-";color_pip = DarkOrange; } if (DAV > AV_Yest) {Av= "-";color_av = LimeGreen; } if (DAV < AV_Yest) {Av= "-";color_av = DarkOrange; } //***************************************************************************************************** //D1_TREND string D1Mid="",D1Pivot="",D1OPEN=""; color color_d1op; double Open_D1 = iOpen(NULL,1440,0); D1OPEN = (DoubleToStr(Open_D1,Digits)); double D1r = iHigh(NULL,PERIOD_D1,1) - iLow(NULL,PERIOD_D1,1); double D1R = (iHigh(NULL,PERIOD_D1,1) + iLow(NULL,PERIOD_D1,1))/2; double D1P = (iHigh(NULL,PERIOD_D1,1) + iLow(NULL,PERIOD_D1,1) + iClose(NULL,PERIOD_D1,1))/3; D1Mid = DoubleToStr(D1R,Digits); D1Pivot = DoubleToStr(D1P,Digits); if (D1OPEN > D1Pivot) {color_d1op=LimeGreen;} if (D1OPEN < D1Pivot) {color_d1op=Orange;} if (D1OPEN == D1Pivot) {color_d1op=DarkGray;} //MarketD1 string SW01="",UP01="",UP02="",UP03="", UP04="",UP05="",UP06="",Mid00="", TPb1="",TPb2="",TPb3="",TPs1="",TPs2="",TPs3="", TP1="",TP2="",TP3=""; color Midplus_clr,UPtp1D1_clr,UPtp2D1_clr,UPtp3D1_clr, UPtp4D1_clr,UPtp5D1_clr,UPtp6D1_clr,TP_clr; double Midnol = (Open_D1 + D1P) * 1/2; Mid00 = DoubleToStr(Midnol,Digits); double UPtp1D1 = D1P + (D1r * 0.236); double UPtp2D1 = D1P + (D1r * 0.382); double UPtp3D1 = D1P + (D1r * 0.618); double UPtp4D1 = D1P + (D1r * 0.764); double UPtp5D1 = D1P + (D1r * 1.000); double UPtp6D1 = D1P + (D1r * 1.236); double DNtp1D1 = D1P - (D1r * 0.236); double DNtp2D1 = D1P - (D1r * 0.382); double DNtp3D1 = D1P - (D1r * 0.618); double DNtp4D1 = D1P - (D1r * 0.764); double DNtp5D1 = D1P - (D1r * 1.000); double DNtp6D1 = D1P - (D1r * 1.236); TPb1 = DoubleToStr(UPtp2D1,Digits); TPb2 = DoubleToStr(UPtp3D1,Digits); TPb3 = DoubleToStr(UPtp6D1,Digits); TPs1 = DoubleToStr(DNtp2D1,Digits); TPs2 = DoubleToStr(DNtp3D1,Digits); TPs3 = DoubleToStr(DNtp6D1,Digits); if (Price1 > Midnol) {SW01="n"; Midplus_clr=SW2up_clr;} if (Price1 < Midnol) {SW01="n"; Midplus_clr=SW2dn_clr;} if (Price1 == Midnol) {SW01="n"; Midplus_clr=SW0_clr;} if (Teks > Mid00) {TP1=TPb1; TP2=TPb2; TP3=TPb3; TP_clr=UP3_clr;} if (Teks < Mid00) {TP1=TPs1; TP2=TPs2; TP3=TPs3; TP_clr=DN3_clr;} if (Price1 > UPtp1D1) {UP01="g"; UPtp1D1_clr=UP0_clr;} if (Price1 < DNtp1D1) {UP01="g"; UPtp1D1_clr=DN0_clr;} if (Price1 > UPtp2D1) {UP02="g"; UPtp2D1_clr=UP1_clr;} if (Price1 < DNtp2D1) {UP02="g"; UPtp2D1_clr=DN1_clr;} if (Price1 > UPtp3D1) {UP03="g"; UPtp3D1_clr=UP2_clr;} if (Price1 < DNtp3D1) {UP03="g"; UPtp3D1_clr=DN2_clr;} if (Price1 > UPtp4D1) {UP04="g"; UPtp4D1_clr=UP3_clr;} if (Price1 < DNtp4D1) {UP04="g"; UPtp4D1_clr=DN3_clr;} if (Price1 > UPtp5D1) {UP05="g"; UPtp5D1_clr=UP4_clr;} if (Price1 < DNtp5D1) {UP05="g"; UPtp5D1_clr=DN4_clr;} if (Price1 > UPtp6D1) {UP06="g"; UPtp6D1_clr=UP5_clr;} if (Price1 < DNtp6D1) {UP06="g"; UPtp6D1_clr=DN5_clr;} //***************************************************************************************************** //H4_TREND string H4Mid="",H4Pivot="",H4OPEN=""; double Open_H4 = iOpen(NULL,240,0); H4OPEN = (DoubleToStr(Open_H4,Digits)); double H4r = iHigh(NULL,PERIOD_H4,1) - iLow(NULL,PERIOD_H4,1); double H4R = (iHigh(NULL,PERIOD_H4,1) + iLow(NULL,PERIOD_H4,1))/2; double H4P = (iHigh(NULL,PERIOD_H4,1) + iLow(NULL,PERIOD_H4,1) + iClose(NULL,PERIOD_H4,1))/3; H4Mid = DoubleToStr(H4R,Digits); H4Pivot = DoubleToStr(H4P,Digits); //MarketH4 string SW01h4="",UP01h4="",UP02h4="",UP03h4="", UP04h4="",UP05h4="",UP06h4=""; color Midplush4_clr,UPtp1h4_clr,UPtp2h4_clr,UPtp3h4_clr, UPtp4h4_clr,UPtp5h4_clr,UPtp6h4_clr; double Midnolh4 = (Open_H4 + H4P) * 1/2; double UPtp1h4 = H4P + (H4r * 0.236); double UPtp2h4 = H4P + (H4r * 0.382); double UPtp3h4 = H4P + (H4r * 0.618); double UPtp4h4 = H4P + (H4r * 0.764); double UPtp5h4 = H4P + (H4r * 1.000); double UPtp6h4 = H4P + (H4r * 1.236); double DNtp1h4 = H4P - (H4r * 0.236); double DNtp2h4 = H4P - (H4r * 0.382); double DNtp3h4 = H4P - (H4r * 0.618); double DNtp4h4 = H4P - (H4r * 0.764); double DNtp5h4 = H4P - (H4r * 1.000); double DNtp6h4 = H4P - (H4r * 1.236); if (Price1 > Midnolh4) {SW01h4="n"; Midplush4_clr=SW2up_clr;} if (Price1 < Midnolh4) {SW01h4="n"; Midplush4_clr=SW2dn_clr;} if (Price1 == Midnolh4) {SW01h4="n"; Midplush4_clr=SW0_clr;} if (Price1 > UPtp1h4) {UP01h4="g"; UPtp1h4_clr=UP0_clr;} if (Price1 < DNtp1h4) {UP01h4="g"; UPtp1h4_clr=DN0_clr;} if (Price1 > UPtp2h4) {UP02h4="g"; UPtp2h4_clr=UP1_clr;} if (Price1 < DNtp2h4) {UP02h4="g"; UPtp2h4_clr=DN1_clr;} if (Price1 > UPtp3h4) {UP03h4="g"; UPtp3h4_clr=UP2_clr;} if (Price1 < DNtp3h4) {UP03h4="g"; UPtp3h4_clr=DN2_clr;} if (Price1 > UPtp4h4) {UP04h4="g"; UPtp4h4_clr=UP3_clr;} if (Price1 < DNtp4h4) {UP04h4="g"; UPtp4h4_clr=DN3_clr;} if (Price1 > UPtp5h4) {UP05h4="g"; UPtp5h4_clr=UP4_clr;} if (Price1 < DNtp5h4) {UP05h4="g"; UPtp5h4_clr=DN4_clr;} if (Price1 > UPtp6h4) {UP06h4="g"; UPtp6h4_clr=UP5_clr;} if (Price1 < DNtp6h4) {UP06h4="g"; UPtp6h4_clr=DN5_clr;} //***************************************************************************************************** //H1_TREND string H1Mid="",H1Pivot="",H1OPEN=""; double Open_H1 = iOpen(NULL,60,0); H1OPEN = (DoubleToStr(Open_H1,Digits)); double H1r = iHigh(NULL,PERIOD_H1,1) - iLow(NULL,PERIOD_H1,1); double H1R = (iHigh(NULL,PERIOD_H1,1) + iLow(NULL,PERIOD_H1,1))/2; double H1P = (iHigh(NULL,PERIOD_H1,1) + iLow(NULL,PERIOD_H1,1) + iClose(NULL,PERIOD_H1,1))/3; H1Mid = DoubleToStr(H1R,Digits); H1Pivot = DoubleToStr(H1P,Digits); //MarketH1 string SW01h1="",UP01h1="",UP02h1="",UP03h1="", UP04h1="",UP05h1="",UP06h1=""; color Midplush1_clr,UPtp1h1_clr,UPtp2h1_clr,UPtp3h1_clr, UPtp4h1_clr,UPtp5h1_clr,UPtp6h1_clr; double Midnolh1 = (Open_H1 + H1P) * 1/2; double UPtp1h1 = H1P + (H1r * 0.236); double UPtp2h1 = H1P + (H1r * 0.382); double UPtp3h1 = H1P + (H1r * 0.618); double UPtp4h1 = H1P + (H1r * 0.764); double UPtp5h1 = H1P + (H1r * 1.000); double UPtp6h1 = H1P + (H1r * 1.236); double DNtp1h1 = H1P - (H1r * 0.236); double DNtp2h1 = H1P - (H1r * 0.382); double DNtp3h1 = H1P - (H1r * 0.618); double DNtp4h1 = H1P - (H1r * 0.764); double DNtp5h1 = H1P - (H1r * 1.000); double DNtp6h1 = H1P - (H1r * 1.236); if (Price1 > Midnolh1) {SW01h1="n"; Midplush1_clr=SW2up_clr;} if (Price1 < Midnolh1) {SW01h1="n"; Midplush1_clr=SW2dn_clr;} if (Price1 == Midnolh1) {SW01h1="n"; Midplush1_clr=SW0_clr;} if (Price1 > UPtp1h1) {UP01h1="g"; UPtp1h1_clr=UP0_clr;} if (Price1 < DNtp1h1) {UP01h1="g"; UPtp1h1_clr=DN0_clr;} if (Price1 > UPtp2h1) {UP02h1="g"; UPtp2h1_clr=UP1_clr;} if (Price1 < DNtp2h1) {UP02h1="g"; UPtp2h1_clr=DN1_clr;} if (Price1 > UPtp3h1) {UP03h1="g"; UPtp3h1_clr=UP2_clr;} if (Price1 < DNtp3h1) {UP03h1="g"; UPtp3h1_clr=DN2_clr;} if (Price1 > UPtp4h1) {UP04h1="g"; UPtp4h1_clr=UP3_clr;} if (Price1 < DNtp4h1) {UP04h1="g"; UPtp4h1_clr=DN3_clr;} if (Price1 > UPtp5h1) {UP05h1="g"; UPtp5h1_clr=UP4_clr;} if (Price1 < DNtp5h1) {UP05h1="g"; UPtp5h1_clr=DN4_clr;} if (Price1 > UPtp6h1) {UP06h1="g"; UPtp6h1_clr=UP5_clr;} if (Price1 < DNtp6h1) {UP06h1="g"; UPtp6h1_clr=DN5_clr;} //***************************************************************************************************** //M30_TREND string M30Mid="",M30Pivot="",M30OPEN=""; double Open_M30 = iOpen(NULL,30,0); M30OPEN = (DoubleToStr(Open_M30,Digits)); double M30r = iHigh(NULL,PERIOD_M30,1) - iLow(NULL,PERIOD_M30,1); double M30R = (iHigh(NULL,PERIOD_M30,1) + iLow(NULL,PERIOD_M30,1))/2; double M30P = (iHigh(NULL,PERIOD_M30,1) + iLow(NULL,PERIOD_M30,1) + iClose(NULL,PERIOD_M30,1))/3; M30Mid = DoubleToStr(M30R,Digits); M30Pivot = DoubleToStr(M30P,Digits); //MarketM30 string SW01m30="",UP01m30="",UP02m30="",UP03m30="", UP04m30="",UP05m30="",UP06m30=""; color Midplusm30_clr,UPtp1m30_clr,UPtp2m30_clr,UPtp3m30_clr, UPtp4m30_clr,UPtp5m30_clr,UPtp6m30_clr; double Midnolm30 = (Open_M30 + M30P) * 1/2; double UPtp1m30 = M30P + (M30r * 0.236); double UPtp2m30 = M30P + (M30r * 0.382); double UPtp3m30 = M30P + (M30r * 0.618); double UPtp4m30 = M30P + (M30r * 0.764); double UPtp5m30 = M30P + (M30r * 1.000); double UPtp6m30 = M30P + (M30r * 1.236); double DNtp1m30 = M30P - (M30r * 0.236); double DNtp2m30 = M30P - (M30r * 0.382); double DNtp3m30 = M30P - (M30r * 0.618); double DNtp4m30 = M30P - (M30r * 0.764); double DNtp5m30 = M30P - (M30r * 1.000); double DNtp6m30 = M30P - (M30r * 1.236); if (Price1 > Midnolm30) {SW01m30="n"; Midplusm30_clr=SW2up_clr;} if (Price1 < Midnolm30) {SW01m30="n"; Midplusm30_clr=SW2dn_clr;} if (Price1 == Midnolm30) {SW01m30="n"; Midplusm30_clr=SW0_clr;} if (Price1 > UPtp1m30) {UP01m30="g"; UPtp1m30_clr=UP0_clr;} if (Price1 < DNtp1m30) {UP01m30="g"; UPtp1m30_clr=DN0_clr;} if (Price1 > UPtp2m30) {UP02m30="g"; UPtp2m30_clr=UP1_clr;} if (Price1 < DNtp2m30) {UP02m30="g"; UPtp2m30_clr=DN1_clr;} if (Price1 > UPtp3m30) {UP03m30="g"; UPtp3m30_clr=UP2_clr;} if (Price1 < DNtp3m30) {UP03m30="g"; UPtp3m30_clr=DN2_clr;} if (Price1 > UPtp4m30) {UP04m30="g"; UPtp4m30_clr=UP3_clr;} if (Price1 < DNtp4m30) {UP04m30="g"; UPtp4m30_clr=DN3_clr;} if (Price1 > UPtp5m30) {UP05m30="g"; UPtp5m30_clr=UP4_clr;} if (Price1 < DNtp5m30) {UP05m30="g"; UPtp5m30_clr=DN4_clr;} if (Price1 > UPtp6m30) {UP06m30="g"; UPtp6m30_clr=UP5_clr;} if (Price1 < DNtp6m30) {UP06m30="g"; UPtp6m30_clr=DN5_clr;} //***************************************************************************************************** //M15_TREND string M15Mid="",M15Pivot="",M15OPEN=""; double Open_M15 = iOpen(NULL,15,0); M15OPEN = (DoubleToStr(Open_M15,Digits)); double M15r = iHigh(NULL,PERIOD_M15,1) - iLow(NULL,PERIOD_M15,1); double M15R = (iHigh(NULL,PERIOD_M15,1) + iLow(NULL,PERIOD_M15,1))/2; double M15P = (iHigh(NULL,PERIOD_M15,1) + iLow(NULL,PERIOD_M15,1) + iClose(NULL,PERIOD_M15,1))/3; M15Mid = DoubleToStr(M15R,Digits); M15Pivot = DoubleToStr(M15P,Digits); //MarketM15 string SW01m15="",UP01m15="",UP02m15="",UP03m15="", UP04m15="",UP05m15="",UP06m15=""; color Midplusm15_clr,UPtp1m15_clr,UPtp2m15_clr,UPtp3m15_clr, UPtp4m15_clr,UPtp5m15_clr,UPtp6m15_clr; double Midnolm15 = (Open_M15 + M15P) * 1/2; double UPtp1m15 = M15P + (M15r * 0.236); double UPtp2m15 = M15P + (M15r * 0.382); double UPtp3m15 = M15P + (M15r * 0.618); double UPtp4m15 = M15P + (M15r * 0.764); double UPtp5m15 = M15P + (M15r * 1.000); double UPtp6m15 = M15P + (M15r * 1.236); double DNtp1m15 = M15P - (M15r * 0.236); double DNtp2m15 = M15P - (M15r * 0.382); double DNtp3m15 = M15P - (M15r * 0.618); double DNtp4m15 = M15P - (M15r * 0.764); double DNtp5m15 = M15P - (M15r * 1.000); double DNtp6m15 = M15P - (M15r * 1.236); if (Price1 > Midnolm15) {SW01m15="n"; Midplusm15_clr=SW2up_clr;} if (Price1 < Midnolm15) {SW01m15="n"; Midplusm15_clr=SW2dn_clr;} if (Price1 == Midnolm15) {SW01m15="n"; Midplusm15_clr=SW0_clr;} if (Price1 > UPtp1m15) {UP01m15="g"; UPtp1m15_clr=UP0_clr;} if (Price1 < DNtp1m15) {UP01m15="g"; UPtp1m15_clr=DN0_clr;} if (Price1 > UPtp2m15) {UP02m15="g"; UPtp2m15_clr=UP1_clr;} if (Price1 < DNtp2m15) {UP02m15="g"; UPtp2m15_clr=DN1_clr;} if (Price1 > UPtp3m15) {UP03m15="g"; UPtp3m15_clr=UP2_clr;} if (Price1 < DNtp3m15) {UP03m15="g"; UPtp3m15_clr=DN2_clr;} if (Price1 > UPtp4m15) {UP04m15="g"; UPtp4m15_clr=UP3_clr;} if (Price1 < DNtp4m15) {UP04m15="g"; UPtp4m15_clr=DN3_clr;} if (Price1 > UPtp5m15) {UP05m15="g"; UPtp5m15_clr=UP4_clr;} if (Price1 < DNtp5m15) {UP05m15="g"; UPtp5m15_clr=DN4_clr;} if (Price1 > UPtp6m15) {UP06m15="g"; UPtp6m15_clr=UP5_clr;} if (Price1 < DNtp6m15) {UP06m15="g"; UPtp6m15_clr=DN5_clr;} //***************************************************************************************************** //M5_TREND string M5Mid="",M5Pivot="",M5OPEN=""; double Open_M5 = iOpen(NULL,5,0); M5OPEN = (DoubleToStr(Open_M5,Digits)); double M5r = iHigh(NULL,PERIOD_M5,1) - iLow(NULL,PERIOD_M5,1); double M5R = (iHigh(NULL,PERIOD_M5,1) + iLow(NULL,PERIOD_M5,1))/2; double M5P = (iHigh(NULL,PERIOD_M5,1) + iLow(NULL,PERIOD_M5,1) + iClose(NULL,PERIOD_M5,1))/3; M5Mid = DoubleToStr(M5R,Digits); M5Pivot = DoubleToStr(M5P,Digits); //MarketM5 string SW01m5="",UP01m5="",UP02m5="",UP03m5="", UP04m5="",UP05m5="",UP06m5=""; color Midplusm5_clr,UPtp1m5_clr,UPtp2m5_clr,UPtp3m5_clr, UPtp4m5_clr,UPtp5m5_clr,UPtp6m5_clr; double Midnolm5 = (Open_M5 + M5P) * 1/2; double UPtp1m5 = M5P + (M5r * 0.236); double UPtp2m5 = M5P + (M5r * 0.382); double UPtp3m5 = M5P + (M5r * 0.618); double UPtp4m5 = M5P + (M5r * 0.764); double UPtp5m5 = M5P + (M5r * 1.000); double UPtp6m5 = M5P + (M5r * 1.236); double DNtp1m5 = M5P - (M5r * 0.236); double DNtp2m5 = M5P - (M5r * 0.382); double DNtp3m5 = M5P - (M5r * 0.618); double DNtp4m5 = M5P - (M5r * 0.764); double DNtp5m5 = M5P - (M5r * 1.000); double DNtp6m5 = M5P - (M5r * 1.236); if (Price1 > Midnolm5) {SW01m5="n"; Midplusm5_clr=SW2up_clr;} if (Price1 < Midnolm5) {SW01m5="n"; Midplusm5_clr=SW2dn_clr;} if (Price1 == Midnolm5) {SW01m5="n"; Midplusm5_clr=SW0_clr;} if (Price1 > UPtp1m5) {UP01m5="g"; UPtp1m5_clr=UP0_clr;} if (Price1 < DNtp1m5) {UP01m5="g"; UPtp1m5_clr=DN0_clr;} if (Price1 > UPtp2m5) {UP02m5="g"; UPtp2m5_clr=UP1_clr;} if (Price1 < DNtp2m5) {UP02m5="g"; UPtp2m5_clr=DN1_clr;} if (Price1 > UPtp3m5) {UP03m5="g"; UPtp3m5_clr=UP2_clr;} if (Price1 < DNtp3m5) {UP03m5="g"; UPtp3m5_clr=DN2_clr;} if (Price1 > UPtp4m5) {UP04m5="g"; UPtp4m5_clr=UP3_clr;} if (Price1 < DNtp4m5) {UP04m5="g"; UPtp4m5_clr=DN3_clr;} if (Price1 > UPtp5m5) {UP05m5="g"; UPtp5m5_clr=UP4_clr;} if (Price1 < DNtp5m5) {UP05m5="g"; UPtp5m5_clr=DN4_clr;} if (Price1 > UPtp6m5) {UP06m5="g"; UPtp6m5_clr=UP5_clr;} if (Price1 < DNtp6m5) {UP06m5="g"; UPtp6m5_clr=DN5_clr;} //***************************************************************************************************** //M1_TREND string M1Mid="",M1Pivot="",M1OPEN=""; double Open_M1 = iOpen(NULL,1,0); M1OPEN = (DoubleToStr(Open_M1,Digits)); double M1r = iHigh(NULL,PERIOD_M1,1) - iLow(NULL,PERIOD_M1,1); double M1R = (iHigh(NULL,PERIOD_M1,1) + iLow(NULL,PERIOD_M1,1))/2; double M1P = (iHigh(NULL,PERIOD_M1,1) + iLow(NULL,PERIOD_M1,1) + iClose(NULL,PERIOD_M1,1))/3; M1Mid = DoubleToStr(M1R,Digits); M1Pivot = DoubleToStr(M1P,Digits); //MarketM1 string SW01m1="",UP01m1="",UP02m1="",UP03m1="", UP04m1="",UP05m1="",UP06m1=""; color Midplusm1_clr,UPtp1m1_clr,UPtp2m1_clr,UPtp3m1_clr, UPtp4m1_clr,UPtp5m1_clr,UPtp6m1_clr; double Midnolm1 = (Open_M1 + M1P) * 1/2; double UPtp1m1 = M1P + (M1r * 0.236); double UPtp2m1 = M1P + (M1r * 0.382); double UPtp3m1 = M1P + (M1r * 0.618); double UPtp4m1 = M1P + (M1r * 0.764); double UPtp5m1 = M1P + (M1r * 1.000); double UPtp6m1 = M1P + (M1r * 1.236); double DNtp1m1 = M1P - (M1r * 0.236); double DNtp2m1 = M1P - (M1r * 0.382); double DNtp3m1 = M1P - (M1r * 0.618); double DNtp4m1 = M1P - (M1r * 0.764); double DNtp5m1 = M1P - (M1r * 1.000); double DNtp6m1 = M1P - (M1r * 1.236); if (Price1 > Midnolm1) {SW01m1="n"; Midplusm1_clr=SW2up_clr;} if (Price1 < Midnolm1) {SW01m1="n"; Midplusm1_clr=SW2dn_clr;} if (Price1 == Midnolm1) {SW01m1="n"; Midplusm1_clr=SW0_clr;} if (Price1 > UPtp1m1) {UP01m1="g"; UPtp1m1_clr=UP0_clr;} if (Price1 < DNtp1m1) {UP01m1="g"; UPtp1m1_clr=DN0_clr;} if (Price1 > UPtp2m1) {UP02m1="g"; UPtp2m1_clr=UP1_clr;} if (Price1 < DNtp2m1) {UP02m1="g"; UPtp2m1_clr=DN1_clr;} if (Price1 > UPtp3m1) {UP03m1="g"; UPtp3m1_clr=UP2_clr;} if (Price1 < DNtp3m1) {UP03m1="g"; UPtp3m1_clr=DN2_clr;} if (Price1 > UPtp4m1) {UP04m1="g"; UPtp4m1_clr=UP3_clr;} if (Price1 < DNtp4m1) {UP04m1="g"; UPtp4m1_clr=DN3_clr;} if (Price1 > UPtp5m1) {UP05m1="g"; UPtp5m1_clr=UP4_clr;} if (Price1 < DNtp5m1) {UP05m1="g"; UPtp5m1_clr=DN4_clr;} if (Price1 > UPtp6m1) {UP06m1="g"; UPtp6m1_clr=UP5_clr;} if (Price1 < DNtp6m1) {UP06m1="g"; UPtp6m1_clr=DN5_clr;} //****************************************************************************************************************** string jogetS1="", jogetS2="", jogetT=""; color clr_jogetS1, clr_jogetS2, clr_jogetT; if ((Teks > M1OPEN) && (Teks > M5OPEN) && (Teks > M1Pivot) && (Teks > M5Pivot)) {jogetS1="UP"; clr_jogetS1=UP_clr;} else if ((Teks < M1Pivot) && (Teks < M5Pivot) && (Teks < M1OPEN) && (Teks < M5OPEN)) {jogetS1="DN"; clr_jogetS1=DN_clr;} else {jogetS1="-----"; clr_jogetS1=SW_clr;} if ((Teks > M15OPEN) && (Teks > M30OPEN) && (Teks > H1OPEN) && (Teks > M15Pivot) && (Teks > M30Pivot) && (Teks > H1Pivot)) {jogetS2="UP"; clr_jogetS2=UP_clr;} else if ((Teks < M15Pivot) && (Teks < M30Pivot) && (Teks < H1Pivot) && (Teks < M15OPEN) && (Teks < M30OPEN) && (Teks < H1OPEN)) {jogetS2="DN"; clr_jogetS2=DN_clr;} else {jogetS2="-----"; clr_jogetS2=SW_clr;} if ((Teks > H4OPEN) && (Teks > D1OPEN) && (Teks > H4Pivot) && (Teks > D1Pivot)) {jogetT="UP"; clr_jogetT=UP_clr;} else if ((Teks < H4Pivot) && (Teks < D1Pivot) && (Teks < H4OPEN) && (Teks < D1OPEN)) {jogetT="DN"; clr_jogetT=DN_clr;} else {jogetT="-----"; clr_jogetT=SW_clr;} ObjectSetText("joFast", "Fast", 10, "Arial Bold", clr_jogetS1); ObjectSetText("joSignal", "Signal", 10, "Arial Bold", clr_jogetS2); ObjectSetText("joTrend", "Trend", 10, "Arial Bold", clr_jogetT); //****************************************************************************************************************** string jogetM1="", jogetM5="", jogetM15="", jogetM30="", jogetH1="", jogetH4="", jogetD1=""; color clr_jogetM1, clr_jogetM5, clr_jogetM15, clr_jogetM30, clr_jogetH1, clr_jogetH4, clr_jogetD1; if ((Teks > M1OPEN) && (Teks > M1Pivot)) {jogetM1="g"; clr_jogetM1=UP_clr;} else if ((Teks < M1Pivot) && (Teks < M1OPEN)) {jogetM1="g"; clr_jogetM1=DN_clr;} else {jogetM1="g"; clr_jogetM1=SW_clr;} if ((Teks > M5OPEN) && (Teks > M5Pivot)) {jogetM5="g"; clr_jogetM5=UP_clr;} else if ((Teks < M5Pivot) && (Teks < M5OPEN)) {jogetM5="g"; clr_jogetM5=DN_clr;} else {jogetM5="g"; clr_jogetM5=SW_clr;} if ((Teks > M15OPEN) && (Teks > M15Pivot)) {jogetM15="g"; clr_jogetM15=UP_clr;} else if ((Teks < M15Pivot) && (Teks < M15OPEN)) {jogetM15="g"; clr_jogetM15=DN_clr;} else {jogetM15="g"; clr_jogetM15=SW_clr;} if ((Teks > M30OPEN) && (Teks > M30Pivot)) {jogetM30="g"; clr_jogetM30=UP_clr;} else if ((Teks < M30Pivot) && (Teks < M30OPEN)) {jogetM30="g"; clr_jogetM30=DN_clr;} else {jogetM30="g"; clr_jogetM30=SW_clr;} if ((Teks > H1OPEN) && (Teks > H1Pivot)) {jogetH1="g"; clr_jogetH1=UP_clr;} else if ((Teks < H1Pivot) && (Teks < H1OPEN)) {jogetH1="g"; clr_jogetH1=DN_clr;} else {jogetH1="g"; clr_jogetH1=SW_clr;} if ((Teks > H4OPEN) && (Teks > H4Pivot)) {jogetH4="g"; clr_jogetH4=UP_clr;} else if ((Teks < H4Pivot) && (Teks < H4OPEN)) {jogetH4="g"; clr_jogetH4=DN_clr;} else {jogetH4="g"; clr_jogetH4=SW_clr;} if ((Teks > D1OPEN) && (Teks > D1Pivot)) {jogetD1="g"; clr_jogetD1=UP_clr;} else if ((Teks < D1Pivot) && (Teks < D1OPEN)) {jogetD1="g"; clr_jogetD1=DN_clr;} else {jogetD1="g"; clr_jogetD1=SW_clr;} ObjectSetText("joSignalM1", jogetM1, 12, "Webdings", clr_jogetM1); ObjectSetText("joSignalM5", jogetM5, 12, "Webdings", clr_jogetM5); ObjectSetText("joSignalM15", jogetM15, 12, "Webdings", clr_jogetM15); ObjectSetText("joSignalM30", jogetM30, 12, "Webdings", clr_jogetM30); ObjectSetText("joSignalH1", jogetH1, 12, "Webdings", clr_jogetH1); ObjectSetText("joSignalH4", jogetH4, 12, "Webdings", clr_jogetH4); ObjectSetText("joSignalD1", jogetD1, 12, "Webdings", clr_jogetD1); //***************************************************************************************************** double S_cM1=iMA(NULL,1,FastMA,0,MA_Mode,MA_PriceType,0)-iMA(NULL,1,SlowMA,0,MA_Mode,MA_PriceType,0); double S_cM5=iMA(NULL,5,FastMA,0,MA_Mode,MA_PriceType,0)-iMA(NULL,5,SlowMA,0,MA_Mode,MA_PriceType,0); double S_cM15=iMA(NULL,15,FastMA,0,MA_Mode,MA_PriceType,0)-iMA(NULL,15,SlowMA,0,MA_Mode,MA_PriceType,0); double S_cM30=iMA(NULL,30,FastMA,0,MA_Mode,MA_PriceType,0)-iMA(NULL,30,SlowMA,0,MA_Mode,MA_PriceType,0); double S_cH1=iMA(NULL,60,FastMA,0,MA_Mode,MA_PriceType,0)-iMA(NULL,60,SlowMA,0,MA_Mode,MA_PriceType,0); double S_cH4=iMA(NULL,240,FastMA,0,MA_Mode,MA_PriceType,0)-iMA(NULL,240,SlowMA,0,MA_Mode,MA_PriceType,0); double S_cD1=iMA(NULL,1440,FastMA,0,MA_Mode,MA_PriceType,0)-iMA(NULL,1440,SlowMA,0,MA_Mode,MA_PriceType,0); double S_pM1=iMA(NULL,1,FastMA,0,MA_Mode,MA_PriceType,1)-iMA(NULL,1,SlowMA,0,MA_Mode,MA_PriceType,1); double S_pM5=iMA(NULL,5,FastMA,0,MA_Mode,MA_PriceType,1)-iMA(NULL,5,SlowMA,0,MA_Mode,MA_PriceType,1); double S_pM15=iMA(NULL,15,FastMA,0,MA_Mode,MA_PriceType,1)-iMA(NULL,15,SlowMA,0,MA_Mode,MA_PriceType,1); double S_pM30=iMA(NULL,30,FastMA,0,MA_Mode,MA_PriceType,1)-iMA(NULL,30,SlowMA,0,MA_Mode,MA_PriceType,1); double S_pH1=iMA(NULL,60,FastMA,0,MA_Mode,MA_PriceType,1)-iMA(NULL,60,SlowMA,0,MA_Mode,MA_PriceType,1); double S_pH4=iMA(NULL,240,FastMA,0,MA_Mode,MA_PriceType,1)-iMA(NULL,240,SlowMA,0,MA_Mode,MA_PriceType,1); double S_pD1=iMA(NULL,1440,FastMA,0,MA_Mode,MA_PriceType,1)-iMA(NULL,1440,SlowMA,0,MA_Mode,MA_PriceType,1); double avg_M1 = iMAOnArray(S_cM1, 0, BBperiode, 0, MA_Mode, 0); double avg_M5 = iMAOnArray(S_cM5, 0, BBperiode, 0, MA_Mode, 0); double avg_M15 = iMAOnArray(S_cM15, 0, BBperiode, 0, MA_Mode, 0); double avg_M30 = iMAOnArray(S_cM30, 0, BBperiode, 0, MA_Mode, 0); double avg_H1 = iMAOnArray(S_cH1, 0, BBperiode, 0, MA_Mode, 0); double avg_H4 = iMAOnArray(S_cH4, 0, BBperiode, 0, MA_Mode, 0); double avg_D1 = iMAOnArray(S_cD1, 0, BBperiode, 0, MA_Mode, 0); double sDev_M1 = iStdDevOnArray(S_cM1, 0, BBperiode, 0, MA_Mode, 0); double sDev_M5 = iStdDevOnArray(S_cM5, 0, BBperiode, 0, MA_Mode, 0); double sDev_M15 = iStdDevOnArray(S_cM15, 0, BBperiode, 0, MA_Mode, 0); double sDev_M30 = iStdDevOnArray(S_cM30, 0, BBperiode, 0, MA_Mode, 0); double sDev_H1 = iStdDevOnArray(S_cH1, 0, BBperiode, 0, MA_Mode, 0); double sDev_H4 = iStdDevOnArray(S_cH4, 0, BBperiode, 0, MA_Mode, 0); double sDev_D1 = iStdDevOnArray(S_cD1, 0, BBperiode, 0, MA_Mode, 0); string S_m1 = "", S_m5 = "", S_m15 = "", S_m30 = "", S_h1 = "", S_h4 = "", S_d1 = "", T_m1 = "", T_m5 = "", T_m15 = "", T_m30 = "", T_h1 = "", T_h4 = "", T_d1 = "", V_m1 = "", V_m5 = "", V_m15 = "", V_m30 = "", V_h1 = "", V_h4 = "", V_d1 = "", upBB_m1 = "", upBB_m5 = "", upBB_m15 = "", upBB_m30 = "", upBB_h1 = "", upBB_h4 = "", upBB_d1 = "", loBB_m1 = "", loBB_m5 = "", loBB_m15 = "", loBB_m30 = "", loBB_h1 = "", loBB_h4 = "", loBB_d1 = "", midBB_m1 = "", midBB_m5 = "", midBB_m15 = "", midBB_m30 = "", midBB_h1 = "", midBB_h4 = "", midBB_d1 = "", BS_m1 = "", BS_m5 = "", BS_m15 = "", BS_m30 = "", BS_h1 = "", BS_h4 = "", BS_d1 = ""; color Sclr_m1, Sclr_m5, Sclr_m15, Sclr_m30, Sclr_h1, Sclr_h4, Sclr_d1, Tclr_m1, Tclr_m5, Tclr_m15, Tclr_m30, Tclr_h1, Tclr_h4, Tclr_d1, BSclr_m1, BSclr_m5, BSclr_m15, BSclr_m30, BSclr_h1, BSclr_h4, BSclr_d1; V_m1 = DoubleToStr(S_cM1,Digits+1); V_m5 = DoubleToStr(S_cM5,Digits+1); V_m15 = DoubleToStr(S_cM15,Digits+1); V_m30 = DoubleToStr(S_cM30,Digits+1); V_h1 = DoubleToStr(S_cH1,Digits+1); V_h4 = DoubleToStr(S_cH4,Digits+1); V_d1 = DoubleToStr(S_cD1,Digits+1); upBB_m1 = DoubleToStr((avg_M1 + (StDv * sDev_M1)), Digits+1); // Upperband upBB_m5 = DoubleToStr((avg_M5 + (StDv * sDev_M5)), Digits+1); // Upperband upBB_m15 = DoubleToStr((avg_M15 + (StDv * sDev_M15)), Digits+1); // Upperband upBB_m30 = DoubleToStr((avg_M30 + (StDv * sDev_M30)), Digits+1); // Upperband upBB_h1 = DoubleToStr((avg_H1 + (StDv * sDev_H1)), Digits+1); // Upperband upBB_h4 = DoubleToStr((avg_H4 + (StDv * sDev_H4)), Digits+1); // Upperband upBB_d1 = DoubleToStr((avg_D1 + (StDv * sDev_D1)), Digits+1); // Upperband loBB_m1 = DoubleToStr((avg_M1 - (StDv * sDev_M1)), Digits+1); // Lowerband loBB_m5 = DoubleToStr((avg_M5 - (StDv * sDev_M5)), Digits+1); // Lowerband loBB_m15 = DoubleToStr((avg_M15 - (StDv * sDev_M15)), Digits+1); // Lowerband loBB_m30 = DoubleToStr((avg_M30 - (StDv * sDev_M30)), Digits+1); // Lowerband loBB_h1 = DoubleToStr((avg_H1 - (StDv * sDev_H1)), Digits+1); // Lowerband loBB_h4 = DoubleToStr((avg_H4 - (StDv * sDev_H4)), Digits+1); // Lowerband loBB_d1 = DoubleToStr((avg_D1 - (StDv * sDev_D1)), Digits+1); // Lowerband midBB_m1 = DoubleToStr(avg_M1, Digits+1) ; // Midleband midBB_m5 = DoubleToStr(avg_M5, Digits+1) ; // Midleband midBB_m15 = DoubleToStr(avg_M15, Digits+1) ; // Midleband midBB_m30 = DoubleToStr(avg_M30, Digits+1) ; // Midleband midBB_h1 = DoubleToStr(avg_H1, Digits+1) ; // Midleband midBB_h4 = DoubleToStr(avg_H4, Digits+1) ; // Midleband midBB_d1 = DoubleToStr(avg_D1, Digits+1) ; // Midleband if (S_cM1 < S_pM1) { S_m1 = "n"; Sclr_m1 = tDN_clr; } else if (S_cM1 > S_pM1) { S_m1 = "n"; Sclr_m1 = tUP_clr; } else { S_m1 = "n"; Sclr_m1 = tSW_clr; } if (S_cM1 < 0) { T_m1 = "n"; Tclr_m1 = DN_clr; } else if (S_cM1 > 0) { T_m1 = "n"; Tclr_m1 = UP_clr; } else { T_m1 = "n"; Tclr_m1 = SW_clr; } if (S_cM5 < S_pM5) { S_m5 = "n"; Sclr_m5 = tDN_clr; } else if (S_cM5 > S_pM5) { S_m5 = "n"; Sclr_m5 = tUP_clr; } else { S_m5 = "n"; Sclr_m5 = tSW_clr; } if (S_cM5 < 0) { T_m5 = "n"; Tclr_m5 = DN_clr; } else if (S_cM5 > 0) { T_m5 = "n"; Tclr_m5 = UP_clr; } else { T_m5 = "n"; Tclr_m5 = SW_clr; } if (S_cM15 < S_pM15) { S_m15 = "n"; Sclr_m15 = tDN_clr; } else if (S_cM15 > S_pM15) { S_m15 = "n"; Sclr_m15 = tUP_clr; } else { S_m15 = "n"; Sclr_m15 = tSW_clr; } if (S_cM15 < 0) { T_m15 = "n"; Tclr_m15 = DN_clr; } else if (S_cM15 > 0) { T_m15 = "n"; Tclr_m15 = UP_clr; } else { T_m15 = "n"; Tclr_m15 = SW_clr; } if (S_cM30 < S_pM30) { S_m30 = "n"; Sclr_m30 = tDN_clr; } else if (S_cM30 > S_pM30) { S_m30 = "n"; Sclr_m30 = tUP_clr; } else { S_m30 = "n"; Sclr_m30 = tSW_clr; } if (S_cM30 < 0) { T_m30 = "n"; Tclr_m30 = DN_clr; } else if (S_cM30 > 0) { T_m30 = "n"; Tclr_m30 = UP_clr; } else { T_m30 = "n"; Tclr_m30 = SW_clr; } if (S_cH1 < S_pH1) { S_h1 = "n"; Sclr_h1 = tDN_clr; } else if (S_cH1 > S_pH1) { S_h1 = "n"; Sclr_h1 = tUP_clr; } else { S_h1 = "n"; Sclr_h1 = tSW_clr; } if (S_cH1 < 0) { T_h1 = "n"; Tclr_h1 = DN_clr; } else if (S_cH1 > 0) { T_h1 = "n"; Tclr_h1 = UP_clr; } else { T_h1 = "n"; Tclr_h1 = SW_clr; } if (S_cH4 < S_pH4) { S_h4 = "n"; Sclr_h4 = tDN_clr; } else if (S_cH4 > S_pH4) { S_h4 = "n"; Sclr_h4 = tUP_clr; } else { S_h4 = "n"; Sclr_h4 = tSW_clr; } if (S_cH4 < 0) { T_h4 = "n"; Tclr_h4 = DN_clr; } else if (S_cH4 > 0) { T_h4 = "n"; Tclr_h4 = UP_clr; } else { T_h4 = "n"; Tclr_h4 = SW_clr; } if (S_cD1 < S_pD1) { S_d1 = "n"; Sclr_d1 = tDN_clr; } else if (S_cD1 > S_pD1) { S_d1 = "n"; Sclr_d1 = tUP_clr; } else { S_d1 = "n"; Sclr_d1 = tSW_clr; } if (S_cD1 < 0) { T_d1 = "n"; Tclr_d1 = DN_clr; } else if (S_cD1 > 0) { T_d1 = "n"; Tclr_d1 = UP_clr; } else { T_d1 = "n"; Tclr_d1 = SW_clr; } if ((S_cM1 < S_pM1)&&(V_m1 < loBB_m1)) { BS_m1 = "n"; BSclr_m1 = tDN_clr; } else if ((S_cM1 > S_pM1)&&(V_m1 > upBB_m1)) { BS_m1 = "n"; BSclr_m1 = tUP_clr; } else { BS_m1 = "n"; BSclr_m1 = tSW_clr; } if ((S_cM5 < S_pM5)&&(V_m5 < loBB_m5)) { BS_m5 = "n"; BSclr_m5 = tDN_clr; } else if ((S_cM5 > S_pM5)&&(V_m5 > upBB_m5)) { BS_m5 = "n"; BSclr_m5 = tUP_clr; } else { BS_m5 = "n"; BSclr_m5 = tSW_clr; } if ((S_cM15 < S_pM15)&&(V_m15 < loBB_m15)) { BS_m15 = "n"; BSclr_m15 = tDN_clr; } else if ((S_cM15 > S_pM15)&&(V_m15 > upBB_m15)) { BS_m15 = "n"; BSclr_m15 = tUP_clr; } else { BS_m15 = "n"; BSclr_m15 = tSW_clr; } if ((S_cM30 < S_pM30)&&(V_m30 < loBB_m30)) { BS_m30 = "n"; BSclr_m30 = tDN_clr; } else if ((S_cM30 > S_pM30)&&(V_m30 > upBB_m30)) { BS_m30 = "n"; BSclr_m30 = tUP_clr; } else { BS_m30 = "n"; BSclr_m30 = tSW_clr; } if ((S_cH1 < S_pH1)&&(V_h1 < loBB_h1)) { BS_h1 = "n"; BSclr_h1 = tDN_clr; } else if ((S_cH1 > S_pH1)&&(V_h1 > upBB_h1)) { BS_h1 = "n"; BSclr_h1 = tUP_clr; } else { BS_h1 = "n"; BSclr_h1 = tSW_clr; } if ((S_cH4 < S_pH4)&&(V_h4 < midBB_h4)) { BS_h4 = "n"; BSclr_h4 = tDN_clr; } else if ((S_cH4 > S_pH4)&&(V_h4 > midBB_h4)) { BS_h4 = "n"; BSclr_h4 = tUP_clr; } else { BS_h4 = "n"; BSclr_h4 = tSW_clr; } if ((S_cD1 < S_pD1)&&(V_d1 < midBB_d1)) { BS_d1 = "n"; BSclr_d1 = tDN_clr; } else if ((S_cD1 > S_pD1)&&(V_d1 > midBB_d1)) { BS_d1 = "n"; BSclr_d1 = tUP_clr; } else { BS_d1 = "n"; BSclr_d1 = tSW_clr; } //***************************************************************************************************** ObjectSetText("jobbaoTM1", T_m1, 7, "Webdings", Tclr_m1); ObjectSetText("jobbaoTM5", T_m5, 7, "Webdings", Tclr_m5); ObjectSetText("jobbaoTM15", T_m15, 7, "Webdings", Tclr_m15); ObjectSetText("jobbaoTM30", T_m30, 7, "Webdings", Tclr_m30); ObjectSetText("jobbaoTH1", T_h1, 7, "Webdings", Tclr_h1); ObjectSetText("jobbaoTH4", T_h4, 7, "Webdings", Tclr_h4); ObjectSetText("jobbaoTD1", T_d1, 7, "Webdings", Tclr_d1); ObjectSetText("jobbaoBSM1", BS_m1, 12, "Webdings", BSclr_m1); ObjectSetText("jobbaoBSM5", BS_m5, 12, "Webdings", BSclr_m5); ObjectSetText("jobbaoBSM15", BS_m15, 12, "Webdings", BSclr_m15); ObjectSetText("jobbaoBSM30", BS_m30, 12, "Webdings", BSclr_m30); ObjectSetText("jobbaoBSH1", BS_h1, 12, "Webdings", BSclr_h1); ObjectSetText("jobbaoBSH4", BS_h4, 12, "Webdings", BSclr_h4); ObjectSetText("jobbaoBSD1", BS_d1, 12, "Webdings", BSclr_d1); ObjectSetText("joTex1", "1", 10, "Arial Black", Sclr_m1); ObjectSetText("joTex2", "2", 10, "Arial Black", Sclr_m5); ObjectSetText("joTex3", "3", 10, "Arial Black", Sclr_m15); ObjectSetText("joTex4", "4", 10, "Arial Black", Sclr_m30); ObjectSetText("joTex5", "5", 10, "Arial Black", Sclr_h1); ObjectSetText("joTex6", "6", 10, "Arial Black", Sclr_h4); ObjectSetText("joTex7", "7", 10, "Arial Black", Sclr_d1); //***************************************************************************************************** ObjectSetText("xCandle", Teks_Menit+":"+Teks_Detik, 10, "Arial Bold", Time_clr); ObjectSetText("pric3",""+Teks+"", 18, "Impact", clr_jogetS2); ObjectSetText("joOPD1t", "OPEN", 7, "Arial Bold", Text_clr); ObjectSetText("joOPD1a", D1OPEN, 9, "Arial Bold", color_d1op); ObjectSetText("joPVD1t", "PIVOT", 7, "Arial Bold", Text_clr); ObjectSetText("joPVD1a", D1Pivot, 9, "Arial Bold", Time_clr); ObjectSetText("joP2Opent","P2Op", 7, "Arial Bold", Text_clr); ObjectSetText("joP2Opena",""+PIPS+"", 9, "Arial Bold", color_pip); ObjectSetText("joHILOt","HiLo", 7, "Arial Bold", Text_clr); ObjectSetText("joHILOa",""+HILO+"", 9, "Arial Bold", Spread_clr); ObjectSetText("joDAVt","D.Avg", 7, "Arial Bold", Text_clr); ObjectSetText("joDAVa",""+DAV+"", 9, "Arial Bold", color_av); ObjectSetText("joSpreadt","Sprd", 7, "Arial Bold", Text_clr); ObjectSetText("joSpreada",""+SPREAD+"", 9, "Arial Bold", Spread_clr); ObjectSetText("joPair", Symbol(), 12, "Impact", clr_jogetT); //***************************************************************************************************** ObjectSetText("joG07", SW01, 7, "Webdings", Midplus_clr); ObjectSetText("joG06", UP01, 7, "Webdings", UPtp1D1_clr); ObjectSetText("joG05", UP02, 7, "Webdings", UPtp2D1_clr); ObjectSetText("joG04", UP03, 7, "Webdings", UPtp3D1_clr); ObjectSetText("joG03", UP04, 7, "Webdings", UPtp4D1_clr); ObjectSetText("joG02", UP05, 7, "Webdings", UPtp5D1_clr); ObjectSetText("joG01", UP06, 7, "Webdings", UPtp6D1_clr); ObjectSetText("joG014", SW01h4, 7, "Webdings", Midplush4_clr); ObjectSetText("joG013", UP01h4, 7, "Webdings", UPtp1h4_clr); ObjectSetText("joG012", UP02h4, 7, "Webdings", UPtp2h4_clr); ObjectSetText("joG011", UP03h4, 7, "Webdings", UPtp3h4_clr); ObjectSetText("joG010", UP04h4, 7, "Webdings", UPtp4h4_clr); ObjectSetText("joG09", UP05h4, 7, "Webdings", UPtp5h4_clr); ObjectSetText("joG08", UP06h4, 7, "Webdings", UPtp6h4_clr); ObjectSetText("joG021", SW01h1, 7, "Webdings", Midplush1_clr); ObjectSetText("joG020", UP01h1, 7, "Webdings", UPtp1h1_clr); ObjectSetText("joG019", UP02h1, 7, "Webdings", UPtp2h1_clr); ObjectSetText("joG018", UP03h1, 7, "Webdings", UPtp3h1_clr); ObjectSetText("joG017", UP04h1, 7, "Webdings", UPtp4h1_clr); ObjectSetText("joG016", UP05h1, 7, "Webdings", UPtp5h1_clr); ObjectSetText("joG015", UP06h1, 7, "Webdings", UPtp6h1_clr); ObjectSetText("joG028", SW01m30, 7, "Webdings", Midplusm30_clr); ObjectSetText("joG027", UP01m30, 7, "Webdings", UPtp1m30_clr); ObjectSetText("joG026", UP02m30, 7, "Webdings", UPtp2m30_clr); ObjectSetText("joG025", UP03m30, 7, "Webdings", UPtp3m30_clr); ObjectSetText("joG024", UP04m30, 7, "Webdings", UPtp4m30_clr); ObjectSetText("joG023", UP05m30, 7, "Webdings", UPtp5m30_clr); ObjectSetText("joG022", UP06m30, 7, "Webdings", UPtp6m30_clr); ObjectSetText("joG035", SW01m15, 7, "Webdings", Midplusm15_clr); ObjectSetText("joG034", UP01m15, 7, "Webdings", UPtp1m15_clr); ObjectSetText("joG033", UP02m15, 7, "Webdings", UPtp2m15_clr); ObjectSetText("joG032", UP03m15, 7, "Webdings", UPtp3m15_clr); ObjectSetText("joG031", UP04m15, 7, "Webdings", UPtp4m15_clr); ObjectSetText("joG030", UP05m15, 7, "Webdings", UPtp5m15_clr); ObjectSetText("joG029", UP06m15, 7, "Webdings", UPtp6m15_clr); ObjectSetText("joG042", SW01m5, 7, "Webdings", Midplusm5_clr); ObjectSetText("joG041", UP01m5, 7, "Webdings", UPtp1m5_clr); ObjectSetText("joG040", UP02m5, 7, "Webdings", UPtp2m5_clr); ObjectSetText("joG039", UP03m5, 7, "Webdings", UPtp3m5_clr); ObjectSetText("joG038", UP04m5, 7, "Webdings", UPtp4m5_clr); ObjectSetText("joG037", UP05m5, 7, "Webdings", UPtp5m5_clr); ObjectSetText("joG036", UP06m5, 7, "Webdings", UPtp6m5_clr); ObjectSetText("joG049", SW01m1, 7, "Webdings", Midplusm1_clr); ObjectSetText("joG048", UP01m1, 7, "Webdings", UPtp1m1_clr); ObjectSetText("joG047", UP02m1, 7, "Webdings", UPtp2m1_clr); ObjectSetText("joG046", UP03m1, 7, "Webdings", UPtp3m1_clr); ObjectSetText("joG045", UP04m1, 7, "Webdings", UPtp4m1_clr); ObjectSetText("joG044", UP05m1, 7, "Webdings", UPtp5m1_clr); ObjectSetText("joG043", UP06m1, 7, "Webdings", UPtp6m1_clr); ObjectSetText("joTP1", TP1, 8, "Arial Bold", TP_clr); ObjectSetText("joTP2", TP2, 8, "Arial Bold", TP_clr); ObjectSetText("joTP3", TP3, 8, "Arial Bold", TP_clr); //***************************************************************************************************** //---- return(0); } //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int CreateOL( string n, int xoff, int yoff ) { ObjectCreate( n, OBJ_LABEL, window, 0, 0 ); ObjectSet( n, OBJPROP_CORNER, corner ); ObjectSet( n, OBJPROP_XDISTANCE, xoff ); ObjectSet( n, OBJPROP_YDISTANCE, yoff ); ObjectSet( n, OBJPROP_BACK, false ); } int init() { //---- IndicatorShortName("+JoGET#58+"); //---- indicators int top = 0; int left = 0; CreateOL( "joPVD1t", left+250, top+15 ); CreateOL( "joPVD1a", left+250, top+25 ); CreateOL( "joOPD1t", left+300, top+15 ); CreateOL( "joOPD1a", left+300, top+25 ); CreateOL( "joP2Opent", left+350, top+15 ); CreateOL( "joP2Opena", left+350, top+25 ); CreateOL( "joHILOt", left+380, top+15 ); CreateOL( "joHILOa", left+380, top+25 ); CreateOL( "joDAVt", left+410, top+15 ); CreateOL( "joDAVa", left+410, top+25 ); CreateOL( "joSpreadt", left+440, top+15 ); CreateOL( "joSpreada", left+440, top+25 ); CreateOL( "joPair", left+470, top+15 ); CreateOL( "joFast", left+135, top+46 ); CreateOL( "joSignal", left+83, top+46 ); CreateOL( "joTrend", left+40, top+46 ); CreateOL( "xCandle", left+170, top+32 ); CreateOL( "pric3", left+170, top+7 ); CreateOL( "joSignalM1", left+148, top+28 ); CreateOL( "joSignalM5", left+130, top+28 ); CreateOL( "joSignalM15", left+112, top+28 ); CreateOL( "joSignalM30", left+94, top+28 ); CreateOL( "joSignalH1", left+76, top+28 ); CreateOL( "joSignalH4", left+58, top+28 ); CreateOL( "joSignalD1", left+40, top+28 ); CreateOL( "jobbaoTM1", left+151, top+10 ); CreateOL( "jobbaoTM5", left+133, top+10 ); CreateOL( "jobbaoTM15", left+115, top+10 ); CreateOL( "jobbaoTM30", left+97, top+10 ); CreateOL( "jobbaoTH1", left+79, top+10 ); CreateOL( "jobbaoTH4", left+61, top+10 ); CreateOL( "jobbaoTD1", left+43, top+10 ); CreateOL( "jobbaoBSM1", left+148, top+10 ); CreateOL( "jobbaoBSM5", left+130, top+10 ); CreateOL( "jobbaoBSM15", left+112, top+10 ); CreateOL( "jobbaoBSM30", left+94, top+10 ); CreateOL( "jobbaoBSH1", left+76, top+10 ); CreateOL( "jobbaoBSH4", left+58, top+10 ); CreateOL( "jobbaoBSD1", left+40, top+10 ); CreateOL( "joTex1", left+151, top+28 ); CreateOL( "joTex2", left+133, top+28 ); CreateOL( "joTex3", left+115, top+28 ); CreateOL( "joTex4", left+97, top+28 ); CreateOL( "joTex5", left+79, top+28 ); CreateOL( "joTex6", left+61, top+28 ); CreateOL( "joTex7", left+43, top+28 ); CreateOL( "joG07", left+43, top+62 ); CreateOL( "joG06", left+43, top+67 ); CreateOL( "joG05", left+43, top+74 ); CreateOL( "joG04", left+43, top+81 ); CreateOL( "joG03", left+43, top+88 ); CreateOL( "joG02", left+43, top+95 ); CreateOL( "joG01", left+43, top+102 ); CreateOL( "joG014", left+61, top+62 ); CreateOL( "joG013", left+61, top+67 ); CreateOL( "joG012", left+61, top+74 ); CreateOL( "joG011", left+61, top+81 ); CreateOL( "joG010", left+61, top+88 ); CreateOL( "joG09", left+61, top+95 ); CreateOL( "joG08", left+61, top+102 ); CreateOL( "joG021", left+79, top+62 ); CreateOL( "joG020", left+79, top+67 ); CreateOL( "joG019", left+79, top+74 ); CreateOL( "joG018", left+79, top+81 ); CreateOL( "joG017", left+79, top+88 ); CreateOL( "joG016", left+79, top+95 ); CreateOL( "joG015", left+79, top+102 ); CreateOL( "joG028", left+97, top+62 ); CreateOL( "joG027", left+97, top+67 ); CreateOL( "joG026", left+97, top+74 ); CreateOL( "joG025", left+97, top+81 ); CreateOL( "joG024", left+97, top+88 ); CreateOL( "joG023", left+97, top+95 ); CreateOL( "joG022", left+97, top+102 ); CreateOL( "joG035", left+115, top+62 ); CreateOL( "joG034", left+115, top+67 ); CreateOL( "joG033", left+115, top+74 ); CreateOL( "joG032", left+115, top+81 ); CreateOL( "joG031", left+115, top+88 ); CreateOL( "joG030", left+115, top+95 ); CreateOL( "joG029", left+115, top+102 ); CreateOL( "joG042", left+133, top+62 ); CreateOL( "joG041", left+133, top+67 ); CreateOL( "joG040", left+133, top+74 ); CreateOL( "joG039", left+133, top+81 ); CreateOL( "joG038", left+133, top+88 ); CreateOL( "joG037", left+133, top+95 ); CreateOL( "joG036", left+133, top+102 ); CreateOL( "joG049", left+151, top+62 ); CreateOL( "joG048", left+151, top+67 ); CreateOL( "joG047", left+151, top+74 ); CreateOL( "joG046", left+151, top+81 ); CreateOL( "joG045", left+151, top+88 ); CreateOL( "joG044", left+151, top+95 ); CreateOL( "joG043", left+151, top+102 ); CreateOL( "joTP1", left+5, top+73 ); CreateOL( "joTP2", left+5, top+84 ); CreateOL( "joTP3", left+5, top+95 ); //---- return(0); } //+------------------------------------------------------------------+ //| Custom indicator deinitialization function | //+------------------------------------------------------------------+ int deinit() { //---- ObjectDelete("joFast"); ObjectDelete("joSignal"); ObjectDelete("joTrend"); ObjectDelete("joSignalM1"); ObjectDelete("joSignalM5"); ObjectDelete("joSignalM15"); ObjectDelete("joSignalM30"); ObjectDelete("joSignalH1"); ObjectDelete("joSignalH4"); ObjectDelete("joSignalD1"); ObjectDelete("jobbaoTM1"); ObjectDelete("jobbaoTM5"); ObjectDelete("jobbaoTM15"); ObjectDelete("jobbaoTM30"); ObjectDelete("jobbaoTH1"); ObjectDelete("jobbaoTH4"); ObjectDelete("jobbaoTD1"); ObjectDelete("jobbaoBSM1"); ObjectDelete("jobbaoBSM5"); ObjectDelete("jobbaoBSM15"); ObjectDelete("jobbaoBSM30"); ObjectDelete("jobbaoBSH1"); ObjectDelete("jobbaoBSH4"); ObjectDelete("jobbaoBSD1"); ObjectDelete("joTex1"); ObjectDelete("joTex2"); ObjectDelete("joTex3"); ObjectDelete("joTex4"); ObjectDelete("joTex5"); ObjectDelete("joTex6"); ObjectDelete("joTex7"); ObjectDelete("xCandle"); ObjectDelete("pric3"); ObjectDelete("joPair"); ObjectDelete("joPVD1t"); ObjectDelete("joPVD1a"); ObjectDelete("joOPD1t"); ObjectDelete("joOPD1a"); ObjectDelete("joP2Opent"); ObjectDelete("joP2Opena"); ObjectDelete("joHILOt"); ObjectDelete("joHILOa"); ObjectDelete("joDAVt"); ObjectDelete("joDAVa"); ObjectDelete("joSpreadt"); ObjectDelete("joSpreada"); ObjectDelete("joG01"); ObjectDelete("joG02"); ObjectDelete("joG03"); ObjectDelete("joG04"); ObjectDelete("joG05"); ObjectDelete("joG06"); ObjectDelete("joG07"); ObjectDelete("joG08"); ObjectDelete("joG09"); ObjectDelete("joG010"); ObjectDelete("joG011"); ObjectDelete("joG012"); ObjectDelete("joG013"); ObjectDelete("joG014"); ObjectDelete("joG015"); ObjectDelete("joG016"); ObjectDelete("joG017"); ObjectDelete("joG018"); ObjectDelete("joG019"); ObjectDelete("joG020"); ObjectDelete("joG021"); ObjectDelete("joG022"); ObjectDelete("joG023"); ObjectDelete("joG024"); ObjectDelete("joG025"); ObjectDelete("joG026"); ObjectDelete("joG027"); ObjectDelete("joG028"); ObjectDelete("joG029"); ObjectDelete("joG030"); ObjectDelete("joG031"); ObjectDelete("joG032"); ObjectDelete("joG033"); ObjectDelete("joG034"); ObjectDelete("joG035"); ObjectDelete("joG036"); ObjectDelete("joG037"); ObjectDelete("joG038"); ObjectDelete("joG039"); ObjectDelete("joG040"); ObjectDelete("joG041"); ObjectDelete("joG042"); ObjectDelete("joG043"); ObjectDelete("joG044"); ObjectDelete("joG045"); ObjectDelete("joG046"); ObjectDelete("joG047"); ObjectDelete("joG048"); ObjectDelete("joG049"); ObjectDelete("joG050"); ObjectDelete("joG051"); ObjectDelete("joG052"); ObjectDelete("joG053"); ObjectDelete("joG054"); ObjectDelete("joG055"); ObjectDelete("joG056"); ObjectDelete("joTP1"); ObjectDelete("joTP2"); ObjectDelete("joTP3"); //---- return(0); } //+------------------------------------------------------------------+