Belajar Membuat EA Sederhana 22 Martingel (Jebakan II)

Oleh JumForex 20.40 13 komentar

Pastikan sudah mengikuti part 21 disini

Pada posting kali ini saya akan mengedit EA pada part 21 untuk ditambahi martingel .
Martingel yang di maksud juga mengacu pada jarak (range) order dan pergantian candel untuk mencegah terjadinya beberapa order ketika terjadi lonjakan harga dan candel panjang , seperti pada part 18

Penambahan coding martiangelnya :

1. Fungsi untuk perintah order martiangelnya


if(trad()==1 && wt!=Time[0] && jumlahorder(1)==0 && jumlahorder(0)<Max_order ) {OrderSend(Symbol(),OP_BUY,xlot(0),Ask,3,slb, tpb,Nama_EA,Magic,0,Blue); wt=Time[0]; }

if(trad()==2 && wk!=Time[0] && jumlahorder(0)==0 && jumlahorder(1)<Max_order ) {OrderSend(Symbol(),OP_SELL,xlot(1),Bid,3,sls, tps,Nama_EA,Magic,0,Red); wk=Time[0];  }

2. Fungsi untuk perhitungan jarak order dan perintah ketika jarak terpenuhi


int trad()

{

 int type,dp; double opb,ops,lastlotb,lastlots; 

  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);

}

3. Fungsi untuk perhitungan Lots setiap pengulangan ordernya


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=NR(Lots*MathPow(DiMarti,jumlahorder(m)));

return(ylot);

}

Baca Juga

Nah setelah di rakit begini deh hasilnya:

//+------------------------------------------------------------------+
//|                                                    EA Jum+Profit |
//|                                                gifaesa@yahoo.com |
//|                                     http://JumForex.blogspot.com |
//+------------------------------------------------------------------+

#property copyright "JumForex.blogspot.com"
#property link      "Gifaesa@yahoo.com"

extern string  Nama_EA                 = "Jum+Profit";
extern bool    Trade_buystop           = true;
extern bool    Trade_sellstop          = true;
extern string  Jam_server              = "Set sesuai selera";
extern int     Jam                     = 0;
extern int     Menit                   = 30;
extern bool    Tp_in_Money             = true;
extern double  TP_in_money             = 5;
extern int     Jarak_order             = 35;
extern int     Max_order               = 10;
extern double  DiMarti                 = 1.3;
extern int     TP                      = 100;
extern int     SL                      = 0;
extern double  Lots                    = 0.1;
extern int     Jarak_stop              = 25;
extern bool    TrailingStop_           = false;
extern int     TrailingStop            = 12;
extern int     Magic                   = 69;
double slb,tpb,sls,tps,pt,lslb,ltpb;
int tiket,ticet;
static datetime wt,wk;
//+------------------------------------------------------------------+
//| 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();
if(TrailingStop_)dtrailing();
if(Tp_in_Money ){
  if(TP_in_money<= money(0)){ 
   closeall(0);
   closeall(2);
   }
  if(TP_in_money<= money(1)){ 
   closeall(1);
   closeall(3);
   }
 }
if(jumlahorder(0)==1 && jumlahorder(1)==0){ 
   closeall(5);
   }
if(jumlahorder(0)==0 && jumlahorder(1)==1){ 
   closeall(4);
   }
if(Hour()==23){
   closeall(4);
   closeall(5);
   }
//----
   double as = Ask + Jarak_stop*pt;
   double bi = Bid - Jarak_stop*pt;
   if(SL==0)slb=0;else slb=as-SL*pt;
   if(SL==0)sls=0;else sls=bi+SL*pt;
   if(TP==0)tpb=0;else tpb=as+TP*pt;
   if(TP==0)tps=0;else tps=bi-TP*pt;
if(DayOfWeek()!=1 && Hour()==Jam && Minute()==Menit && jumlahorder(0)==0 && jumlahorder(1)==0){
  if(jumlahorder(4)==0  && Trade_buystop  ) {if(OrderSend(Symbol(),OP_BUYSTOP,NR(Lots),as,3,slb, tpb,Nama_EA,Magic,0,Blue))Print("JumForex Buy");}
  if(jumlahorder(5)==0  && Trade_sellstop ) {if(OrderSend(Symbol(),OP_SELLSTOP,NR(Lots),bi,3,sls, tps,Nama_EA,Magic,0,Red))Print("JumForex Buy");}
 }
