Made EA Robot Trading Forex 23-30

Made EA Robot Trading Forex 23: EA Avaraging Signal Use ZigZag diKombinasi Moving Average.

//+------------------------------------------------------------------+ //| Create EA Avaraging Signal Use ZigZag Ofx 1Mi2024.mq4 | //| Website Tutorial Cara Daftar MT4 | //| https://caradaftarmt4.net | //+------------------------------------------------------------------+ #property copyright "Website Tutorial Cara Daftar MT4" #property link "https://caradaftarmt4.net" #property version "1.00" #property strict extern string NamaRobot = "EA Averaging ZigZag"; extern bool UseTargetEquity = False; extern double TargetEquity = 15000; extern bool Trade_buy = true; extern bool Trade_sell = true; extern int Mulai_Jam = 3; extern int Akhir_Jam = 24; extern bool Tp_in_Money = true; extern double TP_in_money = 1; extern int TP = 100; extern int SL = 0; extern double Lots = 0.01; extern int Jarak_order = 25; extern int Max_order = 10; extern double DiMartingale = 1; extern bool UseTrailingStop = false; extern int TrailingStop = 20; extern int Magic = 789; extern int ExtDepth = 33; extern int ExtDeviation = 5; extern int ExtBackstep = 3; extern int Pereode = 34; extern string Nama_EA = "ZigZag Averaging"; double asi, bi,slb,tpb,sls,tps,pt,bal, tar,up,lo,ylot,dlot,opb,ops; int tiket,ticet,sigz, sigc,signal,dap; static datetime wt,wk; //+------------------------------------------------------------------+ //| expert initialization function | //+------------------------------------------------------------------+ int OnInit() { //--- bal= AccountEquity(); if(Digits==3 || Digits==5) pt=10*Point; else pt=Point; //--- return(INIT_SUCCEEDED); } //+------------------------------------------------------------------+ //| Expert deinitialization function | //+------------------------------------------------------------------+ void OnDeinit(const int reason) { //--- } //+------------------------------------------------------------------+ //| Expert tick function | //+------------------------------------------------------------------+ void OnTick() { if(UseTargetEquity) { if(TargetEquity<AccountEquity()) { closeall(0); closeall(1); tar=1; Alert("Target Equity Kekecilan"); } } label(); if(UseTrailingStop) dtrailing(); if(Tp_in_Money && TP_in_money<= money()) { closeall(0); closeall(1); } //---- double ma = iMA(Symbol(), 0, Pereode, 0, MODE_LWMA, PRICE_CLOSE, 0) ; for(int d=0; d< Bars ; d++) { up=iCustom(Symbol(),0,"ZigZag", ExtDepth, ExtDeviation, ExtBackstep, MODE_UPPER, d); lo=iCustom(Symbol(),0,"ZigZag", ExtDepth, ExtDeviation, ExtBackstep, MODE_LOWER,d); if(up!=0 || lo!=0) break; } if(up>0) sigz= 1; if(lo>0) sigz= 5; double OP=iOpen(Symbol(),PERIOD_W1,0); if(Ask>OP) sigc=1; if(Bid<OP) sigc=5; if(sigz+sigc==2) signal=1; if(sigz+sigc==10) signal=2; if(Jam_trade()==1 && !tar) { if(SL==0) slb=0; else slb=Ask-SL*pt; if(SL==0) sls=0; else sls=Bid+SL*pt; if(TP==0) tpb=0; else tpb=Ask+TP*pt; if(TP==0) tps=0; else tps=Bid-TP*pt; if(jumlahorder(0)==0 && jumlahorder(1)==0 && Trade_buy && signal==2) { if(OrderSend(Symbol(),OP_BUY,NR(Lots),Ask,3,slb, tpb,Nama_EA,Magic,0,Blue)) Print("EA Buy"); } if(jumlahorder(0)==0 && jumlahorder(1)==0 && Trade_sell && signal==1) { if(OrderSend(Symbol(),OP_SELL,NR(Lots),Bid,3,sls, tps,Nama_EA,Magic,0,Red)) Print("EA Sell"); } } if(trad()==1 && wt!=Time[0] && jumlahorder(1)==0 && jumlahorder(0)< Max_order && Trade_buy && signal==2) { if(OrderSend(Symbol(),OP_BUY,xlot(0),Ask,3,slb, tpb,Nama_EA,Magic,0,Blue)) Print("EA Buy 2"); wt=Time[0]; } if(trad()==2 && wk!=Time[0] && jumlahorder(0)==0 && jumlahorder(1)<Max_order && Trade_sell && signal==1) { if(OrderSend(Symbol(),OP_SELL,xlot(1),Bid,3,sls, tps,Nama_EA,Magic,0,Red)) Print("EA Sell 2"); wk=Time[0]; } if(money()>0) { if(Bid>ma) closeall(0); if(Ask<ma) closeall(1); } } //+------------------------------------------------------------------+ //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ int Jam_trade() { bool trade = false; if(Mulai_Jam > Akhir_Jam) { if(Hour() >= Mulai_Jam || Hour() < Akhir_Jam) trade = true; } else if(Hour() >= Mulai_Jam && Hour() < Akhir_Jam) trade = true; return (trade); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ int jumlahorder(int tipe) { int total=0; for(int i=0; i<OrdersTotal(); i++) { if(!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue; if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic || OrderType()!=tipe) continue; total++; } return(total); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ double NR(double thelot) { double maxlots = MarketInfo(Symbol(), MODE_MAXLOT), minilot = MarketInfo(Symbol(), MODE_MINLOT), lstep = MarketInfo(Symbol(), MODE_LOTSTEP); double lots = lstep * NormalizeDouble(thelot / lstep, 0); lots = MathMax(MathMin(maxlots, lots), minilot); return (lots); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ void dtrailing() { for(int i=0; i<OrdersTotal(); i++) { if(!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue; if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic) continue; if(OrderType()==OP_BUY) { if(Bid-OrderOpenPrice()>pt*TrailingStop) { if((OrderStopLoss()<Bid-pt*TrailingStop) || (OrderStopLoss()==0)) { tiket=OrderModify(OrderTicket(),OrderOpenPrice(),Bid-pt*TrailingStop,OrderTakeProfit(),0,Green); } } } if(OrderType()==OP_SELL) { if((OrderOpenPrice()-Ask)>(pt*TrailingStop)) { if(OrderStopLoss()>(Ask+pt*TrailingStop) || (OrderStopLoss()==0)) { tiket=OrderModify(OrderTicket(),OrderOpenPrice(),Ask+pt*TrailingStop,OrderTakeProfit(),0,Red); } } } } } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ void closeall(int m) { for(int i = OrdersTotal() - 1; i >= 0; i--) { if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue; if(OrderSymbol() != Symbol() || OrderMagicNumber()!=Magic || m!= OrderType()) continue; if(OrderType() > 1) tiket=OrderDelete(OrderTicket()); else { if(OrderType() == 0) tiket=OrderClose(OrderTicket(), OrderLots(), Bid, 3, CLR_NONE); else tiket=OrderClose(OrderTicket(), OrderLots(), Ask, 3, CLR_NONE); } } } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ double money() { double dp = 0; int i; for(i = 0; i < OrdersTotal(); i++) { if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue; if(OrderSymbol() != Symbol() || OrderMagicNumber()!=Magic) continue; dp += OrderProfit(); } return(dp); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ int trad() { int type; for(int i = 0; i < OrdersTotal(); i++) { if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue; if(OrderSymbol() != Symbol() || OrderMagicNumber() != Magic) continue; type=OrderType(); if(type==0) opb = OrderOpenPrice(); if(type==1) ops = OrderOpenPrice(); } asi = opb - Jarak_order * pt; bi = ops + Jarak_order * pt; if(Ask <= asi && jumlahorder(0)> 0) dap=1; if(Bid >= bi && jumlahorder(1)> 0) dap=2; return(dap); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ double xlot(int m) { for(int i = 0; i < OrdersTotal(); i++) { if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue; if(OrderSymbol() != Symbol() || OrderMagicNumber() != Magic ||OrderType()!=m) continue; dlot=OrderLots(); } if(OrderType()==m) ylot=NR(Lots*MathPow(DiMartingale,jumlahorder(m))); return(ylot); } //+------------------------------------------------------------------+ void label() { double floating = AccountEquity()-AccountBalance(); Comment("\n Spread : ", MarketInfo(Symbol(), MODE_SPREAD), ", Leverage 1 : ", AccountLeverage(), ", Balance : ", DoubleToStr(AccountBalance(),2), ", Equity : ", DoubleToStr(AccountEquity(),2), ", Target Equity : ", TargetEquity, ", Floating : ", DoubleToStr(money(),2), ", Level : ", jumlahorder(0)+jumlahorder(1), ", Jam Server :", Hour(), ":", Minute(), ":", Seconds(), ""); } //+------------------------------------------------------------------+

