MQL5 Tutorial Italiano: Guida Completa per Iniziare a Programmare Expert Advisor

// Dichiarazione parametri input (visibili nelle Proprietà EA in MT5)
input double RischioPercent = 1.0;   // Rischio per trade (%)
input int    StopLossPunti  = 25;    // Stop loss in punti

// OnInit: eseguita UNA VOLTA all’attivazione dell’EA
int OnInit()
{
    Print("EA inizializzato. Rischio: ", RischioPercent, "%");
    return INIT_SUCCEEDED; // Tutto ok
}

// OnTick: eseguita AD OGNI NUOVO TICK di prezzo
void OnTick()
{
    // Qui va la logica principale del trading
    double prezzo_corrente = SymbolInfoDouble(_Symbol, SYMBOL_BID);
    // ... valuta segnali, apri/chiudi ordini
}

// OnDeinit: eseguita quando l’EA viene rimosso dal grafico
void OnDeinit(const int reason)
{
    Print("EA rimosso. Motivo: ", reason);
}

void OnTick()
{
    // Prezzi correnti
    double bid = SymbolInfoDouble(_Symbol, SYMBOL_BID);
    double ask = SymbolInfoDouble(_Symbol, SYMBOL_ASK);
    double spread = ask - bid;
    
    // Prezzi storici (candele precedenti)
    double close_0 = iClose(_Symbol, PERIOD_H4, 0); // Candela corrente
    double close_1 = iClose(_Symbol, PERIOD_H4, 1); // Candela precedente
    double high_1  = iHigh (_Symbol, PERIOD_H4, 1);
    double low_1   = iLow  (_Symbol, PERIOD_H4, 1);
    double open_1  = iOpen (_Symbol, PERIOD_H4, 1);
    
    // ATTENZIONE: indice 0 = candela in formazione (non chiusa)
    // Per segnali affidabili usa sempre indice 1 (ultima candela chiusa)
    
    // Volume (tick volume — proxy del vero volume su forex)
    long volume_1 = iVolume(_Symbol, PERIOD_H4, 1);
}

#include <Trade\Trade.mqh>
CTrade trade; // Oggetto per gestire i trade

// Apre un ordine BUY con stop loss e take profit
bool ApriBuy(double lotti, int sl_punti, int tp_punti)
{
    double ask   = SymbolInfoDouble(_Symbol, SYMBOL_ASK);
    double punto = SymbolInfoDouble(_Symbol, SYMBOL_POINT);
    
    double sl = ask - sl_punti * punto;
    double tp = ask + tp_punti * punto;
    
    // Arrotonda ai decimali del broker
    sl = NormalizeDouble(sl, (int)SymbolInfoInteger(_Symbol, SYMBOL_DIGITS));
    tp = NormalizeDouble(tp, (int)SymbolInfoInteger(_Symbol, SYMBOL_DIGITS));
    
    bool ok = trade.Buy(lotti, _Symbol, ask, sl, tp, "Oracle v78 LONG");
    if(!ok) Print("Errore apertura BUY: ", trade.ResultRetcode());
    return ok;
}

// Chiude tutte le posizioni aperte
void ChiudiTutto()
{
    for(int i = PositionsTotal() - 1; i >= 0; i--)
    {
        ulong ticket = PositionGetTicket(i);
        if(PositionGetString(POSITION_SYMBOL) == _Symbol)
            trade.PositionClose(ticket);
    }
}

// MA200 su Daily
double ma200 = iMA(_Symbol, PERIOD_D1, 200, 0, MODE_SMA, PRICE_CLOSE, 0);

// ATR a 14 periodi su H4
double atr14 = iATR(_Symbol, PERIOD_H4, 14, 1); // Shift=1: ultima candela chiusa

// RSI a 14 periodi su H4
double rsi14 = iRSI(_Symbol, PERIOD_H4, 14, PRICE_CLOSE, 1);

// Bollinger Bands
double bb_upper, bb_lower, bb_middle;
iBands(_Symbol, PERIOD_H4, 20, 0, 2.0, PRICE_CLOSE, bb_upper, bb_middle, bb_lower);

// MACD (valore della linea MACD)
double macd_main = iMACD(_Symbol, PERIOD_H4, 12, 26, 9, PRICE_CLOSE, MODE_MAIN, 1);

// Calcola i lotti per rischiare esattamente rischioPercent% del capitale
double CalcolaLotti(double rischioPercent, int sl_punti)
{
    double capitale   = AccountInfoDouble(ACCOUNT_BALANCE);
    double rischio_usd = capitale * rischioPercent / 100.0;
    
    double tick_value = SymbolInfoDouble(_Symbol, SYMBOL_TRADE_TICK_VALUE);
    double tick_size  = SymbolInfoDouble(_Symbol, SYMBOL_TRADE_TICK_SIZE);
    double valore_punto = tick_value / tick_size;
    
    double lotti = rischio_usd / (sl_punti * valore_punto);
    
    // Arrotonda al lotto minimo
    double lotto_step = SymbolInfoDouble(_Symbol, SYMBOL_VOLUME_STEP);
    lotti = MathFloor(lotti / lotto_step) * lotto_step;
    return MathMax(lotti, SymbolInfoDouble(_Symbol, SYMBOL_VOLUME_MIN));
}

// EA Mittente (UI Oracle) scrive la dimensione del lotto calcolata
GlobalVariableSet("Oracle_Lotti",  0.05);
GlobalVariableSet("Oracle_Segnale", 1.0); // 1=BUY, -1=SELL, 0=nessuno

// EA Ricevente (Executor) legge e agisce
double lotti   = GlobalVariableGet("Oracle_Lotti");
double segnale = GlobalVariableGet("Oracle_Segnale");
if(segnale == 1.0 && lotti > 0)
{
    // Mostra popup ENTRA all’utente
    // Apri BUY con conferma
}