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

1. __http://time-forex.com/skripty
в т.ч.
-Тейк профит для отложенных ордеров, -Установка отложенных ордеров мышкой, -Скрипт удаления отложенных ордеров,
-Скрипт - Стопы на все ордера (для переделки на: Стоп-ордера на все ордера и Заменить стоп-лосс на стоп-орлдер по всем ордерам),
- Расчет волатильности рынка, -Скрипт риска и расчета стоп лосс и тейк профит,
- Скрипт определения уровня без убытка, -Скрипт set 2 stop orders – два отложенных ордера(в 2 стороны)

2. __http://forexpunkt.ru/script/
-Закрыть ордера Buy, -Закрыть ордера Sell, -Лёгкая установка отложенных ордеров

3. Скрипт Stop Orders Mouse __http://forexva.ru/skript-stop-orders-mouse/
В зависимости от того, в какую точку вы кинете скрипт, он и выставит отложенный ордер — если выше цены Buystop, ниже Sellstop.
В настройках скрипта есть возможность установки фиксированного лота или процента от депо, стоплосса, тейкпрофити и магика ордеров.

Выставление ордеров мышью на графике
__http://finbay.ru/skripty-metatrader4/ustanovka-orderov-myshju.html

Скрипты для упрощения работы с ордерами.
__http://forum.roboforex.ru/showthread.php?t=1992

__http://ruforum.mt5.com/threads/68817-neskolko-skriptov-dlya-uproshcheniya-torgovli



Сборки скриптов от пользователей форума Forum Forex-Investo'RU → Рынок Форекс → Советники, АТС, Индикаторы, сигналы

__http://forum.forex-investo.ru/index.php?/topic/1912-%D0%BF%D0%BE%D0%BB%D0%B5%D0%B7%D0%BD%D1%8B%D0%B5-%D1%81%D0%BA%D1%80%D0%B8%D0%BF%D1%82%D1%8B-%D0%BF%D1%80%D0%B8%D1%8F%D1%82%D0%BD%D0%B0%D1%8F-%D0%BC%D0%B5%D0%BB%D0%BE%D1%87%D1%8C-%D0%BE%D0%B1%D0%B7%D0%BE%D1%80-%D1%81%D0%BA%D1%80%D0%B8%D0%BF%D1%82/

Для этого в панели создадим еще одно поле "Stop Loss Level".
Теперь наша панель будет выглядеть следующим образом:

Рис. 14. Установка стоп-лосс уровня в панели DevaitionPanel.

//+------------------------------------------------------------------+
//| End obj click                                                    |
//+------------------------------------------------------------------+
void CDevPanel::OnObjClick(string sparam)
  {
   if(sparam==m_buy_button_name)
     {
      if(Trade.BuyLimit(1,CalcCurrentPrice(OP_BUY)))
         SendStopLoss(OP_BUY);
     }
   if(sparam==m_sell_button_name)
     {
      if(Trade.SellLimit(1,CalcCurrentPrice(OP_SELL)))
         SendStopLoss(OP_SELL);
     }
   ObjectSetInteger(0,sparam,OBJPROP_STATE,false);
   Sleep(100);
   ChartRedraw();
  }
