cara membuat robot forex

Belajar Membuat EA sederhana part 28

Belajar Membuat EA sederhana Part 29

Belajar Membuat EA sederhana Part 30

Selasa, 19 Maret 2013

Belajar Membuat EA Sederhana 29 (daily marti lepas)

Salam Profit semuanya .....pastikan sudah membaca pada part sebelumnya disini

Karena kali ini saya akan mengoprek EA pada part 28 ini untuk di sesuaikan dengan rule yang ada pada permintaan di forum indomt5 ini

Lansung aja deh silahkan di copas

//+------------------------------------------------------------------+ //|                                                    Jum+SpiderBoo | //|                                                gifaesa@yahoo.com | //|                                     http://JumForex.blogspot.com | //+------------------------------------------------------------------+  #property copyright "JumForex.blogspot.com" #property link      "Gifaesa@yahoo.com"  extern string  Target_Equety_          = "Harus lebih besar dari Equety+"; extern double  Target_Equety           = 1000; extern int     Mulai_Jam               = 0; extern int     Akhir_Jam               = 20; extern int     TP                      = 45; extern int     SL                      = 30; extern double  Lots                    = 0.01; extern int     Max_level               = 12; extern double  DiMarti                 = 2; extern int     Magic                   = 69; string  Nama_EA                 = "Jum+SpiderBoo+";   double slb,tpb,sls,tps,pt,bal;int s; //+------------------------------------------------------------------+ //| expert initialization function                                   | //+------------------------------------------------------------------+ int init()   { //----  bal= AccountBalance();  if(Digits==3 || Digits==5) pt=10*Point;   else   pt=Point;    //----    return(0);   } //+------------------------------------------------------------------+ //| expert deinitialization function                                 | //+------------------------------------------------------------------+ int deinit()   { //---- 	ObjectDelete("j"); //----    return(0);   } //+------------------------------------------------------------------+ //| expert start function                                            | //+------------------------------------------------------------------+ int start()   {   if(SL==0||TP==0){Alert(" Isi dulu TP Dan SLnya"); return(0);}   label();   if(Target_Equety<AccountEquity()) {     closeall(0);     closeall(1);     Alert("Cek Target_Equetynya salah ");    return(0);    } double O=iOpen(Symbol(),PERIOD_D1,1); double C=iClose(Symbol(),PERIOD_D1,1); if(O<C)s=1; if(O>C)s=2; if(Jam_trade()==1 && jumlahorder(0) + jumlahorder(1)==0 && DayOfWeek()>1 && trad(4)==0){ if((trad(1)>0) || (trad(1)==0)){       if(s==1) {OrderSend(Symbol(),OP_BUY,NR(Lots),Ask,3,Ask-SL*pt, Ask+TP*pt,Nama_EA,Magic,0,Blue);}     if(s==2) {OrderSend(Symbol(),OP_SELL,NR(Lots),Bid,3,Bid+SL*pt, Bid-TP*pt,Nama_EA,Magic,0,Red);}     }    if( trad(3)< Max_level +Magic ){    if(trad(1)<0 && s==1) {OrderSend(Symbol(),OP_BUY,xlot(),Ask,3,Ask-SL*pt, Ask+TP*pt,Nama_EA,trad(3)+1,0,Blue);  }    if(trad(1)<0 && s==2) {OrderSend(Symbol(),OP_SELL,xlot(),Bid,3,Bid+SL*pt, Bid-TP*pt,Nama_EA,trad(3)+1,0,Red);   }    } }      return(0);   } //+------------------------------------------------------------------+  int Jam_trade() {    bool trade = false;    if(Mulai_Jam > Akhir_Jam){      if (Hour() >= Mulai_Jam || Hour() < Akhir_Jam) trade = true;    } else      if (Hour() >= Mulai_Jam && Hour() < Akhir_Jam) trade = true;     return (trade); }  int jumlahorder( int tipe) { int total=0; for(int i=0; i<OrdersTotal(); i++)   {       OrderSelect(i,SELECT_BY_POS,MODE_TRADES);       if(OrderSymbol()!=Symbol() || OrderComment() != Nama_EA || OrderType()!=tipe) continue;      total++;   }  return(total); } double NR(double thelot) {     double maxlots = MarketInfo(Symbol(), MODE_MAXLOT),     minilot = MarketInfo(Symbol(), MODE_MINLOT),     lstep = MarketInfo(Symbol(), MODE_LOTSTEP);     double lots = lstep * NormalizeDouble(thelot / lstep, 0);     lots = MathMax(MathMin(maxlots, lots), minilot);     return (lots); }   void closeall(int m) {  for (int i = OrdersTotal() - 1; i >= 0; i--) {   OrderSelect(i, SELECT_BY_POS, MODE_TRADES);   if (OrderSymbol() != Symbol() || OrderComment() != Nama_EA ||  OrderType()!=m) continue;   if (OrderType() > 1) OrderDelete(OrderTicket());    else {     if (OrderType() == 0) OrderClose(OrderTicket(), OrderLots(), Bid, 3, CLR_NONE);     else               OrderClose(OrderTicket(), OrderLots(), Ask, 3, CLR_NONE);   }  } } double money() {  double dp = 0;  int i;  for (i = 0; i < OrdersTotal(); i++) {   OrderSelect(i, SELECT_BY_POS, MODE_TRADES);   if (OrderSymbol() != Symbol()  || OrderComment() != Nama_EA) continue;   dp += OrderProfit();  }  return(dp); }  double trad(int m) {   double pr,op;    for (int i = 0; i < OrdersHistoryTotal(); i++) {    if (!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue;    if (OrderSymbol() != Symbol()/* || OrderComment() != Nama_EA*/) continue;    if(m==1)pr=OrderProfit();    if(m==2)pr=OrderType();    if(m==3)pr=OrderMagicNumber();    datetime c=OrderCloseTime();    datetime o=OrderOpenTime();    if (iBarShift(Symbol(),PERIOD_D1,o)==0) {    if (iBarShift(Symbol(),PERIOD_D1,c)==0){    if(m==4)pr++;    }    }     } return(pr); } double xlot() {  double ylot,dlot;    for (int i = 0; i < OrdersHistoryTotal(); i++) {    if (!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue;    if (OrderSymbol() != Symbol()/* || OrderComment() != Nama_EA */) continue;      dlot=OrderLots();      }     ylot=NR(dlot*DiMarti); return(ylot); } void label() {    ObjectCreate("j",OBJ_LABEL,0,0,0);    ObjectSet("j",OBJPROP_CORNER,4);    ObjectSet("j",OBJPROP_XDISTANCE,10);    ObjectSet("j",OBJPROP_YDISTANCE,10);    ObjectSetText("j","Jum+SpiderBoo from : JumForex.blogspot.com ",21,"Mistral",Aqua);  Comment("\n ",    "\n ",    "\n ------------------------------------------------",    "\n :: Spread                 : ", MarketInfo(Symbol(), MODE_SPREAD),    "\n :: Leverage               : 1 : ", AccountLeverage(),    "\n :: Jam Server             :", Hour(), ":", Minute(),    "\n ------------------------------------------------",    "\n :: Equity sekarang        : ", AccountEquity(),"  $",    "\n :: Target_Equety          : ", Target_Equety ,"  $",    "\n ------------------------------------------------",    "\n :: Posisi floting         :",money(),"  $",    "\n :: Level                  :",trad(3)-Magic,    "\n ------------------------------------------------",    "\n :: >>By: Jum69<<",    "\n ------------------------------------------------"); //+------------------------------------------------------------------+ }

