valasholic13 BreakOutch_v3

//+------------------------------------------------------------------+
//|                                            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);
  }
//+------------------------------------------------------------------+