Cualquier pregunta de los recién llegados sobre MQL4 y MQL5, ayuda y discusión sobre algoritmos y códigos - página 1091

[Andrei Sokolov]

Saludos. MQL4. Quiero añadir un juego de serpientes a mi EA.

¿Puede indicar si es posible establecer que el número de segundos que determina la periodicidad de los eventos OnTimer() sea inferior a 1, por ejemplo 0,7?

¿O de otras formas para implementar la ejecución periódica de parte del código, pero para que no retrase la ejecución en OnTick()?

[Alexey Viktorov]

Andrey Sokolov:

Saludos. MQL4. Quiero añadir un juego de serpientes a mi EA.

¿Puede indicar si es posible establecer que el número de segundos que determina la periodicidad de los eventos OnTimer() sea inferior a 1, por ejemplo 0,7?

¿O de otras formas para implementar la ejecución periódica de parte del código, pero para que no retrase la ejecución en OnTick()?

https://docs.mql4.com/ru/eventfunctions/eventsetmillisecondtimer

[Andrei Sokolov]

Alexey Viktorov gracias

[Vladimir Pastushak]

El código siguiente da como resultado 牖漠摲牥⁳湩潦〉〮र〲थ⸰〰㠉┰〉〮र

Se supone que la salida de la prueba de texto

Los archivos están en la carpeta Files\\Test\.

La función dice que la manija es correcta es 1 e inmediatamente GetLastError dice error 5008 Manija incorrecta ....

¿Qué debo hacer?

//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
   core();
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {

  }
//+------------------------------------------------------------------+
void core()
  {
   string value = "", name = "";

   name =  "Test" + "\\test.csv";
   Print(FileIsExist(name));

   ResetLastError();

   int m_hendle = -1;
   m_hendle = FileOpen(name, FILE_READ | FILE_WRITE | FILE_CSV);
   if(m_hendle != INVALID_HANDLE)
     {
      Print((string)m_hendle + "    " + name + " [" + (string)FileSize(m_hendle) + "]"+ (string)GetLastError());
       while(!FileIsEnding(m_hendle))
        {
         string sCurrent = FileReadString(m_hendle);
         Print("sCurrent = ", sCurrent);
        }
      FileClose(m_hendle);
     }
  }
//+------------------------------------------------------------------+

[Tretyakov Rostyslav]

Vladimir Pastushak:

El código siguiente da como resultado 牖漠摲牥⁳湩潦〉〮र〲थ⸰〰㠉┰〉〮र

Parece "coronavirus"

[eKpuBu4]

Hola....ayuda a convertir un asesor mt5 a 4 por favor. No tengo ganas ni necesidad de aprender por mí mismo, si es complicado, lo entenderé y lo olvidaré, no necesito mucho...

Ya pregunté, pero mi respuesta fue sobre cómo aprender, o pedí configuraciones y " experto en el grial". Mientras que la lectura de los foros, parecía que la gente va a ayudar ... lo que es interesante, si la gente está pidiendo para hacer algo no es caro, por el dinero ... ayudar de forma gratuita, y cuando sólo estoy pidiendo dinero, probablemente piensan que alguien que quiere usar las manos de los extranjeros y pedir gratis ... tenía el dinero aquí y ahora, habría pagado de inmediato y no se molestan, pero no lo hacen, y cuando lo hace no será necesario ... más fácil de anotar, pero aún así ... la esperanza muere último.

Puedo pagar más tarde, cuando lo tenga...

[Tretyakov Rostyslav]

eKpuBu4:

Hola....ayúdame a convertir un asesor de mt5 a 4 por favor. No quiero ni necesito aprenderlo yo mismo, si es complicado, lo entenderé y lo olvidaré, no necesito mucho...

¿Dónde está el resto?

Experto.mqh>

SignalTRIX.mqh>

SeñalStoch.mqh>

TrailingFixedPips.mqh>

MoneyFixedRisk.mqh>

[v0van1990]

Hola. No tengo grandes conocimientos de programación en mql4.

input double   Lots=0.01;     //Lots size
input int      Tprof=1000;     //TakeProfit
input int      TreilSt=100;    //Trailing Stop
input int      TrStKor=10;     //The size of the correction Trailing Stop
input int      Magik=1001012;  //Magic Number
extern int Bars_left = 5;
extern int Bars_right = 5;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---

//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//---

  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
