Orders Execution
Miscellaneous
10
Views
0
Downloads
0
Favorites
AutoTStop
//+------------------------------------------------------------------+
//| AutoTStop.mq4 |
//| Copyright 2014, MetaQuotes Software Corp. |
//| http://www.mql5.com |
//| Create: 17/10/2014 http://www.gol2you.com ~ Forex Videos |
//+------------------------------------------------------------------+
#property copyright "Copyright 2014, MetaQuotes Software Corp."
#property link "http://www.mql5.com"
#property version "1.00"
//--
#property description "AutoTStop EA does not work to open the order, but only help trader for"
#property description "optimization TakeProfit, put a StopLoss and implement TrailingStop."
//--- User Input
input string AutoTStop = "Copyright © 2014 3RJ ~ created by Roy Philips-Jacobs";
input bool FridayTrade = True; // If True, EA still trading at Friday
input bool UseTrailingStop = True; // Use Trailing Stop, True (Yes) or False (Not)
input bool AutoTrailingStop = True; // Default Trailing Stop value = 6.0
input double TrailingStop = 6.0; // If Auto Trailing Stop False, input Trailing Stop Value
input double TrailingStopStep = 1.0; // Input Trailing Stop Step Value (default 1.0)
input string AutomaticSystemTP = "Set AutomaticTakeProfit=True or False";
input bool AutomaticTakeProfit = True; // TP will calculation by EA and Automatic TP by EA
input string ManualSystemTP = "If Set AutomaticTakeProfit=False"; // TP by Terminal MT4 (same as manual trading)
input double TakeProfit = 35; // TP by System, values can adjust by user
input string AutomaticSystemSL = "Set AutomaticStopLoss=True or False";
input bool AutomaticStopLoss = True; // SL will calculation by EA
input string ManualSystemSL = "If Set AutomaticStopLoss=False"; // SL values can adjusted by user
input double StopLoss = 114; // SL adjusted by user
//---
//--- Global scope
double ask,bid,dev;
double pp,sl,tp,digit;
double lastAsk,lastBid;
double tsstv,tstpv,trstart;
double slA,slB,tpA,tpB,tpABS;
double difB,difS,pBo,pSo,pdifB,pdifS;
//---
bool TrlStp,opttp,autsl;
bool mdHC,mdLC,mdUp,mdDn;
//---
int stx,trx;
int hb,hs,ob,os,s,ip,ox;
int totalord,totalpft,totalhst;
//---
string CopyR;
string symbol;
//---
void EventSetTimer();
//----
//+------------------------------------------------------------------+
//| Expert initialization function |
//+------------------------------------------------------------------+
int OnInit(void)
{
//----
symbol=Symbol();
CopyR="Copyright © 2014 3RJ ~ created by Roy Philips-Jacobs";
if(AutoTStop!=CopyR) {return(0);}
//---
//-- Checking the Digits Point
digit=Digits;
if (digit==3 || digit==5)
{pp=Point*10;}
else {pp=Point;}
//---
hb=0;
hs=0;
ob=0;
os=0;
stx=0;
trx=0;
difB=0.8;
difS=0.8;
//---
autsl=AutomaticStopLoss;
opttp=AutomaticTakeProfit;
TrlStp=UseTrailingStop;
//--
tstpv=NormalizeDouble(TrailingStop*pp,digit);
tsstv=NormalizeDouble(TrailingStopStep*pp,digit);
trstart=NormalizeDouble((TrailingStop*0.50)*pp,digit);
//--- initialization done
return(INIT_SUCCEEDED);
}
//----
//+------------------------------------------------------------------+
//| expert proccess working function |
//+------------------------------------------------------------------+
//----
void CalcSTP() //-- function: for calculation Automatic Take Profit.
{
//----
RefreshRates();
//--
double dvab=Ask-Bid;
//--
if(opttp)
{
//--
tp=(18*pp);
//--
if(dvab<=5*pp) {tpABS=tp-(7*pp);}
else {tpABS=tp-(11*pp);}
//--
}
else {tp=TakeProfit*pp;}
//--
if(autsl) {sl=pp*114;}
//--
RefreshRates();
pBo=High[0]-Close[0];
pSo=Close[0]-Low[0];
//--
pdifB=pp*difB;
pdifS=pp*difS;
mdHC=(pBo>pdifB);
mdLC=(pSo>pdifS);
mdUp=(Close[0]<(lastBid-pdifB));
mdDn=(Close[0]>(lastAsk+pdifS));
//--
return;
//----
} //-end CalcSTP()
//---------//
void CkOpen() //-- function: CheckOpenTrade.
{
//----
ob=0;
os=0;
totalord=OrdersTotal();
//--
for (s=0; s<totalord; s++)
{
if (OrderSelect(s,SELECT_BY_POS,MODE_TRADES)==True)
{
if (OrderSymbol()==symbol)
{
//--
if (OrderType()==OP_BUY) {ob++; hb++; lastBid=OrderOpenPrice();}
if (OrderType()==OP_SELL) {os++; hs++; lastAsk=OrderOpenPrice();}
//--
}
}
}
//--
return;
//----
} //-end CkOpen()
//---------//
void CkClose() //-- function: CheckOrderClose.
{
//----
CkOpen();
datetime octm;
totalhst=OrdersHistoryTotal();
//--
for (s=0; s<totalhst; s++)
{
//--
if(OrderSelect(s,SELECT_BY_POS,MODE_HISTORY)==True)
{
if(OrderSymbol()==symbol)
{
//--
if(OrderType()==OP_BUY)
{
RefreshRates();
octm=OrderCloseTime();
if(hb>0 && ob==0 && octm>0)
{
Print("-----CLOSED BUY ORDER ",symbol," - Instant Close By System..OK!");
PlaySound("ping.wav");
hb=0;
stx=0;
trx=0;
break;
}
}
//--
if(OrderType()==OP_SELL)
{
RefreshRates();
octm=OrderCloseTime();
if(hs>0 && os==0 && octm>0)
{
Print("-----CLOSED SELL ORDER ",symbol," - Instant Close By System..OK!");
PlaySound("ping.wav");
hs=0;
stx=0;
trx=0;
break;
}
}
//--
}
}
//--
}
//---
return;
//----
} //-end CkClose()
//---------//
void TPNor() //-- function: Check if order is profit.
{
//----
ResetLastError();
int error;
bool result,trest,modst;
totalpft=OrdersTotal()-1;
for(ip=totalpft; ip>=0; ip--)
{
if(OrderSelect(ip,SELECT_BY_POS,MODE_TRADES)==True)
{
if(OrderSymbol()==symbol)
{
if(OrderType()==OP_BUY)
{
//---
CalcSTP();
//--
if((autsl)&&(stx==0)&&(OrderStopLoss()==0.00||OrderTakeProfit()==0.00))
{
RefreshRates();
ask=MarketInfo(symbol,MODE_ASK);
if(OrderStopLoss()==0.00) {slA=NormalizeDouble(ask-sl,digit);}
else {slA=OrderStopLoss();}
if(OrderTakeProfit()==0.00) {tpA=NormalizeDouble(ask+tp,digit);}
else {tpA=OrderTakeProfit();}
modst=OrderModify(OrderTicket(),OrderOpenPrice(),slA,tpA,0,clrGreen);
if(modst!=true) {error=GetLastError();}
if(error>0)
{
ResetLastError();
RefreshRates();
ask=MarketInfo(symbol,MODE_ASK);
slA=NormalizeDouble(ask-sl,digit);
tpA=NormalizeDouble(ask+tp,digit);
modst=OrderModify(OrderTicket(),OrderOpenPrice(),slA,tpA,0,clrGreen);
}
if(modst==true) {stx++; break;}
else {stx=0; break;}
}
//--
RefreshRates();
bid=MarketInfo(symbol,MODE_BID);
if((opttp)&&((OrderOpenPrice()<(bid-tpABS)) && mdHC)) //-check if order buy is profit
{
RefreshRates();
bid=MarketInfo(symbol,MODE_BID);
result=OrderClose(OrderTicket(),OrderLots(),bid,dev,clrAqua);
if(result!=true) {error=GetLastError();}
if(error>0)
{
ResetLastError();
RefreshRates();
bid=MarketInfo(symbol,MODE_BID);
result=OrderClose(OrderTicket(),OrderLots(),bid,dev,clrAqua);
}
//--
if(error==0 && result==true)
{
Print("-----AutoTStop has CLOSED BUY ORDER ",symbol," - Automatic Take profit..OK!");
PlaySound("ping.wav");
break;
}
} //-end BUY Order Profit.
//-- Trailing Stop & Step
RefreshRates();
bid=MarketInfo(symbol,MODE_BID);
if(TrlStp && (trx==0) && (bid>(OrderOpenPrice()+trstart)))
{
trest=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice()+trstart,OrderTakeProfit(),0);
trx++;
break;
}
//--
if(TrlStp && (trx>0) && (bid>(OrderStopLoss()+trstart)))
{
trx++;
trest=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice()+(trx*tsstv),OrderTakeProfit(),0);
break;
} // end BUY Order Trailing Stop.
//---
}
//----
if(OrderType()==OP_SELL)
{
//---
CalcSTP();
//--
if((autsl)&&(stx==0)&&(OrderStopLoss()==0.00||OrderTakeProfit()==0.00))
{
RefreshRates();
bid=MarketInfo(symbol,MODE_BID);
if(OrderStopLoss()==0.00) {slB=NormalizeDouble(bid+sl,digit);}
else {slB=OrderStopLoss();}
if(OrderTakeProfit()==0.00) {tpB=NormalizeDouble(bid-tp,digit);}
else {tpB=OrderTakeProfit();}
modst=OrderModify(OrderTicket(),OrderOpenPrice(),slB,tpB,0,clrRed);
if(modst!=true) {error=GetLastError();}
if(error>0)
{
ResetLastError();
RefreshRates();
bid=MarketInfo(symbol,MODE_BID);
slB=NormalizeDouble(bid+sl,digit);
tpB=NormalizeDouble(bid-tp,digit);
modst=OrderModify(OrderTicket(),OrderOpenPrice(),slB,tpB,0,clrRed);
}
if(modst==true) {stx++; break;}
else {stx=0; break;}
}
//--
RefreshRates();
ask=MarketInfo(symbol,MODE_ASK);
if((opttp)&&((OrderOpenPrice()>(ask+tpABS)) && mdLC)) //-check if order sell is profit
{
RefreshRates();
ask=MarketInfo(symbol,MODE_ASK);
result=OrderClose(OrderTicket(),OrderLots(),ask,dev,clrYellow);
if(result!=true) {error=GetLastError();}
if(error>0)
{
ResetLastError();
RefreshRates();
ask=MarketInfo(symbol,MODE_ASK);
result=OrderClose(OrderTicket(),OrderLots(),ask,dev,clrYellow);
}
//--
if(error==0 && result==true)
{
Print("-----AutoTStop has CLOSED SELL ORDER ",symbol," - Automatic Take profit..OK!");
PlaySound("ping.wav");
break;
}
} //-end SELL Order Profit.
//-- Trailing Stop & Step
RefreshRates();
ask=MarketInfo(symbol,MODE_ASK);
if(TrlStp && (trx==0) && (ask<(OrderOpenPrice()-trstart)))
{
trest=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice()-trstart,OrderTakeProfit(),0);
trx++;
break;
}
//--
if(TrlStp && (trx>0) && (ask<(OrderStopLoss()-trstart)))
{
trx++;
trest=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice()-(trx*tsstv),OrderTakeProfit(),0);
break;
} // end SELL Order Trailing Stop.
//----
}
}
}
}
//---
return;
//----
} //-end TPNor()
//---------//
void TPRev() //-- function: Check if order is profit.
{
//----
ResetLastError();
int error;
bool result,trest,modst;
totalpft=OrdersTotal()-1;
for(ip=totalpft; ip>=0; ip--)
{
if(OrderSelect(ip,SELECT_BY_POS,MODE_TRADES)==True)
{
if(OrderSymbol()==symbol)
{
if(OrderType()==OP_BUY)
{
//---
CalcSTP();
//--
if((autsl)&&(stx==0)&&(OrderStopLoss()==0.00||OrderTakeProfit()==0.00))
{
RefreshRates();
ask=MarketInfo(symbol,MODE_ASK);
if(OrderStopLoss()==0.00) {slA=NormalizeDouble(ask-sl,digit);}
else {slA=OrderStopLoss();}
if(OrderTakeProfit()==0.00) {tpA=NormalizeDouble(ask+tp,digit);}
else {tpA=OrderTakeProfit();}
modst=OrderModify(OrderTicket(),OrderOpenPrice(),slA,tpA,0,clrGreen);
if(modst!=true) {error=GetLastError();}
if(error>0)
{
ResetLastError();
RefreshRates();
ask=MarketInfo(symbol,MODE_ASK);
slA=NormalizeDouble(ask-sl,digit);
tpA=NormalizeDouble(ask+tp,digit);
modst=OrderModify(OrderTicket(),OrderOpenPrice(),slA,tpA,0,clrGreen);
}
if(modst==true) {stx++; break;}
else {stx=0; break;}
}
//--
RefreshRates();
bid=MarketInfo(symbol,MODE_BID);
if((opttp)&&((OrderOpenPrice()<(bid-tpABS)) && mdUp)) //-check if order is profit
{
RefreshRates();
bid=MarketInfo(symbol,MODE_BID);
result=OrderClose(OrderTicket(),OrderLots(),bid,dev,clrAqua);
if(result!=true) {error=GetLastError();}
if(error>0)
{
ResetLastError();
RefreshRates();
bid=MarketInfo(symbol,MODE_BID);
result=OrderClose(OrderTicket(),OrderLots(),bid,dev,clrAqua);
}
//--
if(error==0 && result==true)
{
Print("-----AutoTStop has CLOSED BUY ORDER ",symbol," - Automatic Take profit..OK!");
PlaySound("ping.wav");
break;
}
} //-end BUY Order Profit.
//-- Trailing Stop & Step
RefreshRates();
bid=MarketInfo(symbol,MODE_BID);
if(TrlStp && (trx==0) && (bid>(OrderOpenPrice()+trstart)))
{
trest=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice()+trstart,OrderTakeProfit(),0);
trx++;
break;
}
//--
if(TrlStp && (trx>0) && (bid>(OrderStopLoss()+trstart)))
{
trx++;
trest=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice()+(trx*tsstv),OrderTakeProfit(),0);
break;
} // end BUY Order Trailing Stop.
//---
}
//----
if(OrderType()==OP_SELL)
{
//---
CalcSTP();
//--
if((autsl)&&(stx==0)&&(OrderStopLoss()==0.00||OrderTakeProfit()==0.00))
{
RefreshRates();
bid=MarketInfo(symbol,MODE_BID);
if(OrderStopLoss()==0.00) {slB=NormalizeDouble(bid+sl,digit);}
else {slB=OrderStopLoss();}
if(OrderTakeProfit()==0.00) {tpB=NormalizeDouble(bid-tp,digit);}
else {tpB=OrderTakeProfit();}
modst=OrderModify(OrderTicket(),OrderOpenPrice(),slB,tpB,0,clrRed);
if(modst!=true) {error=GetLastError();}
if(error>0)
{
ResetLastError();
RefreshRates();
bid=MarketInfo(symbol,MODE_BID);
slB=NormalizeDouble(bid+sl,digit);
tpB=NormalizeDouble(bid-tp,digit);
modst=OrderModify(OrderTicket(),OrderOpenPrice(),slB,tpB,0,clrRed);
}
if(modst==true) {stx++; break;}
else {stx=0; break;}
}
//--
RefreshRates();
ask=MarketInfo(symbol,MODE_ASK);
if((opttp)&&((OrderOpenPrice()>(ask+tpABS)) && mdDn)) //-check if order is profit
{
RefreshRates();
ask=MarketInfo(symbol,MODE_ASK);
result=OrderClose(OrderTicket(),OrderLots(),ask,dev,clrYellow);
if(result!=true) {error=GetLastError();}
if(error>0)
{
ResetLastError();
RefreshRates();
ask=MarketInfo(symbol,MODE_ASK);
result=OrderClose(OrderTicket(),OrderLots(),ask,dev,clrYellow);
}
//--
if(error==0 && result==true)
{
Print("-----AutoTStop has CLOSED SELL ORDER ",symbol," - Automatic Take profit..OK!");
PlaySound("ping.wav");
break;
}
} //-end SELL Order Profit.
//-- Trailing Stop & Step
RefreshRates();
ask=MarketInfo(symbol,MODE_ASK);
if(TrlStp && (trx==0) && (ask<(OrderOpenPrice()-trstart)))
{
trest=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice()-trstart,OrderTakeProfit(),0);
trx++;
break;
}
//--
if(TrlStp && (trx>0) && (ask<(OrderStopLoss()-trstart)))
{
trx++;
trest=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice()-(trx*tsstv),OrderTakeProfit(),0);
break;
} // end SELL Order Trailing Stop.
//----
}
}
}
}
//---
return;
//----
} //-end TPRev()
//---------//
void StartAction() //-- function: start take action for Auto TP or Trailing Stop.
{
//----
CkOpen();
if ((ob>0||os>0)&&(opttp||TrlStp)) {TPNor(); TPRev();}
RefreshRates();
CkClose();
CkOpen();
//----
return;
//----
} //-end StartAction()
//---------//
//+------------------------------------------------------------------+
//| Expert deinitialization function |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
//----
EventKillTimer();
GlobalVariablesDeleteAll();
//--
return;
//----
} //-end OnDeinit()
//+------------------------------------------------------------------+
//| Expert tick function |
//+------------------------------------------------------------------+
int start()
{
//----
RefreshRates();
if (IsTradeAllowed()==false) {return(0);}
if (DayOfWeek()==0 || DayOfWeek()==6) {return(0);}
if(FridayTrade==false && DayOfWeek()==5) {return(0);}
else StartAction();
//--
return(0);
//----
} //-end start()
//---------//
//+------------------------------------------------------------------+
Comments