Generic A-TLP

#property version   "9.02"
#property strict
#define _TRADE_               1
#define _PAUSE_               2

enum _EventYesNo{
      YES            = 1,           //ДА
      NO             = 2            //НЕТ
      };

enum _EventFilter{
      ON             = 1,
      OFF            = 2
      };

input    int            MagicNumber                = 11052016;
input    string         Comm                       = "Generic A-TLP v9.0";             //Комментарий
input    double         Max_Spread                 = 3;
input    int            Slipage                    = 1;
extern   double         Stop_Loss                  = 38;
extern   double         Take_Profit                = 35;
input    bool           use_dyn_TP                 = false;             //использовать динамический TP
input    int            TP_perc                    = 80;                //%% TP от размера канала
input    int            min_TP                     = 10;
input    bool           use_BE                     = false;             //использовать перевод в безубыток
input    double         X                          = 7;                 //Если текущая цена лучше цены входа на Х пунктов
input    double         Y                          = 1;                 //перемещаем СЛ на Y пунктов в профит
input    int            Channel_Period             = 13;
input    int            Entry_Break                = 1;
input    int            Exit_Distance              = -13;
input    int            MaxDailyRange              = 1000;
input    double         Lots                       = 0.1;
input    double         Auto_Risk                  = 0.0;
input    int            Min_Volatility             = 20;
input    int            Exit_Profit_Pips           = -12;
         int            ma_period                  = 2;
input    int            Reverse_Profit             = 20;
input    int            Exit_Minutes               = 140;
input    int            Time_Profit_Pips           = 0;
input    _EventFilter   Filter_1                   = 1;                 //Фильтр ¹1 (на выход из сделки)
input    _EventFilter   Filter_2                   = 1;                 //Фильтр ¹2 (на выход из сделки)
input    _EventFilter   Filter_3                   = 1;                 //Фильтр ¹3 (на выход из сделки)
input    color          Col_info                   = C'176,162,168';    //Цвет инфо панели

         double         maxlot                     = 0.01;
         double         lotstep                    = 0.01;
         double         old_point                  = 0.0001;
         double         minlot                     = 0.0;
         int            lotsize                    = 0;
         int            stoplevel                  = 0;
         double         lots                       = 0;
         int            count_sell;
         int            count_buy;
         datetime       day_of_trade;
         string         tr_hr                      = "";
         string         tp_info                    = "";
         string         be_info                    = "";
         int            slippage;
         datetime       need_to_verify_market_info;

         string         InpFileName;                                    // Имя файла
         string         fileName                   = "EA_Generic";      // Имя файла
         string         InpDirectoryName           = "LOGS";            // Имя каталога

input    string         S1                         = " DayOfWeek Filter";
input    _EventYesNo    monday                     = 1;                 //торгуем в ПОНЕДЕЛЬНИК?
input    string         monday_open                = "00:00";
input    string         monday_pause_start         = "01:00";
input    string         monday_pause_stop          = "22:00";
input    string         monday_close               = "23:59";

input    _EventYesNo    tuesday                    = 1;                 //торгуем во ВТОРНИК?
input    string         tuesday_open               = "00:00";
input    string         tuesday_pause_start        = "01:00";
input    string         tuesday_pause_stop         = "22:00";
input    string         tuesday_close              = "23:59";

input    _EventYesNo    wednesday                  = 1;                 //торгуем в СРЕДУ?
input    string         wednesday_open             = "00:00";
input    string         wednesday_pause_start      = "01:00";
input    string         wednesday_pause_stop       = "22:00";
input    string         wednesday_close            = "23:59";

input    _EventYesNo    thursday                   = 1;                 //торгуем в ЧЕТВЕРГ?
input    string         thursday_open              = "00:00";
input    string         thursday_pause_start       = "01:00";
input    string         thursday_pause_stop        = "22:00";
input    string         thursday_close             = "23:59";

