Обучение языку MQL4 под MetaTrader 4📌

//+------------------------------------------------------------------+
//| Открытие ордера |
//+------------------------------------------------------------------+
// Учтены проверки:
// 1. Связь с сервером и в случае отсутствия сканирует серверы и
// реконнектится RetryAttempts раз.
// 2. Торговый поток. Если он занят, ждет и пробует снова RetryAttempts раз.
// 3. Разрешенность торговли. Если запрещено, ждет и пробует снова
// RetryAttempts раз.
// 4. Остановку работы пользователем.
// 5. Правильность задания цены активации отложек. Если не правильно задана цена, открываем по рынку.
// 6. Проверка стопов и тейков на стоплевел и корректировка по его размеру.
// 7. Обработка ошибок. Те, что возможно исправить, пробуем исправить.
// 8. Если цена отложки слишком близко к рынку, открываемся по рынку.
// 9. Если цена для рыночного ордера ушла от цены нашего открытия на MaxOpenOrdDev пунктов и выше, выходим.
// Исправить:
// 1. Добавить ецн режим. Проставлять стопы с тейками после открытия.
// 2. if (error==0)
// {
// EAComment(" Ордер успешно открыт.");
// if(!OrderSelect(ticket, SELECT_BY_TICKET, MODE_TRADES)) EAComment(" Ошибка доступа к ордеру!!");
// OrderPrint();
// return(ticket);
// }
// Вроде как может не работать, может не найти сразу новый ордер по тикету???? Нужна задержка????

