MQLでチャートにボタンを置いて注文する方法（MT4・MT5）

MQL4（MT4）コードをコピー

#property strict
// 「買い」「売り」「全決済」ボタンを置く EA（MT4）
input double InpLots  = 0.1;     // ロット
input int    InpMagic = 20240;   // マジックナンバー

void MakeButton(string name, string text, int x, color bg)
{
   ObjectCreate(0, name, OBJ_BUTTON, 0, 0, 0);
   ObjectSetInteger(0, name, OBJPROP_XDISTANCE, x);
   ObjectSetInteger(0, name, OBJPROP_YDISTANCE, 30);
   ObjectSetInteger(0, name, OBJPROP_XSIZE, 90);
   ObjectSetInteger(0, name, OBJPROP_YSIZE, 32);
   ObjectSetInteger(0, name, OBJPROP_BGCOLOR, bg);
   ObjectSetInteger(0, name, OBJPROP_COLOR, clrWhite);
   ObjectSetString(0, name, OBJPROP_TEXT, text);
}

int OnInit()
{
   MakeButton("BtnBuy", "買い", 10, clrRoyalBlue);
   MakeButton("BtnSell", "売り", 110, clrCrimson);
   MakeButton("BtnClose", "全決済", 210, clrDimGray);
   return INIT_SUCCEEDED;
}

void OnDeinit(const int reason)
{
   ObjectDelete(0, "BtnBuy");
   ObjectDelete(0, "BtnSell");
   ObjectDelete(0, "BtnClose");
}

void OnTick()
{
}

void CloseAll()
{
   for(int i = OrdersTotal() - 1; i >= 0; i--)
   {
      if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue;
      if(OrderSymbol() != _Symbol || OrderMagicNumber() != InpMagic || OrderType() > OP_SELL) continue;
      if(!OrderClose(OrderTicket(), OrderLots(), OrderClosePrice(), 30))
         Print("決済失敗 error=", GetLastError());
   }
}

void OnChartEvent(const int id, const long &lparam, const double &dparam, const string &sparam)
{
   if(id != CHARTEVENT_OBJECT_CLICK) return;

   if(sparam == "BtnBuy")
   {
      if(OrderSend(_Symbol, OP_BUY, InpLots, Ask, 30, 0, 0, "button", InpMagic) < 0)
         Print("買い失敗 error=", GetLastError());
   }
   else if(sparam == "BtnSell")
   {
      if(OrderSend(_Symbol, OP_SELL, InpLots, Bid, 30, 0, 0, "button", InpMagic) < 0)
         Print("売り失敗 error=", GetLastError());
   }
   else if(sparam == "BtnClose")
      CloseAll();
   else
      return;

   ObjectSetInteger(0, sparam, OBJPROP_STATE, false);   // 押された状態を戻す
   ChartRedraw();
}

MQL5（MT5）コードをコピー

// 「買い」「売り」「全決済」ボタンを置く EA（MT5）
#include <Trade\Trade.mqh>

input double InpLots  = 0.1;     // ロット
input ulong  InpMagic = 20240;   // マジックナンバー

CTrade trade;

void MakeButton(string name, string text, int x, color bg)
{
   ObjectCreate(0, name, OBJ_BUTTON, 0, 0, 0);
   ObjectSetInteger(0, name, OBJPROP_XDISTANCE, x);
   ObjectSetInteger(0, name, OBJPROP_YDISTANCE, 30);
   ObjectSetInteger(0, name, OBJPROP_XSIZE, 90);
   ObjectSetInteger(0, name, OBJPROP_YSIZE, 32);
   ObjectSetInteger(0, name, OBJPROP_BGCOLOR, bg);
   ObjectSetInteger(0, name, OBJPROP_COLOR, clrWhite);
   ObjectSetString(0, name, OBJPROP_TEXT, text);
}

int OnInit()
{
   trade.SetExpertMagicNumber(InpMagic);
   MakeButton("BtnBuy", "買い", 10, clrRoyalBlue);
   MakeButton("BtnSell", "売り", 110, clrCrimson);
   MakeButton("BtnClose", "全決済", 210, clrDimGray);
   return INIT_SUCCEEDED;
}

void OnDeinit(const int reason)
{
   ObjectDelete(0, "BtnBuy");
   ObjectDelete(0, "BtnSell");
   ObjectDelete(0, "BtnClose");
}

void OnTick()
{
}

void CloseAll()
{
   for(int i = PositionsTotal() - 1; i >= 0; i--)
   {
      ulong ticket = PositionGetTicket(i);
      if(ticket == 0) continue;
      if(PositionGetString(POSITION_SYMBOL) != _Symbol || (ulong)PositionGetInteger(POSITION_MAGIC) != InpMagic) continue;
      if(!trade.PositionClose(ticket))
         Print("決済失敗 ", trade.ResultRetcodeDescription());
   }
}

void OnChartEvent(const int id, const long &lparam, const double &dparam, const string &sparam)
{
   if(id != CHARTEVENT_OBJECT_CLICK) return;

   if(sparam == "BtnBuy")
   {
      if(!trade.Buy(InpLots))
         Print("買い失敗 ", trade.ResultRetcodeDescription());
   }
   else if(sparam == "BtnSell")
   {
      if(!trade.Sell(InpLots))
         Print("売り失敗 ", trade.ResultRetcodeDescription());
   }
   else if(sparam == "BtnClose")
      CloseAll();
   else
      return;

   ObjectSetInteger(0, sparam, OBJPROP_STATE, false);   // 押された状態を戻す
   ChartRedraw();
}