//+------------------------------------------------------------------+ //| baiso1.mq4 | //| Copyright 2016, MetaQuotes Software Corp. | //| https://www.mql5.com | //+------------------------------------------------------------------+ #property copyright "Copyright 2016, MetaQuotes Software Corp." #property link "https://www.mql5.com" #property version "1.00" #property strict //+------------------------------------------------------------------+ //| Expert initialization function | // NOI KHAI BAO BIEN double khoiLuong= 0.01;// 0 string Com ; color maucualenh = clrRed; int loaiLenh = OP_BUY; double giavaolenh=0; datetime thoigiangiaodich; bool chophepGD = true; int Magic =999; double lastLotsize ; int lasttype; double balance;// acc extern double risk = 5; extern double stoploss = 500; extern double takeprofit = 1000; extern double Trailling_pip = 10; string sym; bool active = true; datetime ngayhethan = D'2020.08.01 00:00:00'; //+------------------------------------------------------------------+ int OnInit() { sym=Symbol(); //--- return(INIT_SUCCEEDED); } //+------------------------------------------------------------------+ //| Expert deinitialization function | //+------------------------------------------------------------------+ void OnDeinit(const int reason) { //--- } //+------------------------------------------------------------------+ //| Expert tick function | //+------------------------------------------------------------------+ void OnTick() { if(active ==false){return;} // cho chạy code ben dưới dòng này khi qua nến mới // Trailling(Trailling_pip) ; if(demsolenh( sym ) >0 ){return;} //===================================================================== //=========tinh khoi luong =========== balance = AccountEquity(); double slPoint= stoploss*10* MarketInfo(sym,MODE_POINT); khoiLuong = get_lot_from_money_point(sym,balance,risk,slPoint); // dieu kien vao lenh-------------- loaiLenh = MathRand()%2;// loai lenh ngau nhien //--------------------------------VAO LENH------------------ vaoLenh(sym,loaiLenh,khoiLuong,0,stoploss,takeprofit,Magic,Com); // SendNotification("co lenh moi ne "+ sym+ " "+ khoiLuong ); //============================================== double kiemtra = check_dk_donglenh(); // 0--> close buy , 1--> close sell , -- >-1 ko lam gi ca , 3--> close all Comment("bien kiem tra = "+kiemtra ); if(kiemtra == OP_BUY ) { DONGLENH_theo_type(OP_BUY); } if(kiemtra == OP_SELL ) { DONGLENH_theo_type(OP_SELL); } if(kiemtra == 3 ) { DONGLENH_ToanBo(); } }// end ontick //===================================== double check_dk_donglenh() { double kq =-1; double rsi = iRSI(Symbol(),0,21,PRICE_CLOSE,0); if(rsi > 70){kq =0; } //kq = OP_BUY; if(rsi < 30){kq =1 ;} //kq = OP_SELL; if( rsi > 90 || rsi < 10 ){kq = 3;} return (kq); } double get_lot_from_money_point(string symm,double balancee,double risk,double slPoint) { double lotsize ; double sotien = MathAbs(risk/100*balancee); // 10000 * 5 /100 double tickval = MarketInfo(symm , MODE_TICKVALUE); double ticksize = MarketInfo(symm , MODE_TICKSIZE); //========cong thuc chinh if(slPoint!=0 && ticksize !=0 && tickval !=0 ) { lotsize = sotien /(slPoint*tickval/ticksize); } // =========== 0.2568746655 double lotstep = MarketInfo(symm,MODE_LOTSTEP);//Comment(lotstep); int step; if(lotstep==1){step = 0;} if(lotstep == 0.01){step =2;} if(lotstep == 0.001){step =3;} if(lotstep == 0.1 ){step =1;} lotsize = NormalizeDouble(lotsize,step); if (lotsize < MarketInfo(symm, MODE_MINLOT)) lotsize = MarketInfo(symm, MODE_MINLOT); if (lotsize > MarketInfo(symm, MODE_MAXLOT)) lotsize = MarketInfo(symm, MODE_MAXLOT); return(lotsize); } //+------------------------------------------------------------------+ double lenhcuoicung(string symm) { double lastprofit; datetime lasttime ; for(int i =0; i <= OrdersHistoryTotal()-1; i++) { if(OrderSelect(i, SELECT_BY_POS,MODE_HISTORY)==False) {continue;} if(OrderSymbol() != symm){continue;} if(OrderMagicNumber()!= Magic){continue;} if(OrderType()>1 ){continue;} if(OrderCloseTime()> lasttime ) { lasttime = OrderCloseTime(); // 6h lastprofit = OrderProfit(); lastLotsize = OrderLots(); lasttype = OrderType(); } } return(lastprofit); } //====================================================================== void vaoLenh(string symm, int typee, double lott, double pricee, double slpip,double tppip,int Magicc, string comm ) { if(lott ==0){return;} int normallotunit ; if(MarketInfo(symm, MODE_MINLOT)== 0.01){normallotunit = 2;} if(MarketInfo(symm, MODE_MINLOT)== 0.1){normallotunit = 1;} if(MarketInfo(symm, MODE_MINLOT)== 0.001){normallotunit = 3;} lott = NormalizeDouble(lott, normallotunit ); //--------------------------- double slprice, tpprice; color mau; if(typee== OP_BUY) { pricee = MarketInfo(symm,MODE_ASK); slprice = pricee - slpip*10*MarketInfo(symm ,MODE_POINT); tpprice = pricee + tppip*10*MarketInfo(symm ,MODE_POINT); mau = clrBlue; } if(typee== OP_SELL) { pricee = MarketInfo(symm,MODE_BID); slprice = pricee + slpip*10*MarketInfo(symm ,MODE_POINT); tpprice = pricee - tppip*10*MarketInfo(symm ,MODE_POINT); mau = clrRed; } pricee = NormalizeDouble(pricee,MarketInfo(symm , MODE_DIGITS)); slprice = NormalizeDouble(slprice,MarketInfo(symm , MODE_DIGITS)); tpprice = NormalizeDouble(tpprice,MarketInfo(symm , MODE_DIGITS)); //-----gui lenh double thanhcong = OrderSend(symm,typee,lott,pricee,20,0,0,comm,Magicc,0,mau); // ----- CHINH SL TP bool sucess =false; int dem; if(thanhcong >0 && slprice !=0 && tpprice!=0 ) { while ( sucess == false && dem<20) { sucess = OrderModify(thanhcong,pricee,slprice,tpprice,0,clrNONE); dem++; Sleep(50); } int error = GetLastError(); if(error !=0 && error !=1){ Print("bi loi: "+ error);} } } //==================================================================== /* void laygiatrinen() { // tim mo hinh enguffing for(int n =500 ; n >=0; n--) { double highttruoc, lowtruoc , hightsau, lowsau ; highttruoc = iHigh(Symbol(),0,n+1); lowtruoc = iLow(Symbol(),0,n+1); hightsau = iHigh(Symbol(),0,n); lowsau = iLow(Symbol(),0,n); if(highttruoc lowsau) { Comment(n);// gan nhat cay nen so 0 //break; } } */ /*int caynencaonhat,caynenthapnhat; caynencaonhat= iHighest(Symbol(),0,MODE_HIGH,100,0);// tra ve cay nen cao nhat caynenthapnhat = iLowest(Symbol(),0,MODE_LOW,100,0);// tra ve cay nen thap nhat double giacaonhat = iHigh(Symbol(),0,caynencaonhat);// lay gias hight cua .... double giathapnhat = iLow(Symbol(),0,caynenthapnhat);// lay low .... // Comment(caynencaonhat +" / "+ caynenthapnhat); Comment(giacaonhat +" / "+ giathapnhat);*/ //+==================================================================+ int Order_Open(int ordType,string sym_,double lots,double price,double sl,double tp,int mag,string com,double bidask) {// int ticket; if(lots==0){return(0);} color col; double Stoploss,TakeProfit; double unit=1; if(bidask!=0){unit= bidask;} if(ordType==OP_BUY) {price=MarketInfo(sym_,MODE_ASK);Stoploss=price-sl*unit; TakeProfit=price+tp*unit; col=Blue;} if(ordType==OP_SELL) {price=MarketInfo(sym_,MODE_BID);Stoploss=price+sl*unit; TakeProfit=price-tp*unit; col=Red;} price=NormalizeDouble(price,MarketInfo(sym_,MODE_DIGITS)); int NormalizeLot; if(MarketInfo(sym_,MODE_MINLOT)==0.1) {NormalizeLot=1;} else {NormalizeLot=2;} lots=NormalizeDouble(lots,NormalizeLot); int sucess=-1; int ross=0;int demm; sucess=OrderSend(sym_,ordType,lots,price,3,0,0,com,mag,0,col);Sleep(100); if(sucess>0 && (sl!=0 || tp!=0)) { while(ross<=0 && demm<20){ ross=OrderModify(sucess,price,Stoploss,TakeProfit,0,clrNONE); demm++;Sleep(100); } } int loi = GetLastError(); if(loi!=0 && loi !=1 ){ Print("eror"+loi); Print(sym_+ "/price "+ price+ " /op "+ordType+"/lot "+lots); } return(sucess); } //+------------------------------------------ //====================================================== void checkLisicen() { /*datetime x = iTime(Symbol(),PERIOD_D1,0);// thoi gian dau ngay // x= TimeCurrent();// thoi gian hien tai //TimeHour(x); // TimeMinute() // dau ngay + 3 hour()? x= x +3*60*60; Comment(x); */ if( TimeYear( TimeCurrent())<=2020 && TimeMonth( TimeCurrent())<=4 ){active= true;} // --> file ex4 */ //ham chuyen doi /*datetime x = StrToTime(giobatdau); string a = "06"; string b = "30"; string c= a+ ":"+b; datetime d = StrToTime(c)+60; Comment(d); StrToInteger*/ /* string commentt = "| 5 (6)lenhdautien"; int vitri= StringFind(commentt,"(",0); string cat = StringSubstr(commentt,vitri+1,1); Comment(cat);*/ //Str } //========================================== int demsolenh(string captiencandem) { int dem; for(int i = OrdersTotal()-1 ; i>=0; i--) { if(OrderSelect(i, SELECT_BY_POS,MODE_TRADES)==False) {continue;} if(OrderSymbol() != captiencandem){continue;} if(OrderMagicNumber()!= Magic){continue;} dem ++;// dem dc 1 lenh } return(dem); } //==================================== //==================================== double dinhdangLot(double khoiLuong) { if(khoiLuong==0){ khoiLuong = MarketInfo(Symbol(),MODE_MINLOT) ; } if(khoiLuong> MarketInfo(Symbol(),MODE_MAXLOT)){ khoiLuong = MarketInfo(Symbol(),MODE_MAXLOT) ; } khoiLuong = NormalizeDouble(khoiLuong,2); return(khoiLuong);// tra ve khoi da duoc dinh dang } //+==================================================================+ void Trailling(double trail) { double NewSL; trail*= 10*Point; // trail = trail * 10*10*Point for(int i = OrdersTotal()-1; i >=0 ; i--) //OrdersHistoryTotal() { if(!OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) {continue;} //Neu khong tim duoc lenh thi tiep tuc lap if (OrderSymbol() != Symbol()) {continue;} if (OrderMagicNumber() != Magic) {continue;} if (OrderType() == OP_BUY) {NewSL = Ask - trail;} else if (OrderType() == OP_SELL) {NewSL = Bid + trail;} if (OrderType() == OP_BUY && OrderStopLoss()>=NewSL ) {continue;} if (OrderType() == OP_SELL && OrderStopLoss()<=NewSL) {continue;} Comment(NewSL); OrderModify(OrderTicket(),OrderOpenPrice(),NewSL,OrderTakeProfit(),0,CLR_NONE); if(GetLastError()!=0 && GetLastError()!=1) {Print("Loi Trailling: " + GetLastError());} } } //==================================================================== void DONGLENH_ToanBo() { for (int i=OrdersTotal()-1; i >= 0; i--) { if (!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {continue;} if (OrderSymbol()!=Symbol()) {continue;} if (OrderMagicNumber()!=Magic) {continue;} if (OrderType()<2) {DongLenh_Ticket(OrderTicket(), OrderLots());} else {int rec = OrderDelete(OrderTicket(),CLR_NONE);} } } void DONGLENH_theo_type(int op1) { for (int i=OrdersTotal()-1; i >= 0; i--) { if (!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {continue;} if (OrderSymbol()!=Symbol()) {continue;} if (OrderMagicNumber()!=Magic) {continue;} if( OrderType()>=2) {continue;} if (OrderType()==op1) {DongLenh_Ticket(OrderTicket(), OrderLots());} } } void DONGLENH_motphan(int op1,double lot) { for (int i=OrdersTotal()-1; i >= 0; i--) { if (!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {continue;} if (OrderSymbol()!=Symbol()) {continue;} // if (OrderMagicNumber()!=Magic) {continue;} if (OrderType()==op1) {DongLenh_Ticket(OrderTicket(), lot);} //if ((OrderType()==op1||OrderType()==op2)&& OrderType()>2) {int rec = OrderDelete(OrderTicket(),CLR_NONE);} } } void DongLenh_Ticket(int ticket, double lott) { int Slippage = 3; if (!OrderSelect(ticket, SELECT_BY_TICKET, MODE_TRADES)) {return;} if(lott==0){lott=OrderLots();} if(OrderType()>1){ OrderDelete(OrderTicket(),CLR_NONE);} if(OrderType()<=1) { double priice; RefreshRates(); if (OrderType() == OP_BUY) {priice = MarketInfo(OrderSymbol(),MODE_BID);} else {priice = MarketInfo(OrderSymbol(),MODE_ASK);} OrderClose(ticket, lott, priice, Slippage, Gold); // Sleep(100); } return; }