Expert Advisor Programming by Andrew R. Young

Appendix D
int OpenBuyOrder(string argSymbol, double argLotSize, double argSlippage,
double argMagicNumber, string argComment = "Buy Order")
{
while(IsTradeContextBusy()) Sleep(10);
// Place Buy Order
int Ticket = OrderSend(argSymbol,OP_BUY,argLotSize,MarketInfo(argSymbol,MODE_ASK),
argSlippage,0,0,argComment,argMagicNumber,0,Green);
// Error Handling
if(Ticket == -1)
{
int ErrorCode = GetLastError();
string ErrDesc = ErrorDescription(ErrorCode);
string ErrAlert = StringConcatenate("Open Buy Order – Error ",ErrorCode,": ",
ErrDesc);
Alert(ErrAlert);
}
string ErrLog = StringConcatenate("Bid: ",MarketInfo(argSymbol,MODE_BID),
" Ask: ",MarketInfo(argSymbol,MODE_ASK)," Lots: ",argLotSize);
Print(ErrLog);
}
return(Ticket);
int OpenSellOrder(string argSymbol, double argLotSize, double argSlippage,
double argMagicNumber, string argComment = "Sell Order")
{
while(IsTradeContextBusy()) Sleep(10);
// Place Sell Order
int Ticket = OrderSend(argSymbol,OP_SELL,argLotSize,MarketInfo(argSymbol,MODE_BID),
argSlippage,0,0,argComment,argMagicNumber,0,Red);
// Error Handling
if(Ticket == -1)
{
int ErrorCode = GetLastError();
string ErrDesc = ErrorDescription(ErrorCode);
string ErrAlert = StringConcatenate("Open Sell Order - Error ",ErrorCode,
": ",ErrDesc);
Alert(ErrAlert);
}
string ErrLog = StringConcatenate("Bid: ",MarketInfo(argSymbol,MODE_BID),
" Ask: ",MarketInfo(argSymbol,MODE_ASK)," Lots: ",argLotSize);
Print(ErrLog);
}
return(Ticket);
181