Belajar Membuat EA sederhana 39 (martingel 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 martingel 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;

dan untuk modif tpnya dibuat dalam fungsi sebagi berikut:

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!!!!

Belajar Membuat EA sederhana part 1

Belajar Membuat EA sederhana part 2

Belajar Membuat EA sederhana part 3

Belajar Membuat EA sederhana part 4

Belajar Membuat EA sederhana part 5

Belajar Membuat EA sederhana part 6

Belajar Membuat EA sederhana part 7

Belajar Membuat EA sederhana part 8

Belajar Membuat EA sederhana part 9

Belajar Membuat EA sederhana part 10

Belajar Membuat EA sederhana part 11

Belajar Membuat EA sederhana part 12