//+------------------------------------------------------------------+ //| valasholic13 v2.5.mq4 | //| Copyright © 2006, CT-Valas Software Corp. | //| valasholic@yahoo.com | //+------------------------------------------------------------------+ #property copyright "Copyright © 2006, CT-Valas Software Corp." #property link "valasholic@yahoo.com" #property indicator_chart_window //#property indicator_separate_window #property indicator_buffers 7 #property indicator_color1 Snow #property indicator_width1 0 #property indicator_color2 Red #property indicator_width2 5 #property indicator_color3 Blue #property indicator_width3 5 #property indicator_color4 Pink #property indicator_width4 5 #property indicator_color5 LightBlue #property indicator_width5 5 #property indicator_color6 Lime #property indicator_width6 5 #property indicator_color7 Lime #property indicator_width7 5 //---- input parameters //---- buffers double PBuffer[]; double J1Buffer[]; double B1Buffer[]; double J2Buffer[]; double B2Buffer[]; double J3Buffer[]; double B3Buffer[]; string Pivot = "Pivot Point", Jual1 = "S 1", Beli1 = "R 1"; string Jual2="S 2", Beli2="R 2", Jual3="S 3", Beli3="R 3"; int fontsize = 10; double P, J1, B1, J2, B2, J3, B3; double LastHigh, LastLow, x; double D4=0.55; //+------------------------------------------------------------------+ //| Custor indicator deinitialization function | //+------------------------------------------------------------------+ int deinit() { // ObjectDelete("Pivot"); ObjectDelete("Jual1"); ObjectDelete("Beli1"); ObjectDelete("Jual2"); ObjectDelete("Beli2"); ObjectDelete("Jual3"); ObjectDelete("Beli3"); //---- return(0); } //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int init() { //---- indicator line SetIndexStyle(0, DRAW_NONE); SetIndexStyle(1, DRAW_LINE); SetIndexStyle(2, DRAW_LINE); SetIndexStyle(3, DRAW_LINE); SetIndexStyle(4, DRAW_LINE); SetIndexStyle(5, DRAW_LINE); SetIndexStyle(6, DRAW_LINE); SetIndexBuffer(0, PBuffer); SetIndexBuffer(1, J1Buffer); SetIndexBuffer(2, B1Buffer); SetIndexBuffer(3, J2Buffer); SetIndexBuffer(4, B2Buffer); SetIndexBuffer(5, J3Buffer); SetIndexBuffer(6, B3Buffer); //---- name for DataWindow and indicator subwindow label //IndicatorShortName("Pivot Point"); //SetIndexLabel(0, "Pivot Point"); //---- SetIndexDrawBegin(0,1); IndicatorDigits(MarketInfo(Symbol(),MODE_DIGITS)); //---- return(0); } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ int start() { int counted_bars = IndicatorCounted(); int limit, i; Print(DoubleToStr(Close[i], Digits)); Print(DoubleToStr(Close[0], Digits)); Print(DoubleToStr(Close[0], Digits)); //---- indicator calculation if(counted_bars == 0) { x = Period(); if(x > 240) return(-1); /////////// MEMBUAT TULISAN PADA GARIS JUAL / BELI \\\\\\\\\\\\\ //ObjectCreate("Pivot", OBJ_TEXT, 0, 0, 0); //ObjectSetText("Pivot", " PIVOT", fontsize, "Arial", Black); ObjectCreate("Jual1", OBJ_TEXT, 0, 0, 0); ObjectSetText("Jual1", " SELL AREA", fontsize, "Arial", Green); ObjectCreate("Beli1", OBJ_TEXT, 0, 0, 0); ObjectSetText("Beli1", " BUY AREA", fontsize, "Arial", Green); ObjectCreate("Jual2", OBJ_TEXT, 0, 0, 0); ObjectSetText("Jual2", " BREAK LOW", fontsize, "Arial", Green); ObjectCreate("Beli2", OBJ_TEXT, 0, 0, 0); ObjectSetText("Beli2", " BREAK HIGH", fontsize, "Arial", Green); ObjectCreate("Jual3", OBJ_TEXT, 0, 0, 0); ObjectSetText("Jual3", " TARGET", fontsize, "Arial", Green); ObjectCreate("Beli3", OBJ_TEXT, 0, 0, 0); ObjectSetText("Beli3", " TARGET", fontsize, "Arial", Green); } if(counted_bars < 0) return(-1); //---- last counted bar will be recounted // if(counted_bars>0) counted_bars--; limit = (Bars - counted_bars) - 1; //---- for(i = limit; i >= 0; i--) { if(High[i+1] > LastHigh) LastHigh = High[i+1]; //---- if(Low[i+1] < LastLow) LastLow=Low[i+1]; if(TimeDay(Time[i]) != TimeDay(Time[i+1])) { Print(DoubleToStr(Close[i], Digits)); Print(DoubleToStr(High[0], Digits)); Print(DoubleToStr(Low[0], Digits)); //////////// RUMUS UNTUK MENENTUKAN BREAK \\\\\\\\\\\\\\\\\\\\\ P = (LastHigh + LastLow + Close[i+1]) / 3; // RUMUS UTK MENENTUKAN PIVOT B1 = P + 20*Point; // PENENTUAN MASUK BUY AREA (BOLEH DIGANTI SESUAI ANALISA ANDA) J1 = P - 20*Point; // PENENTUAN MASUK SELL AREA (BOLEH DIGANTI SESUAI ANALISA ANDA) B2 = P + 40*Point; // PENENTUAN NILAI BREAK HIGH (BOLEH DIGANTI SESUAI ANALISA ANDA) J2 = P - 40*Point; // PENENTUAN NIAI BREAK LOW (BOLEH DIGANTI SESUAI ANALISA ANDA) B3 = P + 55*Point; // GARIS TARGET HIGH (BOLEH DIGANTI SESUAI ANALISA ANDA) J3 = P - 55*Point; // GARIS TARGET LOW (BOLEH DIGANTI SESUAI ANALISA ANDA) //Re2 = P + (LastHigh - LastLow); //ini adalah rumus dari Resistance 2 //Su2 = P - (LastHigh - LastLow); // ini adalah rumus dari Support 2 //Re3 = (2*P) + (LastHigh - (2*LastLow)); // ini adalah rumus dari resistance 3 //Su3 = (2*P) - ((2* LastHigh) - LastLow); //ni adalah rumus dari Support 3 LastLow = Open[i]; LastHigh = Open[i]; //---- //ObjectMove("Pivot", 0, Time[i], P); ObjectMove("Jual1", 0, Time[i], J1); ObjectMove("Beli1", 0, Time[i], B1); ObjectMove("Jual2", 0, Time[i], J2); ObjectMove("Beli2", 0, Time[i], B2); ObjectMove("Jual3", 0, Time[i], J3); ObjectMove("Beli3", 0, Time[i], B3); } PBuffer[i] = P; J1Buffer[i] = J1; B1Buffer[i] = B1; J2Buffer[i] = J2; B2Buffer[i] = B2; J3Buffer[i] = J3; B3Buffer[i] = B3; Comment ("\n VALASHOLIC13 v2.5 ( BREAKOUT STRATEGY ) \n Registered to: Latihan Bikin \n" +"\n Copyright © 2006,CT-Valas Software Corp.\n contact support:valasholic@yahoo.com" +"\n \n -------------------------------------------------------------------" +"\n :::::::::::: SAAT DIANTARA 2 BREAK ::::::::::::" +"\n -------------------------------------------------------------------" +"\n BUY AREA (break) :" +"\n # BUY STOP1 "+Symbol()+" pada "+(DoubleToStr (B1Buffer[i],Digits)) +"\n dengan TP "+(DoubleToStr (B2Buffer[i],Digits))+" dan SL pada "+(DoubleToStr(J1Buffer[i],Digits)) +"\n # BUY STOP2 "+Symbol()+" pada "+(DoubleToStr(B2Buffer[i],Digits)) +"\n dengan TP "+(DoubleToStr ((B2Buffer[i]+(10*Point)),Digits))+" dan SL pada "+(DoubleToStr (B1Buffer[i],Digits)) +"\n \n SELL AREA (break) :" +"\n # SELL STOP "+Symbol()+" pada "+(DoubleToStr (J1Buffer[i],Digits)) +"\n dengan TP "+(DoubleToStr (J2Buffer[i],Digits))+" dan SL pada "+(DoubleToStr (B1Buffer[i],Digits)) +"\n # SELL STOP "+Symbol()+" pada "+(DoubleToStr (J2Buffer[i],Digits)) +"\n dengan TP "+(DoubleToStr ((J2Buffer[i]-(10*Point)),Digits))+" dan SL pada "+(DoubleToStr(J1Buffer[i],Digits)) +"\n \n -------------------------------------------------------------------" +"\n :::::::::::: SAAT MELEWATI KOREKSI ::::::::::::" +"\n -------------------------------------------------------------------" +"\n KOREKSI BAWAH :" +"\n # BUY STOP "+Symbol()+" pada "+(DoubleToStr(J2Buffer[i],Digits)) +"\n dengan TP "+(DoubleToStr(B1Buffer[i],Digits))+" dan SL pada "+(DoubleToStr(J3Buffer[i],Digits)) +"\n \n KOREKSI ATAS :" +"\n # SELL STOP "+Symbol()+" pada "+(DoubleToStr(B2Buffer[i],Digits)) +"\n dengan TP "+(DoubleToStr(J1Buffer[i],Digits))+" dan SL pada "+(DoubleToStr(B3Buffer[i],Digits)) +"\n -------------------------------------------------------------------" +"\n \n -------------------------------------------------------------------" +"\n :::::: SUPPORT & RESISTANCE HARI INI :::::" +"\n -------------------------------------------------------------------"); //Bagaimana caranya menampilkan nilai Support dan Resistance? //Kita tunggu TIPs berikutnya } //---- return(0); } //+------------------------------------------------------------------+