ฝึกเขียน EA ตัวอย่างที่ 4 Martingale (เบิ้ล Lot จะกว่าจะชนะ)

จุดประสงค์
เพื่อเรียนรู้วิธีการทบขนาด Lot จนกว่า Profit จะกลับมาเป็นบวกแล้วปิด Order ทั้งหมด

หลักการของ EA ตัวอย่างนี้

• ใช้หลักการ Martingale 
• เริ่มต้นโดยเปิด pending order ไว้ทั้ง Buy และ Sell จากนั้น
• รอจนกว่าเมื่อ Order ด้านใดด้านหนึ่งเปิด จากนั้นก็จะ Delete Order ฝั่งตรงข้าม

extern double Lot=0.1;
extern double Multiply=2;
extern int Range=50;
extern int Step=8;

int start()
  {
      OpenOrder();
      CheckOrder();
     
  
     
   return(0);
  }

void OpenOrder()
{

if(OrdersTotal()==0)
   {
     for(int i=0;i<Step;i++)
     { if(i==0)
       {
        OrderSend(Symbol(),OP_SELLLIMIT,Lot,Bid+Point*(Range*(i+1)),3,0,0,"Exp20",0,0,Red);
        OrderSend(Symbol(),OP_BUYLIMIT,Lot,Ask-Point*(Range*(i+1)),3,0,0,"Exp20",0,0,Green);
        Sleep(1000);
       }
       
       if(i >0)
       {
       
       OrderSend(Symbol(),OP_SELLLIMIT,Lot*MathPow( Multiply,i) ,Bid+Point*(Range*(i+1)),3,0,0,"Exp2",0,0,Red);
        OrderSend(Symbol(),OP_BUYLIMIT,Lot*MathPow( Multiply,i),Ask-Point*(Range*(i+1)),3,0,0,"Exp2",0,0,Red);
         Sleep(1000);
       }
     
     
     }
      return (0);
     
     }


}

void CheckOrder()
{
 int BuyOrder=0;
 int SellOrder=0;
  
  for(int i=0 ;i<OrdersTotal();i++)
  { OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
    if(OrderType()==OP_BUY)
      BuyOrder++;
     if(OrderType()==OP_SELL)
      SellOrder++;  
  }
  
  
     if(BuyOrder > 0 || SellOrder >0)
     {   
       if(BuyOrder >0)
        {
        DeletePending(2);
        SetTP(1);
        }
        
        if(SellOrder > 0)
        {
        
        DeletePending(1);
        SetTP(2);
        }  
     
     }
     
    
      if(OrdersTotal() < Step)
     {
     
     DeleteOrder();
     }


}


void DeletePending(int type)
{
   
   for(int i=0 ;i<OrdersTotal();i++)
  { OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
    if(type==1)
     { if(OrderType()==OP_BUYLIMIT)
         {
         OrderDelete(OrderTicket());
   
         }
     }
     if(type==2)
     { if(OrderType()==OP_SELLLIMIT)
         {
         OrderDelete(OrderTicket());
         }
     }
     
     
  }

}


void SetTP(int type)
{ double MaxLot=0;
  double OpenPrice=0;
  int i;
  for( i=0 ;i<OrdersTotal();i++)
  { OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
    if(type==1)
     { if(OrderType()==OP_BUY)
         {
            if(OrderLots() > MaxLot)
            {
              MaxLot=OrderLots();
              OpenPrice=OrderOpenPrice();
            }

         }
       
     }
     
     if(type==2)
     { if(OrderType()==OP_SELL)
         {
            if(OrderLots() > MaxLot)
            {
              MaxLot=OrderLots();
              OpenPrice=OrderOpenPrice();
            }

         }
         
   
         
     }

  }
  
  double TP=0;
  
  
  
    for( i=0 ;i<OrdersTotal();i++)
  { OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
    if(type==1)
     { TP=OpenPrice+Point*Range;
     
       if(OrderType()==OP_BUY)
         {  if(OrderTakeProfit()!=TP)
            OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),TP,0,Blue);

         }
         
     }
     
     
      if(type==2)
     { TP=OpenPrice-Point*Range;
     
       if(OrderType()==OP_SELL)
         {  if(OrderTakeProfit()!=TP)
            OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),TP,0,Blue);

         }
         
     }
     
     
     
  }
  
}

void DeleteOrder()
{
     for(int i=0 ;i<OrdersTotal();i++)
  { OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
     if(OrderType()==OP_BUYLIMIT || OrderType()==OP_SELLLIMIT )
     {
      OrderDelete(OrderTicket());
     
     }
     

  }


}