【MQL4定数】初期化関数の戻り値の定数（ENUM_INIT_RETCODE）

//異常値を検出するためのパラメータ
input int ma_period=10;

int OnInit()
  {


   //パラメータが異常かどうかをチェック
   if(ma_period <= 0)
     {
      //パラメータが異常なので、INIT_PARAMETERS_INCORRECT定数を戻す
      return (INIT_PARAMETERS_INCORRECT);
     }


   //メモリに異常がないかチェック
   int memory = TerminalInfoInteger(TERMINAL_MEMORY_TOTAL);
   if(memory < 2000)
     {
      //メモリが異常なので、INIT_AGENT_NOT_SUITABLE定数を戻す
      return (INIT_AGENT_NOT_SUITABLE);
     }


   //その他異常がないかチェック
   double ma = iMA(Symbol(), PERIOD_CURRENT, 14, 0, MODE_SMA, PRICE_CLOSE, 0);
   if(ma <= 0)
     {
      //値が異常なので、INIT_FAILED定数を戻す
      return(INIT_FAILED);
     }


   //正常なので、INIT_SUCCEEDED定数を戻す
   return(INIT_SUCCEEDED);
  }

//+------------------------------------------------------------------+
//| ENUM_INIT_RETCODE サンプルプログラム                              |
//+------------------------------------------------------------------+
#property strict

//--- 入力パラメータ
input int    InpMaPeriod   = 14;    // 移動平均の期間
input double InpLotSize    = 0.1;   // ロットサイズ

//--- グローバル変数
double g_maValue;

//+------------------------------------------------------------------+
//| 初期化関数                                                        |
//+------------------------------------------------------------------+
int OnInit()
  {
   //--- パラメータが異常かどうかをチェック
   if(InpMaPeriod <= 0)
     {
      Print("エラー: 移動平均の期間が不正です。期間=", InpMaPeriod);
      return(INIT_PARAMETERS_INCORRECT);
     }

   //--- ロットサイズが異常かどうかをチェック
   if(InpLotSize <= 0 || InpLotSize > 10.0)
     {
      Print("エラー: ロットサイズが不正です。ロット=", InpLotSize);
      return(INIT_PARAMETERS_INCORRECT);
     }

   //--- メモリに異常がないかチェック
   int memory = TerminalInfoInteger(TERMINAL_MEMORY_TOTAL);
   if(memory < 2000)
     {
      Print("エラー: メモリが不足しています。メモリ=", memory, "MB");
      return(INIT_AGENT_NOT_SUITABLE);
     }

   //--- 移動平均の値を取得してチェック
   g_maValue = iMA(Symbol(), PERIOD_CURRENT, InpMaPeriod, 0, MODE_SMA, PRICE_CLOSE, 0);
   if(g_maValue <= 0)
     {
      Print("エラー: 移動平均の値が取得できませんでした。");
      return(INIT_FAILED);
     }

   //--- すべてのチェックに問題なし
   Print("初期化成功: 移動平均期間=", InpMaPeriod, " ロット=", InpLotSize);
   return(INIT_SUCCEEDED);
  }

//+------------------------------------------------------------------+
//| ティック関数                                                      |
//+------------------------------------------------------------------+
void OnTick()
  {
   //--- 移動平均の最新値を取得
   g_maValue = iMA(Symbol(), PERIOD_CURRENT, InpMaPeriod, 0, MODE_SMA, PRICE_CLOSE, 0);

   //--- 現在の価格と移動平均の値をログに出力
   double currentPrice = Close[0];
   Print("現在価格=", currentPrice, " 移動平均=", g_maValue);

   //--- 価格が移動平均より上か下かを判定
   if(currentPrice > g_maValue)
     {
      Print("現在価格は移動平均より上です（買いシグナル）");
     }
   else
     {
      Print("現在価格は移動平均より下です（売りシグナル）");
     }
  }

//+------------------------------------------------------------------+
//| 終了関数                                                          |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
   Print("EAを終了します。理由コード=", reason);
  }

ENUM_INIT_RETCODE initRetcode = INIT_SUCCEEDED;