EAで移動平均線を使う（サンプルソース）

//+------------------------------------------------------------------+
//|                                                     IMA_TEST.mq4 |
//|                                    Copyright 2020, mef Software. |
//|                                             https://fx-prog.com/ |
//+------------------------------------------------------------------+
#property copyright "Copyright 2020, mef Software."
#property link      "https://fx-prog.com/"
#property version   "1.00"

input int FasterMA = 21;
input int MediumMA = 84;

input int A_SPREAD = 100;
input double Lots = 0.01;
input int SL_GOSA = 60;

int MAShift =    0;
int MAMode  =    1; // 0 = sma, 1 = ema, 2 = smma, 3 = lwma

datetime prevtime;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
              
//---
   return(INIT_SUCCEEDED);
  }
           
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
int orderPtn=0; //0:何もしない 1:買い 2:売り
int total=0;
           
double ea_order_stop_price=0,ea_order_good_price=0; //ストップロスレート,利確レート,エントリーレート
bool OrderKekka;
          
//---
   //新しい足ができた時だけやる
   if(Time[0] != prevtime){
      prevtime = Time[0];
   }else{
      return;
   }
           
//***売買判断箇所***//
          
   //----MA短期値取得      
   double fasterMA_ATAI_1   = iMA(NULL, 0, FasterMA, MAShift, MAMode, PRICE_CLOSE, 1);    //短期移動平均線で1つ前の値を取得
   double fasterMA_ATAI_2   = iMA(NULL, 0, FasterMA, MAShift, MAMode, PRICE_CLOSE, 2);    //短期移動平均線で2つ前の値を取得
       
   //----MA中期値取得  
   double MediumMA_ATAI_1   = iMA(NULL, 0, MediumMA, MAShift, MAMode, PRICE_CLOSE, 1);    //中期移動平均線で1つ前の値を取得
   double MediumMA_ATAI_2   = iMA(NULL, 0, MediumMA, MAShift, MAMode, PRICE_CLOSE, 2);    //中期移動平均線で2つ前の値を取得 
       
       
   //MAのゴールデンクロスでロング（短期MAが上を向いている事）  
   if(fasterMA_ATAI_1 > MediumMA_ATAI_1 && fasterMA_ATAI_2 < MediumMA_ATAI_2 && fasterMA_ATAI_1 > fasterMA_ATAI_2)
   {
      orderPtn=1;
   }
   //MAのデッドクロスでショート（短期MAが下を向いている事）     
   else if(fasterMA_ATAI_1 < MediumMA_ATAI_1 && fasterMA_ATAI_2 > MediumMA_ATAI_2 && fasterMA_ATAI_1 < fasterMA_ATAI_2)
   {
      orderPtn=2;
   }
   else
   {
      orderPtn=0;
   }
       
//***売買判断箇所***//
           
//***決済判断箇所***//
   total=OrdersTotal();
   if(total ==0 && orderPtn > 0)   
   {
      if(orderPtn == 1)
      {
         ea_order_stop_price = MediumMA_ATAI_1 - SL_GOSA * Point;
         ea_order_good_price = Ask + ((Ask - ea_order_stop_price) * 1000 * Point);     
      }
      else if(orderPtn == 2)
      {
         ea_order_stop_price = MediumMA_ATAI_1 + SL_GOSA * Point;  
         ea_order_good_price = Bid - ((ea_order_stop_price - Bid) * 1000 * Point);  
      }   
          
      //新規注文
      OrderKekka = funcOrder_Send(orderPtn - 1,ea_order_stop_price,ea_order_good_price,0,0);
          
   }
             
   return;
}
          
//+------------------------------------------------------------------+
//|【関数】新規注文関数                                                 |
//|                                                                  |
//|【引数】 ea_order_entry_Type:売買(0:買 1:売)                         |
//|【引数】 ea_order_stop_price:損切値  ea_order_good_price:利確値      |
//|【引数】 orderComment:オーダーコメント    ea_order_MagicNo:マジックNo       |
//|                                                                  |
//|【戻値】True:成功                                                   |
//|                                                                  |
//| 
bool funcOrder_Send(int ea_order_entry_Type, double ea_order_stop_price, double ea_order_good_price,int orderComment,int ea_order_MagicNo)
{
          
   int order_resend_num;        // エントリー試行回数
   int ea_ticket_res;           // チケットNo
   int errorcode;               // エラーコード
   double ea_order_entry_price; // エントリーレート
   color order_Color;
   bool kekka;
             
   for( order_resend_num = 0; order_resend_num < 10; order_resend_num++ ) {    // エントリー試行回数上限:10回
          
      if(MarketInfo(NULL,MODE_SPREAD) < A_SPREAD ){
          
         if(ea_order_entry_Type == OP_BUY){   
            ea_order_entry_price = Ask;               // 現在の買値でエントリー
            order_Color = clrBlue;
            Print(Ask,"でロングするよ！");            
         }else if(ea_order_entry_Type == OP_SELL){        
            ea_order_entry_price = Bid;               // 現在の売値でエントリー
            order_Color = clrRed;
            Print(Bid,"でショートするよ！");                       
         }
          
         // FXCMでは新規エントリー時にストップ/リミットを設定出来ない。
         ea_ticket_res = OrderSend(   // 新規エントリー注文
            NULL,                 // 通貨ペア
            ea_order_entry_Type,      // オーダータイプ[OP_BUY / OP_SELL]
            Lots ,                    // ロット[0.01単位](FXTFは1=10Lot)
            ea_order_entry_price,     // オーダープライスレート
            20,                       // スリップ上限    (int)[分解能 0.1pips]
            ea_order_stop_price,      // ストップレート
            ea_order_good_price,      // リミットレート
            orderComment,             // オーダーコメント
            ea_order_MagicNo,         // マジックナンバー(識別用)
            0,                        // オーダーリミット時間
            order_Color               // オーダーアイコンカラー
            );
 
         Print("結果:"+ea_ticket_res);
 
         if ( ea_ticket_res == -1) {            // オーダーエラー
            errorcode = GetLastError();      // エラーコード取得
             
            if( errorcode != ERR_NO_ERROR) { // エラー発生
               printf("エラー");
            }
             
            Sleep(2000);                                           // 1000msec待ち
            RefreshRates();                                        // レート更新
             
            printf("再エントリー要求回数:%d, 更新エントリーレート:%g",order_resend_num+1 ,ea_order_entry_price);
             
         } else {    // 注文約定
            Print("新規注文約定。 チケットNo=",ea_ticket_res," レート:",ea_order_entry_price);
            Sleep(300);                                           // 300msec待ち(オーダー要求頻度が多過ぎるとエラーになる為)
                         
            break;
         }
 
             
             
      }else{
         Print("スプレッドNG 許容スプレッド:"+A_SPREAD+"pips未満 環境スプレッド:"+MarketInfo(NULL,MODE_SPREAD)+"pips");
         Sleep(2000);                                           // 2000msec待ち
         RefreshRates();     
      }
                      
 
   }
   return kekka;   
}