//---
   static double Upf,Lowf;
   double Tupf=0,Tlowf=0;
   int i,k;
   for(i=2; i<100; i++)
     {
      Tupf=iCustom(Symbol(),0,"takbir",Bars_left,Bars_right,0,i);
      if(Tupf>0)
         break;
     }
   for(k=2; k<100; k++)
     {
      Tlowf=iCustom(Symbol(),0,"takbir",Bars_left,Bars_right,1,k);
      if(Tlowf>0)
         break;
     }
//----Open position
//if(i>0) Print("i = ", i, " k = ",k);
   int total=OrdersTotal();
/*if(total<1)
      {*/
    
   if(Ask>Tupf+15*_Point && Tupf!=Upf)
     {
      double StL=NormalizeDouble(Tlowf,_Digits);
      int ticket=OrderSend(NULL,OP_BUY,Lots,Ask,30,StL,Bid+Tprof*_Point,NULL,Magik,0,clrBlue);
      if(ticket<0)
        {
         Print("OrderSend error #",GetLastError());
        }
      else {Print("Ask=",Ask,"Upf=",Upf," StL=",StL); Upf=Tupf;}
     }
   if(Bid<Tlowf-15*_Point && Tlowf!=Lowf)
     {
      double StL=NormalizeDouble(Tupf,_Digits);
      int ticket=OrderSend(NULL,OP_SELL,Lots,Bid,30,StL,Ask-Tprof*_Point,NULL,Magik,0,clrRed);
      if(ticket<0)
        {
         Print("OrderSend error #",GetLastError());
        }
      else {Print("Bid=",Bid,"Lowf=",Lowf," StL=",StL);   Lowf=Tlowf;}
     }
// }
//----Trailing Stop operation
   for(int cni=0;cni<total;cni++)
     {
      if(!OrderSelect(cni,SELECT_BY_POS,MODE_TRADES))
         continue;
      if(OrderMagicNumber()==Magik && TreilSt>0)
        {
         if(OrderType()==OP_BUY)
           {
            if(Bid-OrderOpenPrice()>_Point*TreilSt)
              {
               if(OrderStopLoss()<Bid-_Point*TreilSt-TrStKor*_Point)
                 {
                  //--- modify order and exit
                  if(!OrderModify(OrderTicket(),OrderOpenPrice(),Bid-_Point*TreilSt,OrderTakeProfit(),0,clrBlue))
                     Print("OrderModify error ",GetLastError());
                  return;
                 }
              }
           }
         if(OrderType()==OP_SELL)
           {
            if((OrderOpenPrice()-Ask)>_Point*TreilSt)
              {
               if(OrderStopLoss()>Ask+_Point*TreilSt+_Point*TrStKor)
                 {
                  //--- modify order and exit
                  if(!OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Point*TreilSt,OrderTakeProfit(),0,clrRed))
                     Print("OrderModify error ",GetLastError());
                  return;
                 }
              }
           }
        }
     }
  }

Pero no puedo averiguar cómo arreglar lo siguiente:

double StL=NormalizeDouble(Tupf,_Digits);

El stop loss se fija en el "top fractal" anterior

Debería serlo:

Si se rompe el último fractal inferior - el stop loss se fija enel precio máximo entre el fractal inferior y la ruptura

Si se rompe el último fractal superior - el stop loss se fija en el precio mínimo entre el fractal superior y la ruptura

Intento establecer el tiempo de formación del fractal usando itime y definir el índice, pero no sé cómo llegar a la hora actual y buscar desde la hora actual hasta el fractal, pasando por las barras cada vez, hasta que se abra la orden.

¿Tal vez debamos buscarlo durante la apertura del pedido? Y a través de la modificación de la orden de cambiar la parada y ndp, pero cómo, no puedo entender.

No sé cómo hacerlo. Estimados profesionales, ¿pueden dedicar 5 minutos de su tiempo?

[Tretyakov Rostyslav]

v0van1990:
Por favor, ayuda. Respetados profesionales, tomen cinco minutos de su tiempo.

Tienes que arreglarlo aquí

     {
      Tupf=iCustom(Symbol(),0,"takbir",Bars_left,Bars_right,0,i);
      if(Tupf>0)
         break;
     }

[v0van1990]

MakarFX:

Aquí hay que corregir.

Esta función me da información sobre los últimos fractales formados no estándar, y cambio esos fractales no estándar al principio del EA.

¿O debería añadir otra función al indicador: información sobre el máximo o el mínimo antes de que se penetre el último fractal o cuando se forme un nuevo fractal?

¿Lo he entendido bien?