Alert indicator I converted MQL4 to MQL5 doesn't work at all.

To add comments, please log in or register
yogureee
88
yogureee  

Hello.

This MQL4 alert indicator gives alerts everytime the price touches the horizontal lines or trendlines you drew.

I converted it to MQL5, and it doesn't work at all.

Can anyone help me with this problem, please?    Thank you in advance.

//MQL4

#define PriceMAX 999999
#property indicator_chart_window

extern bool AlertMode = true;
extern bool SoundMode = true;
extern int SoundInterval = 30;
extern bool Check_HorizontalLine = true;
extern bool Check_TrendLine = true;

int start()
{
   int obj_total = ObjectsTotal();
   string name;
   for (int i = 0; i < obj_total; i++)
   {
      name = ObjectName(i);
      if (ObjectType(name) != OBJ_HLINE &&
          ObjectType(name) != OBJ_TREND)
         continue;
      if (!Check_HorizontalLine &&
           ObjectType(name) == OBJ_HLINE)
         continue;
      if (!Check_TrendLine &&
           ObjectType(name) == OBJ_TREND)
         continue;

      double _price, _price1;
      if (ObjectType(name) == OBJ_HLINE)
      {
         _price = ObjectGet(name, OBJPROP_PRICE1);
         _price1 = _price;
      }
      if (ObjectType(name) == OBJ_TREND)
      {
         _price = ObjectGetValueByShift(name, 0);
         _price1 = ObjectGetValueByShift(name, 1);
      }
    
      //Print(i, "Object name for object #", i, " is"
      //       + name, " ", _price, " C = ", Close[0],
      //                            " O = ", Open[0]);
      
      if ((_price > Open[0] || _price1 > Close[1]) &&
           Close[0] >= _price)
         MyAlert(name, "up", _price);
      if ((_price < Open[0] || _price1 < Close[1]) &&
           Close[0] <= _price)
         MyAlert(name, "down", _price);
      }
      return(0);
   }

   void MyAlert(string name, string dir, double _price){
      static double LastUpPrice = 0;
      static double LastDownPrice = PriceMAX;
      static datetime LastAlertTime = 0;

      if (LastAlertTime != Time[0])
      {
         LastUpPrice = 0;
         LastDownPrice = PriceMAX;
      }

      if (dir == "up" && _price > LastUpPrice)
      {
         LastUpPrice = _price;
         LastAlertTime = Time[0];
         if (AlertMode)
           Alert(Symbol()+Period()+" UP @"
                 +DoubleToStr(Close[0], Digits)+" over "
                 +DoubleToStr(_price, Digits)+" ["+name+"]");
          
      }
      else if (dir == "down" && _price < LastDownPrice)
      {
         LastDownPrice = _price;
         LastAlertTime = Time[0];
         if (AlertMode)
                Alert(Symbol()+Period()+" DOWN @"
                +DoubleToStr(Close[0], Digits)+" under "
                +DoubleToStr(_price, Digits)+" ["+name+"]");
           
      }

      if (SoundMode)
      {
         static datetime LastSoundTime = 0;
         if (TimeLocal() < LastSoundTime+SoundInterval)
           return;

         LastSoundTime = TimeLocal();
         if (dir == "up")
         {
            //PlaySound("expert");
            PlaySound(StringSubstr(Symbol(), 0, 6)+".wav");
                       //EURUSD.wav, AUDJPY.wav...
         }
         else if (dir == "down")
         {
            //PlaySound("expert");
            PlaySound(StringSubstr(Symbol(), 0, 6)+".wav");
         }
     }
}
//MQL5 , This doesn't work.

#define PriceMAX 999999
#property indicator_chart_window

input bool AlertMode = true;
input bool SoundMode = true;
input int  SoundInterval = 30;
input bool Check_HorizontalLine = true;
input bool Check_TrendLine = true;

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[])
  {

   int obj_total = ObjectsTotal(0, 0, -1);  
   string name;
   
   for (int i = 0; i < obj_total; i++)
   {
      name = ObjectName(0, i, 0, -1);
      
      if(ObjectGetInteger(0, name, OBJPROP_TYPE) != OBJ_HLINE &&
         ObjectGetInteger(0, name, OBJPROP_TYPE) != OBJ_TREND)
        continue;
              
      if (!Check_HorizontalLine &&
           ObjectGetInteger(0, name, OBJPROP_TYPE) == OBJ_HLINE)
         continue;
         
      if (!Check_TrendLine &&
           ObjectGetInteger(0, name, OBJPROP_TYPE) == OBJ_TREND)
         continue;

      double _price, _price1;
      
      double Close[];
      ArraySetAsSeries(Close, true);
      CopyClose(_Symbol, PERIOD_CURRENT, TimeCurrent(), 2, Close);  
         
      datetime Close_time[];
      ArraySetAsSeries(Close_time, true);
      CopyTime(_Symbol, PERIOD_CURRENT, TimeCurrent(), 2, Close_time);

      double Open[];
      ArraySetAsSeries(Open, true);
      CopyOpen(_Symbol, PERIOD_CURRENT, TimeCurrent(), 2, Open);
      
      if (ObjectGetInteger(0, name, OBJPROP_TYPE) == OBJ_HLINE)
      {
         _price = ObjectGetDouble(0, name, OBJPROP_PRICE);  
         _price1 = _price;
      }
 
      if (ObjectGetInteger(0, name, OBJPROP_TYPE) == OBJ_TREND)
      {
         _price  = ObjectGetValueByTime(0, name, Close_time[0]);   
         _price1 = ObjectGetValueByTime(0, name, Close_time[1]);   
      }
      
      if ((_price > Open[0] || _price1 > Close[1]) &&
           Close[0] >= _price);
         MyAlert(name, "up", _price);
         
      if ((_price < Open[0] || _price1 < Close[1]) &&
           Close[0] <= _price);
         MyAlert(name, "down", _price);
   }
   return(rates_total);
}


void MyAlert(string name, string dir, double _price){
    static double LastUpPrice = 0;
    static double LastDownPrice = PriceMAX;
    static datetime LastAlertTime = 0;
    
    datetime Time[];
    ArraySetAsSeries(Time, true);
    CopyTime(_Symbol, PERIOD_CURRENT, TimeCurrent(), 2, Time); 
    
    double Close[];
    ArraySetAsSeries(Close, true);
    CopyClose(_Symbol, PERIOD_CURRENT, TimeCurrent(), 2, Close);  
         
    if (LastAlertTime != Time[0])
    {
       LastUpPrice = 0;
       LastDownPrice = PriceMAX;
    }

    if (dir == "up" && _price > LastUpPrice)
    {
       LastUpPrice = _price;
       LastAlertTime = Time[0];

       if (AlertMode)
           Alert(_Symbol+_Period+" UP @"
                 +DoubleToString(Close[0], _Digits)+" over "
                +DoubleToString(_price, _Digits)+" ["+name+"]");
    }

    else if (dir == "down" && _price < LastDownPrice)
    {
       LastDownPrice = _price;
       LastAlertTime = Time[0];
       if (AlertMode)
           Alert(_Symbol+_Period+" DOWN @"
                +DoubleToString(Close[0], _Digits)+" under "
                 +DoubleToString(_price, _Digits)+" ["+name+"]");
    }

    if (SoundMode)
    {
       static datetime LastSoundTime = 0;
       if (TimeLocal() < LastSoundTime+SoundInterval)
           return;

       LastSoundTime = TimeLocal();
       if (dir == "up")
       {
          //PlaySound("expert");
          PlaySound(StringSubstr(_Symbol, 0, 6)+".wav");
                       //EURUSD.wav, AUDJPY.wav...
       }

       else if (dir == "down")
       {
          //PlaySound("expert");
          PlaySound(StringSubstr(_Symbol, 0, 6)+".wav");
       }
   }
}
whroeder1
17945
whroeder1  
  1. yogureee: it doesn't work at all.
    "Doesn't work" is meaningless - just like saying the car doesn't work. Doesn't start, won't go in gear, no electrical, missing the key, flat tires - meaningless. We can't see your broken code. There are no mind readers here and our crystal balls are cracked.

  2.       double Close[];
          ArraySetAsSeries(Close, true);
          CopyClose(_Symbol, PERIOD_CURRENT, TimeCurrent(), 2, Close);  
             
          datetime Close_time[];
          ArraySetAsSeries(Close_time, true);
          CopyTime(_Symbol, PERIOD_CURRENT, TimeCurrent(), 2, Close_time);
    
          double Open[];
          ArraySetAsSeries(Open, true);
          CopyOpen(_Symbol, PERIOD_CURRENT, TimeCurrent(), 2, Open);
    Why are you doing this when you already have arrays open[], close[], and time[]?

  3. Use the debugger or print out your variables, including and find out why.
