new files added

2026-07-27 20:47:44 +00:00 · 2025-09-04 16:46:09 +02:00
parent d6328052ca
commit 831f32cf22
1 changed files with 140 additions and 0 deletions
@@ -0,0 +1,140 @@
+//+------------------------------------------------------------------+
+//|                                         Indicator_Tester_EA.mq5  |
+//|                                          Copyright 2025, xxxxxxxx|
+//|                                                                  |
+//+------------------------------------------------------------------+
+#property copyright "Copyright 2025, xxxxxxxx"
+#property version   "1.03"
+#property description "A universal EA to test and optimize indicator strategies."
+
+#include <Trade\Trade.mqh>
+#include <MyIncludes\Expert\Signal\Signal_Supertrend.mqh>
+
+//--- Enum to select which indicator to test
+enum ENUM_SIGNAL_TYPE
+  {
+   SIGNAL_SUPERTREND
+  };
+
+//--- EA Input Parameters ---
+input group "Strategy Settings"
+input ENUM_SIGNAL_TYPE InpSignalType = SIGNAL_SUPERTREND;
+input ulong            InpMagicNumber = 12345;
+input double           InpLotSize = 0.01;
+input int              InpStopLossPips = 200;
+input int              InpTakeProfitPips = 600;
+
+input group "Supertrend Settings"
+input int InpSupertrendPeriod = 10;
+input double InpSupertrendMultiplier = 3.0;
+
+//--- Global Objects ---
+CTrade      g_trade;
+CSignalBase *g_signal_module;
+
+//+------------------------------------------------------------------+
+//| Expert initialization function                                   |
+//+------------------------------------------------------------------+
+int OnInit()
+  {
+   switch(InpSignalType)
+     {
+      case SIGNAL_SUPERTREND:
+        {
+         CSignalSupertrend *st_module = new CSignalSupertrend();
+         if(CheckPointer(st_module) == POINTER_INVALID)
+            return(INIT_FAILED);
+         if(!st_module.Init(_Symbol, _Period, InpSupertrendPeriod, InpSupertrendMultiplier))
+           {
+            delete st_module;
+            return(INIT_FAILED);
+           }
+         g_signal_module = st_module;
+         break;
+        }
+     }
+
+   if(CheckPointer(g_signal_module) == POINTER_INVALID)
+     {
+      Print("Failed to initialize a signal module.");
+      return(INIT_FAILED);
+     }
+
+   g_trade.SetExpertMagicNumber(InpMagicNumber);
+
+   return(INIT_SUCCEEDED);
+  }
+
+//+------------------------------------------------------------------+
+//| Expert deinitialization function                                 |
+//+------------------------------------------------------------------+
+void OnDeinit(const int reason)
+  {
+   if(CheckPointer(g_signal_module) != POINTER_INVALID)
+      delete g_signal_module;
+  }
+
+//+------------------------------------------------------------------+
+//| Expert tick function                                             |
+//+------------------------------------------------------------------+
+void OnTick()
+  {
+//--- We only work on the open of a new bar for stability
+   static datetime last_bar_time = 0;
+   datetime time[1];
+   if(CopyTime(_Symbol, _Period, 0, 1, time) <= 0)
+      return;
+
+   if(time[0] == last_bar_time)
+      return;
+   last_bar_time = time[0];
+
+   if(CheckPointer(g_signal_module) == POINTER_INVALID)
+      return;
+
+//--- Get signals from the previous (closed) bar (shift=1) and the one before that (shift=2)
+   int current_signal = g_signal_module.GetSignal(1);
+   int previous_signal = g_signal_module.GetSignal(2);
+
+//--- Check for a new BUY signal (transition from not-buy to buy)
+   if(current_signal == 1 && previous_signal != 1)
+     {
+      //--- Close any open SELL positions with the same magic number
+      if(PositionSelect(_Symbol))
+        {
+         if(PositionGetInteger(POSITION_TYPE) == POSITION_TYPE_SELL && PositionGetInteger(POSITION_MAGIC) == InpMagicNumber)
+            g_trade.PositionClose(_Symbol);
+        }
+
+      //--- Open a new BUY position if no position for this EA exists
+      if(!PositionSelect(_Symbol) || PositionGetInteger(POSITION_MAGIC) != InpMagicNumber)
+        {
+         double price = SymbolInfoDouble(_Symbol, SYMBOL_ASK);
+         double sl = (InpStopLossPips > 0) ? price - InpStopLossPips * _Point : 0;
+         double tp = (InpTakeProfitPips > 0) ? price + InpTakeProfitPips * _Point : 0;
+         g_trade.Buy(InpLotSize, _Symbol, price, sl, tp, "Indicator Tester");
+        }
+     }
+
+//--- Check for a new SELL signal (transition from not-sell to sell)
+   if(current_signal == -1 && previous_signal != -1)
+     {
+      //--- Close any open BUY positions with the same magic number
+      if(PositionSelect(_Symbol))
+        {
+         if(PositionGetInteger(POSITION_TYPE) == POSITION_TYPE_BUY && PositionGetInteger(POSITION_MAGIC) == InpMagicNumber)
+            g_trade.PositionClose(_Symbol);
+        }
+
+      //--- Open a new SELL position if no position for this EA exists
+      if(!PositionSelect(_Symbol) || PositionGetInteger(POSITION_MAGIC) != InpMagicNumber)
+        {
+         double price = SymbolInfoDouble(_Symbol, SYMBOL_BID);
+         double sl = (InpStopLossPips > 0) ? price + InpStopLossPips * _Point : 0;
+         double tp = (InpTakeProfitPips > 0) ? price - InpTakeProfitPips * _Point : 0;
+         g_trade.Sell(InpLotSize, _Symbol, price, sl, tp, "Indicator Tester");
+        }
+     }
+  }
+//+------------------------------------------------------------------+
+//+------------------------------------------------------------------+