MT5 Basics

 
void ZZZ_XXX_YYY_DDD(string temp_pair){
   string ZZZ, XXX, YYY, DDD;
   int Sector = (int)SymbolInfoInteger(temp_pair,SYMBOL_SECTOR);
   Print("Sector = "+EnumToString(ENUM_SYMBOL_SECTOR(Sector)));
   if(ENUM_SYMBOL_SECTOR(Sector)==SECTOR_INDEXES)     ZZZ = temp_pair;
   else ZZZ = StringSubstr(temp_pair,0,3);
   XXX = SymbolInfoString(temp_pair,SYMBOL_CURRENCY_PROFIT);
   YYY = SymbolInfoString(temp_pair,SYMBOL_CURRENCY_MARGIN);
   DDD = AccountInfoString(ACCOUNT_CURRENCY);
  
   Print("Symbol = "+temp_pair+" /// ZZZ = "+ZZZ+" /// XXX = "+XXX+" /// YYY = "+YYY+" /// DDD = "+DDD);
}

Quoting Macd-rsi

Disliked

phu, Mucky ? any wat to hide/show toolbox throgh programing .. some button on the chart? like this rough code?{image} -

Ignored

Quoting Macd-rsi

Disliked

minus MathLog10 of StepVolume to correct volume Lots. . {image} - ? what do you use ? ? but assume there is a broker that has min_lots = step;ots = 10 lots, not 0.01 ?? any common math. solution?

Ignored

double input_volume = 31.3;
double stepVol = 10; // stepVol = SymbolInfoDouble(mySymbol,SYMBOL_VOLUME_STEP);
Print("stepVol = "+(string)stepVol);
double output_volume = stepVol*MathFloor(input_volume/stepVol);
Print("output_volume("+(string)input_volume+") = "+(string)output_volume);

Quoting phuclockbs

Disliked

{quote} Regarding to the NormalizeDouble(), it is ok if your steplots > 1, but when steplots >=10 lots, let's say steplots=10 then -MathLog10(stepVol) = -1 it is a negative number, which is invalid to the 'digits' parameter of the NormalizeDouble() function {image} In my opinion this may be a solution for that {image} double input_volume = 31.3; double stepVol = 10; // stepVol = SymbolInfoDouble(mySymbol,SYMBOL_VOLUME_STEP); Print("stepVol = "+(string)stepVol); double output_volume = stepVol*MathFloor(input_volume/stepVol); Print("output_volume("+(string)input_volume+")...

Ignored

            if(sparam=="somesparam")
            {
               if(hist==false)   hist=true;
               else              hist=false;
               ChartSetInteger(0,CHART_SHOW_TRADE_HISTORY,hist);
            }

int KBL;
int KSL;
double LotBL;
double LotSL;
int k9=0;  
double equit;

int OnInit()
  {
//---
   
//---
   return(INIT_SUCCEEDED);
  }
void SMART_CLOSE()
{
   equit=AccountEquity();
   k9=0;
   double LOT_2=0.01;
   check_Lot_KBL_KSL();
   double LotsB=LotBL-LotSL;
   check_Lot_KBL_KSL();
   LotsB=LotBL-LotSL;
   while (LotBL>0.001 || LotSL>0.001)
   {
      double lotx=0;
      check_Lot_KBL_KSL();
      if(MathAbs(LotBL-LotSL)>0.0001)
      {
         Print( KBL,"//", KSL,"//", LotBL,"//", LotSL);
         CLOSE_RESIDUAL_LOTS(LotBL,LotSL);
      }
      k9++;
      for(int j=OrdersTotal()-1;j>=0;j--)
      {                  
         if(OrderSelect(j,SELECT_BY_POS,MODE_TRADES))
         {
            if(MarketInfo(ChartSymbol(),MODE_TRADEALLOWED))
            {
               if(ChartSymbol()==OrderSymbol())
               {
                  if(OrderType()==OP_BUY)
                  {
                     double lots=0;
                     if(OrderLots()<=LOT_2) {lots=OrderLots();}
                     else if(OrderLots()>LOT_2){ lots=LOT_2;}
                     bool close_order=OrderClose(OrderTicket(),lots,OrderClosePrice(),0,clrWhite);
                     int error=GetLastError();
                     if(error==0)
                     {
                        bool boo=OrderSelect(OrderTicket(),SELECT_BY_TICKET);
                        lotx=lotx+lots;
                        if(lotx>=LOT_2) break;
                     }
                  }
               }
            }
         }
      }
   }   
   check_Lot_KBL_KSL();
   for( j=OrdersTotal()-1;j>=0;j--)
   {                  
      if(OrderSelect(j,SELECT_BY_POS,MODE_TRADES))
      {
         if(MarketInfo(ChartSymbol(),MODE_TRADEALLOWED))
         {
            if(ChartSymbol()==OrderSymbol())
            {
               if(OrderType()==OP_BUY || OrderType()==OP_SELL)
               {
                  close_order=OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),0,clrWhite);
               }
               if(OrderType()==OP_BUYLIMIT || OrderType()==OP_SELLLIMIT)
               {
                  close_order=OrderDelete(OrderTicket());
               }
               if(OrderType()==OP_BUYSTOP || OrderType()==OP_SELLSTOP)
               {
                  close_order=OrderDelete(OrderTicket());
               }
            }
         }
      }
   }
}
void check_Lot_KBL_KSL()
{
    KBL=0;
    KSL=0;
    LotBL=0;
    LotSL=0;
      for(int j=OrdersTotal()-1;j>=0;j--)
      {
         if(OrderSelect(j,SELECT_BY_POS,MODE_TRADES))
         {
            if(OrderType()==OP_BUY || OrderType()==OP_SELL)
            {
               if(OrderSymbol()==ChartSymbol())
               {
                  if(OrderType()==OP_BUY)
                  {
                     KBL++;
                     LotBL=LotBL+OrderLots();
                  }
                  if(OrderType()==OP_SELL)
                  {
                     KSL++;
                     LotSL=LotSL+OrderLots();
                  }
               }
            }
         }
      }
}
void CLOSE_RESIDUAL_LOTS(double LBL,double LSL)
{
//Print("aaaa="+LBL+"/"+LSL);
   if(LBL>LSL+0.0001)
   {
      double LotsB=LBL-LSL;
      double lots=0;
      double lotx=0;
      
//Print("LotsB"+LotsB);
      for(int j=OrdersTotal()-1;j>=0;j--)
      {//for(i=OrdersTotal()-1;i>=0;i--)
         if(OrderSelect(j,SELECT_BY_POS,MODE_TRADES))
         {//if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
            if(MarketInfo(OrderSymbol(),MODE_TRADEALLOWED))
            {
               if(OrderSymbol()==ChartSymbol())
               {
                  if(OrderType()==OP_BUY)
                  {
                     if(!IsConnected() || !IsExpertEnabled() || !IsTradeAllowed() || IsStopped()) {ObjectsDeleteAll(0,"TREND")  ;return;}
                     while(LotsB>0)
                     {                  
                        if(!IsConnected() || !IsExpertEnabled() || !IsTradeAllowed() || IsStopped()) {ObjectsDeleteAll(0,"TREND")  ;return;}
                        double ord=OrderLots();
                        //Print(lotx+"////"+LotsB);
                        if(OrderLots()<LotsB) {lots=OrderLots();lotx=lotx+lots;}
                        else if(OrderLots()==LotsB){ lots=LotsB;lotx=lotx+lots;}
                        else if(OrderLots()>LotsB){ lots=LotsB;lotx=lotx+lots;}
                        bool close_order=OrderClose(OrderTicket(),lots,OrderClosePrice(),0,clrWhite);
                        
                        int error=GetLastError();
                        Print(error);
                        if(error==0)
                        {
                           LotsB=LotsB-ord; k9++;
                           lotx=lotx+lots;
                          
                        }
                        else if(error!=0)break;
                     }
                  }
               }
            }
         }
      }
   }
   else if(LotBL<LotSL-0.0001)
   {
      //Print("SSSS="+LBL+"/"+LSL);
      LotsB=LotSL-LotBL;
      //Print("SSSSSSLotsS"+LotsB);
      lots=0;
      lotx=0;
      
      for(j=OrdersTotal()-1;j>=0;j--)
      {//for(i=OrdersTotal()-1;i>=0;i--)
         if(OrderSelect(j,SELECT_BY_POS,MODE_TRADES))
         {//if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
            if(MarketInfo(OrderSymbol(),MODE_TRADEALLOWED))
            {
               if(OrderSymbol()==ChartSymbol())
               {
                  if(OrderType()==OP_SELL)
                  {
                     while(LotsB>0)
                     {
                        ord=OrderLots();
                        //Print(lotx+"////"+LotsB);
                        if(OrderLots()<LotsB) {lots=OrderLots();lotx=lotx+lots;}
                        else if(OrderLots()==LotsB){ lots=LotsB;lotx=lotx+lots;}
                        else if(OrderLots()>LotsB){ lots=LotsB;lotx=lotx+lots;}
                        close_order=OrderClose(OrderTicket(),lots,OrderClosePrice(),0,clrWhite);
                        error=GetLastError();
                        Print(error);
                        if(error==0)
                        { 
                           LotsB=LotsB-ord; 
                           k9++;
                        }
                        else if(error!=0)break;
                     }
                  }
               }
            }
         }
      }
   }
   check_Lot_KBL_KSL();
   LotsB=LotBL-LotSL;
   if(MathAbs(LotsB)>0.001)
   {
      CLOSE_RESIDUAL_LOTS(LotBL,LotSL);
   }
   else return;
}