Made EA Robot Trading Forex 24: EA Recovery Martingale Trending Buy Sell BuyStop SellStop Lot diLipat Gandakan.

//+------------------------------------------------------------------+ //| Create EA Recovery Martingale Trending Ofx 1Mi2024.mq4 | //| Website Tutorial Cara Daftar MT4 | //| https://caradaftarmt4.net | //+------------------------------------------------------------------+ #property copyright "Website Tutorial Cara Daftar MT4" #property link "https://caradaftarmt4.net" #property version "1.00" #property strict extern string NamaRobot = "EA Martingale Trending"; extern int Mulai_Jam = 6; extern int Akhir_Jam = 20; extern bool UseTpinMoney = true; extern double TP_in_money = 10; extern int Max_order = 10; extern int Jarak_stop = 15; extern double DiMartingale = 1.5; extern int TP = 0; extern int SL = 0; extern double Lots = 0.01; extern int Magic = 456; double slb,tpb,sls,tps,pt,lslb,ltpb,slbx,tpbx,slsx,tpsx,op; string Nama_EA = "Martingale Trending"; int tiket, ape; //+------------------------------------------------------------------+ //| expert initialization function | //+------------------------------------------------------------------+ int OnInit() { //--- if(Digits==3 || Digits==5) pt=10*Point; else pt=Point; //--- return(INIT_SUCCEEDED); } //+------------------------------------------------------------------+ //| Expert deinitialization function | //+------------------------------------------------------------------+ void OnDeinit(const int reason) { //--- } //+------------------------------------------------------------------+ //| Expert tick function | //+------------------------------------------------------------------+ void OnTick() { label(); if(UseTpinMoney) { if(TP_in_money<= money(0)+money(1)) { closeall(0); closeall(1); closeall(4); closeall(5); } } if(jumlahorder(0)+ jumlahorder(1)==0) { if(jumlahorder(4)==1 ||jumlahorder(5)==1) { closeall(4); closeall(5); } } if(SL==0) slbx=0; else slbx=Ask-SL*pt; if(SL==0) slsx=0; else slsx=Bid+SL*pt; if(TP==0) tpbx=0; else tpbx=Ask+TP*pt; if(TP==0) tpsx=0; else tpsx=Bid-TP*pt; if(DayOfWeek()!=1 && Jam_trade()==1 && jumlahorder(0)==0 && jumlahorder(1)==0) { if(Open[1]<Close[1]) { if(OrderSend(Symbol(),0,NR(Lots),Ask,3,slbx, tpbx,Nama_EA,Magic,0,Blue)) Print("EA Buy"); } if(Open[1]>Close[1]) { if(OrderSend(Symbol(),1,NR(Lots),Bid,3,slsx, tpsx,Nama_EA,Magic,0,Red)) Print("EA Sell"); } } double as=oppric()+Jarak_stop*pt; double bi=oppric()-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(jumlahorder(0)+jumlahorder(1)>0 && jumlahorder(0)+jumlahorder(1)<Max_order) { if(opakhir()==1 && jumlahorder(4)==0) { if(OrderSend(Symbol(),OP_BUYSTOP,xlot(),as,3,slb, tpb,Nama_EA,Magic,0,Blue)) Print("EA Buy 2");; } if(opakhir()==0 && jumlahorder(5)==0) { if(OrderSend(Symbol(),OP_SELLSTOP,xlot(),bi,3,sls, tps,Nama_EA,Magic,0,Red)) Print("EA Sell 2"); } } } //+------------------------------------------------------------------+ //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ int jumlahorder(int tipe) { int total=0; for(int i=0; i<OrdersTotal(); i++) { if(!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue; if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic || OrderType()!=tipe) continue; total++; } return(total); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ double NR(double thelot) { double maxlots = MarketInfo(Symbol(), MODE_MAXLOT), minilot = MarketInfo(Symbol(), MODE_MINLOT), lstep = MarketInfo(Symbol(), MODE_LOTSTEP); double lots = lstep * NormalizeDouble(thelot / lstep, 0); lots = MathMax(MathMin(maxlots, lots), minilot); return (lots); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ void closeall(int m) { for(int i = OrdersTotal() - 1; i >= 0; i--) { if(!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue; if(OrderSymbol() != Symbol() || OrderMagicNumber()!=Magic || OrderType()!=m) continue; if(OrderType() > 1) tiket=OrderDelete(OrderTicket()); if(OrderType() == 0) tiket=OrderClose(OrderTicket(), OrderLots(), Bid, 3, CLR_NONE); if(OrderType() == 1) tiket=OrderClose(OrderTicket(), OrderLots(), Ask, 3, CLR_NONE); } } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ double money(int m) { double dp = 0; for(int i = 0; i < OrdersTotal(); i++) { if(!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue; if(OrderSymbol() != Symbol() || OrderMagicNumber()!=Magic || m!=OrderType()) continue; dp += OrderProfit(); } return(dp); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ double oppric() { int type; for(int i = 0; i < OrdersTotal(); i++) { if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue; if(OrderSymbol() != Symbol() || OrderMagicNumber() != Magic) continue; type=OrderType(); if(type==0 || type==1) op = OrderOpenPrice(); } return(op); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ int opakhir() { for(int i = 0; i < OrdersTotal(); i++) { if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue; if(OrderSymbol() != Symbol() || OrderMagicNumber() != Magic) continue; ape=OrderType(); } return(ape); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ double xlot() { int m=jumlahorder(0)+jumlahorder(1); double ylot=NR(Lots*MathPow(DiMartingale,m)); return(ylot); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ 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); } //+------------------------------------------------------------------+ void label() { double floating = AccountEquity()-AccountBalance(); Comment("\n Spread : ", MarketInfo(Symbol(), MODE_SPREAD), ", Leverage 1 : ", AccountLeverage(), ", Balance : ", DoubleToStr(AccountBalance(),2), ", Equity : ", DoubleToStr(AccountEquity(),2), ", Floating : ", DoubleToStr((money(0)+money(1)),2), ", Level : ", jumlahorder(0)+jumlahorder(1), ", Jam Server :", Hour(), ":", Minute(), ":", Seconds(), ""); } //+------------------------------------------------------------------+

Made EA Robot Trading Forex 25: EA CutSwitch Fractals OP Buy Sell Lot diLipat Gandakan Pakai Target Equity.

//+------------------------------------------------------------------+ //| Create EA CutSwitch Fractals With Target Equity Ofx 1Mi2024.mq4 | //| Website Tutorial Cara Daftar MT4 | //| https://caradaftarmt4.net | //+------------------------------------------------------------------+ #property copyright "Website Tutorial Cara Daftar MT4" #property link "https://caradaftarmt4.net" #property version "1.00" #property strict extern string NamaRobot = "EA CutSwitch Fractals With Target Equity"; extern bool UseTargetEquity = False; extern double Target_Equety = 15000; extern int Mulai_Jam = 0; extern int Akhir_Jam = 20; extern int TP = 30; extern int SL = 20; extern double Lots = 0.01; extern int Max_order = 12; extern double Multiplier = 2; extern int Magic = 55; string Nama_EA = "EA CutSwitch Fractals"; int tiket, tar,mag, signal,pro; double slb,tpb,sls,tps,pt,bal,up, lo, pr, ylot,dlot; ; //+------------------------------------------------------------------+ //| expert initialization function | //+------------------------------------------------------------------+ int OnInit() { //--- bal= AccountBalance(); if(Digits==3 || Digits==5) pt=10*Point; else pt=Point; //--- return(INIT_SUCCEEDED); } //+------------------------------------------------------------------+ //| Expert deinitialization function | //+------------------------------------------------------------------+ void OnDeinit(const int reason) { //--- } //+------------------------------------------------------------------+ //| Expert tick function | //+------------------------------------------------------------------+ void OnTick() { if(SL==0||TP==0) { Alert(" TP SL Belum di Isi"); } label(); if(UseTargetEquity) { if(Target_Equety<AccountEquity()) { closeall(0); closeall(1); tar=1; Alert("Target Equity Kurang Besar "); } } for(int d=0; d< Bars ; d++) { up=iFractals(Symbol(),0,MODE_UPPER,d); if(up!=0) break; } for(int e=0; e< Bars ; e++) { lo=iFractals(Symbol(),0,MODE_LOWER,e); if(lo!=0) break; } mag= magg()+1; if(Bid > up) signal=1; if(Ask < lo) signal=2; if(Jam_trade()==1 && DayOfWeek()>0 && !tar) { if((trad(1)>0) || (trad(1)==0)) { if(jumlahorder(0)==0 && jumlahorder(1)==0) { if(signal==1) { if(OrderSend(Symbol(),OP_BUY,NR(Lots),Ask,3,Ask-SL*pt, Ask+TP*pt,Nama_EA,Magic,0,Blue)) Print("EA Buy"); } if(signal==2) { if(OrderSend(Symbol(),OP_SELL,NR(Lots),Bid,3,Bid+SL*pt, Bid-TP*pt,Nama_EA,Magic,0,Red)) Print("EA Sell"); } } } } if(jumlahorder(0)==0 && jumlahorder(1)==0 && trad(3)<Max_order+Magic) { if(trad(1)<0 && trad(2)==1) { if(OrderSend(Symbol(),OP_BUY,xlot(),Ask,3,Ask-SL*pt, Ask+TP*pt,Nama_EA,mag,0,Blue)) Print("EA Buy 2"); } if(trad(1)<0 && trad(2)==0) { if(OrderSend(Symbol(),OP_SELL,xlot(),Bid,3,Bid+SL*pt, Bid-TP*pt,Nama_EA,mag,0,Red)) Print("EA Sell 2"); } } } //+------------------------------------------------------------------+ //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ int Jam_trade() { bool trade = false; if(Mulai_Jam > Akhir_Jam) { if(Hour() >= Mulai_Jam || Hour() < Akhir_Jam) trade = true; } else if(Hour() >= Mulai_Jam && Hour() < Akhir_Jam) trade = true; return (trade); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ int jumlahorder(int tipe) { int total=0; for(int i=0; i<OrdersTotal(); i++) { if(!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue; if(OrderSymbol()!=Symbol() || 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--) { if(!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue; if(OrderSymbol() != Symbol() || OrderComment() != Nama_EA || OrderType()!=m) continue; if(OrderType() > 1) tiket=OrderDelete(OrderTicket()); else { if(OrderType() == 0) tiket=OrderClose(OrderTicket(), OrderLots(), Bid, 3, CLR_NONE); else tiket=OrderClose(OrderTicket(), OrderLots(), Ask, 3, CLR_NONE); } } } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ double money() { double dp = 0; int i; for(i = 0; i < OrdersTotal(); i++) { if(!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue; if(OrderSymbol() != Symbol() || OrderComment() != Nama_EA) continue; dp += OrderProfit(); } return(dp); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ double trad(int m) { for(int i = 0; i < OrdersHistoryTotal(); i++) { if(!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue; if(OrderSymbol() != Symbol()) continue; if(m==1) pr=OrderProfit(); if(m==2) pr=OrderType(); } return(pr); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ int magg() { for(int i = 0; i < OrdersHistoryTotal(); i++) { if(!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue; if(OrderSymbol() != Symbol()) continue; pro=OrderMagicNumber(); } return(pro); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ double xlot() { for(int i = 0; i < OrdersHistoryTotal(); i++) { if(!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue; if(OrderSymbol() != Symbol()) continue; dlot=OrderLots(); } ylot=NR(dlot*Multiplier); return(ylot); } //+------------------------------------------------------------------+ void label() { double floating = AccountEquity()-AccountBalance(); Comment("\n Spread : ", MarketInfo(Symbol(), MODE_SPREAD), ", Leverage 1 : ", AccountLeverage(), ", Balance : ", DoubleToStr(AccountBalance(),2), ", Equity : ", DoubleToStr(AccountEquity(),2), ", Target Equity : ", DoubleToStr(Target_Equety,2), ", Floating : ", DoubleToStr(money(),2), ", Jam Server :", Hour(), ":", Minute(), ":", Seconds(), ", Level :", trad(3)-Magic, ""); } //+------------------------------------------------------------------+

Made EA Robot Trading Forex 26: EA Otomatis Close Pakai Cross MA with Use Trailing Stop.

//+------------------------------------------------------------------+ //| Create EA Otomatis Close Cross MA Ofx 1Mi2024.mq4 | //| Website Tutorial Cara Daftar MT4 | //| https://caradaftarmt4.net | //+------------------------------------------------------------------+ #property copyright "Website Tutorial Cara Daftar MT4" #property link "https://caradaftarmt4.net" #property version "1.00" #property strict extern string NamaRobot = "EA Close Otomatis"; extern bool Trade_buy = true; extern bool Trade_sell = true; extern int Mulai_Jam = 6; extern int Akhir_Jam = 20; extern int TP = 0; extern int SL = 0; extern double Lots = 0.1; extern bool UseTrailingStop = true; extern int TrailingStop = 40; extern int Magic = 123; extern bool CloseOtomatis = true; extern int Pereode = 34; double slb,tpb,sls,tps,pt,x; string Nama_EA = "Otomatis Close"; int tiket=0; int signal=0; //+------------------------------------------------------------------+ //| expert initialization function | //+------------------------------------------------------------------+ int OnInit() { //--- if(Digits==3 || Digits==5) pt=10*Point; else pt=Point; //--- return(INIT_SUCCEEDED); } //+------------------------------------------------------------------+ //| Expert deinitialization function | //+------------------------------------------------------------------+ void OnDeinit(const int reason) { //--- } //+------------------------------------------------------------------+ //| Expert tick function | //+------------------------------------------------------------------+ void OnTick() { label(); if(UseTrailingStop) dtrailing(); //---- if(sig()==1) { if(CloseOtomatis) closeall(1); } if(sig()==2) { if(CloseOtomatis) closeall(0); } if(Jam_trade()==1 && jumlahorder(1)+jumlahorder(0)==0) { if(SL==0) slb=0; else slb=Ask-SL*pt; if(SL==0) sls=0; else sls=Bid+SL*pt; if(TP==0) tpb=0; else tpb=Ask+TP*pt; if(TP==0) tps=0; else tps=Bid-TP*pt; if(Trade_buy && sig()==1) { if(OrderSend(Symbol(),OP_BUY,NR(Lots),Ask,3,slb, tpb,Nama_EA,Magic,0,Blue)) Print("EA Buy"); if(CloseOtomatis) closeall(1); } if(Trade_sell && sig()==2) { if(OrderSend(Symbol(),OP_SELL,NR(Lots),Bid,3,sls, tps,Nama_EA,Magic,0,Red)) Print("EA Sell"); if(CloseOtomatis) closeall(0); } } //---- } //+------------------------------------------------------------------+ double ma(int z) {return(iMA(Symbol(),0,Pereode,0,MODE_SMA,PRICE_CLOSE,z));} //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ int sig() { int n=0; if(Open[2]<ma(2) && Close[2]>ma(2) && Open[1]>ma(1) && Close[1]>ma(1) && Ask>ma(1)) n=1; if(Open[2]>ma(2) && Close[2]<ma(2) && Open[1]<ma(1) && Close[1]<ma(1) && Bid<ma(1)) n=2; return(n); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ int Jam_trade() { bool trade = false; if(Mulai_Jam > Akhir_Jam) { if(Hour() >= Mulai_Jam || Hour() < Akhir_Jam) trade = true; } else if(Hour() >= Mulai_Jam && Hour() < Akhir_Jam) trade = true; return (trade); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ int jumlahorder(int tipe) { int total=0; for(int i=0; i<OrdersTotal(); i++) { if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue; if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic || OrderType()!=tipe) continue; total++; } return(total); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ double NR(double thelot) { double maxlots = MarketInfo(Symbol(), MODE_MAXLOT), minilot = MarketInfo(Symbol(), MODE_MINLOT), lstep = MarketInfo(Symbol(), MODE_LOTSTEP); double lots = lstep * NormalizeDouble(thelot / lstep, 0); lots = MathMax(MathMin(maxlots, lots), minilot); return (lots); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ void dtrailing() { for(int i=0; i<OrdersTotal(); i++) { if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue; if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic) continue; if(OrderType()==OP_BUY) { if(Bid-OrderOpenPrice()>pt*TrailingStop) { if((OrderStopLoss()<Bid-pt*TrailingStop) || (OrderStopLoss()==0)) { tiket=OrderModify(OrderTicket(),OrderOpenPrice(),Bid-pt*TrailingStop,OrderTakeProfit(),0,Green); } } } if(OrderType()==OP_SELL) { if((OrderOpenPrice()-Ask)>(pt*TrailingStop)) { if(OrderStopLoss()>(Ask+pt*TrailingStop) || (OrderStopLoss()==0)) { tiket=OrderModify(OrderTicket(),OrderOpenPrice(),Ask+pt*TrailingStop,OrderTakeProfit(),0,Red); } } } } } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ void closeall(int m) { for(int i = OrdersTotal() - 1; i >= 0; i--) { if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue; if(OrderSymbol() != Symbol() || OrderMagicNumber()!=Magic || OrderType()!=m) continue; if(OrderType() > 1) tiket=OrderDelete(OrderTicket()); if(OrderType() == 0) tiket=OrderClose(OrderTicket(), OrderLots(), Bid, 3, CLR_NONE); if(OrderType() == 1) tiket=OrderClose(OrderTicket(), OrderLots(), Ask, 3, CLR_NONE); } } //+------------------------------------------------------------------+ void label() { double floating = AccountEquity()-AccountBalance(); Comment("\n Spread : ", MarketInfo(Symbol(), MODE_SPREAD), ", Leverage 1 : ", AccountLeverage(), ", Balance : ", DoubleToStr(AccountBalance(),2), ", Equity : ", DoubleToStr(AccountEquity(),2), ", Floating : ", DoubleToStr(floating,2), ", Jam Server :", Hour(), ":", Minute(), ":", Seconds(), ""); } //+------------------------------------------------------------------+

Made EA Robot Trading Forex 27: EA Compound Lots CutSwitch EA OP BUY SELL Bolak Balik Lots Tetap Sama.

//+------------------------------------------------------------------+ //| Create EA Compound Lots Cut Switch Ofx 1Mi2024.mq4 | //| Website Tutorial Cara Daftar MT4 | //| https://caradaftarmt4.net | //+------------------------------------------------------------------+ #property copyright "Website Tutorial Cara Daftar MT4" #property link "https://caradaftarmt4.net" #property version "1.00" #property strict extern string NamaRobot = "EA Compound Lots Cut Switch"; extern bool Compounding = true; extern double Pembagi = 10000; extern bool Trade_buy = true; extern bool Trade_sell = true; extern int Mulai_Jam = 0; extern int Akhir_Jam = 20; extern int TP = 0; extern int SL = 0; extern bool UseTPinMoney = true; extern double TPinMoney = 200; extern double Lots = 0.01; extern bool UseTrailingStop = true; extern int TrailingStop = 500; extern int Magic = 55; extern bool OtomatisClose = true; extern int Pereode_1 =20; extern int Pereode_2 =20; double slb,tpb,sls,tps,pt,x; string Nama_EA = "EA Compound Lots"; int tiket=0; int signal=0; //+------------------------------------------------------------------+ //| expert initialization function | //+------------------------------------------------------------------+ int OnInit() { //--- if(Digits==3 || Digits==5) pt=10*Point; else pt=Point; //--- return(INIT_SUCCEEDED); } //+------------------------------------------------------------------+ //| Expert deinitialization function | //+------------------------------------------------------------------+ void OnDeinit(const int reason) { //--- } //+------------------------------------------------------------------+ //| Expert tick function | //+------------------------------------------------------------------+ void OnTick() { label(); if(UseTrailingStop) dtrailing(); //---- if(Compounding) x=AccountBalance() / Pembagi; else x=Lots; if(UseTPinMoney && TPinMoney<= money()) { closeall(0); closeall(1); } if(sig()==1) { if(OtomatisClose) closeall(1); //close sell } if(sig()==2) { if(OtomatisClose) closeall(0); //close buy } if(Jam_trade()==1 && jumlahorder(1)+jumlahorder(0)==0) { if(SL==0) slb=0; else slb=Ask-SL*pt; if(SL==0) sls=0; else sls=Bid+SL*pt; if(TP==0) tpb=0; else tpb=Ask+TP*pt; if(TP==0) tps=0; else tps=Bid-TP*pt; if(Trade_buy && sig()==1) { if(OrderSend(Symbol(),OP_BUY,NR(x),Ask,3,slb, tpb,Nama_EA,Magic,0,Blue)) Print("EA Buy"); if(OtomatisClose) closeall(1); } if(Trade_sell && sig()==2) { if(OrderSend(Symbol(),OP_SELL,NR(x),Bid,3,sls, tps,Nama_EA,Magic,0,Red)) Print("EA Sell"); if(OtomatisClose) closeall(0); } } } //+------------------------------------------------------------------+ double ma(int per, int ap,int z) { return(iMA(Symbol(),0,per,0,MODE_SMA,ap,z)); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ int sig() { int n=0; if(ma(Pereode_2,1,2) >ma(Pereode_2,0,2) && ma(Pereode_1,1,1) < ma(Pereode_1,0,1)) n=1;// aturan buy if(ma(Pereode_2,1,2) <ma(Pereode_2,0,2) && ma(Pereode_1,1,1) >ma(Pereode_1,0,1)) n=2;// aturan buy return(n); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ int Jam_trade() { bool trade = false; if(Mulai_Jam > Akhir_Jam) { if(Hour() >= Mulai_Jam || Hour() < Akhir_Jam) trade = true; } else if(Hour() >= Mulai_Jam && Hour() < Akhir_Jam) trade = true; return (trade); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ int jumlahorder(int tipe) { int total=0; for(int i=0; i<OrdersTotal(); i++) { if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue; if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic || OrderType()!=tipe) continue; total++; } return(total); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ double NR(double thelot) { double maxlots = MarketInfo(Symbol(), MODE_MAXLOT), minilot = MarketInfo(Symbol(), MODE_MINLOT), lstep = MarketInfo(Symbol(), MODE_LOTSTEP); double lots = lstep * NormalizeDouble(thelot / lstep, 0); lots = MathMax(MathMin(maxlots, lots), minilot); return (lots); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ void dtrailing() { for(int i=0; i<OrdersTotal(); i++) { if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue; if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic) continue; if(OrderType()==OP_BUY) { if(Bid-OrderOpenPrice()>pt*TrailingStop) { if((OrderStopLoss()<Bid-pt*TrailingStop) || (OrderStopLoss()==0)) { tiket=OrderModify(OrderTicket(),OrderOpenPrice(),Bid-pt*TrailingStop,OrderTakeProfit(),0,Green); } } } if(OrderType()==OP_SELL) { if((OrderOpenPrice()-Ask)>(pt*TrailingStop)) { if(OrderStopLoss()>(Ask+pt*TrailingStop) || (OrderStopLoss()==0)) { tiket=OrderModify(OrderTicket(),OrderOpenPrice(),Ask+pt*TrailingStop,OrderTakeProfit(),0,Red); } } } } } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ void closeall(int m) { for(int i = OrdersTotal() - 1; i >= 0; i--) { if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue; if(OrderSymbol() != Symbol() || OrderMagicNumber()!=Magic || OrderType()!=m) continue; if(OrderType() > 1) tiket=OrderDelete(OrderTicket()); if(OrderType() == 0) tiket=OrderClose(OrderTicket(), OrderLots(), Bid, 3, CLR_NONE); if(OrderType() == 1) tiket=OrderClose(OrderTicket(), OrderLots(), Ask, 3, CLR_NONE); } } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ double money() { double dp = 0; int i; for(i = 0; i < OrdersTotal(); i++) { if(!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) continue; if(OrderSymbol() != Symbol() || OrderMagicNumber()!=Magic) continue; dp += OrderProfit(); } return(dp); } //+------------------------------------------------------------------+ void label() { double floating = AccountEquity()-AccountBalance(); Comment("\n Spread : ", MarketInfo(Symbol(), MODE_SPREAD), ", Leverage 1 : ", AccountLeverage(), ", Balance : ", DoubleToStr(AccountBalance(),2), ", Equity : ", DoubleToStr(AccountEquity(),2), ", Floating : ", DoubleToStr(money(),2), ", Jam Server :", Hour(), ":", Minute(), ":", Seconds(), ""); } //+------------------------------------------------------------------+

Made EA Robot Trading Forex 28: EA Order Harian Buy Sell Pakai SL TP Lot diGandakan, Jika TP Tersentuh EA Akan Berhenti Trading Pada Hari Itu dan Trading diLanjut Hari Besuknya Lagi. Tetapi Jika SL Yang Kena Trading di Continue Terus

//+------------------------------------------------------------------+ //| Create EA Daily Order Ofx 1Mi2024.mq4 | //| Website Tutorial Cara Daftar MT4 | //| https://caradaftarmt4.net | //+------------------------------------------------------------------+ #property copyright "Website Tutorial Cara Daftar MT4" #property link "https://caradaftarmt4.net" #property version "1.00" //#property strict extern string NamaRobot = "EA Daily Order If TP Kena EA Stop Trading Pada Hari Itu"; extern double TargetEquity = 10000; extern int Mulai_Jam = 0; extern int Akhir_Jam = 20; extern bool TradingContinue = false; extern int TP = 30; extern int SL = 20; extern double Lots = 0.01; extern int Max_order = 12; extern double Multiplier = 2; extern int Magic = 345; string Nama_EA = "EA Daily Order"; 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(" TP SL Tidak Boleh Di Isi 0 "); return(0); } label(); if(TargetEquity<AccountEquity()) { closeall(0); closeall(1); Alert("Target Equity Harus Lebih Besar Dari Jumlah Balance"); return(0); } if(!TradingContinue) { 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()>0 && !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)// menghitung jumlah order dalam sehari { double pr,op; for(int i = 0; i < OrdersHistoryTotal(); i++) { if(!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue; if(OrderSymbol() != Symbol()) 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()) continue; dlot=OrderLots(); } ylot=NR(dlot*Multiplier); return(ylot); } //+------------------------------------------------------------------+ void label() { double floating = AccountEquity()-AccountBalance(); Comment("\n Spread : ", MarketInfo(Symbol(), MODE_SPREAD), ", Leverage 1 : ", AccountLeverage(), ", Balance : ", DoubleToStr(AccountBalance(),2), ", Equity : ", DoubleToStr(AccountEquity(),2), ", Floating : ", DoubleToStr(money(),2), ", Jam Server :", Hour(), ":", Minute(), ":", Seconds(), "' Target Equity : ", DoubleToStr(TargetEquity,2), ", Level :", trad(3)-Magic, ""); } //+------------------------------------------------------------------+

Made EA Robot Trading Forex 29: EA Recovery Buy Sell Pakai SL TP Lots diGandakan Pakai Use Target Equity.

//+------------------------------------------------------------------+ //| Create Recovery EA Ofx 1Mi2024.mq4 | //| Website Tutorial Cara Daftar MT4 | //| https://caradaftarmt4.net | //+------------------------------------------------------------------+ #property copyright "Website Tutorial Cara Daftar MT4" #property link "https://caradaftarmt4.net" #property version "1.00" #property strict extern string NamaRobot = "EA RECOVERY BUY SELL PAKAI SL TP LOTS DIGANDAKAN"; extern bool UseTargetEquity = False; extern double TargetEquity = 10000; 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 = "EA Recovery"; 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("SL TP Harus di Isi"); return(0); } label(); if(UseTargetEquity) { if(TargetEquity<AccountEquity()) { closeall(0); closeall(1); Alert("Target Equity Harus Lebih Besar Dari Balance"); 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()>0 && 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()) 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()) continue; dlot=OrderLots(); } ylot=NR(dlot*DiMarti); return(ylot); } //+------------------------------------------------------------------+ void label() { double floating = AccountEquity()-AccountBalance(); Comment("\n Spread : ", MarketInfo(Symbol(), MODE_SPREAD), ", Leverage 1 : ", AccountLeverage(), ", Balance : ", DoubleToStr(AccountBalance(),2), ", Equity : ", DoubleToStr(AccountEquity(),2), ", Floating : ", DoubleToStr(money(),2), ", Jam Server :", Hour(), ":", Minute(), ":", Seconds(), "' Target Equity : ", DoubleToStr(TargetEquity,2), ", Level :", trad(3)-Magic, ""); } //+------------------------------------------------------------------+

Made EA Robot Trading Forex 30:EA Buy Sell Buy Limit Sell Limit With Trailing Stop Use Coding Rumit.

//+---------------------------------------------------------------------+ //| Create EA Buy Sell BuyLimit SellLimit Trailing Stop Ofx 1Mi2024.mq4 | //| Website Tutorial Cara Daftar MT4 | //| https://caradaftarmt4.net | //+---------------------------------------------------------------------+ #property copyright "Website Tutorial Cara Daftar MT4" #property link "https://caradaftarmt4.net" #property version "1.00" #property strict extern string NamaEA = "EA Buy Sell BuyLimit SellLimit Trailing Stop"; extern bool mm = true; extern double manage_balance = 10000; extern bool limit = true; extern int jarak = 10; extern int tp = 100; extern int sl = 0; extern double lots = 0.01; extern bool trailing = true; extern int trailingStop = 10; extern int magic = 99; double z,pt; int mg; string Nama_EA = "EA Entry",Nama = "EA Pending Order"; //+------------------------------------------------------------------+ //| Expert initialization function | //+------------------------------------------------------------------+ int OnInit() { if(Digits==3 || Digits==5) pt=10*Point; else pt=Point; mg=magic+5; return(INIT_SUCCEEDED); } //+------------------------------------------------------------------+ //| Expert deinitialization function | //+------------------------------------------------------------------+ void OnDeinit(const int reason) { //--- } //+------------------------------------------------------------------+ //| Expert tick function | //+------------------------------------------------------------------+ void OnTick() { trailingstop(); 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=(AccountEquity() / 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(); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ 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; } } if(OrderType()==OP_SELL) { if(OrderStopLoss()>(Ask+pt*trailingStop) || (OrderStopLoss()==0)) { OrderModify(OrderTicket(),OrderOpenPrice(),Ask+pt*trailingStop,OrderTakeProfit(),0,Red); return; } } } } //----- void trailingstop() { 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); } } } 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); } } } } } //+------------------------------------------------------------------+ 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); } //+------------------------------------------------------------------+ void label() { double floating = AccountEquity()-AccountBalance(); Comment("\n Spread : ", MarketInfo(Symbol(), MODE_SPREAD), ", Leverage 1 : ", AccountLeverage(), ", Balance : ", DoubleToStr(AccountBalance(),2), ", Equity : ", DoubleToStr(AccountEquity(),2), ", Floating : ", DoubleToStr(floating,2), ", Jam Server :", Hour(), ":", Minute(), ":", Seconds(), ""); } //+------------------------------------------------------------------+

Baca Juga: Creating EA Robot Trading Forex 32-40.