int SendOrder(string symbol, int cmd, double lot, double price, double stoploss, double takeprofit)
{
int cnt=0, error=GetLastError(), ticket=-1;
bool exit_loop=false, limit_to_market=false;

EAComment(" Попытка открыть "+OrderTypeToString(cmd)+" лотом "+DoubleToString(lot,LotDigits)+" по цене "+DoubleToString(price,PriceDigits)+
" sl:"+DoubleToString(stoploss,PriceDigits)+" tp:"+DoubleToString(takeprofit,PriceDigits));

// Основные проверки на состояние, если пройдены, продолжим.
if(ConditionCheck() {
EAComment(" Не смогли открыть ордер!");
return(-1);
}
// Теперь нормализуем все переданные функции цены
price=NormalizeDouble(price,PriceDigits);
stoploss=NormalizeDouble(stoploss,PriceDigits);
takeprofit=NormalizeDouble(takeprofit,PriceDigits);
// Проверим стопы и тейки на близость к рынку (на стоплевел)
if(stoploss>0) stoploss=StopLevelCheck(cmd,price,stoploss);
if(takeprofit>0) takeprofit=TakeLevelCheck(cmd,price,takeprofit);
error = 0;
// Цвет значка открытия:
if(cmd==OP_BUY||cmd==OP_BUYLIMIT||cmd==OP_BUYSTOP) arrow_color=Blue;
if(cmd==OP_SELL||cmd==OP_SELLLIMIT||cmd==OP_SELLSTOP) arrow_color=Red;

// Проверка цены открытия для отложек, если все плохо, открываем по рынку.
if(cmd==OP_BUYLIMIT&&Ask {
EAComment(" Неправильная цена для байлимит ордера: Цена установки выше текущей цены!");
cmd=OP_BUY;
price=Ask;
}
if(cmd==OP_SELLLIMIT&&Bid>price)
{
EAComment(" Неправильная цена для селллимит ордера: Цена установки ниже текущей цены!");
cmd=OP_SELL;
price=Bid;
}
if(cmd==OP_BUYSTOP&&Ask>price)
{
EAComment(" Неправильная цена для байстоп ордера: Цена установки ниже текущей цены!");
cmd=OP_BUY;
price=Ask;
}
if(cmd==OP_SELLSTOP&&Bid {
EAComment(" Неправильная цена для селлстоп ордера: Цена установки выше текущей цены!");
cmd=OP_SELL;
price=Bid;
}

// Лимитные и стоповые ордера
if (cmd==OP_BUYSTOP||cmd==OP_SELLSTOP||cmd==OP_BUYLIMIT||cmd==OP_SELLLIMIT)
{
cnt=0;
while (!exit_loop)
{
//Пробуем открыть ордер:
if (IsTradeAllowed())
{
ticket=OrderSend(symbol, cmd, lot, price, slippage, stoploss, takeprofit, ExpertName+
" Magic:"+IntegerToString(magic), magic, 0, arrow_color);
error=GetLastError();
}
else cnt++; // Если не вышло, накручиваем счетчик попыток
//И разбираемся в причине:
switch (error)
{
case 0:
//Если все ок, выходим из цикла
exit_loop = true;
break;
case 4: //Торговый сервер занят.
case 6: //Нет связи с торговым сервером.
case 129: //Неправильная цена Bid или Ask, возможно, ненормализованная цена.
case 132: //Рынок закрыт.
case 137: //Брокер занят.
case 145: //Модификация запрещена, так как ордер слишком близок к рынку.
case 146: //Подсистема торговли занята.
ReConnect(); // Делаем реконнект
cnt++;
break;
case 135: //Цена изменилась.
case 136: //Нет цен.
case 138: //Запрошенная цена устарела, либо перепутаны Bid и Ask.
RefreshRates();
continue;
case 130: //Слишком близкие стопы или неправильно рассчитанные цены
{
// Проверяем на близость цены установки к рынку (стопы и тейки уже проверили)
double ServerMinStop=StopLevel*PricePoint;
if (cmd==OP_BUYSTOP||cmd==OP_BUYLIMIT)
{
if (MathAbs(Ask-price) limit_to_market=true;
}
if (cmd==OP_SELLSTOP||cmd==OP_SELLLIMIT)
{
if (MathAbs(Bid-price) limit_to_market = true;
}
exit_loop = true;
break;
}
default:
exit_loop = true;
break;
}
//Если количество попыток превысило допустимое, выходим
if (cnt>RetryAttempts) exit_loop=true;
// Сообщаем о неудачном открытии ордера
if (exit_loop)
{
if (error!=0) EAComment(" Неисправимая ошибка:" + NoRetryError(error));
if (cnt>RetryAttempts) EAComment(" Количество попыток достигло максимального "+IntegerToString(RetryAttempts));
}
// Если выходить рано
if (!exit_loop)
{
EAComment(" Ошибка при попытке (№ "+IntegerToString(cnt)+" из "+IntegerToString(RetryAttempts)+"): " + RetryError(error));
SleepRandomTime();
RefreshRates();
}
}
// Вышли из цикла. Если нет ошибок, сообщаем об открытии и возвращаем тикет ордера:
if (error==0)
{
EAComment(" Успешно установили отложенный ордер.");
if(OrderSelect(ticket, SELECT_BY_TICKET, MODE_TRADES))
{
OrderPrint();
return(ticket);
}
}
// Если была ошибка и ордер не открыли:
if (!limit_to_market)
{
EAComment(" Не смогли установить отложенный ордер после "+IntegerToString(cnt)+" попыток");
EAComment(" Ордер: " + OrderTypeToString(cmd)+" лотом "+DoubleToString(lot,LotDigits)+" по цене "+DoubleToString(price,PriceDigits)+" sl:"+
DoubleToString(stoploss,PriceDigits)+" tp:"+DoubleToString(takeprofit,PriceDigits));
EAComment(" Последняя ошибка: "+IntegerToString(GetLastError()));
return(-1);
}
}
// Если отложка была близко к рынку:
if (limit_to_market)
{
EAComment(" Открываем отложенный ордер по рынку, так как цена слишком близко.");
if (cmd==OP_BUYSTOP||cmd==OP_BUYLIMIT)
{
cmd=OP_BUY;
price=Ask;
}
else if (cmd==OP_SELLSTOP||cmd == OP_SELLLIMIT)
{
cmd=OP_SELL;
price=Bid;
}
}

// Открытие по рынку
error=GetLastError();
error=0;
ticket=-1;

if (cmd==OP_BUY||cmd==OP_SELL)
{
cnt=0;
while (!exit_loop)
{
if (IsTradeAllowed())
{
// Если цена ушла от цены открытия на MaxOpenOrdDev пунктов и выше, выходим.
RefreshRates();
if(cmd==OP_BUY)
{
if(MathAbs(price-Ask)>MaxOpenOrdDev*PricePoint)
{
return(-1);
EAComment(" Не смогли открыть ордер, цена ушла слишком далеко!");
}
else price=Ask;
}
if(cmd==OP_SELL)
{
if(MathAbs(price-Bid)>MaxOpenOrdDev*PricePoint)
{
return(-1);
EAComment(" Не смогли открыть ордер, цена ушла слишком далеко!");
}
else price=Bid;
}
// пробуем открыть ордер
ticket=OrderSend(symbol, cmd, lot, price, slippage, stoploss, takeprofit, ExpertName+" Magic:"+IntegerToString(magic), magic, 0, arrow_color);
error=GetLastError();
}
// Если не вышло, крутим счетчик попыток
else cnt++;
// И разбираемся в причине
switch (error)
{
case 0:
exit_loop = true;
break;
case 4: //Торговый сервер занят.
case 6: //Нет связи с торговым сервером.
case 129: //Неправильная цена Bid или Ask, возможно, ненормализованная цена.
case 132: //Рынок закрыт.
case 137: //Брокер занят.
case 145: //Модификация запрещена, так как ордер слишком близок к рынку.
case 146: //Подсистема торговли занята.
ReConnect(); // Делаем реконнект
cnt++;
break;
case 135: //Цена изменилась.
case 136: //Нет цен.
case 138: //Запрошенная цена устарела, либо перепутаны Bid и Ask.
RefreshRates();
continue;
default:
exit_loop = true;
break;
}
if (cnt>RetryAttempts) exit_loop=true;
if (!exit_loop)
{
EAComment(" Ошибка при попытке (№ "+IntegerToString(cnt)+" из "+IntegerToString(RetryAttempts)+"): " + RetryError(error));
SleepRandomTime();
RefreshRates();
}
if (exit_loop)
{
if (error!=0) EAComment(" Неисправимая ошибка:" + NoRetryError(error));
if (cnt>RetryAttempts) EAComment(" Количество попыток достигло максимального "+IntegerToString(RetryAttempts));
}
}
if (error==0)
{
EAComment(" Ордер успешно открыт.");
if(!OrderSelect(ticket, SELECT_BY_TICKET, MODE_TRADES)) EAComment(" Ошибка доступа к ордеру!!");
OrderPrint();
return(ticket);
}
else
{
EAComment(" Не смогли открыть ордер после "+IntegerToString(cnt)+" попыток");
EAComment(" Ордер: " + OrderTypeToString(cmd)+" лотом "+DoubleToString(lot,LotDigits)+" по цене "+DoubleToString(price,PriceDigits)+
" sl:"+DoubleToString(stoploss,PriceDigits)+" tp:"+DoubleToString(takeprofit,PriceDigits));
EAComment(" Последняя ошибка: "+IntegerToString(GetLastError()));
return(-1);
}
}
return(0);
}

if (error==0)
{
EAComment(" Ордер успешно открыт.");
if(!OrderSelect(ticket, SELECT_BY_TICKET, MODE_TRADES)) EAComment(" Ошибка доступа к ордеру!!");
OrderPrint();
return(ticket);
}

#define WM_COMMAND 0x0111

#import "user32.dll"
int GetAncestor (int hWnd, int gaFlags);
int PostMessageA (int hWnd, int Msg, int wParam, string lParam);
#import

//+------------------------------------------------------------------+
//| Сканирование серверов и реконнект при обрыве связи |
//+------------------------------------------------------------------+
// Функция выполняет сканирование серверов брокера и реконнект в
// случае обрыва связи
void ReConnect()
{
// Получаем Handle терминала
int MetaTrader = GetAncestor (WindowHandle (Symbol(), Period()), 2);
// Команда пересканировать все сервера
if (MetaTrader != 0)
{
PostMessageA (MetaTrader, WM_COMMAND, 37400, NULL);
}
return;
}

//+------------------------------------------------------------------+
//| Sleep |
//+------------------------------------------------------------------+
void SleepRandomTime()
{
if (IsTesting()||IsOptimization()) return;

double tenths = MathCeil(SleepTime / 0.1);
if (tenths
double maxtenths = MathRound(SleepMaximum/0.1);
double p = 1.0 - 1.0/tenths;

Sleep(1000);
for(int i=0; i if (MathRand() > p*32768) break;
Sleep(1000);
}
}

//+------------------------------------------------------------------+
//| Рефреш |
//+------------------------------------------------------------------+

bool Refresh()
{
bool exit_loop=false;
int cnt=0;
while (!exit_loop)
{
if(RefreshRates()) return(true); // Если получилось
if(!RefreshRates()) // Если не получилось
{
EAComment(" Не удалось обновить цены (с "+IntegerToString(cnt)+" попыток из "+IntegerToString(RetryAttempts)+")");
cnt++; // Плюсуем счетчик
SleepRandomTime(); // Подождем
}
if (cnt>RetryAttempts)
{
EAComment(" Не удалось обновить цены!");
exit_loop=true; // Если попыток много, выходим
}
}
return(false);
}