if(trad()==1 && wt!=Time[0] && jumlahorder(1)==0 && jumlahorder(0)< Max_order   ) {if(OrderSend(Symbol(),OP_BUY,xlot(0),Ask,3,slb, tpb,Nama_EA,Magic,0,Blue))Print("JumForex Buy"); wt=Time[0]; }
if(trad()==2 && wk!=Time[0] && jumlahorder(0)==0 && jumlahorder(1)< Max_order   ) {if(OrderSend(Symbol(),OP_SELL,xlot(1),Bid,3,sls, tps,Nama_EA,Magic,0,Red))Print("JumForex Buy"); wk=Time[0]; }

return(0);
  }
//+------------------------------------------------------------------+

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;
     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++){
      if(!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))continue;
        if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic ) continue;
        if(OrderType()==OP_BUY)  {
         if(Bid-OrderOpenPrice()>pt*TrailingStop)  {
           if((OrderStopLoss()<Bid-pt*TrailingStop) || (OrderStopLoss()==0)) {
             tiket= OrderModify(OrderTicket(),OrderOpenPrice(),Bid-pt*TrailingStop,OrderTakeProfit(),0,Green);
              }
              }
           }
        if(OrderType()==OP_SELL)  {
         if((OrderOpenPrice()-Ask)>(pt*TrailingStop)){
           if(OrderStopLoss()>(Ask+pt*TrailingStop) || (OrderStopLoss()==0)){
              tiket=OrderModify(OrderTicket(),OrderOpenPrice(),Ask+pt*TrailingStop,OrderTakeProfit(),0,Red);
              }
              }
           }
     }
  
}
void closeall(int m)
{
 for (int i = OrdersTotal() - 1; i >= 0; i--) {
  if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES))continue;
  if (OrderSymbol() != Symbol() || OrderMagicNumber()!=Magic /*|| m!= OrderType()*/) continue;
  if (OrderType() == m) tiket=OrderDelete(OrderTicket());
  if (OrderType() == m) tiket=OrderDelete(OrderTicket());
  if (OrderType() == m) tiket=OrderClose(OrderTicket(), OrderLots(), Bid, 3, CLR_NONE);
  if (OrderType() == m)tiket=OrderClose(OrderTicket(), OrderLots(), Ask, 3, CLR_NONE);
 }
}
double money(int m)
{
 double dp = 0;
 for (int i = 0; i < OrdersTotal(); i++) {
  if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES))continue;
  if (OrderSymbol() != Symbol()  || OrderMagicNumber()!=Magic || m!=OrderType()) continue;
  dp += OrderProfit();
 }
 return(dp);
}

void label()
{
 Comment("\n ",
   "\n ",
   "\n ------------------------------------------------",
   "\n :: =>+Jum+Profit<=",
   "\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 :: Floting buy : ",NormalizeDouble(money(0),2),
   "\n :: Floting sell : ",NormalizeDouble(money(1),2),
   "\n ------------------------------------------------",
   "\n :: >>By: Jum69<<",
   "\n ------------------------------------------------");
}
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=NR(Lots*MathPow(DiMarti,jumlahorder(m)));
return(ylot);
}

untuk mt4 versi baru

#property copyright "JumForex.blogspot.com"
#property link      "Gifaesa@yahoo.com"
#property version   "1.00"
#property strict

