رد: استاذ سمير ممكن اضافهtake profit لهذا الاسكبرت
اذا ما جا معك شوف اعدادات زي ماقلت
#define DECIMAL_CONVERSION 10
#define COMMENT_DIGITS 2
// defines for evaluating entry conditions
#define LAST_BAR 1
#define THIS_BAR 0
#define NEGATIVE_VALUE -1
// defines for managing trade orders
#define RETRYCOUNT 10
#define RETRYDELAY 500
#define LONG 1
#define SHORT -1
#define ALL 0
#define ORDER_COMMENT "EA Order RSI-CCI-Trend M30"
#property copyright "Shaun Overton, Programmed by OneStepRemoved.com"
#property link "www.onestepremoved.com"
extern double Lots = 1.99;
extern double RSI_Period = 3;
extern double RSI_BuyBarrier = 52;
extern double RSI_SellBarrier = 52;
extern double CCI_Period = 7;
extern double CCI_BuyBarrier = 16.1;
extern double CCI_SellBarrier = 16.1;
extern double ATR_TrailMultiple = 2.8;
extern int MagicNumber = 31957;
extern bool WriteScreenshots = true;
extern bool Exit = false;
extern bool ConvertPeriod = false;
extern bool ExitAll = false;
extern bool CheckTime = false;
extern bool MoveStopToBreakeven = false;
extern bool DoPending = false;
extern bool DeletePending = false;
extern bool TrailStop = false;
datetime lastTradeTime;
datetime lastAlertTime;
int Slippage = 2;
string display = "";
int decimalConv = 1;
int minSLTPdstnc;
int init()
{
if (Digits == 3 || Digits == 5) {
decimalConv = DECIMAL_CONVERSION;
}
// get miniumum stop/take profit distance
minSLTPdstnc = MarketInfo(Symbol(), MODE_STOPLEVEL);
Print("Broker: " + AccountCompany());
Comment("Loading... awaiting new tick");
return(0);
}
int deinit() { return(0); }
int start()
{
display = "";
double rsi.Now = iRSI(Symbol(),Period(),RSI_Period,PRICE_OPEN,LAST_ BAR); // modifié CLOSE par OPEN
double cci.Then = iCCI(Symbol(),Period(),CCI_Period,PRICE_CLOSE,LAST _BAR); // modifié BAR+1 par BAR
bool bullish = rsi.Now >= RSI_BuyBarrier && cci.Then >= CCI_BuyBarrier; // modifié <= par >=
bool bearish = rsi.Now <= RSI_SellBarrier && cci.Then <= CCI_SellBarrier; // modifié >= par <=
double atr = iATR(Symbol(),Period(), 99,LAST_BAR+1)* ATR_TrailMultiple; // modifié 100 par 99 // BAR par BAR+1
if( NoOpenPosition***ist(ORDER_COMMENT) ) {
if( lastTradeTime != Time[THIS_BAR] ) {
if( bullish )
if( OpenTrade(LONG, Lots, atr, 0, ORDER_COMMENT) )
lastTradeTime = Time[THIS_BAR];
if( bearish )
if( OpenTrade(SHORT, Lots, atr, 0, ORDER_COMMENT) )
lastTradeTime = Time[THIS_BAR];
}
}
else {
GenericTrailStop(MagicNumber, ORDER_COMMENT,atr);
}
Comment(display);
return(0);
}
bool DoTrade(int dir, double volume, int stop, int take, string comment) {
double sl, tp;
bool retVal = false;
switch(dir) {
case LONG:
if (stop != 0) { sl = (stop*Point); }
else { sl = 0; }
if (take != 0) { tp = (take*Point); }
else { tp = 0; }
retVal = OpenTrade(LONG, volume, sl, tp, comment);
break;
case SHORT:
if (stop != 0) { sl = (stop*Point); }
else { sl = 0; }
if (take != 0) { tp = (take*Point); }
else { tp = 0; }
retVal = OpenTrade(SHORT, volume, sl, tp, comment);
break;
}
return(retVal);
}
bool OpenTrade(int dir, double volume, double stop, double take, string comment, int t = 0)
{
int i, j, ticket, cmd;
double prc, sl, tp, lots;
string cmt;
color clr;
Print("OpenTrade("+dir+","+DoubleToStr(volume,3)+" ,"+DoubleToStr(stop,Digits)+","+DoubleToStr(take,D igits)+","+t+")");
lots = CheckLots(volume);
for (i=0; i<RETRYCOUNT; i++)
{
for (j=0; (j<50) && IsTradeContextBusy(); j++)
Sleep(100);
RefreshRates();
if (dir == LONG)
{
cmd = OP_BUY;
prc = Ask;
sl = stop;
tp = take;
clr = Blue;
}
if (dir == SHORT)
{
cmd = OP_SELL;
prc = Bid;
sl = stop;
tp = take;
clr = Red;
}
Print("OpenTrade: prc="+DoubleToStr(prc,Digits)+" sl="+DoubleToStr(sl,Digits)+" tp="+DoubleToStr(tp,Digits));
cmt = comment;
if (t > 0)
cmt = comment + "|" + t;
ticket = OrderSend(Symbol(), cmd, lots, prc, Slippage, 0, 0, cmt, MagicNumber,0,clr);
if (ticket != -1)
{
if( sl > 0 || tp > 0)
{
Print("OpenTrade: opened ticket " + ticket);
Screenshot("OpenTrade");
// Assign Stop Loss and Take Profit to order
AssignSLTP(ticket, dir, stop, take);
return (true);
}
else
{
if( ticket > 0 )
{
Screenshot("OpenTrade_SLTP");
return( true );
}
} // end if( sl > 0 || tp > 0)
} // end if (ticket != -1)
else if (ticket == -1)
{// look for any open trades that are missing a stop loss and take profit
if (FindTradesMissingSLTP(dir, stop, take, comment))
{
Screenshot("OpenTrade_SLTP");
return( true );
}
}
Print("OpenTrade: error \'"+ErrorDescription(GetLastError())+"\' when entering with "+DoubleToStr(lots,3)+" @"+DoubleToStr(prc,Digits));
Sleep(RETRYDELAY);
} // end for (i=0; i<RETRYCOUNT; i++)
Print("OpenTrade: can\'t enter after "+RETRYCOUNT+" retries");
return (false);
}
//-----------------------------------------------------------------------------------+
// This routine calculates a Take Profit price and checks it against the minimum stop
// loss take profit distance returned by MarketInfo() for the currency pair.
//-----------------------------------------------------------------------------------+
double GetTakeProfit(int dir, double openPrc, double take)
{
double tp = 0;
// Calculate Take Profit Price.
//-----------------------------
if (dir == LONG)
{
tp = openPrc + take;
RefreshRates();
if ((tp - Bid) < minSLTPdstnc*Point)
{
tp = Bid + minSLTPdstnc*Point;
if (lastAlertTime != Time[0])
{
Print("Min. Stop Loss Take Profit distance = ", minSLTPdstnc);
Alert("GetTakeProfit() - Specified TP is TOO CLOSE to current price!\nMinimum allowed TP distance for this currency of (",tp,") used instead");
lastAlertTime = Time[0];
}
}
}
else if (dir == SHORT)
{
tp = openPrc - take;
RefreshRates();
if ((Ask - tp) < minSLTPdstnc*Point)
{
tp = Ask - minSLTPdstnc*Point;
if (lastAlertTime != Time[0])
{
Print("Min. Stop Loss Take Profit distance = ", minSLTPdstnc);
Alert("GetTakeProfit() - Specified TP is TOO CLOSE to current price!\nMinimum allowed TP distance for this currency of (",tp,") used instead");
lastAlertTime = Time[0];
}
}
}
return(tp);
}
//-----------------------------------------------------------------------------------+
// This routine calculates a Stop Loss price and checks it against the minimum stop
// loss take profit distance returned by MarketInfo() for the currency pair.
//-----------------------------------------------------------------------------------+
double GetStopLoss(int dir, double openPrc, double stop)
{
double sl = 0;
// Calculate Take Profit Price.
//-----------------------------
if (dir == LONG)
{
sl = openPrc - stop;
RefreshRates();
if ((Bid - sl) < minSLTPdstnc*Point)
{
sl = Bid - minSLTPdstnc*Point;
if (lastAlertTime != Time[0])
{
Print("Min. Stop Loss Take Profit distance = ", minSLTPdstnc);
Alert("GetStopLoss() - Specified SL is TOO CLOSE to current price!\nMinimum allowed SL/TP distance for this currency of (",sl,") used instead");
lastAlertTime = Time[0];
}
}
}
else if (dir == SHORT)
{
sl = openPrc + stop;
RefreshRates();
if ((sl - Ask) < minSLTPdstnc*Point)
{
sl = Ask + minSLTPdstnc*Point;
if (lastAlertTime != Time[0])
{
Print("Min. Stop Loss Take Profit distance = ", minSLTPdstnc);
Alert("GetStopLoss() - Specified SL is TOO CLOSE to current price!\nMinimum allowed SL/TP distance for this currency of (",sl,") used instead");
lastAlertTime = Time[0];
}
}
}
return(sl);
}
//----------------------------------------------------------------+
// routine makes RETRYCOUNT attempts to "modify" the Stop Loss and
// Take Profit for the specified ticket/order
//----------------------------------------------------------------+
bool AssignSLTP(int tkt, int dir, double stop, double take)
{
int ix, ix2;
double tp = take;
double sl = stop;
bool modified = false;
// Select specified ticket.
OrderSelect(tkt, SELECT_BY_TICKET, MODE_TRADES);
// Make several attempts
ix = 0;
while(!modified && ix < RETRYCOUNT)
{
for (ix2 = 0; (ix2 < 50) && IsTradeContextBusy(); ix2++)
Sleep(100);
RefreshRates();
if(dir == LONG) // LONG order
{
// set take profit
if( tp != 0 )
tp = GetTakeProfit(dir, OrderOpenPrice(), take);
else
tp = 0;
// set stop loss
if( sl != 0 )
sl = GetStopLoss(dir, OrderOpenPrice(), stop);
else
sl = 0;
// attempt to set stop loss and take profit
if ( OrderModify(tkt, 0, sl, tp, 0) )
{
Print("OpenTrade: SL/TP are set LONG");
Screenshot("OpenTrade_SLTP");
modified = true;
}
else
{
Print("OpenTrade: error \'"+ErrorDescription(GetLastError())+"\' when setting SL/TP");
Sleep(RETRYDELAY);
}
}
else if( dir == SHORT ) // SHORT order
{
// set take profit
if( tp != 0 )
tp = GetTakeProfit(dir, OrderOpenPrice(), take);
else
tp = 0;
// set stop loss
if( sl != 0 )
sl = GetStopLoss(dir, OrderOpenPrice(), stop);
else
sl = 0;
// attempt to set stop loss and take profit
if ( OrderModify(tkt, 0, sl,tp, 0) )
{
Print("OpenTrade: SL/TP are set SHORT");
Screenshot("OpenTrade_SLTP");
modified = true;
}
else
{
Print("OpenTrade: error \'"+ErrorDescription(GetLastError())+"\' when setting SL/TP");
Sleep(RETRYDELAY);
}
}
ix++; // increment loop counter
} // end while(!modified && ix < RETRYCOUNT)
return(modified);
}
//--------------------------------------------------------------+
// routine checks for open trades placed by the EA this time bar
// that have Stop Loss and Take Profit values of zero. It then
// reattempts to assign the stop loss or take profit. If
// successful it returns true, otherwise false.
//--------------------------------------------------------------+
bool FindTradesMissingSLTP(int dir, double stop, double take, string comment)
{
bool result = true;
for (int ix = OrdersTotal()-1; ix >= 0; ix--)
{
OrderSelect(ix, SELECT_BY_POS, MODE_TRADES);
// look for one of the EAs trades
if(OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber && OrderComment() == comment)
{
// if the trade has neither stop loss or take profit attempt to assign one
if (OrderStopLoss() <= 0 && OrderTakeProfit() <= 0)
if (!AssignSLTP(OrderTicket(), dir, stop, take))
result = false; // record whether AssignSLTP ever fails
}
} // end for (int ix = OrdersTotal()-1; ix >= 0; ix--)
// return result of our attempt
return (result);
}
string ConvertBoolToStr(bool value)
{
if (value) { return("True"); }
else { return("False"); }
}
double CheckLots(double lots)
{
double lot, lotmin, lotmax, lotstep, margin;
lotmin = MarketInfo(Symbol(), MODE_MINLOT);
lotmax = MarketInfo(Symbol(), MODE_MAXLOT);
lotstep = MarketInfo(Symbol(), MODE_LOTSTEP);
margin = MarketInfo(Symbol(), MODE_MARGINREQUIRED);
if (lots*margin > AccountFreeMargin())
lots = AccountFreeMargin() / margin;
lot = MathFloor(lots/lotstep + 0.5) * lotstep;
if (lot < lotmin)
lot = lotmin;
if (lot > lotmax)
lot = lotmax;
return (lot);
}
void Screenshot(string moment_name)
{
if ( WriteScreenshots )
WindowScreenShot(WindowExpertName()+"_"+Symbol()+" _M"+Period()+"_"+
Year()+"-"+two_digits(Month())+"-"+two_digits(Day())+"_"+
two_digits(Hour())+"-"+two_digits(Minute())+"-"+two_digits(Seconds())+"_"+
moment_name+".gif", 1024, 768);
}
string two_digits(int i)
{
if (i < 10)
return ("0"+i);
else
return (""+i);
}
bool NoOpenPosition***ist(string theComment)
{
int total = OrdersTotal();
for(int i = 0; i < total; i++)
{
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if (OrderMagicNumber() == MagicNumber && OrderSymbol() == Symbol() && OrderComment() == theComment)
{ return (false); }
}
return (true);
}
bool Exit(int ticket, int dir, double volume, color clr, int t = 0) {
int i, j, cmd;
double prc, sl, tp, lots;
string cmt;
bool closed;
Print("Exit("+dir+","+DoubleToStr(volume,3)+","+t+ ")");
for (i=0; i<RETRYCOUNT; i++) {
for (j=0; (j<50) && IsTradeContextBusy(); j++)
Sleep(100);
RefreshRates();
if (dir == LONG) {
prc = Bid;
}
if (dir == SHORT) {
prc = Ask;
}
Print("Exit: prc="+DoubleToStr(prc,Digits));
closed = OrderClose(ticket,volume,prc,Slippage,clr);
if (closed) {
Print("Trade closed");
Screenshot("Exit");
return (true);
}
Print("Exit: error \'"+ErrorDescription(GetLastError())+"\' when exiting with "+DoubleToStr(volume,3)+" @"+DoubleToStr(prc,Digits));
Sleep(RETRYDELAY);
}
Print("Exit: can\'t enter after "+RETRYCOUNT+" retries");
return (false);
}
string ConvertPeriod(int period) {
string retVal;
if(period == 0 ) { period = Period(); }
switch(period) {
case PERIOD_M1:
retVal = "M1";
break;
case PERIOD_M5:
retVal = "M5";
break;
case PERIOD_M15:
retVal = "M15";
break;
case PERIOD_M30:
retVal = "M30";
break;
case PERIOD_H1:
retVal = "H1";
break;
case PERIOD_H4:
retVal = "H4";
break;
case PERIOD_D1:
retVal = "D1";
break;
case PERIOD_W1:
retVal = "W1";
break;
case PERIOD_MN1:
retVal = "MN1";
break;
}
return(retVal);
}
string ErrorDescription(int error_code)
{
string error_string;
switch( error_code ) {
case 0:
case 1: error_string="no error"; break;
case 2: error_string="common error"; break;
case 3: error_string="invalid trade parameters"; break;
case 4: error_string="trade server is busy"; break;
case 5: error_string="old version of the client terminal"; break;
case 6: error_string="no connection with trade server"; break;
case 7: error_string="not enough rights"; break;
case 8: error_string="too frequent requests"; break;
case 9: error_string="malfunctional trade operation (never returned error)"; break;
case 64: error_string="account disabled"; break;
case 65: error_string="invalid account"; break;
case 128: error_string="trade timeout"; break;
case 129: error_string="invalid price"; break;
case 130: error_string="invalid stops"; break;
case 131: error_string="invalid trade volume"; break;
case 132: error_string="market is closed"; break;
case 133: error_string="trade is disabled"; break;
case 134: error_string="not enough money"; break;
case 135: error_string="price changed"; break;
case 136: error_string="off quotes"; break;
case 137: error_string="broker is busy (never returned error)"; break;
case 138: error_string="requote"; break;
case 139: error_string="order is locked"; break;
case 140: error_string="long positions only allowed"; break;
case 141: error_string="too many requests"; break;
case 145: error_string="modification denied because order too close to market"; break;
case 146: error_string="trade context is busy"; break;
case 147: error_string="expirations are denied by broker"; break;
case 148: error_string="amount of open and pending orders has reached the limit"; break;
case 149: error_string="hedging is prohibited"; break;
case 150: error_string="prohibited by FIFO rules"; break;
case 4000: error_string="no error (never generated code)"; break;
case 4001: error_string="wrong function pointer"; break;
case 4002: error_string="array index is out of range"; break;
case 4003: error_string="no memory for function call stack"; break;
case 4004: error_string="recursive stack overflow"; break;
case 4005: error_string="not enough stack for parameter"; break;
case 4006: error_string="no memory for parameter string"; break;
case 4007: error_string="no memory for temp string"; break;
case 4008: error_string="not initialized string"; break;
case 4009: error_string="not initialized string in array"; break;
case 4010: error_string="no memory for array\' string"; break;
case 4011: error_string="too long string"; break;
case 4012: error_string="remainder from zero divide"; break;
case 4013: error_string="zero divide"; break;
case 4014: error_string="unknown command"; break;
case 4015: error_string="wrong jump (never generated error)"; break;
case 4016: error_string="not initialized array"; break;
case 4017: error_string="dll calls are not allowed"; break;
case 4018: error_string="cannot load library"; break;
case 4019: error_string="cannot call function"; break;
case 4020: error_string="expert function calls are not allowed"; break;
case 4021: error_string="not enough memory for temp string returned from function"; break;
case 4022: error_string="system is busy (never generated error)"; break;
case 4050: error_string="invalid function parameters count"; break;
case 4051: error_string="invalid function parameter value"; break;
case 4052: error_string="string function internal error"; break;
case 4053: error_string="some array error"; break;
case 4054: error_string="incorrect series array using"; break;
case 4055: error_string="custom indicator error"; break;
case 4056: error_string="arrays are incompatible"; break;
case 4057: error_string="global variables processing error"; break;
case 4058: error_string="global variable not found"; break;
case 4059: error_string="function is not allowed in testing mode"; break;
case 4060: error_string="function is not confirmed"; break;
case 4061: error_string="send mail error"; break;
case 4062: error_string="string parameter expected"; break;
case 4063: error_string="integer parameter expected"; break;
case 4064: error_string="double parameter expected"; break;
case 4065: error_string="array as parameter expected"; break;
case 4066: error_string="requested history data in update state"; break;
case 4099: error_string="end of file"; break;
case 4100: error_string="some file error"; break;
case 4101: error_string="wrong file name"; break;
case 4102: error_string="too many opened files"; break;
case 4103: error_string="cannot open file"; break;
case 4104: error_string="incompatible access to a file"; break;
case 4105: error_string="no order selected"; break;
case 4106: error_string="unknown symbol"; break;
case 4107: error_string="invalid price parameter for trade function"; break;
case 4108: error_string="invalid ticket"; break;
case 4109: error_string="trade is not allowed in the expert properties"; break;
case 4110: error_string="longs are not allowed in the expert properties"; break;
case 4111: error_string="shorts are not allowed in the expert properties"; break;
case 4200: error_string="object is already exist"; break;
case 4201: error_string="unknown object property"; break;
case 4202: error_string="object is not exist"; break;
case 4203: error_string="unknown object type"; break;
case 4204: error_string="no object name"; break;
case 4205: error_string="object coordinates error"; break;
case 4206: error_string="no specified subwindow"; break;
default: error_string="unknown error";
}
return(error_string);
}
void ExitAll(int direction) {
// for (int i = 0; i < OrdersTotal(); i++) {
for (int i = OrdersTotal()-1; i >= 0; i--) {
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
if(OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber) {
if (OrderType() == OP_BUY && direction == LONG) { Exit(OrderTicket(), LONG, OrderLots(), Blue); }
if (OrderType() == OP_SELL && direction == SHORT) { Exit( OrderTicket(), SHORT, OrderLots(), Red); }
}
}
}
bool CheckTime(string start, string end) {
string today = TimeToStr( iTime(Symbol(),PERIOD_D1, 0 ), TIME_DATE ) + " ";
datetime startTime = StrToTime( today + start);
datetime endTime = StrToTime( today + end);
if(startTime <= endTime) {
if(TimeCurrent() > startTime && TimeCurrent() < endTime) { return(true); }
}
if( startTime >= endTime ) {
if( TimeCurrent() > startTime ) { return(true); }
if( TimeCurrent() < endTime ) { return(true); }
}
if( startTime == endTime) {
Comment("***** The Start Time cannot equal the End Time ******* ");
}
return(false);
}
bool MoveStopToBreakeven(double breakeven, double lockin) {
bool retVal = true;
double sl;
// select the Order
for(int i = 0; i < OrdersTotal(); i++) {
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
if(OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber ) {
if(OrderType() == OP_BUY && Bid >= OrderOpenPrice() + breakeven) {
sl = OrderOpenPrice() + lockin;
if( sl > OrderStopLoss() ) {
retVal = OrderModify(OrderTicket(),OrderOpenPrice(), sl,OrderTakeProfit(),0,Blue) ;
}
}
if(OrderType() == OP_SELL && Ask <= OrderOpenPrice() - breakeven) {
sl = OrderOpenPrice() - lockin;
if( sl < OrderStopLoss() ) {
retVal = OrderModify(OrderTicket(),OrderOpenPrice(), sl,OrderTakeProfit(),0,Red) ;
}
}
}
}
if( !retVal ) {
Print( ErrorDescription( GetLastError() ) + ". SL: " + DoubleToStr( sl, Digits) );
}
return(retVal);
}
bool DoPending(int dir, int pendingType, double entryPrice, double volume, int stop, int take, string comment) {
double sl, tp;
int retVal = 0;
double lots = CheckLots(volume);
string info;
for (int i=0; i<RETRYCOUNT; i++) {
for (int j=0; (j<50) && IsTradeContextBusy(); j++)
Sleep(100);
RefreshRates();
switch(dir) {
case LONG:
// make sure entry price is above the Ask for Buy Stops and below it for Buy Limits
if (pendingType == OP_BUYSTOP && MathAbs(entryPrice - Ask) < (minSLTPdstnc*Point))
{
Print("invalid buy stop entry price. Resetting entry to ask + min. SLTP distance");
entryPrice = Ask + minSLTPdstnc*Point;
}
if (pendingType == OP_BUYLIMIT && MathAbs(entryPrice - Ask) < (minSLTPdstnc*Point))
{
Print("invalid buy limit entry price. Resetting entry to ask - min. SLTP distance");
entryPrice = Ask - minSLTPdstnc*Point;
}
if (stop != 0)
sl = entryPrice-(stop*Point);
else
sl = 0;
if (take != 0)
tp = entryPrice +(take*Point);
else
tp = 0;
info = "Type: " + pendingType + ", \nentryPrice: " + DoubleToStr(entryPrice, Digits) + ", \nAsk " + DoubleToStr(Ask,Digits)
+ ", \nLots " + DoubleToStr(lots, 2) + " , \nStop: " + DoubleToStr(sl, Digits)
+ ", \nTP: " + DoubleToStr(tp, Digits);
Print(info);
Comment(info);
retVal = OrderSend(Symbol(), pendingType, lots, entryPrice, Slippage, sl, tp, comment, MagicNumber, 0, Blue);
//retVal = OrderSend(Symbol(), pendingType, lots, 1.39, Slippage, 1.38, 1.40, "", 0, 0, Blue);
break;
case SHORT:
// make sure entry price is below the Bid for Sell Stops and above it for Sell Limits
if (pendingType == OP_SELLSTOP && MathAbs(entryPrice - Bid) < (minSLTPdstnc*Point))
{
Print("invalid sell stop entry price. Resetting entry to bid - min. SLTP distance");
entryPrice = Bid - minSLTPdstnc*Point;
}
if (pendingType == OP_SELLLIMIT && MathAbs(entryPrice - Bid) < (minSLTPdstnc*Point))
{
Print("invalid sell stop entry price. Resetting entry to bid + min. SLTP distance");
entryPrice = Bid + minSLTPdstnc*Point;
}
if (stop != 0)
sl = entryPrice+(stop*Point);
else
sl = 0;
if (take != 0)
tp = entryPrice-(take*Point);
else
tp = 0;
info = "Type: " + pendingType + ", \nentryPrice: " + DoubleToStr(entryPrice, Digits) + ", \nBid " + DoubleToStr(Bid,Digits)
+ ", \nLots " + DoubleToStr(lots, 2) + " , \nStop: " + DoubleToStr(sl, Digits)
+ ", \nTP: " + DoubleToStr(tp, Digits);
Print(info);
Comment(info);
retVal = OrderSend(Symbol(), pendingType, lots, entryPrice, Slippage, sl, tp, comment, MagicNumber, 0, Red);
break;
}
if( retVal > 0 ) { return( true ); }
else {
Print("DoPending: error \'"+ErrorDescription(GetLastError())+"\' when setting entry order");
Sleep(RETRYDELAY);
}
}
return( false );
}
bool DeletePendings() {
bool retVal;
for(int i = OrdersTotal() - 1; i >= 0; i-- ) {
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
if( OrderMagicNumber() != MagicNumber || OrderSymbol() != Symbol() ) { continue; }
if( OrderType() != OP_BUY && OrderType() != OP_SELL ) {
retVal = OrderDelete( OrderTicket() );
if( retVal == false ) {
Print(ErrorDescription( GetLastError() ) );
return( retVal );
}
}
}
return(true);
}
bool TrailStop(int magic, string theComment, double trailStart, double trailAmount) {
double profitPips, increments, sl;
double chgFromOpen;
for(int i = 0; i < OrdersTotal(); i++)
{
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if (OrderMagicNumber() == magic && OrderSymbol() == Symbol() && OrderComment() == theComment)
{
RefreshRates();
if( OrderType() == OP_BUY ) {
chgFromOpen = NormalizeDouble(Bid - OrderOpenPrice(), Digits);
// move to break even
if(chgFromOpen >= trailStart && chgFromOpen > (minSLTPdstnc * Point) &&
NormalizeDouble(OrderStopLoss(),Digits) < NormalizeDouble(OrderOpenPrice(), Digits) && trailStart != 0 )
{
Print("Moving stop to breakeven on order " + OrderTicket() + ". Bid is " + DoubleToStr( Bid, Digits ) + ", Trail start is " + DoubleToStr( trailStart, Digits ) );
return( OrderModify( OrderTicket(), OrderOpenPrice(), OrderOpenPrice(), OrderTakeProfit(), 0, Blue) );
}
profitPips = Bid - ( trailStart + OrderOpenPrice() ) ;
if( trailAmount != 0)
increments = MathFloor( profitPips / trailAmount );
else
increments = 0;
if ( increments >= 1 && Bid >= OrderOpenPrice() + trailStart + ( increments * trailAmount ) ) {
sl = NormalizeDouble( OrderOpenPrice() + ( (increments-1) * trailAmount ), Digits);
display = "\n\nRequested stop loss: " + DoubleToStr( sl, Digits);
if( sl > NormalizeDouble(OrderStopLoss(), Digits) ) {
if( OrderModify( OrderTicket(), OrderOpenPrice(), sl, OrderTakeProfit(), 0, Blue ) ){
Print("Trailng stop updated. Total increments: " + DoubleToStr(increments, Digits) );
return(true);
}
}
}
}
if( OrderType() == OP_SELL ) {
chgFromOpen = NormalizeDouble(OrderOpenPrice() - Ask, Digits);
// move to break even
if( chgFromOpen >= trailStart && chgFromOpen > (minSLTPdstnc * Point) &&
NormalizeDouble(OrderStopLoss(),Digits) > NormalizeDouble(OrderOpenPrice(), Digits) && trailStart != 0 ) {
Print("Moving stop to breakeven on order " + OrderTicket() + ". Ask is " + DoubleToStr( Ask, Digits ) + ", Trail start is " + DoubleToStr( trailStart, Digits ) );
return( OrderModify( OrderTicket(), OrderOpenPrice(), OrderOpenPrice(), OrderTakeProfit(), 0, Red) );
}
profitPips = ( OrderOpenPrice()- trailStart ) - Ask ;
if( trailAmount != 0) { increments = MathFloor( profitPips / trailAmount ); }
else { increments = 0; }
if ( increments >= 1 && Ask <= OrderOpenPrice() - trailStart - ( increments * trailAmount ) ) {
sl = NormalizeDouble(OrderOpenPrice() - ( (increments-1) * trailAmount ), Digits);
if( sl < NormalizeDouble(OrderStopLoss(), Digits) ) {
if( OrderModify( OrderTicket(), OrderOpenPrice(), sl, OrderTakeProfit(), 0, Red) ) {
Print("Trailng stop updated. Total increments: " + DoubleToStr(increments, Digits) );
return(true);
}
}
}
}
if( IsStopped() ) { break; }
}
}
return( false );
}
bool GenericTrailStop(int magic, string theComment, double trailAmt)
{
double profitPips, increments, sl;
double distToStop;
double diff;
for(int i = 0; i < OrdersTotal(); i++)
{
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if (OrderMagicNumber() == magic && OrderSymbol() == Symbol() && OrderComment() == theComment)
{
RefreshRates();
if( OrderType() == OP_BUY )
{
// see if price has moved into the money relative to current stop
distToStop = Bid - OrderStopLoss();
if (distToStop > trailAmt)
{
// only update stop if has moved more than a pip
diff = distToStop - trailAmt;
if ((diff / Point) > 1)
{
sl = NormalizeDouble(Bid - trailAmt, Digits);
// display = "\nBid: " + DoubleToStr(Bid, Digits) + " Requested stop loss: " + DoubleToStr( sl, Digits);
Print("Bid: ", DoubleToStr(Bid, Digits), " Requested stop loss: " + DoubleToStr( sl, Digits));
if( OrderModify( OrderTicket(), OrderOpenPrice(), sl, OrderTakeProfit(), 0, Blue ) )
{
Print("Trailng stop updated.");
return(true);
}
}
}
}
if( OrderType() == OP_SELL )
{
// see if price has moved into the money relative to current stop
distToStop = OrderStopLoss() - Ask;
if (distToStop > trailAmt)
{
// only update stop if has moved more than a pip
diff = distToStop - trailAmt;
if ((diff / Point) > 1)
{
sl = NormalizeDouble(Ask + trailAmt, Digits);
// display = "\nAsk: " + DoubleToStr(Ask, Digits) + " Requested stop loss: " + DoubleToStr( sl, Digits);
Print("Ask: ", DoubleToStr(Ask, Digits), " Requested stop loss: " + DoubleToStr( sl, Digits));
if( OrderModify( OrderTicket(), OrderOpenPrice(), sl, OrderTakeProfit(), 0, Blue ) )
{
Print("Trailng stop updated.");
return(true);
}
}
}
}
if( IsStopped() ) { break; }
}
} // end for(int i = 0; i < OrdersTotal(); i++)
return( false );
}
المواضيع المتشابهه 
2Likes
