EA Forex Programming

Tuesday, 21 May 2013

Ngoprek EA 1

http://jumforex.blogspot.com/2013/04/ngoprek-ea-1.html

Ha bagi para trader yang sudah biasa bermain dengan coding EA tentu hal yang lumrah bila sekali waktu ngoprek ,..............Tentu ngoprek EA maksudnya!
Nah Kali ini saya akan mengajak temen2 untuk mencoba mengoprek sebuah EA yang cukup baik yang berasal dari library mql4 , dan asal EA nya dari negeri beruang ==>Rusia
VR---SETKA---3 ini nama aslinya dari sononya

Begini Eanya!

//===========================================================================================================================//
//
 Author VOLDEMAR227 site WWW.TRADING-GO.RU      SKYPE: TRADING-GO       
   e-mail: TRADING-GO@List.ru
//===========================================================================================================================//
#property
 copyright "Copyright © 2012, WWW.TRADING-GO.RU ."
#property link      "http://WWW.TRADING-GO.RU"
//WWW.TRADING-GO.RU  full version free
//===========================================================================================================================//
extern
 string  Comment_1 = "settings";
extern int     Plus= 50;
extern int     TakeProfit = 300;
extern int     Distanciya = 300;
extern double  Lots    = 0.00;
extern double  Percent    = 1;
 
extern bool    Martin     = true;
 
extern string  Comment_2 = "signalMA";
extern bool     SignalMA = false;
extern int     PeriodMA1 = 8 ;
extern int     PeriodMA2 = 14 ;
 
extern string  Comment_3 = "signalRSI";
extern bool    SignalRSI = false;
extern int     PeriodRSI = 14 ;
extern int     up= 50;
extern int     dw= 50;
 
extern string  Comment_4 = "signalProc";
extern bool    Proc    =true;
extern double  Procent    =1.3;
 
