【今週の成績 & ChatGPT】無料EAポートフォリオを運用してみる 2 (5/15 – 5/19, 2023)

//+------------------------------------------------------------------+
//|                                                  ProfitClose.mq5 |
//|                        Copyright 2023, MetaQuotes Software Corp. |
//|                                             https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "2023, MetaQuotes Software Corp."
#property link      "https://www.mql5.com"
#property version   "1.00"

// Set default profit threshold to 1000
input double ProfitThreshold = 1000; 

//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
   
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//---

  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   double total_profit = 0;
   for(int i=PositionsTotal()-1; i>=0; i--)
     {
      ulong ticket = PositionGetTicket(i);
      if(ticket > 0)
        {
         total_profit += PositionGetDouble(POSITION_PROFIT);
        }
     }
   
   if(total_profit >= ProfitThreshold) // Use the external variable here
     {
      for(int i=PositionsTotal()-1; i>=0; i--)
        {
         ulong ticket = PositionGetTicket(i);
         if(ticket > 0)
           {
            MqlTradeRequest request;
            MqlTradeResult result;
            
            ZeroMemory(request);

            request.action = TRADE_ACTION_DEAL; 
            request.symbol = PositionGetString(POSITION_SYMBOL); 
            request.volume = PositionGetDouble(POSITION_VOLUME); 
            request.type = PositionGetInteger(POSITION_TYPE) == POSITION_TYPE_BUY ? ORDER_TYPE_SELL : ORDER_TYPE_BUY;
            request.price = request.type == ORDER_TYPE_BUY ? SymbolInfoDouble(request.symbol, SYMBOL_ASK) : SymbolInfoDouble(request.symbol, SYMBOL_BID);
            request.deviation = 20; 
            request.magic = 123456; 
            request.comment = "Close position"; 
            request.position = PositionGetInteger(POSITION_TICKET); 

            if(!OrderSend(request, result))
            {
              Print("OrderSend failed with error ",GetLastError());
            }
            else
            {
              Print("OrderSend succeeded, deal performed with ticket #", result.deal);
            }
           }
        }
     }
  }
//+------------------------------------------------------------------+