MT4外汇EA圈
加入本圈
收藏本贴

彻底平仓的一个写法

楼主  收藏   举报   帖子创建时间:  2019-05-05 12:06 回复：0 关注量：429
  1. bool CloseOrders(int orderMode,string myType)
  2. {
  3.   int OrderCount=0, gle=0;
  4.   int cnt,mode;
  5.   int TicketArray[100];
  6.   double ClosePrice=0;
  7.   string stringOrderMode;
  8.   
  9.   if (orderMode==OP_BUY)  stringOrderMode="BUY";
  10.   if (orderMode==OP_SELL) stringOrderMode="SELL";

  12. // first, we retrieve all ticket IDs for existing orders to close out  
  13.   for(cnt=OrdersTotal()-1;cnt>=0;cnt--)
  14.   {
  15.     if (OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
  16.     {
  17.       mode=OrderType();
  18.       if (isOrder(OrderSymbol(), OrderMagicNumber(), OrderComment(), myType))
  19.     {
  20.         if (mode==orderMode)
  21.         {
  22.           TicketArray[OrderCount]=OrderTicket();
  23.           Print("OrderCount: ",OrderCount,", Ticket: ",TicketArray[OrderCount]," Selected for closure.");
  24.           OrderCount++;
  25.      }
  26.       }
  27.   }
  28.   else
  29.   {
  30.     gle=GetLastError();
  31.       Print("Error selecting an order in CloseAllOrders!!! Error #",gle,": ",ErrorDescription(gle));
  32.       return(false); //Since returning false, the caller will retry this function again
  33.   }
  34.   }

  36. // second, we close out all applicable orders in the array.  this two step method prevents problems closing out all orders successfully at once.
  37.   int retries=0;
  38.   while(retries<20)
  39.   {
  40.     for(cnt=0;cnt<OrderCount;cnt++)
  41.     {
  42.       if (TicketArray[cnt]>0)
  43.       {
  44.         if (OrderSelect(TicketArray[cnt], SELECT_BY_TICKET, MODE_TRADES))
  45.         {
  46.           mode=OrderType();
  47.           GetTradeContext(); RefreshRates();
  48.           if (mode==OP_BUY)  ClosePrice=NormalizeDouble(Bid,Digits);
  49.           if (mode==OP_SELL) ClosePrice=NormalizeDouble(Ask,Digits);
  50.           if (mode == (orderMode+2) || mode == (orderMode+4))
  51.           {
  52.             if (OrderDelete(OrderTicket()))
  53.             {
  54.               TicketArray[cnt]=0;
  55.             }
  56.             else        
  57.             {
  58.               gle=GetLastError();
  59.               Print("Error closing pending order #",TicketArray[cnt],": Error #",gle,": ",ErrorDescription(gle));
  60.             }
  61.           }
  62.           else
  63.           {
  64.             if (CloseOrder(OrderTicket(), OrderLots(), OrderType()))
  65.             {
  66.               
  67.               TicketArray[cnt]=0;
  68.             }
  69.             else
  70.             {
  71.               gle=GetLastError();
  72.               Print("Error closing order #",TicketArray[cnt],": Error #",gle,": ",ErrorDescription(gle));
  73.             }
  74.           }
  75.         }
  76.         else
  77.         {
  78.           gle=GetLastError();
  79.           Print("Error selecting order #",TicketArray[cnt],": Error #",gle,": ",ErrorDescription(gle));
  80.         }
  81.       }
  82.     }
  83.   retries++;
  84.   }
  85.   
  86.   bool CloseAllSuccess=true;
  87.   for(cnt=0;cnt<OrderCount;cnt++)
  88.   {
  89.     if (TicketArray[cnt]>0)
  90.     {
  91.       CloseAllSuccess=false;
  92.       alert("Could not close ticket #",TicketArray[cnt],"! Will keep retrying.");
  93.     }
  94.   }
  95.   
  96.   if(CloseAllSuccess)
  97.   {
  98.     return(true);
  99.   }
  100.   else
  101.   {
  102.     Print("There was a critical error closing one or more ",stringOrderMode," orders when trying to CLOSE ALL!");
  103.     return(false); //Since returning false, the caller will retry this function again
  104.   }
  105. }
打赏
分享到：

本文作者

Ta的圈贴

更多

最新创建圈子

最新话题

我要发帖