extern string  Comment_5 = "Monitor";
extern bool    Monitor =  true;
extern int     CORNER = 0;
extern int     Slip=2;
extern int     Magic=1;
int start() 
  {
double Lots_New=0;
 string Symb   =Symbol();               
   double One_Lot=MarketInfo(Symb,MODE_MARGINREQUIRED);
   double Min_Lot=MarketInfo(Symb,MODE_MINLOT);
   double Step   =MarketInfo(Symb,MODE_LOTSTEP);
   double Free   =AccountFreeMargin();        
//--------------------------------------------------------------- 3 --
   if (Lots>0)                               
     {                                        
      double Money=Lots*One_Lot;          
      if(Money<=AccountFreeMargin())         
         Lots_New=Lots;                   
      else                                
         Lots_New=MathFloor(Free/One_Lot/Step)*Step;
     }
//--------------------------------------------------------------- 4 --
   else                                    
     {                                       
      if (Percent > 100)                  
         Percent=100;                    
      if (Percent==0)                
         Lots_New=Min_Lot;                  
      else                      
         Lots_New=MathFloor(Free*Percent/100/One_Lot/Step)*Step;//????
     }
//--------------------------------------------------------------- 5 --
   if (Lots_New < Min_Lot)                  
      Lots_New=Min_Lot;                  
   if (Lots_New*One_Lot > AccountFreeMargin())
     {                                         
      return(false);                        
     }
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//

ObjectCreate("R",OBJ_LABEL,0,0,0);
   ObjectSet("R",OBJPROP_CORNER,2);
   ObjectSet("R",OBJPROP_XDISTANCE,10);
   ObjectSet("R",OBJPROP_YDISTANCE,10);
   ObjectSetText("R","WWW.TRADING-GO.RU  full version free",15,"Arial 
Black",Red);
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//

double opB=2000; double opS=0; double orderProfitbuy=0; double 
Sum_Profitbuy=0; double orderProfitsel;  double Sum_Profitsel; int 
orderType;
   double LotB=Lots_New;
   double LotS=Lots_New;
   int total=OrdersTotal();
   int b=0,s=0,n=0;
   for(int i=total-1; i>=0; i--)     {
      if(OrderSelect(i, SELECT_BY_POS))
        {
         if(OrderSymbol()==Symbol()      )
           {
            n++;
            if(OrderType()==OP_BUY && OrderMagicNumber()==Magic)
              {
               b++;
               LotB=OrderLots();
               double ProfitB=OrderTakeProfit(); double 
openB=OrderOpenPrice();
               if(openB<opB)
                 {opB=openB;}
              }
            //---------------------------------      
            if(OrderType()==OP_SELL && 
OrderMagicNumber()==Magic)
              {
               s++;
               LotS=OrderLots();
              double ProfitS=OrderTakeProfit(); double 
openS=OrderOpenPrice();
               if(openS>opS)
                 {opS=openS;}
              }
           }
        }
     }
   double max = NormalizeDouble(iHigh(Symbol(),1440,0),Digits);
   double min = NormalizeDouble(iLow (Symbol(),1440,0),Digits);
   double opp=NormalizeDouble(iOpen(Symbol(),1440,0),Digits);
   double cl=NormalizeDouble(iClose(Symbol(),1440,0),Digits);
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//

double dis   =NormalizeDouble(Distanciya*Point,Digits);
   double spred 
=NormalizeDouble(MarketInfo(Symbol(),MODE_SPREAD)*Point,Digits);
   double  CORR=NormalizeDouble(Plus            *Point,Digits);
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
   
int sigup=0;
int sigdw=0;
//WWW.TRADING-GO.RU  full version free
if (SignalMA == true)
{ 
//WWW.TRADING-GO.RU  full version free
}
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
if
 (SignalRSI == true)
{
//WWW.TRADING-GO.RU  full version  free
}
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
if
 (Proc    ==true)
{
   if(cl>min) { double x=NormalizeDouble(cl*100/min-100,2); }
   if(cl<max) { double y=NormalizeDouble(cl*100/max-100,2); }
   
if (Procent*(-1)<=y&&Close[1]>Open[1]){ sigup=1; sigdw=0; }
if (Procent     >=x&&Close[1]<Open[1]){ sigup=0; sigdw=1; }
  
}
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//

int f=0;
   if(Martin==true)
     {
        if (total==0){f=1    ;}
        if (total>=1){f=total;}
         LotB=Lots_New*f;
         LotS=Lots_New*f;
     }
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
if(Martin==false)

{
LotB=LotS;
LotS=LotB;
  }
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
  
if((b==0&&sigup==1&&s==0)||(Ask<opB-dis+spred&&b>=1&&s==0))
 { OrderSend(Symbol(),OP_BUY ,LotB,Ask,Slip,0,0,"Buy ",Magic,0,Green); }
if((s==0&&sigdw==1&&b==0)||(Bid>opS+dis+spred&&s>=1&&b==0))
 { OrderSend(Symbol(),OP_SELL,LotS,Bid,Slip,0,0,"Sell",Magic,0,Green); }
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
double
 TP= NormalizeDouble (spred+TakeProfit*Point,Digits);
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//

for (int iq=total-1; iq>=0; iq--)
   {
    if(OrderSelect(iq, SELECT_BY_POS))
     {
      if(OrderSymbol()==Symbol()&&OrderMagicNumber()==Magic)
       {   
        if (OrderType()==OP_BUY  &&  OrderTakeProfit()==0 
&& b==1) 
         {
          
OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),NormalizeDouble(OrderOpenPrice()+TP,Digits),0,Blue);
  
         }     
        if (OrderType()==OP_SELL && OrderTakeProfit()==0 
&& s==1) 
         {
          
OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),NormalizeDouble(OrderOpenPrice()-TP,Digits),0,Blue);
  
         }
}}}
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
double
 nn=0,bb=0;
for(int ui=total-1; ui>=0; ui--)
  {
   if(OrderSelect(ui,SELECT_BY_POS))
     {
      if(OrderSymbol()==Symbol())
        {
         if(OrderType()==OP_BUY && OrderMagicNumber()==Magic)
           {
            double op=OrderOpenPrice();
            double llot=OrderLots();
            double itog=op*llot;
            bb=bb+itog;
            nn=nn+llot;
            double factb=bb/nn;
           }
        }
     }
  }
