Conversion Expert Advisor Metatrader - Forex Forum

Salut

J'ai un systeme de trading pour meta trader 3.8 et j'aurais besoin de qqun qui me le convertisse pour metatrader 4, systeme très rentable que j'ai utilisé pendant un an en réel, celui qui me le convertit pourra l'utilizer a son aise.

J'attends vos reponses.

Merçi

MN

si je peux t'aider , avec plaisir

Salut muscat

Oui avec plaisir, je join a ce post le code de mon expert meta 3.8 si tu peux le coder pour meta 4 ce serait super.



/*[[
Name := day time breakout
Author := MN
Link :=
Notes := lower than h1 charts; times GMT.
Lots := 1
Stop Loss := 110
Take Profit := 180
Trailing Stop := 0
]]*/
defines: Slippage(5),settime(1),closetime(21),setuprange(100),risk(12),mm(0);
var: i(0),lotsi(0),p1(0),p2(0),trig(0);

If FreeMargin<100 then Exit;
if mm<>0 then
lotsi=Ceil(Balance*risk/10000)/10
else
lotsi=Lots;
p1=setuprange/2+2;
p2=setuprange/2-2;
if TimeHour(time)=settime and TimeMinute(time)=0 then
If TotalTrades<1 then {
SetOrder(OP_BUYSTOP,lotsi,Bid+p1*Point,Slippage,Bid+p1*point-StopLoss*Point,Bid+(p1+TakeProfit)*Point,blue);
SetOrder(OP_SELLSTOP,lotsi,Bid-p2*Point,Slippage,Bid-p2*point+StopLoss*Point,Bid-(p2+TakeProfit)*Point,green);
trig=0;
};

if trig=0 then {
if TimeHour(time)>settime and TimeHour(time)<closetime then {
if TotalTrades=2 then
for i=1 to TotalTrades {
if ord(i,VAL_TYPE)=OP_BUY then {
trig=1;
DeleteOrder(ord(3-i,VAL_TICKET),white);
SetOrder(OP_SELLSTOP,lotsi*2,Bid-stoploss*Point,Slippage,Bid-stoploss*point+StopLoss*Point,Bid-(stoploss+TakeProfit)*Point,green);
};
if ord(i,VAL_TYPE)=OP_SELL then {
trig=1;
DeleteOrder(ord(3-i,VAL_TICKET),white);
SetOrder(OP_BUYSTOP,lotsi*2,Bid+stoploss*Point,Slippage,Bid+stoploss*point-StopLoss*Point,Bid+(stoploss+TakeProfit)*Point,blue);
};

};
};
};

if TimeHour(time)=closetime and TimeMinute(time)=0 then
for i=1 to TotalTrades {
if ord(i,VAL_TYPE)=OP_BUY then
CloseOrder(ord(i,VAL_TICKET),ord(i,VAL_LOTS),ask,Slippage,red);
if ord(i,VAL_TYPE)=OP_SELL then
CloseOrder(ord(i,VAL_TICKET),ord(i,VAL_LOTS),bid,Slippage,yellow);
if ord(i,VAL_TYPE)=OP_SELLSTOP or ord(i,VAL_TYPE)=OP_BUYSTOP then
DeleteOrder(ord(i,VAL_TICKET),white);
};
if TrailingStop>10 then {
for i=1 to TotalTrades
begin
If Ord(i,VAL_TYPE)=OP_BUY then {
If (Bid-Ord(i,VAL_OPENPRICE))>(TrailingStop*Point) then {
If Ord(i,VAL_STOPLOSS)<(Bid-TrailingStop*Point) then {
ModifyOrder(Ord(i,VAL_TICKET),Ord(i,VAL_OPENPRICE),
Bid-TrailingStop*Point,Ord(i,VAL_TAKEPROFIT),Red);
};
};
};
If Ord(i,VAL_TYPE)=OP_SELL then
{
If (Ord(i,VAL_OPENPRICE)-Ask)>(TrailingStop*Point) then {
If Ord(i,VAL_STOPLOSS)>(Ask+TrailingStop*Point) or
Ord(i,VAL_STOPLOSS)=0 then {
ModifyOrder(Ord(i,VAL_TICKET),Ord(i,VAL_OPENPRICE),
Ask+TrailingStop*Point,Ord(i,VAL_TAKEPROFIT),Red);
};
};
};
end;
};
exit;

