Expert Advisor Programming by Andrew R. Young

EXPERT ADVISOR PROGRAMMING
string ErrAlert = StringConcatenate("Open Sell Stop Order - Error ",ErrorCode,
": ",ErrDesc);
Alert(ErrAlert);
}
string ErrLog = StringConcatenate("Ask: ",MarketInfo(argSymbol,MODE_ASK),
" Lots: ",argLotSize," Price: ",argPendingPrice," Stop: ",argStopLoss,
" Profit: ",argTakeProfit," Expiration: ",TimeToStr(argExpiration));
Print(ErrLog);
}
return(Ticket);
double PipPoint(string Currency)
{
int CalcDigits = MarketInfo(Currency,MODE_DIGITS);
if(CalcDigits == 2 || CalcDigits == 3) double CalcPoint = 0.01;
else if(CalcDigits == 4 || CalcDigits == 5) CalcPoint = 0.0001;
return(CalcPoint);
}
int GetSlippage(string Currency, int SlippagePips)
{
int CalcDigits = MarketInfo(Currency,MODE_DIGITS);
if(CalcDigits == 2 || CalcDigits == 4) double CalcSlippage = SlippagePips;
else if(CalcDigits == 3 || CalcDigits == 5) CalcSlippage = SlippagePips * 10;
return(CalcSlippage);
}
bool CloseBuyOrder(string argSymbol, int argCloseTicket, double argSlippage)
{
OrderSelect(argCloseTicket,SELECT_BY_TICKET);
if(OrderCloseTime() == 0)
{
double CloseLots = OrderLots();
while(IsTradeContextBusy()) Sleep(10);
double ClosePrice = MarketInfo(argSymbol,MODE_BID);
bool Closed = OrderClose(argCloseTicket,CloseLots,ClosePrice,argSlippage,Green);
if(Closed == false)
{
int ErrorCode = GetLastError();
string ErrDesc = ErrorDescription(ErrorCode);
string ErrAlert = StringConcatenate("Close Buy Order - Error: ",ErrorCode,
": ",ErrDesc);
Alert(ErrAlert);
184