setelah di becktes EA ini udah jalan

karena ada penyesuaian rule di forum maka sedikit disesuaikan
cuma filter doji nya belum ada ><

//+------------------------------------------------------------------+ //|                                                    Jum+SpiderBoo | //|                                                gifaesa@yahoo.com | //|                                     http://JumForex.blogspot.com | //+------------------------------------------------------------------+  #property copyright "JumForex.blogspot.com" #property link      "Gifaesa@yahoo.com"  extern string  Target_Equety_          = "Harus lebih besar dari Equety+"; extern double  Target_Equety           = 1000; extern int     Mulai_Jam               = 0; extern int     Akhir_Jam               = 20; extern int     TP                      = 80; extern int     SL                      = 1000; extern double  Lots                    = 0.01; extern int     Max_level               = 12; extern double  DiMarti                 = 2; extern int     Magic                   = 69; string  Nama_EA                 = "Jum+SpiderBoo+";   double slb,tpb,sls,tps,pt,bal;int s; //+------------------------------------------------------------------+ //| expert initialization function                                   | //+------------------------------------------------------------------+ int init()   { //----  bal= AccountBalance();  if(Digits==3 || Digits==5) pt=10*Point;   else   pt=Point;    //----    return(0);   } //+------------------------------------------------------------------+ //| expert deinitialization function                                 | //+------------------------------------------------------------------+ int deinit()   { //---- 	ObjectDelete("j"); //----    return(0);   } //+------------------------------------------------------------------+ //| expert start function                                            | //+------------------------------------------------------------------+ int start()   {   if(SL==0||TP==0){Alert(" Isi dulu TP Dan SLnya"); return(0);}   label();   if(Target_Equety<AccountEquity()) {     closeall(0);     closeall(1);     Alert("Cek Target_Equetynya salah ");    return(0);    } if( jumlahorder(1,0) + jumlahorder(1,1)>0 &&  jumlahorder(2,0)+jumlahorder(2,1)<0 && jumlahorder(3,0)+jumlahorder(3,1)+ (24*3600)<=TimeCurrent() ){closeall(0);closeall(1);} double O=iOpen(Symbol(),PERIOD_D1,1); double C=iClose(Symbol(),PERIOD_D1,1); if(O<C)s=1; if(O>C)s=2; if(Jam_trade()==1 && jumlahorder(1,0) + jumlahorder(1,1)==0 && DayOfWeek()>1 && trad(4)==0 && trad(5)==0){ if((trad(1)>0) || (trad(1)==0)){       if(s==1) {OrderSend(Symbol(),OP_BUY,NR(Lots),Ask,3,Ask-SL*pt, Ask+TP*pt,Nama_EA,Magic,0,Blue);}     if(s==2) {OrderSend(Symbol(),OP_SELL,NR(Lots),Bid,3,Bid+SL*pt, Bid-TP*pt,Nama_EA,Magic,0,Red);}     }    if( trad(3)< Max_level +Magic ){    if(trad(1)<0 && s==1) {OrderSend(Symbol(),OP_BUY,xlot(),Ask,3,Ask-SL*pt, Ask+TP*pt,Nama_EA,trad(3)+1,0,Blue);  }    if(trad(1)<0 && s==2) {OrderSend(Symbol(),OP_SELL,xlot(),Bid,3,Bid+SL*pt, Bid-TP*pt,Nama_EA,trad(3)+1,0,Red);   }    } }      return(0);   } //+------------------------------------------------------------------+  int Jam_trade() {    bool trade = false;    if(Mulai_Jam > Akhir_Jam){      if (Hour() >= Mulai_Jam || Hour() < Akhir_Jam) trade = true;    } else      if (Hour() >= Mulai_Jam && Hour() < Akhir_Jam) trade = true;     return (trade); }  double jumlahorder( int a,int tipe) { double total=0; for(int i=0; i<OrdersTotal(); i++)   {       OrderSelect(i,SELECT_BY_POS,MODE_TRADES);       if(OrderSymbol()!=Symbol() || OrderComment() != Nama_EA || OrderType()!=tipe) continue;      if(a==1) total++;      if(a==2) total+=OrderProfit();      if(a==3) total=OrderOpenTime();   }  return(total); } double NR(double thelot) {     double maxlots = MarketInfo(Symbol(), MODE_MAXLOT),     minilot = MarketInfo(Symbol(), MODE_MINLOT),     lstep = MarketInfo(Symbol(), MODE_LOTSTEP);     double lots = lstep * NormalizeDouble(thelot / lstep, 0);     lots = MathMax(MathMin(maxlots, lots), minilot);     return (lots); }   void closeall(int m) {  for (int i = OrdersTotal() - 1; i >= 0; i--) {   OrderSelect(i, SELECT_BY_POS, MODE_TRADES);   if (OrderSymbol() != Symbol() || OrderComment() != Nama_EA ||  OrderType()!=m) continue;   if (OrderType() > 1) OrderDelete(OrderTicket());    else {     if (OrderType() == 0) OrderClose(OrderTicket(), OrderLots(), Bid, 3, CLR_NONE);     else               OrderClose(OrderTicket(), OrderLots(), Ask, 3, CLR_NONE);   }  } } double money() {  double dp = 0;  int i;  for (i = 0; i < OrdersTotal(); i++) {   OrderSelect(i, SELECT_BY_POS, MODE_TRADES);   if (OrderSymbol() != Symbol()  || OrderComment() != Nama_EA) continue;   dp += OrderProfit();  }  return(dp); }  double trad(int m) {   double pr,op;    for (int i = 0; i < OrdersHistoryTotal(); i++) {    if (!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue;    if (OrderSymbol() != Symbol()/* || OrderComment() != Nama_EA*/) continue;    if(m==1)pr=OrderProfit();    if(m==2)pr=OrderType();    if(m==3)pr=OrderMagicNumber();    datetime c=OrderCloseTime();    datetime o=OrderOpenTime();    if (iBarShift(Symbol(),PERIOD_D1,o)==0) {    if (iBarShift(Symbol(),PERIOD_D1,c)==0){    if(m==4)pr++;    if(m==5)pr=OrderClosePrice();     }    }     } return(pr); } double xlot() {  double ylot,dlot;    for (int i = 0; i < OrdersHistoryTotal(); i++) {    if (!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue;    if (OrderSymbol() != Symbol()/* || OrderComment() != Nama_EA */) continue;      dlot=OrderLots();      }     ylot=NR(dlot*DiMarti); return(ylot); } void label() {    ObjectCreate("j",OBJ_LABEL,0,0,0);    ObjectSet("j",OBJPROP_CORNER,4);    ObjectSet("j",OBJPROP_XDISTANCE,10);    ObjectSet("j",OBJPROP_YDISTANCE,10);    ObjectSetText("j","Jum+SpiderBoo from : JumForex.blogspot.com ",21,"Mistral",Aqua);  Comment("\n ",    "\n ",    "\n ------------------------------------------------",    "\n :: Spread                 : ", MarketInfo(Symbol(), MODE_SPREAD),    "\n :: Leverage               : 1 : ", AccountLeverage(),    "\n :: Jam Server             :", Hour(), ":", Minute(),    "\n ------------------------------------------------",    "\n :: Equity sekarang        : ", AccountEquity(),"  $",    "\n :: Target_Equety          : ", Target_Equety ,"  $",    "\n ------------------------------------------------",    "\n :: Posisi floting         :",money(),"  $",    "\n :: Level                  :",trad(3)-Magic,    "\n ------------------------------------------------",    "\n :: >>By: Jum69<<",    "\n ------------------------------------------------"); //+------------------------------------------------------------------+ }

Hasil BTnya

Okey semuanya........................Salam profit

Jangan Lupa kasih comment ya

Pastikan Juga mengikuti:

Belajar Membuat EA sederhana part 28

Belajar Membuat EA sederhana Part 29

Belajar Membuat EA sederhana Part 30

Rabu, 06 Maret 2013

Belajar Membuat EA Sederhana 28 ( order Harian)

Kita lanjut lagi deh ....
Dan pastikan sudah mengikuti part 27 disini

Pada kesempatan ini saya akan sedikit mengoprek EA Cutswicting pada part 25 untuk ditambahkan boolean supaya dalam sehari trading kalo sudah takeprofit berhenti trading.
Jadi ditambahkan :
extern bool Trading_Continue = false; // artinya kalau false kalo sudah nyentuh takeprofit dalam hari itu akan berhenti trade, sebaliknya bila true akan terus trading .

Bagian yang penting didalam hal ini perlu ditambahkan adalah membaca history jumlah trade dalam sehari.
adalah bagian ini :
sebelumnya
double trad(int m)
{
double pr,op;
for (int i = 0; i < OrdersHistoryTotal(); i++) {
if (!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue;
if (OrderSymbol() != Symbol()/* || OrderComment() != Nama_EA*/) continue;
if(m==1)pr=OrderProfit();
if(m==2)pr=OrderType();
if(m==3)pr=OrderMagicNumber();
}
return(pr);
}
ditambahkan menghitung jumlah order dalam sehari jadinya sbb:

double trad(int m)
{
double pr,op;
for (int i = 0; i < OrdersHistoryTotal(); i++) {
if (!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue;
if (OrderSymbol() != Symbol()/* || OrderComment() != Nama_EA*/) continue;
if(m==1)pr=OrderProfit();
if(m==2)pr=OrderType();
if(m==3)pr=OrderMagicNumber();
datetime tclose=OrderCloseTime();
datetime topen=OrderOpenTime();
if (iBarShift(Symbol(),PERIOD_D1,topen)==0) {
if (iBarShift(Symbol(),PERIOD_D1,tclose)==0){
if(m==4)pr++;
}
}
}
return(pr);
}

Jadi untuk memanggil / menghitung jumlah order dalam sehari adalah trade(4)
Nah dari script diatas dibuatlah logika sbb
bool trs=false;

if(!Trading_Continue){if(trad(4)>0)trs=true;else trs=false; }else trs=false;

Nah di coding di atas bila dirangkai maka jadinya sebagai berikut:

//+------------------------------------------------------------------+ //|                                               Jum+switch+2.mq4 | //|                                                gifaesa@yahoo.com | //|                                     http://JumForex.blogspot.com | //+------------------------------------------------------------------+  #property copyright "JumForex.blogspot.com" #property link      "Gifaesa@yahoo.com"  extern string  Target_Equety_          = "Harus lebih besar dari Equety+"; extern double  Target_Equety           = 100000; extern int     Mulai_Jam               = 0; extern int     Akhir_Jam               = 20; extern bool    Trading_Continue        = false; extern int     TP                      = 30; extern int     SL                      = 20; extern double  Lots                    = 0.01; extern int     Max_order               = 12; extern double  DiMarti                 = 2; extern int     Magic                   = 69; string  Nama_EA                 = "Jum+SwitchFractals+";  bool trs=false; double slb,tpb,sls,tps,pt,bal; //+------------------------------------------------------------------+ //| expert initialization function                                   | //+------------------------------------------------------------------+ int init()   { //----  bal= AccountBalance();  if(Digits==3 || Digits==5) pt=10*Point;   else   pt=Point;    //----    return(0);   } //+------------------------------------------------------------------+ //| expert deinitialization function                                 | //+------------------------------------------------------------------+ int deinit()   { //---- 	ObjectDelete("j"); //----    return(0);   } //+------------------------------------------------------------------+ //| expert start function                                            | //+------------------------------------------------------------------+ int start()   {   if(SL==0||TP==0){Alert(" Isi dulu TP Dan SLnya"); return(0);}   label();   if(Target_Equety<AccountEquity()) {     closeall(0);     closeall(1);     Alert("Cek Target_Equetynya salah ");    return(0);    }    if(!Trading_Continue){if(trad(4)>0)trs=true;else trs=false; }else trs=false;         for(int d=0; d< Bars  ; d++){     double up=iFractals(Symbol(),0,MODE_UPPER,d);     if(up!=0 ) break;}     for(int e=0; e< Bars  ; e++){     double lo=iFractals(Symbol(),0,MODE_LOWER,e);     if( lo!=0) break;}     int signal;  if(Bid > up) signal=1; if(Ask < lo)signal=2; if(Jam_trade()==1 && DayOfWeek()>1 && !trs){ if((trad(1)>0) || (trad(1)==0)){     if(jumlahorder(0)==0 && jumlahorder(1)==0){     if(signal==1) {OrderSend(Symbol(),OP_BUY,NR(Lots),Ask,3,Ask-SL*pt, Ask+TP*pt,Nama_EA,Magic,0,Blue);}     if(signal==2) {OrderSend(Symbol(),OP_SELL,NR(Lots),Bid,3,Bid+SL*pt, Bid-TP*pt,Nama_EA,Magic,0,Red);}     }    }  } if(jumlahorder(0)==0 && jumlahorder(1)==0 && trad(3)<Max_order+Magic ){ if(trad(1)<0 && trad(2)==1) {OrderSend(Symbol(),OP_BUY,xlot(),Ask,3,Ask-SL*pt, Ask+TP*pt,Nama_EA,trad(3)+1,0,Blue);  } if(trad(1)<0 && trad(2)==0) {OrderSend(Symbol(),OP_SELL,xlot(),Bid,3,Bid+SL*pt, Bid-TP*pt,Nama_EA,trad(3)+1,0,Red);   } }       return(0);   } //+------------------------------------------------------------------+  int Jam_trade() {    bool trade = false;    if(Mulai_Jam > Akhir_Jam){      if (Hour() >= Mulai_Jam || Hour() < Akhir_Jam) trade = true;    } else      if (Hour() >= Mulai_Jam && Hour() < Akhir_Jam) trade = true;     return (trade); }  int jumlahorder( int tipe) { int total=0; for(int i=0; i<OrdersTotal(); i++)   {       OrderSelect(i,SELECT_BY_POS,MODE_TRADES);       if(OrderSymbol()!=Symbol() || OrderComment() != Nama_EA || OrderType()!=tipe) continue;      total++;   }  return(total); } double NR(double thelot) {     double maxlots = MarketInfo(Symbol(), MODE_MAXLOT),     minilot = MarketInfo(Symbol(), MODE_MINLOT),     lstep = MarketInfo(Symbol(), MODE_LOTSTEP);     double lots = lstep * NormalizeDouble(thelot / lstep, 0);     lots = MathMax(MathMin(maxlots, lots), minilot);     return (lots); }   void closeall(int m) {  for (int i = OrdersTotal() - 1; i >= 0; i--) {   OrderSelect(i, SELECT_BY_POS, MODE_TRADES);   if (OrderSymbol() != Symbol() || OrderComment() != Nama_EA ||  OrderType()!=m) continue;   if (OrderType() > 1) OrderDelete(OrderTicket());    else {     if (OrderType() == 0) OrderClose(OrderTicket(), OrderLots(), Bid, 3, CLR_NONE);     else               OrderClose(OrderTicket(), OrderLots(), Ask, 3, CLR_NONE);   }  } } double money() {  double dp = 0;  int i;  for (i = 0; i < OrdersTotal(); i++) {   OrderSelect(i, SELECT_BY_POS, MODE_TRADES);   if (OrderSymbol() != Symbol()  || OrderComment() != Nama_EA) continue;   dp += OrderProfit();  }  return(dp); }  double trad(int m) {   double pr,op;    for (int i = 0; i < OrdersHistoryTotal(); i++) {    if (!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue;    if (OrderSymbol() != Symbol()/* || OrderComment() != Nama_EA*/) continue;    if(m==1)pr=OrderProfit();    if(m==2)pr=OrderType();    if(m==3)pr=OrderMagicNumber();    datetime tclose=OrderCloseTime();    datetime topen=OrderOpenTime();    if (iBarShift(Symbol(),PERIOD_D1,topen)==0) {    if (iBarShift(Symbol(),PERIOD_D1,tclose)==0){    if(m==4)pr++;    }    }   } return(pr); }double xlot() {  double ylot,dlot;    for (int i = 0; i < OrdersHistoryTotal(); i++) {    if (!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue;    if (OrderSymbol() != Symbol()/* || OrderComment() != Nama_EA */) continue;      dlot=OrderLots();      }     ylot=NR(dlot*DiMarti); return(ylot); } void label() {    ObjectCreate("j",OBJ_LABEL,0,0,0);    ObjectSet("j",OBJPROP_CORNER,4);    ObjectSet("j",OBJPROP_XDISTANCE,10);    ObjectSet("j",OBJPROP_YDISTANCE,10);    ObjectSetText("j","Jum+switchFractals_2 from : JumForex.blogspot.com ",21,"Mistral",Aqua);  Comment("\n ",    "\n ",    "\n ------------------------------------------------",    "\n :: Spread                 : ", MarketInfo(Symbol(), MODE_SPREAD),    "\n :: Leverage               : 1 : ", AccountLeverage(),    "\n :: Jam Server             :", Hour(), ":", Minute(),    "\n ------------------------------------------------",    "\n :: Equity sekarang        : ", AccountEquity(),"  $",    "\n :: Target_Equety          : ", Target_Equety ,"  $",    "\n ------------------------------------------------",    "\n :: Posisi floting         :",money(),"  $",    "\n :: Level                  :",trad(3)-Magic,    "\n ------------------------------------------------",    "\n :: >>By: Jum69<<",    "\n ------------------------------------------------"); //+------------------------------------------------------------------+ }

Nah jadi deh
Siap tempur !

Jangan Lupa kasih comment ya !

Bacaan yang lain:

Belajar Membuat EA sederhana Paret 28

Sabtu, 23 Februari 2013

Belajar Membuat EA Sederhana 27 (Compounding Lots)

Sebelumnya ikuti dulu di part 26 disini

Kali ini saya akan sedikit membahas tentang Compounding lots (atas permintaan dari dari seorang rekan)
Compounding itu sendiri sebanarnya banyak cara dan ragamnya tapi pada intinya adalah melipatkan lots karena ada pertambahan equety .

Nah dalam kesempatan ini saya hanya akan membahas 2 macem cara membuat compounding lots, (sebenarnya ada banyak banyak cara ) Hal ini sebenarnya berhubungan dengan Management Money (MM). => bisa dengan Balance , Equety, Freemargin dll

Cara pertama dengan cara membagi balance dan atau Equety

Membagi balance = AccountBalance()/Pembagi
Membaci Equety = AccountEquity()/Pembagi

Contoh nya kita akan menambahkan pada ea yang ada pada part 13
EA nya begini : Cross AntiQ

//+------------------------------------------------------------------+ //|                                             EA MA Cross AntiQ+   | //|                                                gifaesa@yahoo.com | //|                                     http://JumForex.blogspot.com | //+------------------------------------------------------------------+  #property copyright "JumForex.blogspot.com" #property link      "Gifaesa@yahoo.com"  extern string  Nama_EA                 = "Cross AntiQ+"; extern bool    Trade_buy               = true; extern bool    Trade_sell              = true; extern int     Mulai_Jam               = 6; extern int     Akhir_Jam               = 20; extern bool    Tp_in_Money             = true; extern double  TP_in_money             = 2; extern int     TP                      = 100; extern int     SL                      = 100; extern double  Lots                    = 0.1; extern int     TrailingStop            = 20; extern int     Magic                   = 69; extern string  Seting_MA               = "Sesuka Hati"; extern int     Pereode_1                 = 4; extern int     Pereode_2                 = 4;  double slb,tpb,sls,tps,pt; //+------------------------------------------------------------------+ //| expert initialization function                                   | //+------------------------------------------------------------------+ int init()   { //----    if(Digits==3 || Digits==5) pt=10*Point;   else   pt=Point; //----    return(0);   } //+------------------------------------------------------------------+ //| expert deinitialization function                                 | //+------------------------------------------------------------------+ int deinit()   { //----  //----    return(0);   } //+------------------------------------------------------------------+ //| expert start function                                            | //+------------------------------------------------------------------+ int start()   {  dtrailing(); if(Tp_in_Money && TP_in_money<= money()) closeall(); //---- double MA_1O =iMA(Symbol(),0,Pereode_1,0,MODE_SMA,PRICE_OPEN ,1); double MA_1C =iMA(Symbol(),0,Pereode_1,0,MODE_SMA,PRICE_CLOSE ,1); double MA_2O =iMA(Symbol(),0,Pereode_2,0,MODE_SMA,PRICE_OPEN ,2); double MA_2C =iMA(Symbol(),0,Pereode_2,0,MODE_SMA,PRICE_CLOSE ,2);  int signal; if(MA_2O >MA_2C && MA_1O < MA_1C) signal=1;// aturan buy if(MA_2O <MA_2C && MA_1O > MA_1C) signal=2;//aturan sell if(Jam_trade()==1){    if(SL==0)slb=0;else slb=Ask-SL*pt;    if(SL==0)sls=0;else sls=Bid+SL*pt;    if(TP==0)tpb=0;else tpb=Ask+TP*pt;    if(TP==0)tps=0;else tps=Bid-TP*pt;   if(jumlahorder(0)==0 && jumlahorder(1)==0 && Trade_buy  && signal==1) {OrderSend(Symbol(),OP_BUY,NR(Lots),Ask,3,slb, tpb,Nama_EA,Magic,0,Blue);}   if(jumlahorder(0)==0 && jumlahorder(1)==0 && Trade_sell && signal==2) {OrderSend(Symbol(),OP_SELL,NR(Lots),Bid,3,sls, tps,Nama_EA,Magic,0,Red);}  }  //----    return(0);   } //+------------------------------------------------------------------+  int Jam_trade() {    bool trade = false;    if(Mulai_Jam > Akhir_Jam){      if (Hour() >= Mulai_Jam || Hour() < Akhir_Jam) trade = true;    } else      if (Hour() >= Mulai_Jam && Hour() < Akhir_Jam) trade = true;     return (trade); }  int jumlahorder( int tipe) { int total=0; for(int i=0; i<OrdersTotal(); i++)   {       OrderSelect(i,SELECT_BY_POS,MODE_TRADES);       if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic || OrderType()!=tipe) continue;      total++;   }  return(total); } double NR(double thelot) {     double maxlots = MarketInfo(Symbol(), MODE_MAXLOT),     minilot = MarketInfo(Symbol(), MODE_MINLOT),     lstep = MarketInfo(Symbol(), MODE_LOTSTEP);     double lots = lstep * NormalizeDouble(thelot / lstep, 0);     lots = MathMax(MathMin(maxlots, lots), minilot);     return (lots); }  void dtrailing() { for(int i=0; i<OrdersTotal(); i++){       OrderSelect(i,SELECT_BY_POS,MODE_TRADES);         if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic ) continue;         if(OrderType()==OP_BUY)  {          if(Bid-OrderOpenPrice()>pt*TrailingStop)  {            if((OrderStopLoss()<Bid-pt*TrailingStop) || (OrderStopLoss()==0)) {               OrderModify(OrderTicket(),OrderOpenPrice(),Bid-pt*TrailingStop,OrderTakeProfit(),0,Green);               return(0);               }               }            }         if(OrderType()==OP_SELL)  {          if((OrderOpenPrice()-Ask)>(pt*TrailingStop)){            if(OrderStopLoss()>(Ask+pt*TrailingStop) || (OrderStopLoss()==0)){               OrderModify(OrderTicket(),OrderOpenPrice(),Ask+pt*TrailingStop,OrderTakeProfit(),0,Red);               return(0);               }               }            }      }    } void closeall() {  for (int i = OrdersTotal() - 1; i >= 0; i--) {   OrderSelect(i, SELECT_BY_POS, MODE_TRADES);   if (OrderSymbol() != Symbol() || OrderMagicNumber()!=Magic ) continue;   if (OrderType() > 1) OrderDelete(OrderTicket());    else {     if (OrderType() == 0) OrderClose(OrderTicket(), OrderLots(), Bid, 3, CLR_NONE);     else               OrderClose(OrderTicket(), OrderLots(), Ask, 3, CLR_NONE);   }  } } double money() {  double dp = 0;  int i;  for (i = 0; i < OrdersTotal(); i++) {   OrderSelect(i, SELECT_BY_POS, MODE_TRADES);   if (OrderSymbol() != Symbol()  || OrderMagicNumber()!=Magic) continue;   dp += OrderProfit();  }  return(dp); }

Nah langkah pertama dibuat dulu tambahan deklarasi boolean dan pembaginya

extern bool Compounding = true;

extern double Pembagi = 1000;

double x;

Kita bual perintah untuk menyisipkan

if(Compounding ) x=AccountBalance() / Pembagi; else x=Lots;

artinya kalau compounding ==true maka akan di compouding bila else maka tetap berlaku Lots

Bagian yang lain perlu diganti adalah pada bagian yang berhubungan dengan lots , yaitu

OrderSend(Symbol(),OP_BUY,NR(Lots), bla bla...............

Nah ini diganti dengan

OrderSend(Symbol(),OP_BUY,NR(x), bla bla..............

Bila menghendaki Equety yang dibagi yah tinggal diganti aja

if(Compounding ) x=AccountEquety() / Pembagi; else x=Lots;

Sehingga jadinya begini:

//+------------------------------------------------------------------+ //|                                             EA MA Cross AntiQ+   | //|                                                gifaesa@yahoo.com | //|                                     http://JumForex.blogspot.com | //+------------------------------------------------------------------+  #property copyright "JumForex.blogspot.com" #property link      "Gifaesa@yahoo.com"  extern string  Nama_EA                 = "Cross AntiQ+"; extern bool    Compounding             = true; extern double  Pembagi                 = 1000; extern bool    Trade_buy               = true; extern bool    Trade_sell              = true; extern int     Mulai_Jam               = 6; extern int     Akhir_Jam               = 20; extern bool    Tp_in_Money             = true; extern double  TP_in_money             = 2; extern int     TP                      = 100; extern int     SL                      = 100; extern double  Lots                    = 0.1; extern int     TrailingStop            = 20; extern int     Magic                   = 69; extern string  Seting_MA               = "Sesuka Hati"; extern int     Pereode_1                 = 4; extern int     Pereode_2                 = 4;  double slb,tpb,sls,tps,pt; double x; //+------------------------------------------------------------------+ //| expert initialization function                                   | //+------------------------------------------------------------------+ int init()   { //----    if(Digits==3 || Digits==5) pt=10*Point;   else   pt=Point; //----    return(0);   } //+------------------------------------------------------------------+ //| expert deinitialization function                                 | //+------------------------------------------------------------------+ int deinit()   { //----  //----    return(0);   } //+------------------------------------------------------------------+ //| expert start function                                            | //+------------------------------------------------------------------+ int start()   { if(Compounding ) x=AccountBalance() / Pembagi; else x=Lots; dtrailing(); if(Tp_in_Money && TP_in_money<= money()) closeall(); //---- double MA_1O =iMA(Symbol(),0,Pereode_1,0,MODE_SMA,PRICE_OPEN ,1); double MA_1C =iMA(Symbol(),0,Pereode_1,0,MODE_SMA,PRICE_CLOSE ,1); double MA_2O =iMA(Symbol(),0,Pereode_2,0,MODE_SMA,PRICE_OPEN ,2); double MA_2C =iMA(Symbol(),0,Pereode_2,0,MODE_SMA,PRICE_CLOSE ,2);  int signal; if(MA_2O >MA_2C && MA_1O < MA_1C) signal=1;// aturan buy if(MA_2O <MA_2C && MA_1O > MA_1C) signal=2;//aturan sell if(Jam_trade()==1){    if(SL==0)slb=0;else slb=Ask-SL*pt;    if(SL==0)sls=0;else sls=Bid+SL*pt;    if(TP==0)tpb=0;else tpb=Ask+TP*pt;    if(TP==0)tps=0;else tps=Bid-TP*pt;   if(jumlahorder(0)==0 && jumlahorder(1)==0 && Trade_buy  && signal==1) {OrderSend(Symbol(),OP_BUY,NR(x),Ask,3,slb, tpb,Nama_EA,Magic,0,Blue);}   if(jumlahorder(0)==0 && jumlahorder(1)==0 && Trade_sell && signal==2) {OrderSend(Symbol(),OP_SELL,NR(x),Bid,3,sls, tps,Nama_EA,Magic,0,Red);}  }  //----    return(0);   } //+------------------------------------------------------------------+  int Jam_trade() {    bool trade = false;    if(Mulai_Jam > Akhir_Jam){      if (Hour() >= Mulai_Jam || Hour() < Akhir_Jam) trade = true;    } else      if (Hour() >= Mulai_Jam && Hour() < Akhir_Jam) trade = true;     return (trade); }  int jumlahorder( int tipe) { int total=0; for(int i=0; i<OrdersTotal(); i++)   {       OrderSelect(i,SELECT_BY_POS,MODE_TRADES);       if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic || OrderType()!=tipe) continue;      total++;   }  return(total); } double NR(double thelot) {     double maxlots = MarketInfo(Symbol(), MODE_MAXLOT),     minilot = MarketInfo(Symbol(), MODE_MINLOT),     lstep = MarketInfo(Symbol(), MODE_LOTSTEP);     double lots = lstep * NormalizeDouble(thelot / lstep, 0);     lots = MathMax(MathMin(maxlots, lots), minilot);     return (lots); }  void dtrailing() { for(int i=0; i<OrdersTotal(); i++){       OrderSelect(i,SELECT_BY_POS,MODE_TRADES);         if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic ) continue;         if(OrderType()==OP_BUY)  {          if(Bid-OrderOpenPrice()>pt*TrailingStop)  {            if((OrderStopLoss()<Bid-pt*TrailingStop) || (OrderStopLoss()==0)) {               OrderModify(OrderTicket(),OrderOpenPrice(),Bid-pt*TrailingStop,OrderTakeProfit(),0,Green);               return(0);               }               }            }         if(OrderType()==OP_SELL)  {          if((OrderOpenPrice()-Ask)>(pt*TrailingStop)){            if(OrderStopLoss()>(Ask+pt*TrailingStop) || (OrderStopLoss()==0)){               OrderModify(OrderTicket(),OrderOpenPrice(),Ask+pt*TrailingStop,OrderTakeProfit(),0,Red);               return(0);               }               }            }      }    } void closeall() {  for (int i = OrdersTotal() - 1; i >= 0; i--) {   OrderSelect(i, SELECT_BY_POS, MODE_TRADES);   if (OrderSymbol() != Symbol() || OrderMagicNumber()!=Magic ) continue;   if (OrderType() > 1) OrderDelete(OrderTicket());    else {     if (OrderType() == 0) OrderClose(OrderTicket(), OrderLots(), Bid, 3, CLR_NONE);     else               OrderClose(OrderTicket(), OrderLots(), Ask, 3, CLR_NONE);   }  } } double money() {  double dp = 0;  int i;  for (i = 0; i < OrdersTotal(); i++) {   OrderSelect(i, SELECT_BY_POS, MODE_TRADES);   if (OrderSymbol() != Symbol()  || OrderMagicNumber()!=Magic) continue;   dp += OrderProfit();  }  return(dp); }

Untuk model compound yang kedua adalah compounding dengan kelipatan balance (jadi tiap kelipatan balance maka lots bisa di atur pertambahannya) ... Tapi kita bahas di part berikutnya ya...

He he sabar aja dulu !

bila belum jelas kasih cooment ya!

Semoga bermanfaat!

Bacaan lainnya:

Jumat, 22 Februari 2013

Belajar Membuat EA Sederhana 26 (Otomatik Close)

Pastikan sudah mengunjungi part 25

Setelah pada part sebelumnya sudah banyak share dan cara membuat Ea berjenis kelamin Martingel...
Kali ini saya lanjutkan dengan membuat Ea sederhana dan cukup profitabel dan model yang saya akan share ini salah satu model dari EA riel saya ......
Ea ini merupakan sedikit dari ngoprek EA pada part 12 disini

ini hasil pada account salah satu frend saya:

Ini Juga baru dimulai hehehe

Pada Ea tersebut akan saya tambahkan close otomatis ketika ada signal yang berlawanan.....

//+------------------------------------------------------------------+ //|                                                 EA Jum MantiQ+   | //|                                                gifaesa@yahoo.com | //|                                     http://JumForex.blogspot.com | //+------------------------------------------------------------------+  #property copyright "JumForex.blogspot.com" #property link      "Gifaesa@yahoo.com"  extern bool    Trade_buy               = true; extern bool    Trade_sell              = true; extern int     Mulai_Jam               = 6; extern int     Akhir_Jam               = 20; extern int     TP                      = 0; extern int     SL                      = 0; extern double  Lots                    = 0.1; extern int     TrailingStop            = 40; extern int     Magic                   = 69; extern bool    Close_Oto               = true; extern string  Seting_MA               = "Sesuka Hati"; extern int     Pereode                 = 33; double slb,tpb,sls,tps,pt,x; string  Nama_EA   = "Jum+MantiQ"; //+------------------------------------------------------------------+ //| expert initialization function                                   | //+------------------------------------------------------------------+ int init()   { //----    if(Digits==3 || Digits==5) pt=10*Point;   else   pt=Point; //----    return(0);   } //+------------------------------------------------------------------+ //| expert deinitialization function                                 | //+------------------------------------------------------------------+ int deinit()   { //----  //----    return(0);   } //+------------------------------------------------------------------+ //| expert start function                                            | //+------------------------------------------------------------------+ int start()   {   label(); dtrailing(); //---- double MA2 =iMA(Symbol(),0,Pereode,0,MODE_SMA,PRICE_CLOSE ,2);  double MA1 =iMA(Symbol(),0,Pereode,0,MODE_SMA,PRICE_CLOSE ,1);  int signal; if(Open[2]<MA2 && Close[2]>MA2 && Open[1]>MA1 && Close[1]>MA1 && Ask>MA1){ signal=1;if(Close_Oto)closeall(1); }// aturan buy if(Open[2]>MA2 && Close[2]<MA2 && Open[1]<MA1 && Close[1]<MA1 && Bid<MA1){ signal=2;if(Close_Oto)closeall(0); }//aturan sell if(Jam_trade()==1 && jumlahorder(1)+jumlahorder(0)==0){    if(SL==0)slb=0;else slb=Ask-SL*pt;    if(SL==0)sls=0;else sls=Bid+SL*pt;    if(TP==0)tpb=0;else tpb=Ask+TP*pt;    if(TP==0)tps=0;else tps=Bid-TP*pt;   if( Trade_buy  && signal==1) {OrderSend(Symbol(),OP_BUY,NR(Lots),Ask,3,slb, tpb,Nama_EA,Magic,0,Blue);}   if( Trade_sell && signal==2) {OrderSend(Symbol(),OP_SELL,NR(Lots),Bid,3,sls, tps,Nama_EA,Magic,0,Red);}  }  //----    return(0);   } //+------------------------------------------------------------------+  int Jam_trade() {    bool trade = false;    if(Mulai_Jam > Akhir_Jam){      if (Hour() >= Mulai_Jam || Hour() < Akhir_Jam) trade = true;    } else      if (Hour() >= Mulai_Jam && Hour() < Akhir_Jam) trade = true;     return (trade); }  int jumlahorder( int tipe) { int total=0; for(int i=0; i<OrdersTotal(); i++)   {       OrderSelect(i,SELECT_BY_POS,MODE_TRADES);       if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic || OrderType()!=tipe) continue;      total++;   }  return(total); } double NR(double thelot) {     double maxlots = MarketInfo(Symbol(), MODE_MAXLOT),     minilot = MarketInfo(Symbol(), MODE_MINLOT),     lstep = MarketInfo(Symbol(), MODE_LOTSTEP);     double lots = lstep * NormalizeDouble(thelot / lstep, 0);     lots = MathMax(MathMin(maxlots, lots), minilot);     return (lots); }  void dtrailing() { for(int i=0; i<OrdersTotal(); i++){       OrderSelect(i,SELECT_BY_POS,MODE_TRADES);         if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic ) continue;         if(OrderType()==OP_BUY)  {          if(Bid-OrderOpenPrice()>pt*TrailingStop)  {            if((OrderStopLoss()<Bid-pt*TrailingStop) || (OrderStopLoss()==0)) {               OrderModify(OrderTicket(),OrderOpenPrice(),Bid-pt*TrailingStop,OrderTakeProfit(),0,Green);               return(0);               }               }            }         if(OrderType()==OP_SELL)  {          if((OrderOpenPrice()-Ask)>(pt*TrailingStop)){            if(OrderStopLoss()>(Ask+pt*TrailingStop) || (OrderStopLoss()==0)){               OrderModify(OrderTicket(),OrderOpenPrice(),Ask+pt*TrailingStop,OrderTakeProfit(),0,Red);               return(0);               }               }            }      }     } void label() {  Comment("\n ",    "\n ",    "\n ------------------------------------------------",    "\n :: =>+Jum+MantiQ<=",    "\n :: =>JumForex.blogspot.com<=",    "\n ------------------------------------------------",    "\n :: Spread                 : ", MarketInfo(Symbol(), MODE_SPREAD),    "\n :: Leverage               : 1 : ", AccountLeverage(),    "\n :: Equity                 : ", AccountEquity(),    "\n :: Jam Server             :", Hour(), ":", Minute(),    "\n ------------------------------------------------",    "\n :: >>By: Jum69<<",    "\n ------------------------------------------------");  }  void closeall(int m) {  for (int i = OrdersTotal() - 1; i >= 0; i--) {   OrderSelect(i, SELECT_BY_POS, MODE_TRADES);   if (OrderSymbol() != Symbol() || OrderMagicNumber()!=Magic || OrderType()!=m) continue;   if (OrderType() > 1) OrderDelete(OrderTicket());   if (OrderType() == 0) OrderClose(OrderTicket(), OrderLots(), Bid, 3, CLR_NONE);   if (OrderType() == 1)OrderClose(OrderTicket(), OrderLots(), Ask, 3, CLR_NONE);  } }

Pastikan mengikuti: