Scripts

[especulator]

Para que quede todo más ordenado voy a ir poniendo en este hilo todos los scripts y en el otro para debatir e ir poniendo ideas y sugerencias.

- Cerrar todo.
- Buy.
- Sell.
- Ajustar decimales.
- Enviar correo electrónico.

[especulator]

//+------------------------------------------------------------------+
//|                                                  Cerrar_todo.mq4 |
//+------------------------------------------------------------------+

#property copyright "Elverge"
#property version   "1.00"

extern int     num_magic =                    0; // SI TENEMOS MAS DE UN ROBOT, HAY QUE CAMBIAR EL NUMERO MÁGICO
extern bool    Tancar =                   false; // CUANDO QUERAMOS CERRAR LAS POSICIONES SE CAMBIA POR VERDADERO

int start() 
{
   if (Tancar == true)
   {
      Tancar();
      return (0);
   }
}

int Tancar()
{
   int total = OrdersTotal();
   for(int i=total-1;i>=0;i--)
   {
      OrderSelect(i, SELECT_BY_POS,MODE_TRADES);
      if ( OrderMagicNumber() == num_magic)
      {    
         int type   = OrderType();
         bool result = false;
         switch(type)
         {
            //CIERRA COMPRAS
            case OP_BUY       : result = OrderClose( OrderTicket(), OrderLots(), MarketInfo(OrderSymbol(), MODE_BID), 0, CLR_NONE );
                               break;
            //CIERRA VENTAS
            case OP_SELL      : result = OrderClose( OrderTicket(), OrderLots(), MarketInfo(OrderSymbol(), MODE_ASK), 0, CLR_NONE );
                               break;
            //CIERRA ORDENES PENDIENTES
            case OP_BUYLIMIT  :
            case OP_BUYSTOP   :
            case OP_SELLLIMIT :
            case OP_SELLSTOP  : result = OrderDelete( OrderTicket() );
         }
    
         if(result == false)
         {
            Alert("Order " , OrderTicket() , " fallo al cerrar. Error:" , GetLastError() );
            Sleep(3000);
         }  
      }
   }
  
  return(0);
}

[especulator]

//+------------------------------------------------------------------+
//|                                                          Buy.mq4 |
//+------------------------------------------------------------------+
#property copyright ""
#property link      ""

extern double        Lotes =                   0.1;
extern int           TP =                     50;
extern int           SL =                     200;
int                  ticket =                 0;
int                  exi_buy =                0;
int start()
{
   double         preu_SL;
   double         preu_TP;

 // COMPRA
   if (exi_buy == 0) 
   {
      preu_SL = (Bid - SL * Point);
      if (SL <= 0) preu_SL = 0;
      preu_TP = Ask + TP * Point;
      ticket=OrderSend(Symbol(),OP_BUY,Lotes,Ask,0,0,0,"COMPRA",0,0,CLR_NONE);
      exi_buy = 1;
 //MODIFICAMOS SL Y TP
      if(ticket>0)  
      {  
         OrderSelect(ticket,SELECT_BY_TICKET); 
         OrderModify(OrderTicket(),OrderOpenPrice(),preu_SL,preu_TP,0,CLR_NONE);  
      }
   }
   return(0);
}

[especulator]

//+------------------------------------------------------------------+
//|                                                         Sell.mq4 |
//+------------------------------------------------------------------+
#property copyright ""
#property link      ""

extern double        Lotes =                    0.1;
extern int           TP =                       50;
extern int           SL =                       200;
int                  ticket =                   0;
int                  exi_sell =                 0;
int start()
{
   double         preu_SL;
   double         preu_TP;

 // VENTA
   if (exi_sell == 0) 
   {
      preu_SL = Bid + SL * Point;
      if (SL <= 0) preu_SL = 0;
      preu_TP = Bid - TP * Point;
      ticket = OrderSend(Symbol(), OP_SELL,Lotes,Bid,0,0,0,"VENTA",0, 0, CLR_NONE);
      exi_sell = 1;
 //MODIFICAMOS SL Y TP
      if(ticket>0)  
      {  
         OrderSelect(ticket,SELECT_BY_TICKET); 
         OrderModify(OrderTicket(),OrderOpenPrice(),preu_SL,preu_TP,0,CLR_NONE);  
      }
   }
   return(0);
}

[especulator]

//+------------------------------------------------------------------+
//|                                            AJUSTAR DECIMALES.mq4 |
//|                                                          Elverge |
//|                                                                  |
//+------------------------------------------------------------------+
#property copyright "Elverge"
#property link      ""
#property version   "1.00"
#property strict

double               volumen =               0.0;
string               valorlote;
int                  TP=                     0;
int                  SL=                     0;

extern int           num_magic =             1;
extern double        Lotes =                 0.1;
extern int           tp =                    50;
extern int           sl =                    200;

int init() 
{
   volumen =     Lotes;
   valorlote = DoubleToStr (volumen, 2);
   if (Digits == 3) 
   {
      TP = 10.0 * tp;
      SL = 10.0 * sl;
   } 
   else 
   {
      if (Digits == 5) 
      {
         TP = 10.0 * tp;
         SL = 10.0 * sl;
      } 
      else 
      {
         TP =  tp;
         SL = sl;
      }
   }
   return (0);
}

[especulator]

//+------------------------------------------------------------------+
//|                                               AVISO PÉRDIDAS.mq4 |
//|                                                          Elverge |
//|                                                                  |
//+------------------------------------------------------------------+
#property copyright " "
#property link      " "
#property version   "1.00"


double         orden_abierta=              0.0;
int            perdidas =                  0;


extern int     Perdidas =                  50;

int OnInit()
  {
      orden_abierta = (AccountBalance() - AccountEquity());
      if (ordren_abierta >= Perdidas) 
      { 
         perdidas = AccountProfit ();
         if (NovaBarra())SendMail( " PERDIDAS ALTAS ", "  en la cuenta : " +AccountNumber() +Symbol() +" hay unas perdidas de aproximadamente "  + perdidas + " euros");
      }
   return(INIT_SUCCEEDED);
  }
bool NovaBarra()
{
   static datetime ti = 0;
   if (ti != Time[0])
   {
      ti = Time[0]; Sleep(100);
      return(true);
   }
   return(false);
}