MQL5Data/Experts/x-test-strategies.ea.mq5

///////////////////////////////////////////////////////
//
// SaherElm IT Center XTest MQL5 Expert Advisor
// -------------------------------------------------
// Name: XSTestEA
// Description: an Exper Advisor which used XTestSetup
// to Analyse Market ...
//
// Maintainer:
// ------------
// Hadi Khazaee Asl (hadi_khazaee_asl@yahoo.com)
//
//////////////////////////////////////////////////////x
//
// Global Properties ...
#property copyright "Copyright 2023, SaherElm IT Center"
#property link "https://saherelm.ir"
#property version "1.00"
#property description "SaherElm XSTestEA"
#property strict

//
#define ShortName "XSTestEA"

//
// Imports ...
#include "../Helpers/x-saherelm.xct.helper.mq5"
#include "../Helpers/x-saherelm.xcc.helper.mq5"

//
#include "../Strategies/x-saherelm.xtest.strategy.mq5"

//
// Inputs ...
long eaMagicNumber = 78692110; // Magic Number
int eaSlippage = 10;           // Slippgae

//
double eaVolume = 0.01;
double eaAllowLong = true;
double eaAllowShort = true;

//
int eaMaxAllowedLongs = 0;
int eaMaxAllowedShorts = 0;

//
double eaTPPoint = 200;
double eaSLPoint = 100;

//
bool eaIgnoreTP = false;
bool eaIgnoreSL = false;

//
double eaR2R = 2;

//
// Variables ...
XSCXCTHelper *mCTHelper;
XSCXCCHelper *mCCHelper;

//
XSCBaseStrategy *strategies[];

//
// Event Handlers ...

//
// Initialization ...
int OnInit()
{
    //
    if (!ValidateInputs())
    {
        return INIT_PARAMETERS_INCORRECT;
    }

    //
    if (!InitialEA())
    {
        return INIT_FAILED;
    }

    //
    drawPrefix = ShortName;

    //
    // EventSetTimer(1);
    // EventSetMillisecondTimer(100);

    //
    // Init Succeed ...
    return INIT_SUCCEEDED;
}

//
// DeInitialization ...
void OnDeinit(const int reason)
{
    //
    // REASON_PROGRAM 0 The EA has stopped working calling the ExpertRemove() function
    // REASON_REMOVE 1 Program removed from a chart
    // REASON_RECOMPILE 2 Program recompiled
    // REASON_CHARTCHANGE 3 A symbol or a chart period is changed
    // REASON_CHARTCLOSE 4 Chart closed
    // REASON_PARAMETERS 5 Inputs changed by a user
    // REASON_ACCOUNT 6 Another account has been activated or reconnection to the trade server has occurred due to changes in the account settings
    // REASON_TEMPLATE 7 Another chart template applied
    // REASON_INITFAILED 8 The OnInit() handler returned a non-zero value
    // REASON_CLOSE 9 Terminal closed

    //
    // De Initialize XSampleEA Providers ...
    delete mCTHelper;
    delete mCCHelper;

    //
    // EventKillTimer();

    //
    Clean(strategies);
}

//
// On Tick Handler ...
void OnTick()
{
    //
    HandleStrategiesOnTick();

    //
    HandleTradeState();
}

//
// On Timer ...
void OnTimer()
{
    //
    // HandleStrategiesOnTick();
}

//
// Custom Functions ...

//
// Validate Inputs ...
bool ValidateInputs()
{
    //
    bool result = false;

    //
    result = true;

    //
    return result;
}

//
// Initialize all Requirements ...
bool InitialEA()
{
    //
    bool result = false;

    //
    // Bar Timer ...
    XCTInputs ctInputs;
    ctInputs.Default();
    mCTHelper = new XSCXCTHelper();
    result = mCTHelper.Init(
        _Symbol,
        _Period,
        ctInputs //
    );
    if (!result)
    {
        return result;
    }

    //
    // Bar Styles ...
    XCCInputs ccInputs;
    ccInputs.Default();
    mCCHelper = new XSCXCCHelper();
    result = mCCHelper.Init(
        _Symbol,
        _Period,
        ccInputs //
    );
    if (!result)
    {
        return result;
    }

    //
    XSymbolParser symbolParser;

    //
    bool drawAreas = false;

    //
    bool useEURUSD = true;
    bool useUSDCHF = false;
    bool useUSDJPY = false;
    bool useGBPUSD = false;
    bool useXAUUSD = false;

    //
    bool useXSRBR = false;
    bool useXEMRNG = false;
    bool useXOBVG = false;
    bool useXPVFMC = false;
    bool useXTest = true;

    //
    // EURUSD ...
    string eurusdSymbol = "EURUSDb"; // symbolParser.GetEURUSDSymbol();
    if (useEURUSD && IsValid(eurusdSymbol))
    {
        //
        // MAGIC NUMBER ...
        long magicNumber = eaMagicNumber + 1;

        //
        // XTest ...
        if (useXTest)
        {
            //
            XSCXTestStrategy *eurusdTestStrategy;
            eurusdTestStrategy = new XSCXTestStrategy(
                eurusdSymbol,
                PERIOD_M5,
                eaVolume,
                eaR2R, // R2R ...
                eaSlippage,
                magicNumber,
                true,     // Use TP SL Point
                false,     // Use Max
                100,       // eaTPPoint, // TP
                eaSLPoint, // SL
                eaIgnoreTP,
                true, // eaIgnoreSL,
                eaAllowLong,
                eaAllowShort,
                eaMaxAllowedLongs, // Max Longs
                eaMaxAllowedShorts // Max Shorts
            );
            eurusdTestStrategy.SetAlertLogAlerts(true);
            eurusdTestStrategy.SetAlertEnableAlerts(true);
            RegisterStrategy(eurusdTestStrategy);
        }
    }

    //
    return result;
}

//
// Register Strategy ...
void RegisterStrategy(XSCBaseStrategy *strategy)
{
    //
    if (strategy == NULL)
    {
        return;
    }

    //
    ArrayResize(
        strategies,
        ArraySize(strategies) + 1 //
    );

    //
    strategies[ArraySize(strategies) - 1] = strategy;
}

//
// Call All Registered Strategis Tick Handler Functions ...
void HandleStrategiesOnTick()
{
    //
    int count = ArraySize(strategies);
    if (!IsValidSize(count))
    {
        return;
    }

    //
    for (int i = 0; i < count; i++)
    {
        //
        // Call Tick Handler Function ...
        strategies[i].HandleTick();
    }
}

//
void HandleTradeState()
{
    //
    // Implement All Trade States here ...
}

//
// Custom Testing Functions ...

//