Navigation:Home > Content >

e-20PipsStop-T.mq4

Time: 2010-04-07 | Download file:e-20PipsStop-T.mq4

//+----------------------------------------------------------------------------+
//|                                                        e-20PipsStop-T.mq4  |
//|                            Идея Tartan, реализация Ким Игорь В. aka KimIV  |
//|                                                       http://www.kimiv.ru  |
//|                                                                            |
//|  15.10.2006  Установка двух противоположных стоповых ордеров в 00:00 часов |
//|              на расстоянии 15-20 пунктов от уровня открытия нулевого бара. |
//|              SL=10, TP=20.                                                 |
//+----------------------------------------------------------------------------+
#property copyright "Tartan & KimIV"
#property link      "http://www.kimiv.ru"
#define   MAGIC     20061015

//------- Внешние параметры советника ------------------------------------------
extern string _P_Entrys = "---------- Параметры входов";
extern string TimeSet    = "00:00";    // Время установки ордеров
extern string TimeDel    = "10:00";    // Время удаления ордеров
extern int    Distance   = 15;         // Расстояние установки ордеров
extern int    StopLoss   = 10;         // Размер стопа
extern int    TakeProfit = 20;         // Размер тейка
extern double Lots       = 0.1;        // Размер лота

extern string _P_Expert = "---------- Параметры советника";
extern int    NumberAccount = 0;            // Номер торгового счёта
extern bool   UseSound      = False;        // Использовать звуковой сигнал
extern string NameFileSound = "expert.wav"; // Наименование звукового файла
extern bool   ShowComment   = True;         // Показывать комментарий

extern string _P_Trade = "---------- Параметры торговли";
extern int Slippage        = 2;        // Проскальзывание цены
extern int NumberOfTry     = 5;        // Количество попыток
extern int PauseAfterError = 45;       // Пауза после ошибки в секундах

//------- Глобальные переменные советника --------------------------------------
color  clOpenBuy    = LightBlue;       // Цвет открытия покупки
color  clOpenSell   = LightCoral;      // Цвет открытия продажи
color  clModifyBuy  = Aqua;            // Цвет модификации покупки
color  clModifySell = Tomato;          // Цвет модификации продажи
color  clCloseBuy   = Blue;            // Цвет закрытия покупки
color  clCloseSell  = Red;             // Цвет закрытия продажи
string Name_Expert  = "e-20PipsStop-T";// Наименование эксперта
datetime dtTimeDel, dtTimeSet;

//------- Поключение внешних модулей -------------------------------------------
#include 


//+----------------------------------------------------------------------------+
//|  expert initialization function                                            |
//+----------------------------------------------------------------------------+
void init() {}

//+----------------------------------------------------------------------------+
//|  expert deinitialization function                                          |
//+----------------------------------------------------------------------------+
void deinit() { if (!IsTesting()) Comment(""); }

//+----------------------------------------------------------------------------+
//|  expert start function                                                     |
//+----------------------------------------------------------------------------+
void start() {
  if (!IsTesting()) {
    if (NumberAccount>0 && NumberAccount!=AccountNumber()) {
      Message("ЗАПРЕЩЕНА торговля на счёте "+AccountNumber());
      return;
    } else Comment("");
    if (ShowComment) Comment(CreateComment());
  }
  if (Period()!=PERIOD_M15) {
    Message("Советнику "+Name_Expert+" нужен таймфрейм M15");
    return;
  }

  dtTimeSet=StrToTime(TimeToStr(Time[0], TIME_DATE)+" "+TimeSet);
  dtTimeDel=StrToTime(TimeToStr(Time[0], TIME_DATE)+" "+TimeDel);
  if (CurTime()>=dtTimeSet) SetOrders();
  if (CurTime()>=dtTimeDel) DeleteAllOrders();
}