pere noel, j'ai récupéré ton fichier , je vais voir ca

Voici une version sous MT4

il y avait beaucoup de boucles imbriquées, ca a pris un peu de temps

il reste à tester tout ceci dès redémarrage du fx



// Name := day time breakout
// Author := MN modifié par Muscat pour adaptation sur MT4

// Notes := lower than h1 charts; times GMT.
extern double Lots = 1;
extern int StopLoss = 110;
extern int TakeProfit = 180;
extern int TrailingStop = 0;
extern double mm =0;
int Slippage = 5;
int ticket1,ticket2;
double settime=1;
double closetime=21;
double setuprange=100;
double risk=12;
double i=0;
double lotsi = 0;
double p1,p2,trig = 0;

int init()
{

}
int deinit()
{
//----

//----
return(0);
}
int start()
{

if (AccountFreeMargin()<100)
{
return(0);
}


if (mm != 0)
{
lotsi=MathCeil(AccountBalance()*risk/10000)/10;
}
else
{
lotsi=Lots;
}
//}
p1=setuprange/2+2;
p2=setuprange/2-2;


if (Hour()==settime && Minute()==0 && OrdersTotal()<1)
{
ticket1=OrderSend(Symbol(),OP_BUYSTOP,lotsi,Bid+p1*Point,Slippage,Bid+p1*Point-StopLoss*Point,Bid+(p1+TakeProfit)*Point," ",16384,0,Blue);
ticket2=OrderSend(Symbol(),OP_BUYSTOP,lotsi,Bid-p2*Point,Slippage,Bid-p2*Point-StopLoss*Point,Bid-(p2+TakeProfit)*Point," ",16384,0,Green);
trig=0;
}


if (trig==0 && Hour()>settime && Hour()<closetime && OrdersTotal()==2)
{
for (i=1;OrdersTotal()==i;i++)
{
if (OrderType()==OP_BUY)
{
trig=1;
OrderDelete(OrderTicket());
OrderSend(OP_SELLSTOP,lotsi*2,Bid-StopLoss*Point,Slippage,Bid-StopLoss*Point+StopLoss*Point,Bid-(StopLoss+TakeProfit)*Point,Green);
}
if (OrderType()==OP_SELL)
{
trig=1;
OrderDelete(OrderTicket());
OrderSend(OP_BUYSTOP,lotsi*2,Bid+StopLoss*Point,Slippage,Bid+StopLoss*Point-StopLoss*Point,Bid+(StopLoss+TakeProfit)*Point,Blue);
}

} // fin de for
}


if (Hour()==closetime && Minute()==0)
{
for (i=1;OrdersTotal()==i;i++)
{
OrderSelect(i,SELECT_BY_POS);

if(OrderType()==OP_BUY)
{
OrderClose(OrderTicket(),OrderLots(),Ask,Slippage,Red);
}
if (OrderType()==OP_SELL)
{
OrderClose(OrderTicket(),OrderLots(),Bid,Slippage,Yellow);
}
if (OrderType()==OP_SELLSTOP || OrderType()==OP_BUYSTOP)
{
OrderDelete(OrderTicket());
}
} //fin de for
}// fin de if


if (TrailingStop > 10)
{
for (i=1;OrdersTotal()==i;i++)
{
if (OrderType()==OP_BUY)
{
if (Bid-OrderOpenPrice()>TrailingStop*Point && OrderStopLoss()<Bid-TrailingStop*Point)
{
OrderModify(OrderTicket(),OrderOpenPrice(),Bid-TrailingStop*Point,OrderTakeProfit(),Red);
}
}
if (OrderType()==OP_SELL)
{
if (OrderOpenPrice()-Ask>TrailingStop*Point&& OrderStopLoss()>Ask+TrailingStop*Point || OrderStopLoss()==0)
{
OrderModify(OrderTicket(),OrderOpenPrice(),Ask+TrailingStop*Point,OrderTakeProfit(),Red);
}
}
} //fin de for

return(0);
} // fin if

}// fin programme

This post has been edited by muscat: Oct 30 2005, 19:35

le meme en version directe à coller dans ton MT4

ah non , tiens mataf empeche l'upload d'un fichier metatrader

meme en version source gratuit !!!

This post has been edited by muscat: Oct 30 2005, 19:42