int tiket,ticet;
static datetime wt,wk;
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
    if(Digits==3 || Digits==5) pt=10*Point;   else   pt=Point;
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//---
   
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
{
label();
if(TrailingStop_)dtrailing();
if(Tp_in_Money ){
  if(TP_in_money<= money(0)){ 
   closeall(0);
   closeall(2);
   }
  if(TP_in_money<= money(1)){ 
   closeall(1);
   closeall(3);
   }
 }
if(jumlahorder(0)==1 && jumlahorder(1)==0){ 
   closeall(5);
   }
if(jumlahorder(0)==0 && jumlahorder(1)==1){ 
   closeall(4);
   }
if(Hour()==23){
   closeall(4);
   closeall(5);
   }
//----
   asi = Ask + Jarak_stop*pt;
   bi = Bid - Jarak_stop*pt;
   if(SL==0)slb=0;else slb=asi-SL*pt;
   if(SL==0)sls=0;else sls=bi+SL*pt;
   if(TP==0)tpb=0;else tpb=asi+TP*pt;
   if(TP==0)tps=0;else tps=bi-TP*pt;
if(DayOfWeek()!=1 && Hour()==Jam && Minute()==Menit && jumlahorder(0)==0 && jumlahorder(1)==0){
  if(jumlahorder(4)==0  && Trade_buystop  ) {if(OrderSend(Symbol(),OP_BUYSTOP,NR(Lots),asi,3,slb, tpb,Nama_EA,Magic,0,Blue))Print("JumForex Buy");}
  if(jumlahorder(5)==0  && Trade_sellstop ) {if(OrderSend(Symbol(),OP_SELLSTOP,NR(Lots),bi,3,sls, tps,Nama_EA,Magic,0,Red))Print("JumForex Buy");}
 }
   asi = opnya(0) - Jarak_order * pt;
   ops =  opnya(1) + Jarak_order * pt;

if(Ask <= asi &&  jumlahorder(0)> 0 && wt!=Time[0] && jumlahorder(1)==0 && jumlahorder(0)< Max_order   ) {if(OrderSend(Symbol(),OP_BUY,xlot(0),Ask,3,slb, tpb,Nama_EA,Magic,0,Blue))Print("JumForex Buy"); wt=Time[0]; }
if( Bid >= ops &&  jumlahorder(1)> 0 && wk!=Time[0] && jumlahorder(0)==0 && jumlahorder(1)< Max_order   ) {if(OrderSend(Symbol(),OP_SELL,xlot(1),Bid,3,sls, tps,Nama_EA,Magic,0,Red))Print("JumForex Buy"); wk=Time[0]; }

}
//+------------------------------------------------------------------+

void dtrailing()
{
for(int i=0; i<OrdersTotal(); i++){
      if(!OrderSelect(i,SELECT_BY_POS,MODE_TRADES))continue;
        if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic ) continue;
        if(OrderType()==OP_BUY)  {
         if(Bid-OrderOpenPrice()>pt*TrailingStop)  {
           if((OrderStopLoss()<Bid-pt*TrailingStop) || (OrderStopLoss()==0)) {
             tiket= OrderModify(OrderTicket(),OrderOpenPrice(),Bid-pt*TrailingStop,OrderTakeProfit(),0,Green);
              }
              }
           }
        if(OrderType()==OP_SELL)  {
         if((OrderOpenPrice()-Ask)>(pt*TrailingStop)){
           if(OrderStopLoss()>(Ask+pt*TrailingStop) || (OrderStopLoss()==0)){
              tiket=OrderModify(OrderTicket(),OrderOpenPrice(),Ask+pt*TrailingStop,OrderTakeProfit(),0,Red);
              }
              }
           }
     }
  
}
void closeall(int m)
{
 for (int i = OrdersTotal() - 1; i >= 0; i--) {
  if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES))continue;
  if (OrderSymbol() != Symbol() || OrderMagicNumber()!=Magic /*|| m!= OrderType()*/) continue;
  if (OrderType() == m) tiket=OrderDelete(OrderTicket());
  if (OrderType() == m) tiket=OrderDelete(OrderTicket());
  if (OrderType() == m) tiket=OrderClose(OrderTicket(), OrderLots(), Bid, 3, CLR_NONE);
  if (OrderType() == m)tiket=OrderClose(OrderTicket(), OrderLots(), Ask, 3, CLR_NONE);
 }
}
double money(int m)
{
  for (int i = 0; i < OrdersTotal(); i++) {
  if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES))continue;
  if (OrderSymbol() != Symbol()  || OrderMagicNumber()!=Magic || m!=OrderType()) continue;
  dp += OrderProfit();
 }
 return(dp);
}

double opnya(int m)
{
  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=OrderOpenPrice();
     }
 return(dlot);
}

double xlot(int m)
{
  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=NR(Lots*MathPow(DiMarti,jumlahorder(m)));
return(ylot);
}

Saksikan juga penjelasan dibawah ini

Ini hasil BTnya:

Okey silahkan de coba ya...

Bila mana ada yang kurang jelas dan ada ide positif silahkan comment ya!

Pastikan Membaca:

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