int OnInit()
  {
//--- create timer
   EventSetTimer(60);
   
   ZZZ_XXX_YYY_DDD(_Symbol);
   
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//--- destroy timer
   EventKillTimer();
   
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
//---
   
  }
//+------------------------------------------------------------------+
//| Timer function                                                   |
//+------------------------------------------------------------------+
void OnTimer()
  {
//---
   
  }
//+------------------------------------------------------------------+
void ZZZ_XXX_YYY_DDD(string temp_pair){
   string ZZZ, XXX, YYY, DDD;
   int Sector = (int)SymbolInfoInteger(temp_pair,SYMBOL_SECTOR);
   Print("Sector = "+EnumToString(ENUM_SYMBOL_SECTOR(Sector)));
   if(ENUM_SYMBOL_SECTOR(Sector)==SECTOR_INDEXES)     ZZZ = temp_pair;
   else ZZZ = StringSubstr(temp_pair,0,3);
   XXX = SymbolInfoString(temp_pair,SYMBOL_CURRENCY_PROFIT);
   YYY = SymbolInfoString(temp_pair,SYMBOL_CURRENCY_MARGIN);
   DDD = AccountInfoString(ACCOUNT_CURRENCY);
   
   Print("Symbol = "+temp_pair+" /// ZZZ = "+ZZZ+" /// XXX = "+XXX+" /// YYY = "+YYY+" /// DDD = "+DDD);
   
   double Value_Of_ZZZYYY;
   double Value_Of_YYYDDD;
   double Value_Of_XXXDDD;
   double Value_Of_YYYXXX;
   double Value_Of_ZZZXXX;
   
   if(ZZZ==temp_pair){
      Value_Of_ZZZYYY = SymbolInfoDouble(ZZZ,SYMBOL_BID);
      Value_Of_YYYDDD = Value_Of(YYY,DDD);
      Value_Of_XXXDDD = Value_Of(XXX,DDD);
      Value_Of_YYYXXX = Value_Of(YYY,XXX); // or Value_Of_YYYXXX = 1; due to YYY=XXX
      Value_Of_ZZZXXX = SymbolInfoDouble(ZZZ,SYMBOL_BID);
   } else {
         Value_Of_ZZZYYY = Value_Of(ZZZ,YYY); // or Value_Of_ZZZYYY = 1; due to ZZZ=YYY
         Value_Of_YYYDDD = Value_Of(YYY,DDD);
         Value_Of_XXXDDD = Value_Of(XXX,DDD);
         Value_Of_YYYXXX = Value_Of(YYY,XXX);
         Value_Of_ZZZXXX = Value_Of(ZZZ,XXX);
     }
   
   // Print for check (no important)
   if(ZZZ==temp_pair){
      Print("ZZZYYY = "+ZZZ+" = "+(string)Value_Of_ZZZYYY);
      Print("YYYDDD = "+YYY+DDD+" = "+(string)Value_Of_YYYDDD);
      Print("XXXDDD = "+XXX+DDD+" = "+(string)Value_Of_XXXDDD);
      Print("YYYXXX = "+YYY+XXX+" = "+(string)Value_Of_YYYXXX); // or Value_Of_YYYXXX = 1; due to YYY=XXX
      Print("ZZZXXX = "+ZZZ+" = "+(string)Value_Of_ZZZXXX);
   } else {
            Print("ZZZYYY = "+ZZZ+YYY+" = "+(string)Value_Of_ZZZYYY); // or Value_Of_ZZZYYY = 1; due to ZZZ=YYY
            Print("YYYDDD = "+YYY+DDD+" = "+(string)Value_Of_YYYDDD);
            Print("XXXDDD = "+XXX+DDD+" = "+(string)Value_Of_XXXDDD);
            Print("YYYXXX = "+YYY+XXX+" = "+(string)Value_Of_YYYXXX);
            Print("ZZZXXX = "+ZZZ+XXX+" = "+(string)Value_Of_ZZZXXX);
     }
   
}
//+------------------------------------------------------------------+
double Value_Of(string AAA, string BBB){
   double result=0;
   string AAABBB;
   if(AAA==BBB) result=1;
   else {
      for(int i=0;i<SymbolsTotal(false);i++){
         string curr_1=StringSubstr(SymbolName(i,false),0,3);
         string curr_2=StringSubstr(SymbolName(i,false),3,3);
         if(AAA+BBB==curr_1+curr_2 && StringLen(AAA+BBB)==StringLen(SymbolName(i,false))){
            AAABBB=SymbolName(i,false);
            SymbolSelect(AAABBB,true);
            result = SymbolInfoDouble(AAABBB,SYMBOL_BID);
            return result;
         } else if(BBB+AAA==curr_1+curr_2 && StringLen(BBB+AAA)==StringLen(SymbolName(i,false))){
                     AAABBB=SymbolName(i,false);
                     SymbolSelect(AAABBB,true);
                     if(SymbolInfoDouble(AAABBB,SYMBOL_BID)!=0)
                        result = 1/SymbolInfoDouble(AAABBB,SYMBOL_BID);
                     else result = 0;
                     return result;
                }
      }
      
      // for brokers having a suffix in their symbols
      for(int i=0;i<SymbolsTotal(false);i++){
         string curr_1=StringSubstr(SymbolName(i,false),0,3);
         string curr_2=StringSubstr(SymbolName(i,false),3,3);
         if(AAA+BBB==curr_1+curr_2 && StringLen(AAA+BBB)!=StringLen(SymbolName(i,false))){
            AAABBB=SymbolName(i,false);
            SymbolSelect(AAABBB,true);
            result = SymbolInfoDouble(AAABBB,SYMBOL_BID);
            return result;
         } else if(BBB+AAA==curr_1+curr_2 && StringLen(BBB+AAA)!=StringLen(SymbolName(i,false))){
                     AAABBB=SymbolName(i,false);
                     SymbolSelect(AAABBB,true);
                     if(SymbolInfoDouble(AAABBB,SYMBOL_BID)!=0)
                        result = 1/SymbolInfoDouble(AAABBB,SYMBOL_BID);
                     else result = 0;
                     return result;
                }
      }      
      
   }
   
   return result;
}
//+------------------------------------------------------------------+

