Belajar Membuat EA Sederhana 23 Average (Share)

Kali ini saya akan lanjutkan belajar bikin EA part 23 dimana EA ini layak untuk di gunakan di Riel account
Hasil BTnya

pastikan telah mengikuti part sebelumnya disini

Pada part sebelumnya kita sudah membahas tentang EA martingel nah kali ini kita akan menambahi koleksi kita dengan type Average , meskipun ada fitur martiangel . Karena EA ini sebenarnya hanya menmbahi logika pada ea yang sudah ada. Pada part 15 juga sudah ada EA average .

Nah untuk kali ini kita akan mengembangkan sebuah EA dangan mengunakan indikator zigzag sebagai pemicu trigernya. dan penambahan lain adalah untuk close order mengacu pada indikator MA (moving Average).

Bagian triger nya adalah:

for(int d=0; d<Bars ; d++){


    double up=iCustom(Symbol(),0,"ZigZag",   ExtDepth , ExtDeviation, ExtBackstep, MODE_UPPER, d);

    double lo=iCustom(Symbol(),0,"ZigZag",   ExtDepth , ExtDeviation, ExtBackstep, MODE_LOWER,d);

    if(up!=0 || lo!=0) break;}

  

    int sigz, sigc,signal;

     if(up>0 )  sigz= 1;

     if(lo>0)    sigz= 5;



Bagian yang juga tida kalah penting adalah untuk closing order:

if(money()>0){
if(Bid>ma) closeall(0);
if(Ask<ma) closeall(1);
}

Pada EA ini juga terdapat target Equety, Pada bagian target equety harus diisi lebih besar dari balance saat digunakan

if(Target_Equety<AccountEquity()) {
closeall(0);
closeall(1);
Alert("Cek Target_Equetynya salah ");
return(0);
}

Jadi syarat untuk closing bila dalam kondisi profit dan mengacu pada harga bergerak terhadap nilai MA

EA ini layak untuk di forwartest, bahkan juga siap untuk di buat riel account

Silahkan di copas semuanya :

//+------------------------------------------------------------------+
//|                                                Jum+AvZigzag+.mq4 |
//|                                                gifaesa@yahoo.com |
//|                                     http://JumForex.blogspot.com |
//+------------------------------------------------------------------+

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

extern string  Nama_EA                 = "Jum+AvZigzag+";
extern string  Target_Equety_          = "Harus lebih besar dari Equety+";
extern double  Target_Equety           = 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             = 10;
extern int     TP                      = 100;
extern int     SL                      = 0;
extern double  Lots                    = 0.1;
extern int     Jarak_order             = 35;
extern int     Max_order               = 10;
extern double  DiMarti                 = 1;
extern bool    TrailingStop_           = false;
extern int     TrailingStop            = 20;
extern int     Magic                   = 69;
extern string  Seting_ZigzAG           = "Sesuka Hati";
extern int     ExtDepth                = 33;
extern int     ExtDeviation            = 5;
extern int     ExtBackstep             = 3;
extern string  Seting_Ma           = "Sesuka Hati";
extern int     Pereode                 = 33;

double slb,tpb,sls,tps,pt,bal;
int wt,wk,tiket,ticet;
//+------------------------------------------------------------------+
//| 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()
  {
   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+ZigZag+ from : JumForex.blogspot.com ",19,"Mistral",Aqua);

//----
   if(Target_Equety<AccountEquity()) {
    closeall(0);
    closeall(1);
   Alert("Cek Target_Equetynya salah ");
   return(0);
   }
label();
if(TrailingStop_)dtrailing();
if(Tp_in_Money && TP_in_money<= money()){ 
   closeall(0);
   closeall(1);
   }
//----
    double ma = iMA(Symbol(), 0, Pereode , 0, MODE_LWMA, PRICE_CLOSE, 0 ) ;
    for(int d=0; d< Bars  ; d++){
    double up=iCustom(Symbol(),0,"ZigZag",   ExtDepth , ExtDeviation, ExtBackstep, MODE_UPPER, d);
    double lo=iCustom(Symbol(),0,"ZigZag",   ExtDepth , ExtDeviation, ExtBackstep, MODE_LOWER,d);
    if(up!=0 || lo!=0) break;}
    
    int sigz, sigc,signal;
     if(up>0 )  sigz= 1;
     if(lo>0)    sigz= 5;
     
    double  OP=iOpen(Symbol(),PERIOD_W1,0);

if(Ask>OP) sigc=1;
    if(Bid<OP) sigc=5;

if(sigz+sigc==2) signal=1;
if(sigz+sigc==10)signal=2;
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==2) {if(OrderSend(Symbol(),OP_BUY,NR(Lots),Ask,3,slb, tpb,Nama_EA,Magic,0,Blue))Print("JumForex Buy");}
  if(jumlahorder(0)==0 && jumlahorder(1)==0  && Trade_sell && signal==1) {if(OrderSend(Symbol(),OP_SELL,NR(Lots),Bid,3,sls, tps,Nama_EA,Magic,0,Red))Print("JumForex Sell");}
 }
if(trad()==1 && wt!=Time[0] && jumlahorder(1)==0 && jumlahorder(0)< Max_order  && Trade_buy  && signal==2) {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  && Trade_sell && signal==1) {if(OrderSend(Symbol(),OP_SELL,xlot(1),Bid,3,sls, tps,Nama_EA,Magic,0,Red))Print("JumForex Sell"); wk=Time[0];  }

if(money()>0){
if(Bid>ma)   closeall(0);
if(Ask<ma)   closeall(1);
}

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++)
  {
      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() > 1) tiket=OrderDelete(OrderTicket());
   else {
    if (OrderType() == 0) tiket=OrderClose(OrderTicket(), OrderLots(), Bid, 3, CLR_NONE);
    else               tiket=OrderClose(OrderTicket(), OrderLots(), Ask, 3, CLR_NONE);
  }
 }
}
double money()
{
 double dp = 0;
 int i;
 for (i = 0; i < OrdersTotal(); i++) {
  if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES))continue;
  if (OrderSymbol() != Symbol()  || OrderMagicNumber()!=Magic) continue;
  dp += OrderProfit();
 }
 return(dp);
}

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);
}
void label()
{
 Comment("\n ",
   "\n ",
   "\n ------------------------------------------------",
   "\n :: =>+Jum+AvZigzag+<=",
   "\n :: =>JumForex.blogspot.com<=",
   "\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 :: Jumlah level           :",jumlahorder(0)+jumlahorder(1),
   "\n ------------------------------------------------",
   "\n :: >>By: Jum69<<",
   "\n ------------------------------------------------");
//+------------------------------------------------------------------+
}

Untuk model Mt4 yang baru sbb:

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

double asi, bi,slb,tpb,sls,tps,pt,bal, tar,up,lo,ylot,dlot,opb,ops;

int tiket,ticet,sigz, sigc,signal,dap;
static datetime wt,wk;
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
    bal= AccountEquity();
    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()
{   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+ZigZag+ from : JumForex.blogspot.com ",19,"Mistral",Aqua);

//----
   if(Target_Equety<AccountEquity()) {
    closeall(0);
    closeall(1);tar=1;
   Alert("Cek Target_Equetynya salah ");
    }
label();
if(TrailingStop_)dtrailing();
if(Tp_in_Money && TP_in_money<= money()){ 
   closeall(0);
   closeall(1);
   }
//----
    double ma = iMA(Symbol(), 0, Pereode , 0, MODE_LWMA, PRICE_CLOSE, 0 ) ;
    for(int d=0; d< Bars  ; d++){
     up=iCustom(Symbol(),0,"ZigZag",   ExtDepth , ExtDeviation, ExtBackstep, MODE_UPPER, d);
     lo=iCustom(Symbol(),0,"ZigZag",   ExtDepth , ExtDeviation, ExtBackstep, MODE_LOWER,d);
    if(up!=0 || lo!=0) break;}
    
     if(up>0 )  sigz= 1;
     if(lo>0)    sigz= 5;
     
    double  OP=iOpen(Symbol(),PERIOD_W1,0);

if(Ask>OP) sigc=1;
    if(Bid<OP) sigc=5;

if(sigz+sigc==2) signal=1;
if(sigz+sigc==10)signal=2;
if(Jam_trade()==1 && !tar){
   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==2) {if(OrderSend(Symbol(),OP_BUY,NR(Lots),Ask,3,slb, tpb,Nama_EA,Magic,0,Blue))Print("JumForex Buy");}
  if(jumlahorder(0)==0 && jumlahorder(1)==0  && Trade_sell && signal==1) {if(OrderSend(Symbol(),OP_SELL,NR(Lots),Bid,3,sls, tps,Nama_EA,Magic,0,Red))Print("JumForex Sell");}
 }
if(trad()==1 && wt!=Time[0] && jumlahorder(1)==0 && jumlahorder(0)< Max_order  && Trade_buy  && signal==2) {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  && Trade_sell && signal==1) {if(OrderSend(Symbol(),OP_SELL,xlot(1),Bid,3,sls, tps,Nama_EA,Magic,0,Red))Print("JumForex Sell"); wk=Time[0];  }

if(money()>0){
if(Bid>ma)   closeall(0);
if(Ask<ma)   closeall(1);
}

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

return (trade);
}

int trad()
{
 int type;
  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();
  }
   asi = opb - Jarak_order * pt;
   bi = ops + Jarak_order * pt;
   if ( Ask <= asi &&  jumlahorder(0)> 0 ) dap=1; 
   if ( Bid >= bi &&  jumlahorder(1)> 0 ) dap=2; 
 
  return(dap);
}
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);
}
void label()
{
 Comment("\n ",
   "\n ",
   "\n ------------------------------------------------",
   "\n :: =>+Jum+AvZigzag+<=",
   "\n :: =>JumForex.blogspot.com<=",
   "\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         :", NormalizeDouble(money(),2),"  $",

"\n :: Jumlah level           :",jumlahorder(0)+jumlahorder(1),
   "\n ------------------------------------------------",
   "\n :: >>By: Jum69<<",
   "\n ------------------------------------------------");
//+------------------------------------------------------------------+
}

Saksikan juga penjelasan berikut :

Pasrtikan Juga 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

Belajar Membuat EA sederhana part 25

11 komentar untuk "Belajar Membuat EA Sederhana 23 Average (Share)"

Unknown28 Januari 2013 pukul 03.12
bang kalau perintah untuk membuat TARGET PROFIT BEP gimana caranya..??

tolong di share..
BalasHapus
Balasan
Unknown31 Januari 2013 pukul 22.26
Terus DEKLARASINYA DITULIS APA BANG..??

Gini bang, saya punya konsep EA makanya masih banyak yang pingin saya tanyakan ke abang, ok cara kerjanya gini..

Rule BUY : Jika tidak ada open posisi BUY, EA akan BUY
Rule SELL : Jika tidak ada open posisi SELL, EA akan SELL..

konsepnya..
Ketika EA di atack pasti akan terjadi Hedging..
ketika salah satu posisi close (mis. TP 3) maka akan buka lagi posisi, sebaliknya posisi yang masih FLOATING kita pake sistem MARTINGALE (mis. dengan jarak 10 pip)..

contoh..
Posisi buy dan sell OP bersamaan..
setelah selang beberapa jam..
posisi BUY ternyata sudah foating 70 pip.. (sistem MARTINGALE bekerja)
sebaliknya SELL sudah hit PROFIT beberapa kali..
ketika SELL Floating pasti posisi BUY yang Floating bisa close..
intinya sih tetap berpatokan pada MM..
mengingat kita meggunakan konsep martingale..

untuk deklarasinya:
- TP
- LOT
- Jarak Pipstep
- DiMarti
- MaxOrder
- TP From Bep = untuk menyeting berapa pip dari titik BEP untuk jarak profit
- Magic BUY
- Magic SELL

moga bang Jum dapat membuatkan EA diatas..
salam bang..
BalasHapus
Balasan
Rielman31 Desember 2014 pukul 13.18
Coba2 bikin ea sendiri tp ilmu program nol, kepala muter2 kleyengan pelajari ea dr forum2. Copas aja ya mudah2an cocok-markocok. Tkssss
BalasHapus
Balasan
m3teoR_CommUnitY18 Maret 2017 pukul 19.45
if(up>0) sigz= 1;
if(lo>0) sigz= 5;
di compile kok eror bang sama return(o) nya
BalasHapus
Balasan
Unknown24 Maret 2017 pukul 20.25
siipp kang.. itu ma nya untuk mengaktifkan tinggal ganti true ya??
ane uda profit lumayan untuk zigzagnya
BalasHapus
Balasan
Blogger10 Oktober 2017 pukul 19.10
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 AWESOME.

During the webinar MARK and ANTONY shared their secrets to success and answered questions about their new release of the GPS Forex Robot that is coming out TODAY!
BalasHapus
Balasan
Unknown4 Februari 2018 pukul 22.35
la iki TP nya gak nambah.....piye
BalasHapus
Balasan
dodo's16 Maret 2019 pukul 11.51
om ini ea ya saya BT kok ndak bisa OP ya apa ya salah?
BalasHapus
Balasan
Dimz29 Juli 2020 pukul 16.23
Komentar ini telah dihapus oleh pengarang.
BalasHapus
Balasan
Dimz29 Juli 2020 pukul 16.25
Pak Bos, kalau EA diatas open Lot awal nya disesuaikan Saldo gmna ya caranya?
BalasHapus
Balasan

Tambahkan komentar