//+----------------------------------------------------------------------------+
//|  Формирует и возвращает блок комментариев                                  |
//+----------------------------------------------------------------------------+
string CreateComment() {
  string tc=
         "TimeSet="+TimeSet+
         "  Distance="+DoubleToStr(Distance, 0)+
         "  StopLoss="+DoubleToStr(StopLoss, 0)+
         "  TakeProfit="+DoubleToStr(TakeProfit, 0)+
         "  Lots="+DoubleToStr(Lots, 1);

  return(tc);
}

//+----------------------------------------------------------------------------+
//|  Удаление всех ордеров                                                     |
//+----------------------------------------------------------------------------+
void DeleteAllOrders() {
  for (int i=OrdersTotal()-1; i>=0; i--) {
    if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {
      if (OrderMagicNumber()==MAGIC || OrderMagicNumber()==MAGIC+1) {
        if (OrderSymbol()==Symbol() && OrderType()>1) OrderDelete(OrderTicket());
      }
    }
  }
}

//+----------------------------------------------------------------------------+
//|  Возвращает флаг существования позиции или ордера по MagicNumber           |
//|  Параметры:                                                                |
//|    mn - MagicNumber                                                        |
//+----------------------------------------------------------------------------+
bool ExistOrderByMN(int mn) {
  for (int i=0; i0) Print(m);
}

//+----------------------------------------------------------------------------+
//|  Установка ордера                                                          |
//|  Параметры:                                                                |
//|    op     - операция                                                       |
//|    pp     - цена                                                           |
//|    ldStop - уровень стоп                                                   |
//|    ldTake - уровень тейк                                                   |
//|    mn     - добавка к магику                                               |
//+----------------------------------------------------------------------------+
void SetOrder(int op, double pp, double ldStop, double ldTake, int mn) {
  color  clOpen;
  int    err, it, ticket;
  string lsComm=Name_Expert+" "+GetNameTF(Period());

  if (op==OP_BUYLIMIT || op==OP_BUYSTOP) clOpen=clOpenBuy; else clOpen=clOpenSell;
//  Lots=GetSizeLot();
  for (it=1; it<=NumberOfTry; it++) {
    while (!IsTradeAllowed()) Sleep(5000);
    RefreshRates();
    ticket=OrderSend(Symbol(),op,Lots,pp,Slippage,ldStop,ldTake,lsComm,MAGIC+mn,0,clOpen);
    if (ticket>0) {
      if (UseSound) PlaySound(NameFileSound); break;
    } else {
      err=GetLastError();
      if (err==128 || err==142 || err==143 || err==144) {
        Sleep(1000*PauseAfterError);
        if (ExistOrderByMN(MAGIC+mn)) {
          if (UseSound) PlaySound(NameFileSound); break;
        }
        Print("Error(",err,") set order: ",ErrorDescription(err),", try ",it);
        continue;
      }
      if (err==146) while (IsTradeContextBusy()) Sleep(1000*PauseAfterError);
      Print("Error(",err,") set order: ",ErrorDescription(err),", try ",it);
      if (err==2 || err==64 || err==65 || err==4110 || err==4111) break;
      Sleep(1000*PauseAfterError);
    }
  }
}

//+----------------------------------------------------------------------------+
//|  Установка ордеров                                                         |
//+----------------------------------------------------------------------------+
void SetOrders() {
  double ldStop=0, ldTake=0, pp;

  if (!isTradeToDay()) {
    if (!ExistOrderByMN(MAGIC)) {
      pp=Ask+Distance*Point;
      if (StopLoss!=0) ldStop=pp-StopLoss*Point;
      if (TakeProfit!=0) ldTake=pp+TakeProfit*Point;
      SetOrder(OP_BUYSTOP, pp, ldStop, ldTake, 0);
    }
    if (!ExistOrderByMN(MAGIC+1)) {
      pp=Bid-Distance*Point;
      if (StopLoss!=0) ldStop=pp+StopLoss*Point;
      if (TakeProfit!=0) ldTake=pp-TakeProfit*Point;
      SetOrder(OP_SELLSTOP, pp, ldStop, ldTake, 1);
    }
  }
}
//+----------------------------------------------------------------------------+

Recommend