//+------------------------------------------------------------------+
//| Zagul.mq5 |
//| Copyright 2019, AM2 |
//| http://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2019, AM2"
#property link "http://www.forexsystems.biz"
#property version "1.00"
#include <Trade\Trade.mqh> // Подключаем торговый класс CTrade
input double LT = 0.01; // лот
input double KL = 2; // увеличение лота
input double ML = 10; // максимальный лот
input int Stop = 200; // стоплосс
input int Take = 300; // тейкпрофит
input int StartHour = 0; // час начала торговли
input int StartMin = 30; // минута начала торговли
input int EndHour = 23; // час окончания торговли
input int EndMin = 30; // минута окончания торговли
input int CloseOn = 1; // 1-закрытие в конце работы
input int Slip = 100; // проскальзывание
CTrade trade; // Используем торговый класс CTrade
//+------------------------------------------------------------------+
//| Expert initialization function |
//+------------------------------------------------------------------+
int OnInit()
{
//---
//---
return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
//---
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
bool TimeSession(int aStartHour,int aStartMinute,int aStopHour,int aStopMinute,datetime aTimeCur)
{
//--- время начала сессии
int StartTime=3600*aStartHour+60*aStartMinute;
//--- время окончания сессии
int StopTime=3600*aStopHour+60*aStopMinute;
//--- текущее время в секундах от начала дня
aTimeCur=aTimeCur%86400;
if(StopTime<StartTime)
{
//--- переход через полночь
if(aTimeCur>=StartTime || aTimeCur<StopTime)
{
return(true);
}
}
else
{
//--- внутри одного дня
if(aTimeCur>=StartTime && aTimeCur<StopTime)
{
return(true);
}
}
return(false);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
double Lot()
{
double lot=LT;
if(HistorySelect(0,TimeCurrent()))
{
double profit=HistoryDealGetDouble(HistoryDealGetTicket(HistoryDealsTotal()-1),DEAL_PROFIT);
double LastLot=HistoryDealGetDouble(HistoryDealGetTicket(HistoryDealsTotal()-1),DEAL_VOLUME);
if(profit>0)
lot=LT;
if(profit<0)
lot=LastLot*KL;
}
if(lot>ML)
lot=LT;
return(lot);
}
//+------------------------------------------------------------------+
//| Expert tick function |
//+------------------------------------------------------------------+
void OnTick()
{
double sl=0,tp=0;
double ASK=SymbolInfoDouble(_Symbol,SYMBOL_ASK);
double BID=SymbolInfoDouble(_Symbol,SYMBOL_BID);
double op1=iOpen(NULL,0,1);
double op2=iOpen(NULL,0,2);
double cl1=iClose(NULL,0,1);
double cl2=iClose(NULL,0,2);
if(PositionsTotal()<1)
{
if(cl1>op1 && cl2<op2)
{
if(Stop>0)
sl=NormalizeDouble(BID-Stop*_Point,_Digits);
else
sl=NormalizeDouble(op1+10*_Point,_Digits);
if(Take>0)
tp=NormalizeDouble(BID+Take*_Point,_Digits);
trade.PositionOpen(_Symbol,0,Lot(),ASK,sl,tp);
}
if(cl1<op1 && cl2>op2)
{
if(Stop>0)
sl=NormalizeDouble(ASK+Stop*_Point,_Digits);
else
sl=NormalizeDouble(op1-10*_Point,_Digits);
if(Take>0)
tp=NormalizeDouble(ASK-Take*_Point,_Digits);
trade.PositionOpen(_Symbol,1,Lot(),BID,sl,tp);
}
}
}
//+------------------------------------------------------------------+
Mtyvnel