StepUpDown

//+------------------------------------------------------------------+
//|                                                   StepUpDown.mq5 |
//|                           Copyright 2017, Roberto Jacobs (3rjfx) |
//|                              https://www.mql5.com/en/users/3rjfx |
//+------------------------------------------------------------------+
#property copyright "Copyright 2017, Roberto Jacobs (3rjfx) ~ By 3rjfx ~ Created: 11/01/2017"
#property link      "https://www.mql5.com/en/users/3rjfx"
#property version   "1.00"
#property strict
#property indicator_chart_window
//--
#property description "Price Direction movement Step Up and Down Forex Indicator for MetaTrader 5."
//--
#property indicator_buffers 2
#property indicator_plots   2
#property indicator_style1 DRAW_NONE
#property indicator_style2 DRAW_NONE
//-- Global scope
input bool     MsgSignalAlerts = true;          // PopUp Message Alert
input bool   SoundAlertsSignal = true;          // Sound Alert 
input bool   eMailSignalAlerts = false;         // Send Email Alert
input string    FileSoundAlert = "alert.wav";   // Sound Alert file name
input color           UpsColor = clrAqua;       // UP Color
input color           DnsColor = clrOrangeRed;  // Down Color
//---
//-- indicator buffers
double naik[],
       turun[];
//--
int barcount=77,
    wavecount=13,
    periodturn=3,
    slowperiod=36;
//--
int limit;
int mina,minx;
int posH,posL;
int curAlert,prvAlert;
//--
//--
long Chart_Id;
bool ups,dns;
//--
string name_arr_ups,
       name_arr_dns,
       name_dir_ups,
       name_dir_dwn;
//--
string ind_name;
string Sibase,SiSubj,SiMsg;
//---
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int OnInit(void)
  {
   //--
   SetIndexBuffer(0,naik,INDICATOR_DATA);
   SetIndexBuffer(1,turun,INDICATOR_DATA);
   PlotIndexSetString(0,PLOT_LABEL,"Up");
   PlotIndexSetString(1,PLOT_LABEL,"Down");
   PlotIndexSetInteger(0,PLOT_SHOW_DATA,true);
   PlotIndexSetInteger(0,PLOT_SHOW_DATA,true);
   PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,0.0);
   PlotIndexSetDouble(1,PLOT_EMPTY_VALUE,0.0);
//----
   Chart_Id=ChartID();
   ind_name="StepUpDown";
   IndicatorSetString(INDICATOR_SHORTNAME,ind_name);
   IndicatorSetInteger(INDICATOR_DIGITS,_Digits);
   //--
//--- initialization done
   return(INIT_SUCCEEDED);
  }  
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//----
    ObjectDelete(ChartID(),name_arr_dns);
    ObjectDelete(ChartID(),name_arr_ups);
    ObjectDelete(ChartID(),name_dir_dwn);
    ObjectDelete(ChartID(),name_dir_ups);
    GlobalVariablesDeleteAll();
    //--
//----
   return;
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
//---
int OnCalculate (const int rates_total,
                 const int prev_calculated,
                 const datetime& time[],
                 const double& open[],
                 const double& high[],
                 const double& low[],
                 const double& close[],
                 const long& tick_volume[],
                 const long& volume[],
                 const int& spread[])
    {
//------
     ResetLastError();
     int i,j;
     int mlhi=0,mllo=0,wbar=wavecount;
     if(rates_total<barcount) return(0);
     if(prev_calculated==0) limit=barcount;
     if(prev_calculated>0) limit++;
     //--
     ArraySetAsSeries(high,true);
     ArraySetAsSeries(low,true);
     ArraySetAsSeries(time,true);
     //--
     ups=false;
     dns=false;
     //--
     double divma0=0;
     double divma1=0;
     double mahi=iMA(_Symbol,PERIOD_CURRENT,periodturn,0,MODE_EMA,PRICE_TYPICAL,1);
     double malo=iMA(_Symbol,PERIOD_CURRENT,periodturn,0,MODE_EMA,PRICE_TYPICAL,1);
     //--
     for(i=wbar-1; i>=0; i--)
       {
         if(iMA(_Symbol,PERIOD_CURRENT,periodturn,0,MODE_EMA,PRICE_TYPICAL,i)>mahi) 
           {mahi=iMA(_Symbol,PERIOD_CURRENT,periodturn,0,MODE_EMA,PRICE_TYPICAL,i); mlhi=i;}
         if(iMA(_Symbol,PERIOD_CURRENT,periodturn,0,MODE_EMA,PRICE_TYPICAL,i)<malo) 
           {malo=iMA(_Symbol,PERIOD_CURRENT,periodturn,0,MODE_EMA,PRICE_TYPICAL,i); mllo=i;}
         divma0=iMA(_Symbol,PERIOD_CURRENT,periodturn,0,MODE_EMA,PRICE_TYPICAL,i)-iMA(_Symbol,PERIOD_CURRENT,slowperiod,0,MODE_SMMA,PRICE_TYPICAL,i);
         divma1=iMA(_Symbol,PERIOD_CURRENT,periodturn,0,MODE_EMA,PRICE_TYPICAL,i+1)-iMA(_Symbol,PERIOD_CURRENT,slowperiod,0,MODE_SMMA,PRICE_TYPICAL,i+1);
       }
    //----
    //--
    for(j=limit-1; j>=0; j--)
      {
       //--
       if((mlhi>mllo)&&(iMA(_Symbol,PERIOD_CURRENT,periodturn,0,MODE_EMA,PRICE_TYPICAL,j)>malo))
          {ups=true; dns=false;}
       if((mlhi>mllo)&&(divma0<divma1))
          {dns=true; ups=false;}
       if((mlhi<mllo)&&(iMA(_Symbol,PERIOD_CURRENT,periodturn,0,MODE_EMA,PRICE_TYPICAL,j)>mahi))
          {dns=true; ups=false;}
       if((mlhi<mllo)&&(divma0>divma1))
          {ups=true; dns=false;}
       //---
       //--
       if(j==0)
         {
          //---
          posH=iHighest(_Symbol,PERIOD_CURRENT,wavecount,j);
          posL=iLowest(_Symbol,PERIOD_CURRENT,wavecount,j);
          //--
          if(ups==true) // direction up (naik)
            {
              //--
              name_arr_ups          = "uparrow";
              name_dir_ups          = "updirec";
              double pos_price      = low[posL];
              datetime pos_dir_time = time[posL];
              naik[j]=low[posL];
              turun[j]=EMPTY_VALUE;
              ObjectDelete(Chart_Id,name_arr_dns);
              ObjectDelete(Chart_Id,name_dir_dwn);
              //--
              CreateDirection(Chart_Id,name_dir_ups,"  UP ","Bodoni MT Black",9,UpsColor,pos_dir_time,pos_price-5*_Point,ANCHOR_LEFT_UPPER);
              CreateDirection(Chart_Id,name_arr_ups,CharToString(217),"Wingdings",15,UpsColor,pos_dir_time,pos_price-5*_Point,ANCHOR_RIGHT_UPPER);
              //--
              curAlert=0;
              SendAlerts(curAlert,naik[j]);
              //--
            }
          //---
          if(dns==true) // direction down (turun)
            {
              //--
              name_arr_dns          = "dnarrow";
              name_dir_dwn          = "dndirec";
              double pos_price      = high[posH];
              datetime pos_dir_time = time[posH];
              turun[j]=high[posH];
              naik[j]=EMPTY_VALUE;
              ObjectDelete(Chart_Id,name_arr_ups);
              ObjectDelete(Chart_Id,name_dir_ups);
              //--
              CreateDirection(Chart_Id,name_dir_dwn,"  DOWN","Bodoni MT Black",9,DnsColor,pos_dir_time,pos_price+5*_Point,ANCHOR_LEFT_LOWER);
              CreateDirection(Chart_Id,name_arr_dns,CharToString(218),"Wingdings",15,DnsColor,pos_dir_time,pos_price+5*_Point,ANCHOR_RIGHT_LOWER);
              //--
              curAlert=1;
              SendAlerts(curAlert,turun[j]);
              //--
            }
         //--- end if(j)
         }
      //---
     }
   //--
   ChartRedraw(0);
   Sleep(500);
   //--- end for(j)
   //----      
//----- done
   return(rates_total);
  }
//---------//

void CreateDirection(long     chart_id,
                     string   obj_name, 
                     string   obj_text,
                     string   font_model,
                     int      font_size,
                     color    obj_color,
                     datetime text_time,
                     double   text_pos,
                     int      anchor)
  {
    //--
    if(ObjectFind(chart_id,obj_name)>0) ObjectDelete(chart_id,obj_name);
    //--
    ObjectCreate(chart_id,obj_name,OBJ_TEXT,0,text_time,text_pos);
    ObjectSetString(chart_id,obj_name,OBJPROP_FONT,font_model);
    ObjectSetInteger(chart_id,obj_name,OBJPROP_FONTSIZE,font_size);
    ObjectSetInteger(chart_id,obj_name,OBJPROP_COLOR,obj_color);
    ObjectSetString(chart_id,obj_name,OBJPROP_TEXT,obj_text);
    ObjectSetInteger(chart_id,obj_name,OBJPROP_ANCHOR,anchor);
    ChartRedraw();
    //--
  }
//---------//

double iMA(string symbol,
           ENUM_TIMEFRAMES tf,
           int period,
           int ma_shift,
           ENUM_MA_METHOD method,
           ENUM_APPLIED_PRICE mprice,
           int shift)
  {
    int handle=iMA(symbol,tf,period,ma_shift,method,mprice);
    double buf[];
    //--
    if(handle<0)
      {
        Print("The iMA object is not created: Error",GetLastError());
        return(-1);
      }
    else
      {
        CopyBuffer(handle,0,shift,1,buf);
      }
    return(buf[0]);
//----
  } //-end iMA()
