MQLでポジションを1つに制限して重複エントリーを防ぐ方法（MT4・MT5）

MQL4（MT4）コードをコピー

#property strict
// ポジションを1つに制限する EA の例（MT4）
input double InpLots     = 0.1;    // ロット
input int    InpMaxPos   = 1;      // 最大ポジション数
input int    InpMagic    = 1001;   // マジックナンバー

int MyPositions()
{
   int n = 0;
   for(int i = OrdersTotal() - 1; i >= 0; i--)
      if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES) && OrderSymbol() == _Symbol
         && OrderMagicNumber() == InpMagic && OrderType() <= OP_SELL)
         n++;
   return n;
}

int OnInit()
{
   return INIT_SUCCEEDED;
}

void OnTick()
{
   if(MyPositions() >= InpMaxPos) return;   // すでに持っていれば何もしない

   // 例：確定足の終値が 20 MA より上なら買う（実際の条件に置き換える）
   double ma = iMA(_Symbol, 0, 20, 0, MODE_SMA, PRICE_CLOSE, 1);
   if(iClose(_Symbol, PERIOD_CURRENT, 1) > ma)
      if(OrderSend(_Symbol, OP_BUY, InpLots, Ask, 30, 0, 0, "", InpMagic) < 0)
         Print("注文失敗 error=", GetLastError());
}

MQL5（MT5）コードをコピー

// ポジションを1つに制限する EA の例（MT5）
#include <Trade\Trade.mqh>

input double InpLots   = 0.1;    // ロット
input int    InpMaxPos = 1;      // 最大ポジション数
input ulong  InpMagic  = 1001;   // マジックナンバー

CTrade trade;
int hMa = INVALID_HANDLE;

int MyPositions()
{
   int n = 0;
   for(int i = PositionsTotal() - 1; i >= 0; i--)
      if(PositionGetTicket(i) > 0 && PositionGetString(POSITION_SYMBOL) == _Symbol
         && (ulong)PositionGetInteger(POSITION_MAGIC) == InpMagic)
         n++;
   return n;
}

int OnInit()
{
   trade.SetExpertMagicNumber(InpMagic);
   hMa = iMA(_Symbol, PERIOD_CURRENT, 20, 0, MODE_SMA, PRICE_CLOSE);
   return hMa == INVALID_HANDLE ? INIT_FAILED : INIT_SUCCEEDED;
}

void OnDeinit(const int reason)
{
   IndicatorRelease(hMa);
}

void OnTick()
{
   if(MyPositions() >= InpMaxPos) return;   // すでに持っていれば何もしない

   // 例：確定足の終値が 20 MA より上なら買う（実際の条件に置き換える）
   double ma[];
   if(CopyBuffer(hMa, 0, 1, 1, ma) < 1) return;
   if(iClose(_Symbol, PERIOD_CURRENT, 1) > ma[0])
      if(!trade.Buy(InpLots))
         Print("注文失敗 ", trade.ResultRetcodeDescription());
}