input    _EventYesNo    friday                     = 1;                 //торгуем в ПЯТНИЦУ?
input    string         friday_open                = "00:00";
input    string         friday_pause_start         = "01:00";
input    string         friday_pause_stop          = "22:00";
input    string         friday_close               = "23:59";

input    _EventYesNo    sunday                     = 2;                 //торгуем в ВОСКРЕСЕНЬЕ?
input    string         sunday_open                = "08:30";
input    string         sunday_pause_start         = "15:30";
input    string         sunday_pause_stop          = "17:55";
input    string         sunday_close               = "21:35";

input    string         S2                         = " Roll Over Filter";
input    _EventYesNo    use_rollover_filter        = 1;                 //закрывать сделки в ролловер
input    string         rollover_start             = "23:55";           //время начала ролловера
input    string         rollover_end               = "00:35";           //время окончания ролловера

         int            flag_trade;
         datetime       time1,
                        time2,
                        time3,
                        time4;

int OnInit()
{
      // код доступен только после оплаты
   }

void OnDeinit(const int reason)
{
   Comment("");
   fRectLabelDelete(0,"info_panel");
}

void OnTick()
{
      // код доступен только после оплаты
   }

void OpenTrade(string type){
   double price = 0;
   double range = 0;
   int cmd = -1;
   color col_type = clrNONE;

   if(type == "BUY"){
      cmd = OP_BUY;
      col_type = clrAqua;
      range = (iOpen(NULL,PERIOD_D1,0) - Bid)/old_point;
   }
   if(type == "SELL"){
      cmd = OP_SELL;
      col_type = clrRed;
      range = (Bid - iOpen(NULL,PERIOD_D1,0))/old_point;
   }
   for(int count = 0; count < 5; count++){
      RefreshRates();
      if(type == "BUY") price = Ask;
      if(type == "SELL") price = Bid;
      int ticket = OrderSend(Symbol(), cmd, lots, price, slippage, 0, 0, Comm,
                                       MagicNumber, 0, col_type);   
      Sleep(3000);
      if(ticket > 0){
         if(!OrderSelect(ticket, SELECT_BY_TICKET, MODE_TRADES)){
            string q = __FUNCTION__ + ": не удалось выделить ордер " +
                     IntegerToString(ticket) + "! " + fMyErDesc();
            Print(q);
            fWriteDataToFile(q);
            break;
         }
         else{
            string q = __FUNCTION__ + ": ордер " + type + " открыт по цене " +
                     DoubleToStr(OrderOpenPrice(),Digits) + "; DailyRange = (" +
                     DoubleToStr(range,1) + ") пипс.";
            Print(q);
            fWriteDataToFile(q);
            break;
         }
      } 
      else{
         string q = __FUNCTION__ + ": ордер " + type +
                     " не был открыт!: " + fMyErDesc();
         Print(q);
         fWriteDataToFile(q);
      }
   }   
}

bool fGetRollOver(void){
   if(use_rollover_filter == 2){             //не закрывать сделки в ролловер
      if(StrToTime(rollover_start) > StrToTime(rollover_end)){
         if(TimeCurrent() >= StrToTime(rollover_start) || TimeCurrent() < StrToTime(rollover_end))
            return(true);
      }
      else{
         if(TimeCurrent() >= StrToTime(rollover_start) && TimeCurrent() < StrToTime(rollover_end))
            return(true);
      }
   }
   return(false);
}

string fInfoTradeHours(void){
   switch(DayOfWeek()){
        case 0: {    if(sunday == 2){
                        return( "\n"
                              + "\n    no trade today"
                              + "\n"
                              + "\n");
                     }
                     else{
                        if(sunday_pause_start == "0"){
                           return( "\n  Start Hour (Broker Time) = " + sunday_open
                                 + "\n  End Hour (Broker Time) = " + sunday_close
                

Показано первые 50% кода (символов: 33057)