Todos los encargos
Reglas
Trabajo finalizado
Tarea técnica
Hi,
I need help to convert a mql4 EA to a Mql5 EA.
Looking forward to hear from you.
Thanks, Fertik
extern string R ="=========Réglages de base==========";
extern double PF_Départ = 5000;
extern double Lots = 0.1;
extern double TakeProfit = 50;
extern double TakeProfit0 = 40;
extern double TakeProfit1 = 30;
extern double TakeProfit2 = 20;
extern double TakeProfit3 = 10;
extern double StopLoss = 200;
extern double Coefflosse0 = 1;
extern double Coefflosse1 = 2;
extern double Coefflosse2 = 4;
extern double Coefflosse3 = 6;
double MyPoint;
int Dg,i;
//============================================//
int init()
{
ModifPoint();
}
//===========================================//
int start()
{
int y;
double pr=0; // profit;
for (y = 0; y < OrdersTotal(); y++)
{
OrderSelect (y, SELECT_BY_POS, MODE_TRADES);
if ((OrderMagicNumber()==301210) && (OrderSymbol()==Symbol()) && ((OrderType()==OP_BUY)||(OrderType()==OP_SELL))) {
pr=pr+OrderProfit();
}
}
//==========================================+
//| Nombre de pertes consécutives |
//==========================================+
int orders=HistoryTotal();
int losses=0;
double pr1=0;
for( i=orders-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)==false) { Print("Error in history!"); break; }
if(OrderSymbol()!=Symbol() || OrderType()>OP_SELL) continue;
//----
if(OrderProfit()>0) break;
if(OrderProfit()<0) losses++;
pr1=pr1+OrderProfit();
}
double pr3 = pr+pr1;
//+============================+
double P_PF,P_PF1;
string Infos = "";
/*int i=0;*/
int spread=MarketInfo("EURUSD",MODE_SPREAD);
P_PF1 =((AccountBalance()-PF_Départ)/PF_Départ)*100;
P_PF =(AccountBalance()-PF_Départ);
int li_28;
double lp72,lp88,lp89,lp90,ll96;
double SL=StopLoss*MyPoint;
if (pr >= (500*Lots)+ MathAbs(pr1)) {
for (int l_ord_total_0 = OrdersTotal(); l_ord_total_0 >= 0; l_ord_total_0--) {
OrderSelect(l_ord_total_0, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() == Symbol() && OrderMagicNumber() == 301210) {
if (OrderType() == OP_BUY || OrderType() == OP_SELL) OrderClose(OrderTicket(), OrderLots(), OrderClosePrice(), 5, CLR_NONE);
if (OrderType() != OP_BUY && OrderType() != OP_SELL) OrderDelete(OrderTicket());
}
}return (0);
}
//===========================================================
int lt4 = 0;
int lt8 = 0;
int lt12 = 0;
int lt16 = 0;
double ll40 = 0;
double ll48 = 0;
double lo56 = 0;
double lo64 = 0;
double ltp104 = 0;
double ltp112 = 0;
double ll136 = 0;
double ll144 = 0;
double mA5= iMA(NULL,0,3,0,1,PRICE_HIGH,0);
double mA6= iMA(NULL,0,3,0,1,PRICE_HIGH,1);
double mA7= iMA(NULL,0,3,0,1,PRICE_LOW,0);
double mA8= iMA(NULL,0,3,0,1,PRICE_LOW,1);
if ( mA7 > mA8)li_28=2;
if (mA5 < mA6)li_28=1;
//==============================+
//Mode Close Orders |
//==============================+
for (int l_pos_284 = 0; l_pos_284 < OrdersTotal(); l_pos_284++) {
OrderSelect(l_pos_284, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() == Symbol() && OrderMagicNumber() == 301210) {
if (OrderType() == OP_BUY && lt4 < OrderTicket()) {
ll40 = OrderLots();
lo56 = OrderOpenPrice();
lt4 = OrderTicket();
ltp112 = OrderTakeProfit();
}
if (OrderType() == OP_SELL && lt8 < OrderTicket()) {
ll48 = OrderLots();
lo64 = OrderOpenPrice();
lt8 = OrderTicket();
ltp104 = OrderTakeProfit();
}
if (OrderType() == OP_BUYSTOP) {
lt12 = OrderTicket();
ll136 = OrderLots();
}
if (OrderType() == OP_SELLSTOP) {
lt16 = OrderTicket();
ll144 = OrderLots();
}
}
}
if (lt4 == 0 && lt16 != 0) OrderDelete(lt16);
if ((lt16== 0 && lt4 != 0)&&(OrderOpenPrice()-Ask>SL)&&(OrderLots()==Lots)) OrderClose(lt4, OrderLots(), OrderClosePrice(), 5, CLR_NONE);
if (lt4 == 0 && lt16 == 0) {
lp88 = Ask + TakeProfit * MyPoint;
if ((DayOfWeek() == 5 && (losses >0))||(DayOfWeek() == 1 && Hour() > 3)||(DayOfWeek() == 2)||(DayOfWeek() == 3)||(DayOfWeek() == 4)||(DayOfWeek() == 7 && Hour() > 24)){
if (li_28 == 2 && lt8 == 0) {
if (AccountFreeMarginCheck(Symbol(), OP_BUY, Lots * 50) >= 0.0) {
OrderSend(Symbol(), OP_BUY, Lots, Ask, 3,Ask-SL,lp88, "Magic = " + 301210, 301210, 0, DodgerBlue);
}
}
}
}
if (lt8 == 0 && lt12 != 0) OrderDelete(lt12);
if ((lt12== 0 && lt8 != 0)&&(Bid-OrderOpenPrice()>SL)&&(OrderLots()==Lots)) OrderClose(lt8, OrderLots(), OrderClosePrice(), 5, CLR_NONE);
if (lt8 == 0 && lt12 == 0) {
lp88 = Bid - TakeProfit * MyPoint;
if ((DayOfWeek() == 5 && (losses >0))||(DayOfWeek() == 1 && Hour() > 3)||(DayOfWeek() == 2)||(DayOfWeek() == 3)||(DayOfWeek() == 4)||(DayOfWeek() == 7 && Hour() > 24)){
if (li_28 == 1 && lt4 == 0) {
if (AccountFreeMarginCheck(Symbol(), OP_SELL, Lots * 50) >= 0.0) {
OrderSend(Symbol(), OP_SELL, Lots, Bid, 3,Bid+SL,lp88, "Magic = " + 301210, 301210, 0, Red);
}
}
}
}
if (lt4 != 0 && lt16 ==0) {
if (AccountFreeMarginCheck(Symbol(), OP_BUY, 2.0 * ll40) >= 0.0) {
lp72 = lo56 - SL;
if (losses <0){ll96 = NormalizeDouble( Lots, 2);}else {ll96 = NormalizeDouble(Coefflosse0*ll40, 2);lp88 = lp72 - (TakeProfit0 * MyPoint);}
if (losses ==1){ll96 = NormalizeDouble( Coefflosse1 * ll40 , 2);lp89 = lp72 - (TakeProfit1 * MyPoint);}
if (losses ==2){ll96 = NormalizeDouble( Coefflosse2 * ll40 , 2);lp89 = lp72 - (TakeProfit2 * MyPoint);}
if (losses ==3){ll96 = NormalizeDouble( Coefflosse3 * ll40 , 2);lp89 = lp72 - (TakeProfit3 * MyPoint);}
OrderSend(Symbol(), OP_SELLSTOP, ll96, lp72, 3,lo56,lp89, "Magic = " + 301210, 301210, 0, OrangeRed);
}
}
if (lt8 != 0 && lt12 ==0) {
if (AccountFreeMarginCheck(Symbol(), OP_SELL, 2.0 * ll48) >= 0.0) {
lp72 = lo64 + SL;
if (losses <0){ll96 = NormalizeDouble( Lots, 2);}else {ll96 = NormalizeDouble(Coefflosse0*ll48, 2);lp88 = lo64 + SL + (TakeProfit0 * MyPoint);}
if (losses ==1){ll96 = NormalizeDouble( Coefflosse1 * ll48 , 2);lp90 = lp72 + (TakeProfit1 * MyPoint);}
if (losses ==2){ll96 = NormalizeDouble( Coefflosse2 * ll48 , 2);lp90 = lp72 + (TakeProfit2 * MyPoint);}
if (losses ==3){ll96 = NormalizeDouble( Coefflosse3 * ll48 , 2);lp90 = lp72 + (TakeProfit3 * MyPoint);}
OrderSend(Symbol(), OP_BUYSTOP, ll96, lp72, 3,lo64,lp90, "Magic = " + 301210, 301210, 0, DodgerBlue);
}
}
//=====================================================================
Infos = "PROGRESSION PF: " + DoubleToStr(P_PF,2) + "€"+"..."+DoubleToStr(P_PF1,2)+ "%" ;
Comment(Infos);
return (0);
}
void ModifPoint ()
{
if (Digits == 5 || Digits == 3)
{
MyPoint = Point*10;
Dg = (Digits - 1);
}
else
{
MyPoint = Point;
Dg = Digits;
}
}