double nnn=0,bbb=0;
for(int usi=total-1; usi>=0; usi--)
  {
   if(OrderSelect(usi,SELECT_BY_POS))
     {
      if(OrderSymbol()==Symbol())
        {
         if(OrderType()==OP_SELL && OrderMagicNumber()==Magic)
           {
            double ops=OrderOpenPrice();
            double llots=OrderLots();
            double itogs=ops*llots;
            bbb=bbb+itogs;
            nnn=nnn+llots;
            double facts=bbb/nnn;
           }
        }
     }
  }
 
for(int uui=total-1; uui>=0; uui--)
  {
   if(OrderSelect(uui,SELECT_BY_POS))
     {
      if(OrderSymbol()==Symbol())
        {
         if(b>=2 && OrderType()==OP_BUY && 
OrderMagicNumber()==Magic)
           {
            
OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),factb+CORR,0,Blue);

}
         if(s>=2 && OrderType()==OP_SELL && 
OrderMagicNumber()==Magic)
           {
            
OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),facts-CORR,0,Blue);

}
        }
     }
  }
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
if
 ( Monitor == true )
{
//WWW.TRADING-GO.RU  full version free
}
}
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//

Bagi temen2 yang mau nyoba silahkan di copas dan mungkin bisa diamati programnya.
Ea ini termsuk sudah cukup baik karena sudah menggunakan perhitungan Bep untuk Take profitnya. (emang ada sedikit error untuk modifikasi ordernya tapi tidak menggganggu).

Kalo diamati emang sepertinya EA ini edisi free dan untuk signalnya belum lengkap tetapi sudah cukup baik untuk di coba di buat demo atau riel heeeee dan mungkin edisi lengkapnya dibuat premium (kali aja loh)

Nah Pada kesempatan kali ini saya akan ngoprek dengan sedikit saya tambahakan:

Target persen = artinya kalo target equety sudah tercapai maka EA akan berhenti trading
Penambahan signal berdasarkan indikator yang ada
dan sedikit diberi pemanis buatan heeeeeeee

Nah sementara di sini dulu yah

hasil ngopreknya sabar dulu atau ada temen2 yang akan menyumbangkan hasil oprekannya , silahkan di kasih link atau email juga boleh

3 komentar:

Freeware17 April 2013 19.47

gan ini ea nga ada SL nya ya?
takut MC gara2 nga ada SL nya
klo ditambahkan SL nya gimana ya cara naruhnya yang pas.

ditunggu jawabnnya
makasih
Balas
Bang Jay21 April 2013 09.05

Maaf master mau nanya, apakah ada EA yang bisa mengaktifkan stop order setelah harga melewati sekian pips dari harga patokan. ilustrasinya begini. misal untuk EU harga sedang bergerak naik dari level 1.2950 ke 1.3000, biasanya kalo kita mau sell di 1.3000 kan pake order Sell limit di 1.30000, tapi sering harga malah terus naik sampai menyentuh SL kita. nah saya pengennya sell stop di harga 1.30000 setelah harga menyentuh misal 1.3020. jadi EA nya mengkatifkan sell stop setelah harga naik 20 pips dari level 1.3020. terimakasi sebelumya
Balas
Balasan

Belajar Membuat EA Sederhana 33 (Proteksi EA)

http://jumforex.blogspot.com/2013/05/belajar-membuat-ea-sederhana-33.html

Salam Profit semuanya!

Sepertinya udah banyak sih share coding EA sampai part 32.......

Nah kali ini kita akan belajar tentang proteksi EA ....karena ada bebepa temen di Ym yang minta di ajari proteksi EA ...............

Ada banyak cara untuk proteksi EA ataupun script dan Indikator al:

Proteksi Demo ==> EA hanya bisa digunakan untuk account demo.
Proteksi accout khusus ==> hanya bisa digunakan account tertentu saja.
Proteksi Broker ==> hanya bisa digunakan broker tertentu saja
Proteksi Pair ==> hanya bisaa digunakan pair tertentu saja.
Proteksi waktu ==> dibatasi sampai waktu tertentu : tgl -bulan-tahun
Proteksi Nama==>hanya bisa digunakan dengan nama account tertentu
Proteksi Pasword==> menggunakan pasword tertentu ,lisensi number
Proteksi dll ==>menggunakan file dll
Proteksi webs==> harus tersambung dengan webs
dll.

Nah kita akan bahas beberapa proteksi ..............

Yang Pertama

Proteksi account demo
Untuk memproteksi supaya EA hanya bisa digunakandi account demo disini kita tambahkan pembaca account demo yaitu: IsDemo()
Nah dari sini kita kembangkan dalam sebuah operasi

if(!IsDemo()){Alert("Maaf bos hanya untuk demo");return(0);}

Nah , if(!IsDemo()){ ini artinya bila tidak demo maka blabla.............yaitu Alert("Maaf bos hanya untuk demo") =>maka alert akan berbunyi dan memberi tahu ..............
ditambahkan untuk menghentikan perintah berikutnya yaitu return(0);

Code tersebut di tempatkan di dalam atau dibawah int start(){
contoh:

int start(){ if(!IsDemo()){Alert("Maaf bos hanya untuk demo");return(0);}

Nah untuk lebih jelasnya saya akan proteksi EA di part 21

sehingga jadinya begini

//+-----------------------------------------------------------------------------------------+
//|
                                                    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             = false;
extern double  TP_in_money             = 5;
extern int     TP                      = 100;
extern int     SL                      = 20;
extern double  Lots                    = 0.1;
extern int     Jarak_stop              = 25;
extern bool    TrailingStop_           = true;
extern int     TrailingStop            = 12;
extern int     Magic                   = 69;
double slb,tpb,sls,tps,pt,lslb,ltpb;
//+------------------------------------------------------------------+
//| 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(!IsDemo()){Alert("Maaf bos hanya untuk demo");return(0);}
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  ) 
{OrderSend(Symbol(),OP_BUYSTOP,NR(Lots),as,3,slb, 
tpb,Nama_EA,Magic,0,Blue);}
  if(jumlahorder(5)==0  && Trade_sellstop ) 
{OrderSend(Symbol(),OP_SELLSTOP,NR(Lots),bi,3,sls, 
tps,Nama_EA,Magic,0,Red);}
 }

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

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(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);
 }
}
double money(int m)
{
 double dp = 0;
 int i;
 for (i = 0; i < OrdersTotal(); i++) {
  OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
  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 : ",money(0),
   "\n :: Floting sell : ",money(1),
   "\n ------------------------------------------------",
   "\n :: >>By: Jum69<<",
   "\n ------------------------------------------------");
}

Ternyata hanya dengan sebaris perintah tersebut cukup ampuh bahwasanya EA hanya akan bisa digunakan di account demo he he he..............Mudah kan?

Oke deh sementara disini dulu ya nanti kita saambung lagi

sabar deh

Belajar Membuat EA Sederhana 32

Salam Profit semuanya

Pada part kali saya share EA sederhana yang gunanya untuk menutup semua order dalam 1 pair pada jam tertentu,
kebetulan EA ini pernah saya share di forum IndoMt5 , Karena ada permintaan seorang temen untuk di tambahi fungsi hari supaya bisa diseting harinya.

Mudah2an menambah wawasan

//+------------------------------------------------------------------+
//|                                       EA TutupGakPeduliOrder.mq4 |
//|                                          Copyright © 2011,Jum69  |
//|                                     http://Jumforex.blogspot.com |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2011,Jum69"
#property link      "http://Jumforex.blogspot.com"

//edit 26-4-2013
extern  bool   Yakin_Mau_Tutup_Semua=false;
extern string  Hari_Close = "=>Sesuai selera::";
extern bool    Senin = true;
extern bool    Selasa= true;
extern bool    Rabu= true;
extern bool    Kamis= true;
extern bool    Jumat= true; 
extern  string Isi_Jamnya="===>Ingat gan jam Server+";
extern  int    Jam= 0;
extern  int    Menit= 0;
string j_1;
int init() {  return(0); }
int deinit()  {   return(0);  }
int start()
  {
  Infonya();
  if(Yakin_Mau_Tutup_Semua)j_1="Oke On"; else j_1="Off";
  if(Yakin_Mau_Tutup_Semua && Hour() == Jam && Minute()== Menit && tday()==1)c();
   return(0);
  }