Quoting Macd-rsi

Disliked

SMART CLOSE for MT4 . . . How to convert to mt5? ? int KBL; int KSL; double LotBL; double LotSL; int k9=0; double equit; int OnInit() { //--- //--- return(INIT_SUCCEEDED); } void SMART_CLOSE() { equit=AccountEquity(); k9=0; double LOT_2=0.01; check_Lot_KBL_KSL(); double LotsB=LotBL-LotSL; check_Lot_KBL_KSL(); LotsB=LotBL-LotSL; while (LotBL>0.001 || LotSL>0.001) { double lotx=0; check_Lot_KBL_KSL(); if(MathAbs(LotBL-LotSL)>0.0001) { Print( KBL,"//", KSL,"//", LotBL,"//", LotSL); CLOSE_RESIDUAL_LOTS(LotBL,LotSL); } k9++; for(int j=OrdersTotal()-1;j>=0;j--)...

Ignored

Quoting Macd-rsi

Disliked

{file}{file}- click here on "ALOTAIBI" to show/hide trades history {image}

Ignored

Quoting Macd-rsi

Disliked

SMART CLOSE for MT4 . . . How to convert to mt5? ? int KBL; int KSL; double LotBL; double LotSL; int k9=0; double equit; int OnInit() { //--- //--- return(INIT_SUCCEEDED); } void SMART_CLOSE() { equit=AccountEquity(); k9=0; double LOT_2=0.01; check_Lot_KBL_KSL(); double LotsB=LotBL-LotSL; check_Lot_KBL_KSL(); LotsB=LotBL-LotSL; while (LotBL>0.001 || LotSL>0.001) { double lotx=0; check_Lot_KBL_KSL(); if(MathAbs(LotBL-LotSL)>0.0001) { Print( KBL,"//", KSL,"//", LotBL,"//", LotSL); CLOSE_RESIDUAL_LOTS(LotBL,LotSL); } k9++; for(int j=OrdersTotal()-1;j>=0;j--)...

Ignored

Quoting Macd-rsi

Disliked

SMART CLOSE for MT4 . . . How to convert to mt5? ? int KBL; int KSL; double LotBL; double LotSL; int k9=0; double equit; int OnInit() { //--- //--- return(INIT_SUCCEEDED); } void SMART_CLOSE() { equit=AccountEquity(); k9=0; double LOT_2=0.01; check_Lot_KBL_KSL(); double LotsB=LotBL-LotSL; check_Lot_KBL_KSL(); LotsB=LotBL-LotSL; while (LotBL>0.001 || LotSL>0.001) { double lotx=0; check_Lot_KBL_KSL(); if(MathAbs(LotBL-LotSL)>0.0001) { Print( KBL,"//", KSL,"//", LotBL,"//", LotSL); CLOSE_RESIDUAL_LOTS(LotBL,LotSL); } k9++; for(int j=OrdersTotal()-1;j>=0;j--)...

Ignored

Quoting phuclockbs

Disliked

{quote} Please test if it works as what you want {file}By the way, for converting this Mql4 code: {image} i added 2 new functions {image} then the convert is {image}

Ignored