Belajar Membuat EA sederhana part 13

Belajar Membuat EA sederhana part 14

Belajar Membuat EA sederhana part 15

Belajar Membuat EA sederhana part 16

Belajar Membuat EA sederhana part 17

Belajar Membuat EA sederhana part 18

Belajar Membuat EA sederhana part 19

Belajar Membuat EA sederhana part 20

Belajar Membuat EA sederhana part 21

Belajar Membuat EA sederhana part 22

Belajar Membuat EA sederhana part 23

Belajar Membuat EA sederhana part 24

13 komentar untuk "Belajar Membuat EA Sederhana 22 Martingel (Jebakan II)"

Unknown 30 Maret 2013 pukul 13.22

salam profit...mau tanya pak..ketika EA part 21 ditambahi dengan fungsi martingelnya kok di BT gak jalan ya pak martinya cuma pending ordernya aja yg jalan...balas adipp20@ymail.com

Balas Hapus

Unknown 4 Juni 2013 pukul 12.15

saya udah lama coba EA ini tapi kog ga bisa-bisa ya.....
dasarnya dari mana sihh.....

JumForex 4 Juni 2013 pukul 15.26

Coba di compile dulu mungkin ada yang error
biasanya ada Max_order disitu tertulis max_order
hal ini sering terjadi kesalahan pada proses penyimpanan di blogger yang kadang di sesuai

Hapus

Unknown 16 Juli 2013 pukul 18.56

salam profit Mastah jum mian, aku tertarik sama ea jebakan ini + teknik martiyem :). Bisa minta tolong buatin eanya dgn rule sbb:
1. Buat jebakan tapi buystop dulu dan jarak buystopnya brp pip dari open candle stick sebelumnya (TP dan SL bisa diubah2). Kalau TP sudah terpenuhi maka bisa buka sellstop dan jarak sellstopnya brp pip dari open candle stick selumnya (TP dan SL bisa diubah), tp jika buy stop tidak tersentuh dan harga berbalik arah turun baru martinya (bisa diubah2) diaktifkan.
2. Kalau buystop tpnya tidak terpenuhi maka martinya aktif dan sellstop tidak aktif.

Please mastah di bantu ya. tq
Kalau boleh bisa minta no hp ato pin bb bisa di sms ke no 088801517726 ato ke email: falys.noval@gmail.com. (bayar gak pa2 deh :)) tq

Unknown 16 Juli 2013 pukul 19.02

maaf mastah minta no hp supaya bisa konsultasi lebih mantab dengan mastah jum mian

JumForex 17 Juli 2013 pukul 10.43

trim bos udah berkunjung
Untuk pembuatan ea maka akan dikenai sedikit sesuai http://myea2.blogspot.com/
(--____--)

hanif 3 September 2013 pukul 15.22

Komentar ini telah dihapus oleh pengarang.

Fattah 7 Mei 2016 pukul 17.29

salam admin, saya senang mengikuti tutorial admin, tapi ada yang saya mau tanyakan, klo misalkan dimodif setelah mencapai target maksimal Buy maka akan sel otomatis begitu juga sebaliknya, tolong admin.. :)

Blogger 11 Oktober 2017 pukul 14.25

GPS robot [10X increase of the deposit amount]

I just finished a webinar with Mark and his partner, Antony, two days ago and it was GREAT.

During the webinar Mark and Antony shared their stories to success and answered questions about their new version of the GPS Forex Robot that is coming out TODAY!

The Micah 29 Juli 2018 pukul 12.15

pak, saya nyoba copas dan BT sebelum saya edit ini EAnya, kok hasilnya beda ya? saya BT 2 bulan kebelakang pair EUJPY TF H1, tambah ancur

Unknown 13 Desember 2018 pukul 03.58

saya baru buka sampai video 6 semua saya test profit minus sedangkan di video profit plus... apa ada yang salah ya...?

Unknown 4 April 2020 pukul 17.13

Master ..tolong bantu saya kesulitan membuat ini...
Saya memiliki sistem trading yg hampir mistahil bisal mc jika bisa di jalankan sesui rule nya..namun untuk di praktek secara manual tidak akan bisa karena ini sangat agresif..bis
a kah master membantu...?

Boedy 15 Juni 2020 pukul 12.58

mas mau belajar lngsungbagaimana...? apakah bisa...