Merçi muscat , je vais tester et je te dis quoi.

This post has been edited by pere noel: Oct 30 2005, 20:30

Salut muscat.

On principe le systeme doit lancer 2 ordres, un ordre buy stop et sell stop simultanement, or la il y a juste l' ordre buy stop qui c'est enclenché. ci ce n'est pas trop te demander peux tu jeter un oeuil.

D'avance merçi.

oui, pardon . un copier coller pas vérifié . essaye ceci :


// Name := day time breakout
// Author := MN modifié par Muscat pour adaptation sur MT4

// Notes := lower than h1 charts; times GMT.
extern double Lots = 1;
extern int StopLoss = 110;
extern int TakeProfit = 180;
extern int TrailingStop = 0;
extern double mm =0;
int Slippage = 5;
int ticket1,ticket2;
double settime=1;
double closetime=21;
double setuprange=100;
double risk=12;
double i=0;
double lotsi = 0;
double p1,p2,trig = 0;

int init()
{

}
int deinit()
{
//----

//----
return(0);
}
int start()
{

if (AccountFreeMargin()<100)
{
return(0);
}


if (mm != 0)
{
lotsi=MathCeil(AccountBalance()*risk/10000)/10;
}
else
{
lotsi=Lots;
}
//}
p1=setuprange/2+2;
p2=setuprange/2-2;


if (Hour()==settime && Minute()==0 && OrdersTotal()<1)
{
ticket1=OrderSend(Symbol(),OP_BUYSTOP,lotsi,Bid+p1*Point,Slippage,Bid+p1*Point-StopLoss*Point,Bid+(p1+TakeProfit)*Point," ",16384,0,Blue);
ticket2=OrderSend(Symbol(),OP_SELLSTOP,lotsi,Bid-p2*Point,Slippage,Bid-p2*Point-StopLoss*Point,Bid-(p2+TakeProfit)*Point," ",16384,0,Green);
trig=0;
}


if (trig==0 && Hour()>settime && Hour()<closetime && OrdersTotal()==2)
{
for (i=1;OrdersTotal()==i;i++)
{
if (OrderType()==OP_BUY)
{
trig=1;
OrderDelete(OrderTicket());
OrderSend(OP_SELLSTOP,lotsi*2,Bid-StopLoss*Point,Slippage,Bid-StopLoss*Point+StopLoss*Point,Bid-(StopLoss+TakeProfit)*Point,Green);
}
if (OrderType()==OP_SELL)
{
trig=1;
OrderDelete(OrderTicket());
OrderSend(OP_BUYSTOP,lotsi*2,Bid+StopLoss*Point,Slippage,Bid+StopLoss*Point-StopLoss*Point,Bid+(StopLoss+TakeProfit)*Point,Blue);
}

} // fin de for
}


if (Hour()==closetime && Minute()==0)
{
for (i=1;OrdersTotal()==i;i++)
{
OrderSelect(i,SELECT_BY_POS);

if(OrderType()==OP_BUY)
{
OrderClose(OrderTicket(),OrderLots(),Ask,Slippage,Red);
}
if (OrderType()==OP_SELL)
{
OrderClose(OrderTicket(),OrderLots(),Bid,Slippage,Yellow);
}
if (OrderType()==OP_SELLSTOP || OrderType()==OP_BUYSTOP)
{
OrderDelete(OrderTicket());
}
} //fin de for
}// fin de if


if (TrailingStop > 10)
{
for (i=1;OrdersTotal()==i;i++)
{
if (OrderType()==OP_BUY)
{
if (Bid-OrderOpenPrice()>TrailingStop*Point && OrderStopLoss()<Bid-TrailingStop*Point)
{
OrderModify(OrderTicket(),OrderOpenPrice(),Bid-TrailingStop*Point,OrderTakeProfit(),Red);
}
}
if (OrderType()==OP_SELL)
{
if (OrderOpenPrice()-Ask>TrailingStop*Point&& OrderStopLoss()>Ask+TrailingStop*Point || OrderStopLoss()==0)
{
OrderModify(OrderTicket(),OrderOpenPrice(),Ask+TrailingStop*Point,OrderTakeProfi
t(),Red);
}
}
} //fin de for

return(0);
} // fin if

}// fin programme