Marco vd Heijden
Moderator
8151
Marco vd Heijden  
If you use the latest build you should be able to use the same MQL4 code thanks to the newly added functions.
yogureee
88
yogureee  
whroeder1:
  1. "Doesn't work" is meaningless - just like saying the car doesn't work. Doesn't start, won't go in gear, no electrical, missing the key, flat tires - meaningless. We can't see your broken code. There are no mind readers here and our crystal balls are cracked.

  2. Why are you doing this when you already have arrays open[], close[], and time[]?

  3. Use the debugger or print out your variables, including and find out why.

Thank you for taking time reading my wrong code and for your advice.

I will post here again when I find out the problems and how I should code it.

For now, it is difficult to see whether the code is redundant or not.

I use " Print ("A = ", A); " for both MT4 and MT5, and it is very helpful to see how the code works.

I will try Debug.

yogureee
88
yogureee  
Marco vd Heijden:
If you use the latest build you should be able to use the same MQL4 code thanks to the newly added functions.

Thank you for the information.

I use the latest build,  Version: 5.00  build 1816.

I'm afraid I can't find the newly added functions that enable MQL4 code be available in the MT5 MetaEditor.

How can I find them or articles about it?

Anthony Garot
1817
Anthony Garot  
yogureee:

Thank you for the information.

I use the latest build,  Version: 5.00  build 1816.

I'm afraid I can't find the newly added functions that enable MQL4 code be available in the MT5 MetaEditor.

How can I find them or articles about it?

By "latest build" I think he meant 1845, which is in Beta. See the release statement:

https://www.mql5.com/en/forum/254082

Search for "MQL5: New functions: iTime, iOpen, iHigh, iLow, iClose, iVolume, iBars, iBarShift, iLowest, iHighest, iRealVolume, iTickVolume, iSpread."
yogureee
88
yogureee  
Anthony Garot:

By "latest build" I think he meant 1845, which is in Beta. See the release statement:

https://www.mql5.com/en/forum/254082

Search for "MQL5: New functions: iTime, iOpen, iHigh, iLow, iClose, iVolume, iBars, iBarShift, iLowest, iHighest, iRealVolume, iTickVolume, iSpread."

Thank you again for your information.  

I will install the latest build on this weekend, and restart my converting when the stable version is released.

I'm looking forward to other new features too.

yogureee
88
yogureee  

We already have  ".......const double &close[]........ "  as formal parameters of  "int OnCalculate()" ,

so I don't need  "double Close[]......." anymore.   These are redundant.

I should use "close", and wrote like this:

ArraySetAsSeries(close, true);

CopyClose(_Symbol, PERIOD_CURRENT, TimeCurrent(), 2, close);

But I got an error.

CopyClose Error

I tried these 3 codes above.   Still error.   

I read:     https://www.mql5.com/en/forum/1316         I still don't know what to do.

Could anyone give me helpful advice?

Converting is too difficult.  

Instead, I modified the MQL4 alert indicator to MQL5 one which works but the codes are not good at all.

#property indicator_chart_window