//+------------------------------------------------------------------+
//| Send SL order                                                    |
//+------------------------------------------------------------------+
bool CDevPanel::SendStopLoss(int op_type)
  {
   if(op_type==OP_BUY)
     {
      double bid=SymbolInfoDouble(Symbol(),SYMBOL_BID);
      if(m_sl_level>=0.0 && m_sl_level        {
         MqlTradeRequest request={0};
         request.action = TRADE_ACTION_PENDING;
         request.symbol = Symbol();
         request.volume = 1.0;
         request.price=m_sl_level;
         request.stoplimit=m_sl_level -(m_deviation*Point());
         request.type=ORDER_TYPE_SELL_STOP_LIMIT;
         request.type_filling=ORDER_FILLING_RETURN;
         request.type_time=ORDER_TIME_DAY;
         MqlTradeResult result;
         bool res=OrderSend(request,result);
         if(!res)
            Print("Error set S/L. Reason: "+(string)GetLastError());
         return res;
        }
     }
   else if(op_type==OP_SELL)
     {
      double ask=SymbolInfoDouble(Symbol(),SYMBOL_ASK);
      if(m_sl_level>=0.0 && m_sl_level>ask)
        {
         MqlTradeRequest request={0};
         request.action = TRADE_ACTION_PENDING;
         request.symbol = Symbol();
         request.volume = 1.0;
         request.price=m_sl_level;
         request.stoplimit=m_sl_level+(m_deviation*Point());
         request.type=ORDER_TYPE_BUY_STOP_LIMIT;
         request.type_filling=ORDER_FILLING_RETURN;
         request.type_time=ORDER_TIME_DAY;
         MqlTradeResult result;
         bool res=OrderSend(request,result);
         if(!res)
            Print("Error set S/L. Reason: "+(string)GetLastError());
         return res;
        }
      if(CharToStr(StringGetChar(data,strlen-1))=='.')
         StringSetChar(data,strlen-1,'');
     }
   return false;
  }

//+------------------------------------------------------------------+
//| Martin.mq4 |
//| Copyright 2016, MetaQuotes Software Corp. |
//| |
//+------------------------------------------------------------------+
#property copyright "Copyright 2016, MetaQuotes Software Corp."
#property link " "
#property version "1.00"
#property strict


extern double Lots = 0.01 ;
extern int TakeProfit = 50;
extern int Step = 60;
extern double Multiplier = 2;
extern int Magic = 123;
extern int Slippage = 3;
double tp, price, lastlot;
int ticket;
//+------------------------------------------------------------------+
//| Expert initialization function |
//+------------------------------------------------------------------+
int OnInit()
{
if (Digits == 3 || Digits == 5)
{
TakeProfit *= 10;
Step *= 10;
Slippage *= 10;

}
return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
//---

}
//+------------------------------------------------------------------+
//| Expert tick function |
//+------------------------------------------------------------------+
void OnTick()
{

double ima = iMA(Symbol(), PERIOD_H1, 14, 0, MODE_SMA, PRICE_CLOSE, 1);


if (CountTrade() == 0)
{
if( Ask > ima)
{
tp= NormalizeDouble(Ask + TakeProfit*Point, Digits);
ticket= OrderSend( Symbol(), OP_BUY, Lots, Ask, 5, 0, tp, "", Magic, 0, Blue);
}
else
{
tp= NormalizeDouble(Bid - TakeProfit*Point, Digits);
ticket= OrderSend( Symbol(), OP_SELL, Lots, Ask, 5, 0, tp, "", Magic, 0, Red);
}
}
else
{
int order_type = FindLastOrderType();
if(order_type == OP_BUY)
{
price = FindLastOrderPrice(OP_BUY);
if (Ask {
lastlot = FindLastLots(OP_BUY);
lastlot = NormalizeDouble(lastlot*Multiplier, 2);
ticket = OrderSend(Symbol(), OP_BUY, lastlot, Ask, 5, 0, 0, "", Magic, 0, Blue);
if(ticket Print("Osibka otkr ord na pokyp");

ModifyOrders(OP_BUY);
}
}


if(order_type == OP_SELL)
{
price = FindLastOrderPrice(OP_SELL);
if (Bid >= price + Step*Point)
{
lastlot = FindLastLots(OP_SELL);
lastlot = NormalizeDouble(lastlot*Multiplier, 2);
ticket = OrderSend(Symbol(), OP_SELL, lastlot, Bid, 5, 0, 0, "", Magic, 0, Red);
if(ticket Print("Osibka otkr ord na prodajy");
ModifyOrders(OP_SELL);
}
}
}

}

//+------------------------------------------------------------------+
void ModifyOrders(int otype)
{
double avg_price, order_lots=0;
price = 0;

for( int i=OrdersTotal()-1; 1>=0; i--)
{
if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES))

{
if(OrderSymbol() == Symbol() && OrderMagicNumber() == Magic && OrderType() == otype)
{
price+= OrderOpenPrice()*OrderLots();
order_lots += OrderLots();
}
}
}
avg_price = NormalizeDouble(price / order_lots, Digits);

if (otype == OP_BUY) tp = NormalizeDouble(avg_price+ TakeProfit*Point, Digits);
if (otype == OP_SELL) tp = NormalizeDouble(avg_price - TakeProfit*Point, Digits);

for(int i= OrdersTotal()-1; i>=0; i--)
{
if(OrderSelect( i, SELECT_BY_POS, MODE_TRADES))
{
if(OrderSymbol() == Symbol() && OrderMagicNumber() == Magic && OrderType() == otype)
{
if( OrderModify(OrderTicket(), OrderOpenPrice(), 0, tp, 0))
Print("Order modificirovan");
else Print("Oshibka modificii orderov");
}
}
}
}
//+------------------------------------------------------------------+
double FindLastLots(int otype)
{
int oldticket;
double oldprice=0;

ticket=0;


for( int ont = OrdersTotal()-1 ; ont >= 0 ; ont--)
{
if(OrderSelect(ont, SELECT_BY_POS, MODE_TRADES))
{
if(OrderSymbol()== Symbol() && OrderMagicNumber() == Magic && OrderType() == otype)
{
oldticket = OrderTicket();
if(oldticket > ticket)
{
ticket = oldticket;
oldprice = OrderOpenPrice();
}
}

}
}
return(oldprice);
}


//+------------------------------------------------------------------+
double FindLastOrderPrice(int otype)
{
int oldticket;
double oldlots, oldprice=0;

ticket=0;


for( int ont = OrdersTotal()-1 ; ont>= 0 ; ont--)
{
if(OrderSelect(ont, SELECT_BY_POS, MODE_TRADES))
{
if(OrderSymbol()== Symbol() && OrderMagicNumber() == Magic && OrderType() == otype)
{
oldticket = OrderTicket();
if(oldticket > ticket)
{
ticket = oldticket;
oldlots = OrderLots();
}
}

}
}
return(oldprice);
}
//+------------------------------------------------------------------+
int FindLastOrderType()
{
for(int i = OrdersTotal() - 1; i>=0; i--)
{
if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
{
if(OrderSymbol()== Symbol() && OrderMagicNumber() == Magic)
return(OrderType());
}

}
return(-1);
}


//+------------------------------------------------------------------+
int CountTrade()
{
int count=0;
for(int i= OrdersTotal()-1; i>0; i--)
{
if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
{
if(OrderSymbol()== Symbol() && OrderMagicNumber() == Magic)
{
if(OrderType() == OP_BUY || OrderType() == OP_SELL)
{
count++;
}
}
}

}
return(count);
}

erkon ты серьезно думаешь что кто-либо возьмется за то, что ты хочешь? ты сам пробовал перечитать своё полотно? первая мысль которая приходит когда прогер натыкается на такое - "да ну его наф! совсем псих? листаем дальше".

надо быть катастрофическим фатальным альтруистом мозга чтобы писать что-то по твоим ТЗ, да еще и на шару :d >:d
с твоими хотелками я советую тебе изучать хотя бы базовые аспекты mql4. месяц-два-полгода и ты сам уже будешь писать все что тебе надо. а так ты просто тупо тратишь своё время, имхо.