J'ai encore le meme prob. seul le buy stop se met en route , mais sur l'expert d'origine sur meta 3.8 j'ai le meme probleme, jusque maintenant cela ne me derrangait pas car je ne prenait que des positions longues, mais la j'aimerais intervenir dans les deux sens.
Si tu arrives a voir d'ou vient le bug ce serait bien.

A+

MN

oui il y a une logique qui ne fonctionne pas . y compris sur ta version 3.8
le take profit de l'ordre sell etait illogique (> à prix achat)
ca empeche pas le fonctionnement de l'expert mais aucun ordre sell pouvait partir

modifie cette partie du code

if (Hour()==settime && Minute()==0 && OrdersTotal()<1)
{
OrderSend(Symbol(),OP_BUYSTOP,lotsi,Bid+p1*Point,Slippage,Bid+p1*Point-StopLoss*Point,Bid+(p1+TakeProfit)*Point," ",16384,0,Blue);
OrderSend(Symbol(),OP_SELLSTOP,lotsi,Bid-p2*Point,Slippage,Bid-p2*Point+StopLoss*Point,Bid-(p2+TakeProfit)*Point," ",16384,0,Green);
trig=0;
}

C'est super ca marche

peux tu me donner aussi la modif pour meta 3.8 ?

je suis very happy.

Si tu veux donne moi ton adresse et je te fais parvenir une bonne bouteille.
ou dis moi comment te remercier.

A+

MN

Merci, c'est très gentil mais c'est de bon coeur ... et puis si ton systeme est gagnant... je vais m"en servir meme si j'ai ce qu'il faut avec "madrid"


Pour MT3 , remplace cette partie :

if TimeHour(time)=settime and TimeMinute(time)=0 and TotalTrades<1 then {
SetOrder(OP_BUYSTOP,lotsi,Bid+p1*Point,Slippage,Bid+p1*point-StopLoss*Point,Bid+(p1+TakeProfit)*Point,blue);
SetOrder(OP_SELLSTOP,lotsi,Bid-p2*Point,Slippage,Bid-p2*point+StopLoss*Point,Bid-(p2+TakeProfit)*Point,green);
trig=0;
};

This post has been edited by muscat: Oct 31 2005, 10:58

Ok parfait.

je vais laisser tourner en demo un petit momment .

Si je constate une anomalie je te tiens au courant.

A +

This post has been edited by pere noel: Oct 31 2005, 11:05

J'ai fait le changement mais j'ai toujours uniquement Buy stop qui s'enclenche.

PS Les ordres non executes doivent s'annuler a l'heure indique dans closetime

This post has been edited by pere noel: Oct 31 2005, 16:07

J'utilise cet Expert uniquement sur GBP/USD et USD/JPY

This post has been edited by pere noel: Oct 31 2005, 15:50

et ils ne s'annulent pas , dans MT3 ou MT4 ?

bon, pere noel ne faisant pas le pont, je m'y remet ; par contre il faut que je fasse le test de ce systeme sur un compte MT3 (j'en ai plus) , donc un peu de patience ...

Ok pas de probleme j'attends.

de toute façon la je pars a Bruxelles donc seulement de retour en fin de soirée.

This post has been edited by pere noel: Nov 1 2005, 8:09

pour MT3 , je vois pas le probleme (merci de préciser ce qui ne marche pas)

pour MT4 , essaye ca (programme entier) :

// Name := day time breakout
// Author := MN modifié par Muscat pour adaptation sur MT4

// Notes := lower than h1 charts; times GMT.
extern double Lots = 1;
extern int StopLoss = 110;
extern int TakeProfit = 180;
extern int TrailingStop = 0;
extern double mm =0;
int Slippage = 5;
int ticket1,ticket2;
double settime=9;
double closetime=21;
double setuprange=100;
double risk=12;
double i=0;
double lotsi = 0;
double p1,p2,trig = 0;


