cara membuat robot forex

Belajar Membuat EA sederhana Part 31

Sabtu, 20 April 2013

Mulai Belajar Forex dari Nol Kecil

Salam profit semuanya!

Beberapa hari yang lalu ada temen yang nyundul di Ym...
Kebetulan temen tersebut baru belajar forex , bahkan baru membaca dan surfing di internet tentang bisnis forex yang menggiurkan katanya.
Sebenarnya apa yang dipikirkan oleh para trader pemula tentu semua trader juga pernah mengalaminya.
Semua trader berangkat dari mimpi , mimpi profit $ segudang hee!

Forex sebenarnya bisnis yang murah tapi juga bisnis yang mahal hee
Koq bisa ya murah tapi mahal .

Belajar forex sebenarnya sangat mudah di internet juga banyak menyediakan informasi tentang bagamana bisnis forex.
Tapi dalam kenyataannya banyak trader yang bangkrut, begitu memulai nya haahaaaaaaa
Beberapa hari yang lalu juga ada temen di ym yang juga berkeluh kesah tentang hilang modalnya 3000$ di forex gara2 MC (margin call) .
wow
Bisnis Forex bisnis yang penuh tantangan dan resiko , tanpa memahami nya maka forex akan menjadi judi yang bisa menghabiskan banyak $ dalam sekejap.

Sebenarnya Bagaimana memulai bisnis forex?

Bagi yang ingin menghemat waktu ,tenaga dan biaya idealnya belajar melalui Mentor (Pembimbing) .Dari pengalaman saya yang telah belajar secara otodidak (belajar dari forum2 dan membaca di Internet dan buku) ternyata dirasa sangat kurang dan banyak menyita waktu, tenaga dan juga biaya. Biaya sebenarnya relatif tapi Margin Call (MC ) juga termasuk bagian dari sebuah biaya. Mentor pastilah memerlukan biaya tapi dibanding dengan biaya belajar sendiri tentulah jauh lebih hemat ,saya pribadi memerlukan waktu 2 tahun belajar sendiri mengorbankan banyak waktu , tenaga dan biaya yang tidak sedikit untuk bisa akhirnya eksis setelah banyak jatuh bangun . Jadi Mentor justru akan banyak menghemat waktu dan biaya . Jadi saran saya carilah mentor untuk anda!
Ikulah forum2 forex untuk memperdalam pangalaman dan menambah wawasan , banyak forum yang ada didunia maya dengan berbagai bahasa ,bahkan ada yang memberikan bonus setiap posting mulai 0,15$ s/d 0,3$ contohnya adalah Indo Mt5 (mau daftar silahkan Klik disini) atau juga di forum india bahasa Inggris Klik sini untuk daftar atau juga di forexfactory dan juga banyak yang lainya .
Setelah memahami teknik bertransaksi mulailah menentukan broker . Banyak broker yang ada di dunia maya tentu ini sangat mebingungkan. Tapi untuk pemula gunakan broker yang menyediakan mini account (cents $) contohnya Instaforex (klik disini untuk daftar)
Banyak2 lah demo sebelum memulai dengan Uang riel. Demo sebenarnya hal yang remeh tetapi hal ini adalah bagian penting untuk menguji strategy dalam kurun waktu tertentu (idealnya minimal 3 bulan).
Kita sambung lain waktu ya!

Salam Profit

Rabu, 10 April 2013

Ngoprek EA 1

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

untuk versi oprek bisa langung meluncur ke sini

Senin, 08 April 2013

Belajar Membuat EA Sederhana 31 (Multi Pair)

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

Pastikan Juga mengikuti:

Belajar Membuat EA sederhana Part 31

Kamis, 28 Maret 2013

Belajar Membuat EA Sederhana 30

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!

EAnya

//+------------------------------------------------------------------+ //|                                                      EA Jum+wPR  | //|                                                gifaesa@yahoo.com | //|                                     http://JumForex.blogspot.com | //+------------------------------------------------------------------+  #property copyright "JumForex.blogspot.com" #property link      "Gifaesa@yahoo.com"  extern string wPR="Pro EA"; extern bool mm =true; extern double  manage_balance =5; extern bool limit=true; extern int jarak =10; extern int tp =100; extern int sl =60; extern double lots =0.1; extern bool trailing=true; extern int trailingStop = 10; extern int magic = 69; double z,pt;int mg; string  Nama_EA= "Jum+w",Nama   = "Jum+ww";  double w(int p,int m){return(iWPR(NULL,0,p,m)); } double j(int m,int t,int p){   double a;   for(int i=0; i<OrdersTotal(); i++){   OrderSelect(i,SELECT_BY_POS,MODE_TRADES);    if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=m||OrderType()!=t) continue;    if(p==1) a++;    if(p==2) a=OrderOpenPrice();}    return(a);} double k(double x){double maxlots = MarketInfo(Symbol(), MODE_MAXLOT),minilot = MarketInfo(Symbol(), MODE_MINLOT),lstep = MarketInfo(Symbol(), MODE_LOTSTEP); double lots = lstep * NormalizeDouble(x / lstep, 0);lots = MathMax(MathMin(maxlots, lots), minilot); return (lots);} int init(){if(Digits==3 || Digits==5) pt=10*Point;   else   pt=Point; mg=magic+5; return(0);} int start() {  if((j(magic,0,1)==0 && j(mg,1,1)==1))tr(1,mg);  if((j(magic,1,1)==0 && j(mg,0,1)==1))tr(0,mg); if(trailing){  if(j(magic,0,1)==1 && j(mg,1,1)==0 && (j(magic,0,2)+jarak*pt)<=Bid)tr(0,magic);  if(j(magic,1,1)==1 && j(mg,0,1)==0 && (j(magic,1,2)-jarak*pt)>=Ask)tr(1,magic); }  if(mm) z=lots* MathFloor(AccountBalance() / manage_balance); else z=lots; if( Hour()<12){    if(j(magic,0,1)==0 && w(12,0)<(-1)*90 ){OrderSend(Symbol(),OP_BUY,k(z),Ask,3,(Ask-sl*pt)*(sl>0), (Ask+tp*pt)*(tp>0),Nama_EA,magic,0,Blue); }    if(j(magic,1,1)==0 && w(12,0)>(-1)*10 ){OrderSend(Symbol(),OP_SELL,k(z),Bid,3,(Bid+sl*pt)*(sl>0), (Bid-tp*pt)*(tp>0),Nama_EA,magic,0,Red);}   double g=MarketInfo(Symbol(),MODE_SPREAD);     double s=j(magic,1,2)-(jarak)*pt;    double b=j(magic,0,2)+(jarak)*pt;  if(limit){      if(j(magic,1,1)==1 && j(mg,2,1)==0 && j(mg,0,1)==0){OrderSend(Symbol(),2,k(z),s,3,(s-sl*pt)*(sl>0), (s+tp*pt)*(tp>0),Nama,magic+5,0,Blue); }   if(j(magic,0,1)==1 && j(mg,3,1)==0 && j(mg,1,1)==0 ){OrderSend(Symbol(),3,k(z),b,3,(b+sl*pt)*(sl>0), (b-tp*pt)*(tp>0),Nama,magic+5,0,Red);}  }}   if(j(magic,1,1)==0 && j(mg,2,1)==1){c(2);}    if(j(magic,0,1)==0 && j(mg,3,1)==1){c(3);}      label();  return(0);  }  void c(int m) {  for (int i = OrdersTotal() - 1; i >= 0; i--) {   OrderSelect(i, SELECT_BY_POS, MODE_TRADES);   if (OrderSymbol() != Symbol() || OrderMagicNumber()!=magic+5 || 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);  } } void tr(int t,int m) { for(int i=0; i<OrdersTotal(); i++){       OrderSelect(i,SELECT_BY_POS,MODE_TRADES);         if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=m || OrderType()!=t ) continue;         if(OrderType()==OP_BUY)  {            if((OrderStopLoss()<Bid-pt*trailingStop) || (OrderStopLoss()==0)) {               OrderModify(OrderTicket(),OrderOpenPrice(),Bid-pt*trailingStop,OrderTakeProfit(),0,Green);               return(0);               }            }         if(OrderType()==OP_SELL)  {            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+wPR<=",    "\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 ------------------------------------------------"); }

Pastikan Juga mengikuti:

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:

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: