Belajar Membuat EA sederhana 39 (martiangel dengan Modif Tp)

Selamat Tahun Baru 2016
Semoga tahun penuh dengan berkah dan kesuksesan....

Pada kesempatan awal tahun ini saya akan share tentang belajar membuat ea  model martiangel dengan modif takeprofit (semua order takeprofitnya di jadikan satu dengan acuan titik pada takeprofit order terakhir).
Ea ini juga sengaja saya sematkan coding hanya untuk demo, hal ini supaya teman-teman lebih bersemangat untuk mempelajarinya.
Untuk menghilangkan coding demonya pastikan mengikuti part sebelumnya tentang proteksi.
Perhatikan image Becktesnya

Pada kesempatan awal tahun ini saya akan share tentang belajar membuat ea  model martiangel dengan modif takeprofit (semua order takeprofitnya di jadikan satu dengan acuan titik pada takeprofit order terakhir).
Ea ini juga sengaja saya sematkan coding hanya untuk demo, hal ini supaya teman-teman lebih bersemangat untuk mempelajarinya.
Untuk menghilangkan coding demonya pastikan mengikuti part sebelumnya tentang proteksi.
Perhatikan image Becktesnya

Triger saya ambil berdasarkan acuan candel tranding , coba perhatikan trager dan pertintah order berikut;

if(Open[1]<Close[1]){ res=OrderSend(Symbol(),OP_BUY,(Lots),Ask,3,SLb,TPb,Nama_EA,Magic,0,Blue); } if(Open[1]>Close[1]){ res=OrderSend(Symbol(),OP_SELL,(Lots),Bid,3,SLs,TPs,Nama_EA,Magic,0,Red); }

dan untuk modif tpnya dibuat dalam fungsi sebagi berikut:

void md(){int i,r;double tpnya,dtp; for (i = 0; i < OrdersTotal(); i++) { if (!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue; if (OrderSymbol() != Symbol()) continue; tpnya=OrderTakeProfit();} for (i = OrdersTotal() - 1; i >= 0; i--) {if (!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue; if(OrderSymbol() != Symbol()) continue; dtp=OrderTakeProfit(); if( tpnya!=dtp)r=OrderModify(OrderTicket(), OrderOpenPrice(), OrderStopLoss(), tpnya, 0, CLR_NONE); }}

Untuk memanggil fungsinya tinggal di ambil codingnya " md(): "

Ea model ini tentu untuk menentukan besaran takeprofitnya ,jarak antar order dan perkalian lotnya harus diperhitungkan supaya tidak terjadi closing dengan total negatif.

EA ini sebenarnya kelanjutan dari pembelajaran pada part 22 di http://jumforex.blogspot.co.id/2013/01/belajar-membuat-ea-sederhana-22-jebakan.html

Perhatikan codingnya dan bandingkan untuk lebih memahaminya

//+------------------------------------------------------------------+ //| Jum+KampRetZ .mq4 | //| gifaesa@yahoo.com | //| http://JumForex.blogspot.com | //+------------------------------------------------------------------+ #property copyright "JumForex.blogspot.com" #property link "Gifaesa@yahoo.com" input string Nama_EA = "Jum+KampRetZ"; input int TP = 40; input int SL = 0; input double Lots = 0.01; input string Menu_Martingel = "Seting"; input int Jarak_Order = 25; input double Kali_Lots = 2; input int Max_Order = 10; input int Magic = 69; double pt,SLb,TPb,SLs,TPs; int res,ras; int OnInit() { //--- if(Digits==3 || Digits==5) pt=10*Point; else pt=Point; //--- return(INIT_SUCCEEDED); } void OnTick() { md(); lab(); if(TP==0)TPb=0;else TPb=Ask+TP*pt; if(TP==0)TPs=0;else TPs=Bid-TP*pt; if(SL==0)SLb=0;else SLb=Ask-SL*pt; if(SL==0)SLs=0;else SLs=Bid+SL*pt; if( IsDemo() && JumlahOrder(0)+JumlahOrder(1)==0){ if(Open[1]<Close[1]){ res=OrderSend(Symbol(),OP_BUY,(Lots),Ask,3,SLb,TPb,Nama_EA,Magic,0,Blue); } if(Open[1]>Close[1]){ res=OrderSend(Symbol(),OP_SELL,(Lots),Bid,3,SLs,TPs,Nama_EA,Magic,0,Red); } } if(trad()==1 && JumlahOrder(0)>=1 && JumlahOrder(0)< Max_Order ) {res=OrderSend(Symbol(),OP_BUY,xlot(0),Ask,3,SLb, TPb,Nama_EA,Magic,0,Blue); } if(trad()==2 && JumlahOrder(1)>=1 && JumlahOrder(1)< Max_Order ) {res=OrderSend(Symbol(),OP_SELL,xlot(1),Bid,3,SLs,TPs,Nama_EA,Magic,0,Red); } } //+------------------------------------------------------------------+ void md(){int i,r;double tpnya,dtp; for (i = 0; i < OrdersTotal(); i++) { if (!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue; if (OrderSymbol() != Symbol()) continue; tpnya=OrderTakeProfit();} for (i = OrdersTotal() - 1; i >= 0; i--) {if (!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue; if(OrderSymbol() != Symbol()) continue; dtp=OrderTakeProfit(); if( tpnya!=dtp)r=OrderModify(OrderTicket(), OrderOpenPrice(), OrderStopLoss(), tpnya, 0, CLR_NONE); }} int trad(){ int type,dp; double opb,ops; for (int i = 0; i < OrdersTotal(); i++) { if (!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue; if (OrderSymbol() != Symbol() || OrderMagicNumber() != Magic) continue; type=OrderType(); if(type==0)opb = OrderOpenPrice(); if(type==1)ops = OrderOpenPrice(); } double as = opb - Jarak_Order * pt; double bi = ops + Jarak_Order * pt; if ( Ask <= as && JumlahOrder(0)> 0 ) dp=1; if ( Bid >= bi && JumlahOrder(1)> 0 ) dp=2; return(dp);} double xlot(int m){ double ylot,dlot; for (int i = 0; i < OrdersTotal(); i++) { if (!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue; if (OrderSymbol() != Symbol() || OrderMagicNumber() != Magic ||OrderType()!=m) continue; dlot=OrderLots(); } if(OrderType()==m)ylot=(Lots*MathPow(Kali_Lots,JumlahOrder(m))); return(ylot);} int JumlahOrder(int Tipe){ int Total = 0; for(int i=0; i<OrdersTotal(); i++) { if(!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))continue; if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic || OrderType()!=Tipe) continue; if(IsDemo())Total++; } return(Total);} double man(){double Total = 0; for(int i=0; i<OrdersTotal(); i++) { if(!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))continue; if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic ) continue; if(IsDemo())Total+=OrderProfit(); } return(Total);} void closeall(){ for (int i = OrdersTotal() - 1; i >= 0; i--) { if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES))continue; if (OrderSymbol() != Symbol() || OrderMagicNumber()!=Magic ) continue; if (OrderType() > 1) ras=OrderDelete(OrderTicket()); if (OrderType() == 0)ras= OrderClose(OrderTicket(), OrderLots(), Bid, 3, CLR_NONE); if (OrderType() == 1)ras=OrderClose(OrderTicket(), OrderLots(), Ask, 3, CLR_NONE); }} void lab(){ ObjectCreate("a",OBJ_LABEL,0,0,0);ObjectSet("a",OBJPROP_CORNER,4);ObjectSet("a",OBJPROP_XDISTANCE,10); ObjectSet("a",OBJPROP_YDISTANCE,10); ObjectSetText("a","Jum+KampRetZ",25,"Mistral",Yellow); ObjectCreate("j",OBJ_LABEL,0,0,0);ObjectSet("j",OBJPROP_CORNER,3);ObjectSet("j",OBJPROP_XDISTANCE,10); ObjectSet("j",OBJPROP_YDISTANCE,10); ObjectSetText("j","@ 2016 || JumForex.blogspot.com ",16,"Mistral",Yellow); Comment("\n ", "\n ------------------------------------------------", "\n :: Spread : ", MarketInfo(Symbol(), MODE_SPREAD), "\n :: Leverage : 1 : ", AccountLeverage(), "\n :: Equity : ", AccountEquity(), "\n :: Jam Server :", Hour(), ":", Minute(), "\n ------------------------------------------------", "\n :: Ploting : ",man(), "\n :: Level Op Buy : ",JumlahOrder(0), "\n :: Level Op Sell : ",JumlahOrder(1), "\n ------------------------------------------------", "\n :: >>By: Jum69<<", "\n ------------------------------------------------"); }

Dengan perhitungan dan penggunaan yang baik tentu ea ini akan berhasil guna, pastikan untuk dibuat demo dulu supaya lebih memahami cara kerjanya..

Okey
semoga bermanfaat
Jangan lup beri komen ya!!!!

https://jumforex.blogspot.com/2016/01/belajar-membuat-ea-sederhana-39.html