input int  SoundInterval = 30;
input bool Check_HorizontalLine = true;
input bool Check_TrendLine = true;
bool AlertFlag = false;

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[])
{

   int obj_total = ObjectsTotal(0, 0, -1);        
   //Print("obj_total: ", obj_total);
   
   string name;                                 
   
   for (int i = 0; i < obj_total; i++)
   {
      name = ObjectName(0, i, 0, -1);
      
      if(ObjectGetInteger(0, name, OBJPROP_TYPE) != OBJ_HLINE &&
         ObjectGetInteger(0, name, OBJPROP_TYPE) != OBJ_TREND)
        continue;
              
      if (!Check_HorizontalLine &&
           ObjectGetInteger(0, name, OBJPROP_TYPE) == OBJ_HLINE)
         continue;
         
      if (!Check_TrendLine &&
           ObjectGetInteger(0, name, OBJPROP_TYPE) == OBJ_TREND)
         continue;
        

      double HorizontallinePrice, TrendlinePrice;
      
      double Close[];
      ArraySetAsSeries(Close, true);
      CopyClose(_Symbol, PERIOD_CURRENT, TimeCurrent(), 2, Close);  
      //Print("Close[0] = ", Close[0]);
         
      datetime Close_time[];
      ArraySetAsSeries(Close_time, true);
      CopyTime(_Symbol, PERIOD_CURRENT, TimeCurrent(), 2, Close_time);

      double Open[];
      ArraySetAsSeries(Open, true);
      CopyOpen(_Symbol, PERIOD_CURRENT, TimeCurrent(), 2, Open);
      
      
      if (ObjectGetInteger(0, name, OBJPROP_TYPE) == OBJ_HLINE)
      {
         HorizontallinePrice = ObjectGetDouble(0, name, OBJPROP_PRICE);  
         //Print("horizontalline_price =  ", HorizontallinePrice);
      }
 
      if (ObjectGetInteger(0, name, OBJPROP_TYPE) == OBJ_TREND)
      {
         TrendlinePrice  = ObjectGetValueByTime(0, name, Close_time[0]); 
         //Print("trendline_price =  ", TrendlinePrice);   
      }
      
      if((HorizontallinePrice > Open[0]) && (HorizontallinePrice <= Close[0]))
      {
         if(AlertFlag == false)
         {
             Alert(_Symbol+_Period+" UP @"
                   +DoubleToString(Close[0], _Digits)+" over "
                   +DoubleToString(HorizontallinePrice, _Digits)+" ["+name+"]");
           
            AlertFlag = true;
         }
      }
      
      else if((TrendlinePrice > Open[0]) && (TrendlinePrice <= Close[0]))
      {
         if(AlertFlag == false)
         {
             Alert(_Symbol+_Period+" UP @"
                    +DoubleToString(Close[0], _Digits)+" over "
                    +DoubleToString(TrendlinePrice, _Digits)+" ["+name+"]");
           
            AlertFlag = true;
         }
      }
      
      else if((HorizontallinePrice < Open[0]) && (HorizontallinePrice >= Close[0]))
      {
         if(AlertFlag == false)
         {
            Alert(_Symbol+_Period+" DOWN @"
                  +DoubleToString(Close[0], _Digits)+" under "
                  +DoubleToString(HorizontallinePrice, _Digits)+" ["+name+"]");
            AlertFlag = true;
         }
      }
      
      else if((TrendlinePrice < Open[0]) && (TrendlinePrice >= Close[0]))
      {
         if(AlertFlag == false)
         {
            Alert(_Symbol+_Period+" DOWN @"
                  +DoubleToString(Close[0], _Digits)+" under "
                  +DoubleToString(TrendlinePrice, _Digits)+" ["+name+"]");
            AlertFlag = true;
         }
      }
      
      else
     {
         AlertFlag = false;
      }
   }
   return(rates_total);
}

no one of the overloads can be applied to the function call??
no one of the overloads can be applied to the function call??
  • 2010.07.06
  • www.mql5.com
in mql4, i can use iTime[1] to get bar[1] opentime , in mql5 , i use below sentence CopyTime(Symbol(),PERIOD_CURRENT,1,1,from); but i get compile...
Marco vd Heijden
Moderator
8151
Marco vd Heijden  

When you open a demo account on MetaQuotes Demo Server then your terminal will shortly update to 1846 and you can omit copyclose and use the regulat iClose iOpen iHigh iLow and etc.


You can see these functions here: https://www.mql5.com/en/forum/254082

New MetaTrader 5 Platform beta build 1845: MQL5 functions for operations with bars and Strategy Tester improvements
New MetaTrader 5 Platform beta build 1845: MQL5 functions for operations with bars and Strategy Tester improvements
  • 2018.06.08
  • www.mql5.com
New MetaTrader 5 Platform beta build 1845: MQL5 functions for operations with bars and Strategy Tester improvements The new beta version of the upd...
yogureee
88
yogureee  
Marco vd Heijden:

When you open a demo account on MetaQuotes Demo Server then your terminal will shortly update to 1846 and you can omit copyclose and use the regulat iClose iOpen iHigh iLow and etc.


You can see these functions here: https://www.mql5.com/en/forum/254082

Thank you for the information.

I was able to get 1847.

Now I can forget about CopyClose(), and I will try iClose .... later.

Got 1847

yogureee
88
yogureee  
I used iTime(), iOpen(), iClose().    They are great.
ArraySetAsSeries(close, true);

iClose(_Symbol, PERIOD_CURRENT, 0);   // current bar


My codes got better.  I appreciate MT5, MQL5 experts who gave me advice and information here.

#property copyright "Copyright 2018, MetaQuotes Software Corp."
#property link      "https://www.mql5.com"
#property version   "1.00"
#property indicator_chart_window

input int  SoundInterval = 30;
input bool Check_HorizontalLine = true;
input bool Check_TrendLine = true;
bool AlertFlag = false;

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[])
{

   int obj_total = ObjectsTotal(0, 0, -1);        
   Print("obj_total = ", obj_total);
   
   string name;                                 
   
   for (int i = 0; i < obj_total; i++)
   {
      name = ObjectName(0, i, 0, -1);
      
      if(ObjectGetInteger(0, name, OBJPROP_TYPE) != OBJ_HLINE &&
         ObjectGetInteger(0, name, OBJPROP_TYPE) != OBJ_TREND)
        continue;
              
      if (!Check_HorizontalLine &&
           ObjectGetInteger(0, name, OBJPROP_TYPE) == OBJ_HLINE)
         continue;
         
      if (!Check_TrendLine &&
           ObjectGetInteger(0, name, OBJPROP_TYPE) == OBJ_TREND)
         continue;
        

      double HorizontallinePrice, TrendlinePrice;
      
      ArraySetAsSeries(time, true);
      iTime(_Symbol, PERIOD_CURRENT, 0);
      Print("time[0] = ", time[0]);

      ArraySetAsSeries(open, true);
      iOpen(_Symbol, PERIOD_CURRENT, 0);
      Print("open[0] = ", open[0]);
      
      ArraySetAsSeries(close, true);
      iClose(_Symbol, PERIOD_CURRENT, 0);  
      Print("close[0] = ", close[0]);
      
      
      if (ObjectGetInteger(0, name, OBJPROP_TYPE) == OBJ_HLINE)
      {
         HorizontallinePrice = ObjectGetDouble(0, name, OBJPROP_PRICE);  
         Print("horizontalline_price =  ", HorizontallinePrice);
      }
 
      if (ObjectGetInteger(0, name, OBJPROP_TYPE) == OBJ_TREND)
      {
         TrendlinePrice  = ObjectGetValueByTime(0, name, time[0]); 
         Print("trendline_price =  ", TrendlinePrice);   
      }
      
      if((HorizontallinePrice > open[0]) && (HorizontallinePrice <= close[0]))
      {
         if(AlertFlag == false)
         {
             Alert(_Symbol+_Period+" UP @"
                   +DoubleToString(close[0], _Digits)+" over "
                   +DoubleToString(HorizontallinePrice, _Digits)+" ["+name+"]");
           
            AlertFlag = true;
         }
      }
      
      else if((TrendlinePrice > open[0]) && (TrendlinePrice <= close[0]))
      {
         if(AlertFlag == false)
         {
             Alert(_Symbol+_Period+" UP @"
                    +DoubleToString(close[0], _Digits)+" over "
                    +DoubleToString(TrendlinePrice, _Digits)+" ["+name+"]");
           
            AlertFlag = true;
         }
      }
      
      else if((HorizontallinePrice < open[0]) && (HorizontallinePrice >= close[0]))
      {
         if(AlertFlag == false)
         {
            Alert(_Symbol+_Period+" DOWN @"
                  +DoubleToString(close[0], _Digits)+" under "
                  +DoubleToString(HorizontallinePrice, _Digits)+" ["+name+"]");
            AlertFlag = true;
         }
      }
      
      else if((TrendlinePrice < open[0]) && (TrendlinePrice >= close[0]))
      {
         if(AlertFlag == false)
         {
            Alert(_Symbol+_Period+" DOWN @"
                  +DoubleToString(close[0], _Digits)+" under "
                  +DoubleToString(TrendlinePrice, _Digits)+" ["+name+"]");
            AlertFlag = true;
         }
      }
      
      else
     {
         AlertFlag = false;
      }
   }
   return(rates_total);
}
To add comments, please log in or register