void  Infonya()
 { 
   Comment(" -----------------------------------------------", 
      "\n :: ====>INFO TERKINI<===",      
      "\n ------------------------------------------------", 
      "\n :: Spread                 : ", MarketInfo(Symbol(), MODE_SPREAD), 
      "\n :: Leverage               : 1 : ", AccountLeverage(), 
      "\n :: Equity                 : ", AccountEquity(), 
      "\n :: Jam server             : ", Hour(), ": ",Minute(),
      "\n ------------------------------------------------", 
      "\n :: Program Tutup Order    : ",j_1,
      "\n :: Jam Tutup Order        :", Jam, ": ",Menit,
      "\n ------------------------------------------------",
      "\n :: http://Jumforex.blogspot.com ",
      "\n ------------------------------------------------", 
      "\n :: HAPPY TRADING @Jum69 ",
      "\n ------------------------------------------------"); 
      
}   
int tday()
{
int trd=0;
if(Senin  && DayOfWeek()==1) trd=1;
if(Selasa && DayOfWeek()==2) trd=1;
if(Rabu   && DayOfWeek()==3) trd=1;
if(Kamis  && DayOfWeek()==4) trd=1;
if(Jumat  && DayOfWeek()==5) trd=1;
return(trd);
} 
void c()
{
for (int i = OrdersTotal() - 1; i >= 0; i--) {
  OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
  if (OrderSymbol() != Symbol() ) 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);
  }
 }
}

Pastikan mengikuti:

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

Belajar Membuat EA sederhana part 26

Belajar Membuat EA sederhana Part 27

Belajar Membuat EA sederhana part 28

Belajar Membuat EA sederhana Part 29

Belajar Membuat EA sederhana Part 30

Belajar Membuat EA sederhana Part 31

Belajar Membuat EA Sederhana 31 (Multi Pair)

http://jumforex.blogspot.com/2013/04/belajar-membuat-ea-sederhana-31-multi.html

Pastikan sudah mengikuti part sebelumnya di sini

Untuk melengkapi wawasan kita tentang membuat EA, disini saya akan coba share tentang Membuat EA multi pair (Ea untuk 6 pair). Hal ini untuk memenuhi permintaan beberapa teman melalui email.

Ea ini hanya sebagai dasar2 saja dan untuk pengembangan lebih lanjut silahkan untuk berkreasi
Dasar2 Ea dilengkapi dengan fungsi yang mudah untuk di comot ,al :

fungsi order untuk multi pair
close semua order multi pair
menghitung total order perpair
Kebetulan signal diambil dari close candel dan open candel

Mungkin bagi temen2 yang berminat silahkan mengamati code berikut dan mudah2an pas untuk belajar

//koreksi 10/04/2013

//+------------------------------------------------------------------+
//|                                                Jum+MultiPair.mq4 |
//|                                                gifaesa@yahoo.com |
//|                                     http://JumForex.blogspot.com |
//+------------------------------------------------------------------+
#property copyright "JumForex.blogspot.com"
#property link      "Gifaesa@yahoo.com"

extern string  EA="multipair";
extern bool    Close_Panic=false;
extern double  Lots=0.1;
extern int     Tp=5;
extern int     Sl=15;
extern string  Pr1="GBPUSD";
extern string  Pr2="EURUSD";
extern string  Pr3="AUDUSD";
extern string  Pr4="USDJPY";
extern string  Pr5="USDCHF";
extern string  Pr6="EURJPY";
string  Nama_EA = "Jum+MultiPair :";
int     Magic = 69;
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init(){ return(0); }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit(){ return(0);}
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
//----
 u();
if(Close_Panic){c(Pr1,0);c(Pr1,1); c(Pr2,0);c(Pr2,1);c(Pr3,0);c(Pr3,1);c(Pr4,0);c(Pr4,1);c(Pr5,0);c(Pr5,1);c(Pr6,0);c(Pr6,1);  }

if(!Close_Panic){
if(jum(Pr1,0)==0 && O(Pr1,1)<C(Pr1,1))or(Pr1,0,Lots);
if(jum(Pr2,0)==0 && O(Pr2,1)<C(Pr2,1))or(Pr2,0,Lots);
if(jum(Pr3,0)==0 && O(Pr3,1)<C(Pr3,1))or(Pr3,0,Lots);
if(jum(Pr4,0)==0 && O(Pr4,1)<C(Pr4,1))or(Pr4,0,Lots);
if(jum(Pr5,0)==0 && O(Pr5,1)<C(Pr5,1))or(Pr5,0,Lots);
if(jum(Pr6,0)==0 && O(Pr6,1)<C(Pr6,1))or(Pr6,0,Lots);

if(jum(Pr1,1)==0 && O(Pr1,1)>C(Pr1,1))or(Pr1,1,Lots);
if(jum(Pr2,1)==0 && O(Pr1,2)>C(Pr2,1))or(Pr2,1,Lots);
if(jum(Pr3,1)==0 && O(Pr1,3)>C(Pr3,1))or(Pr3,1,Lots);
if(jum(Pr4,1)==0 && O(Pr1,4)>C(Pr4,1))or(Pr4,1,Lots);
if(jum(Pr5,1)==0 && O(Pr1,5)>C(Pr5,1))or(Pr5,1,Lots);
if(jum(Pr6,1)==0 && O(Pr1,6)>C(Pr6,1))or(Pr6,1,Lots);
}

//----
   return(0);
  }
//+------------------------------------------------------------------+
void or(string sy, int op,double lt)
   { double mod,mr,sl,tp;string st;
   if( op==0){ mod=MODE_ASK;st=" Buy ";}
   if( op==1){ mod=MODE_BID;st=" Sell ";}
    mr=MarketInfo(sy,mod);
   if( op==0){ sl=mr-Sl*pt(sy); tp=mr+Tp*pt(sy);}
   if( op==1){ sl=mr+Sl*pt(sy); tp=mr-Tp*pt(sy);}
   OrderSend(sy,op,lt,mr,3,sl, tp,Nama_EA+st+sy,Magic,0,Blue);
   }

int jum(string sy, int tipe)
    { int t=0;
    for(int i=0; i<OrdersTotal(); i++)
      {
      OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
      if(OrderSymbol()!= sy || OrderMagicNumber()!=Magic || OrderType()!=tipe) continue;
      t++;
      } return(t);
    }

double pt(string sy)
{
  double t;
  double p = MarketInfo(sy, MODE_TICKSIZE);
  if (Digits == 3 || Digits == 5) t=10*p; else t=p;
  return(t);
  }

void c(string sy,int m)
   {
    double mod;
    if( m==1) mod=MODE_ASK;
    if( m==0) mod=MODE_BID;
    double mr= MarketInfo(sy,mod);
    for (int i = OrdersTotal() - 1; i >= 0; i--) {
      OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
      if (OrderSymbol() != sy || OrderMagicNumber()!=Magic ) continue;
      if (OrderType() == m) OrderClose(OrderTicket(), OrderLots(), mr, 3, CLR_NONE);
      if (OrderType() == m && m>1) OrderDelete(OrderTicket());
      }
   }
double C(string sy,int s){return(iClose(sy,PERIOD_H4,s));}
double O(string sy,int s){return(iOpen(sy,PERIOD_H4,s));}

void u()
   {
   Comment("\n ",
   "\n ",
   "\n ------------------------------------------------",
   "\n :: =>+Jum+MultiPair<=",
   "\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 ------------------------------------------------");
  }

Bila ada yang mau memberikan penjelasan dan atau pertanyaan silahkan comment di bawah !

semoga bermanfaat untuk semua
Salam Sukses trader Indonesia

Belajar Membuat EA Sederhana 30