int init()
{

}
int deinit()
{
//----

//----
return(0);
}
int start()
{

if (AccountFreeMargin()<100)
{
return(0);
}

if (mm != 0)
{
lotsi=MathCeil(AccountBalance()*risk/10000)/10;
}
else
{
lotsi=Lots;
}
//}
p1=setuprange/2+2; //52
p2=setuprange/2-2; //48


if (Hour()==settime && Minute()==0 && OrdersTotal()<1)
{
OrderSend(Symbol(),OP_BUYSTOP,lotsi,Bid+p1*Point,Slippage,Bid+p1*Point-StopLoss*Point,Bid+(p1+TakeProfit)*Point," ",16384,0,Blue);
OrderSend(Symbol(),OP_SELLSTOP,lotsi,Bid-p2*Point,Slippage,Bid-p2*Point+StopLoss*Point,Bid-(p2+TakeProfit)*Point," ",16384,0,Green);
trig=0;
}


if (trig==0 && Hour()>settime && Hour()<closetime && OrdersTotal()==2)
{
for (i=1;OrdersTotal()==i;i++)
{
if (OrderType()==OP_BUY)
{
trig=1;
OrderDelete(OrderTicket());
OrderSend(OP_SELLSTOP,lotsi*2,Bid-StopLoss*Point,Slippage,Bid-StopLoss*Point+StopLoss*Point,Bid-(StopLoss+TakeProfit)*Point,Green);
}
if (OrderType()==OP_SELL)
{
trig=1;
OrderDelete(OrderTicket());
OrderSend(OP_BUYSTOP,lotsi*2,Bid+StopLoss*Point,Slippage,Bid+StopLoss*Point-StopLoss*Point,Bid+(StopLoss+TakeProfit)*Point,Blue);
}

} // fin de for
}


if (Hour()==closetime && Minute()==0)
{
for (i=1;i<=OrdersTotal();i++)
{
OrderSelect(i,SELECT_BY_POS);

if(OrderType()==OP_BUY)
{
OrderClose(OrderTicket(),OrderLots(),Ask,Slippage,Red);
}
if (OrderType()==OP_SELL)
{
OrderClose(OrderTicket(),OrderLots(),Bid,Slippage,Yellow);
}
if (OrderType()==OP_SELLSTOP || OrderType()==OP_BUYSTOP)
{
OrderDelete(OrderTicket());
}
} //fin de for
}// fin de if


if (TrailingStop > 10)
{
for (i=1;i<=OrdersTotal();i++)
{
if (OrderType()==OP_BUY)
{
if (Bid-OrderOpenPrice()>TrailingStop*Point && OrderStopLoss()<Bid-TrailingStop*Point)
{
OrderModify(OrderTicket(),OrderOpenPrice(),Bid-TrailingStop*Point,OrderTakeProfit(),Red);
}
}
if (OrderType()==OP_SELL)
{
if (OrderOpenPrice()-Ask>TrailingStop*Point&& OrderStopLoss()>Ask+TrailingStop*Point || OrderStopLoss()==0)
{
OrderModify(OrderTicket(),OrderOpenPrice(),Ask+TrailingStop*Point,OrderTakeProfit(),Red);
}
}
} //fin de for

return(0);
} // fin if

}// fin programme

[quote=muscat,Nov 1 2005, 16:48]
pour MT3 , je vois pas le probleme (merci de préciser ce qui ne marche pas)


Pour meta 3.8 c'est bon les ordres s'annulent a l"heure indiqué, par contre j'ai modifié la ligne qui concerne les ordres mais le probleme est toujours la il ya uniquement buy stop qui s'enclenche.

Pour Meta 4 j'ai teste le tout dernier code que tu as mis en ligne, et c'est bon il y a 2 ordres simultanées qui s'enclenchent, par contre ils ne s'annulent toujours pas a l'heure indiquée.

Une question as-tu Skype ou Msn ou un autre moyen de te contacter? si ça ne pose pas de probleme pour toi.

Ainsi je pourrais mieux t'expliquer certaines modifications qu'il y aurait a faire, en plus j'ai un autre expert a modifier qui peut aussi etre profitable.

A+

MN

modifie aussi ce passage sur MT4 : décidement j'ai été trop vite sur ce code


if (trig==0 && Hour()>settime && Hour()<closetime && OrdersTotal()==2)
{
for (i=1;i<=OrdersTotal();i++)

bonjour à tous les 2,

je suis très intéressé par vos propos mais je débute avec MT4.

aussi je souaite savoir comment faire pour mettre en oeuvre ce programme et quelle extension lui donner et aussi où le mettre.

veuillez excusez mes questions de débutant.

je suis joignable sur Skype : moimeme42
ou sur MSN : laurentol@free.fr
idem pour l'adresse email.

à très bientot.

Laurent