//---------//

int iHighest(string symbol,
             ENUM_TIMEFRAMES tf,
             int countbar,
             int startpos)
  {
    //--
    int index=startpos;
    if(startpos<0) return(-1);
    if(countbar<=0) countbar=Bars(symbol,tf);
    double high[];
    ArraySetAsSeries(high,true);
    CopyHigh(symbol,tf,startpos,countbar,high);
    index=ArrayMaximum(high,startpos,countbar-startpos+1); // maximum in High 
    //--
    return(index);
  }
//---------//

int iLowest(string symbol,
            ENUM_TIMEFRAMES tf,
            int countbar,
            int startpos)
  {
    //--
    int index=startpos;
    if(startpos<0) return(-1);
    if(countbar<=0) countbar=Bars(symbol,tf);
    double low[];
    ArraySetAsSeries(low,true);
    CopyLow(symbol,tf,startpos,countbar,low);
    index=ArrayMinimum(low,startpos,countbar-startpos+1); // minimum in Low
    //--
    return(index);
  }
//---------//

enum TimeReturn
  {
    year        = 0,   // Year 
    mon         = 1,   // Month 
    day         = 2,   // Day 
    hour        = 3,   // Hour 
    min         = 4,   // Minutes 
    sec         = 5,   // Seconds 
    day_of_week = 6,   // Day of week (0-Sunday, 1-Monday, ... ,6-Saturday) 
    day_of_year = 7    // Day number of the year (January 1st is assigned the number value of zero) 
  };
//---------//

int MqlReturnDateTime(datetime reqtime,
                      const int mode) 
  {
    MqlDateTime mqltm;
    TimeToStruct(reqtime,mqltm);
    int valdate=0;
    //--
    switch(mode)
      {
        case 0: valdate=mqltm.year; break;        // Return Year 
        case 1: valdate=mqltm.mon;  break;        // Return Month 
        case 2: valdate=mqltm.day;  break;        // Return Day 
        case 3: valdate=mqltm.hour; break;        // Return Hour 
        case 4: valdate=mqltm.min;  break;        // Return Minutes 
        case 5: valdate=mqltm.sec;  break;        // Return Seconds 
        case 6: valdate=mqltm.day_of_week; break; // Return Day of week (0-Sunday, 1-Monday, ... ,6-Saturday) 
        case 7: valdate=mqltm.day_of_year; break; // Return Day number of the year (January 1st is assigned the number value of zero) 
      }
    return(valdate);
  }
//---------//

void DoSignalAlerts(string msgSignalText,string eMailSignalSub)
  {
     if (MsgSignalAlerts) Alert(msgSignalText);
     if (SoundAlertsSignal) PlaySound(FileSoundAlert);
     if (eMailSignalAlerts) SendMail(eMailSignalSub,msgSignalText);
  }
//---------//

string strTF(int period)
  {
   switch(period)
     {
       //--
       case PERIOD_M1: return("M1");
       case PERIOD_M5: return("M5");
       case PERIOD_M15: return("M15");
       case PERIOD_M30: return("M30");
       case PERIOD_H1: return("H1");
       case PERIOD_H4: return("H4");
       case PERIOD_D1: return("D1");
       case PERIOD_W1: return("W1");
       case PERIOD_MN1: return("MN");
       default: return("Unknown");
       //--
     }
  }  
//---------//

void SendAlerts(int alerts,double position)
   {
    //---
    mina=MqlReturnDateTime(TimeCurrent(),TimeReturn(min));
    if(mina!=minx)
      {
        if((alerts!=prvAlert)&&(alerts==0))
          {
            Sibase=ind_name+" "+_Symbol+", TF: "+strTF(_Period);
            SiSubj=Sibase+" Step to Up Above: "+DoubleToString(position,_Digits);
            SiMsg=SiSubj+" @ "+TimeToString(TimeCurrent(),TIME_SECONDS);
            DoSignalAlerts(SiMsg,SiSubj);
            prvAlert=alerts;
            minx=mina;
          }
     //---
        if((alerts!=prvAlert)&&(alerts==1))
          {    
            Sibase=ind_name+" "+_Symbol+", TF: "+strTF(_Period);
            SiSubj=Sibase+" Step to Down Below: "+DoubleToString(position,_Digits);
            SiMsg=SiSubj+" @ "+TimeToString(TimeCurrent(),TIME_SECONDS);
            DoSignalAlerts(SiMsg,SiSubj);
            prvAlert=alerts;
            minx=mina;
          }
       }
    //---
    return;
   //----
   } //-end SendAlerts()
//---------//
//+------------------------------------------------------------------+