http://jumforex.blogspot.com/2013/03/belajar-bikin-ea-sederhana-20.html

Assalamualaikum .............semuanya Salam profit dan sukses selalu! Sampai hari ternyata masih banyak email dan juga Ym ==>minta dibuatkan Ea ... Padahal dengan saya share dari part 1 sampai ini part 30 ini dengan harapan temen2 mau belajar membuat EA , meski hanya sederhana.
Part 1 sampai dengan 30 tanpa terasa ternyata sudah banyak hee.

Disini kebetulan gak share tentang dasar2 mql tapi ini sebenarnya bisa dipelajari di metaeditor.
Coba aja buka metaeditor dan perhatikan di sebelah kanan tab atau klik di bagian dictionary buka satu persatu bagian dari semua hal yang terkait dengan pemrogram mql4 ada semuanya...atau kesini http://book.mql4.com .....hem lengkap kan?
Tinggal kemauan kita untuk mempelajarinya ...saya belajar juga mulai dai 0 (nol) kecil loh

Loh dulu saya juga belajar dari 0 dengan banyak i membaca dan praktek ditambah rajin bertanya kepada para master eeeeeeeeee , banyak di forum2 master yang selalu siap membantu kita ...gratis pula...,,Enak kan?
Dulu saya belajar tentang EA dimulai ketika sakit gara2 banyak nongkrong di depan komputer dan mata melotot ngelihat chart heee ditambah banyak berdebar debar gara2 loncatan news rilis dengan floting menganga heeee

Ternyata dengan diberi sakit ada banyak hikmah ................ saya jadi bisa membuat EA , meski hanya EA yang sederhana.
Alhamdulillah udah 1,5 tahun terakhir semua Ea yang saya gunakan di account riel adalah buatan sendiri.
Nah mudaha2 ini memberi motivasi rekan2 trader untuk bisa membuat EAnya sendiri .

Alhamdulillah lagi deh......... sekarang saya santai gak banyak didepan kompi loh.......... buat apa capek2 di depan kompi kalo bisa ditinggal jalan2 dan eee profitnya juga sama ...ya kan?
Kalo udah rejeki yah gak akan kemana ..........untuk apa capek heee didepan kompi eeee bisa vertigo itu sih pengalaman saya

Nah EA sebenarnya hanyalah pembantu yang mewakili trading kita ..
dengan pemahaman yang baik Ea juga sangat membantu transaksi kita.

Apa sih susah nya bikin EA?
Bikin Ea itu gampang koq (hee mentang2 udah bisa)
tapi ada yang bilang sulit yahhh bagi yang belum mempelajarinya haaahaa
Sampai hari ini saya juga masih belajar !

Yang penting ada kemauan pasti ada jalan ....
Jangan sungkan2 bertanya kepada siapapun ...loh itu kuncinya

Kalo belum bisa mulailah dari awal atau mulai klik sini http://jumforex.blogspot.com/2012/08/yuk-belajar-bikin-ea-sederhana-1.html

Oh ya hampir lupa nih EA di part 30 ini sebagai wawasan saja ... dan pada bagian ini saya sengaja tidak kasi penjelasan tapi harapan saya ada yang mau kasih comment dengan penjelasan2 hee

Semoga berhasil semuanya deh!

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++;
  }

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);
  }
//+------------------------------------------------------------------+

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

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

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

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);
  }
//+------------------------------------------------------------------+

return (trade);
}

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 !

EA Forex Programming

Tuesday, 21 May 2013

Ngoprek EA 1

http://jumforex.blogspot.com/2013/04/ngoprek-ea-1.html

3 komentar:

Belajar Membuat EA Sederhana 33 (Proteksi EA)

Belajar Membuat EA Sederhana 32

Belajar Membuat EA Sederhana 31 (Multi Pair)

http://jumforex.blogspot.com/2013/04/belajar-membuat-ea-sederhana-31-multi.html

Belajar Membuat EA Sederhana 30

Belajar Membuat EA Sederhana 29 (daily marti lepas)

Belajar Membuat EA Sederhana 28 ( order Harian)

Pages

Amazon