5pip_TSL





//+------------------------------------------------------------------+
//|                                                       fareed.mq4 |
//|                      Copyright © 2007, MetaQuotes Software Corp. |
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2007, MetaQuotes Software Corp."
#property link      "http://www.metaquotes.net"//---- input parameters
#include <stdlib.mqh>
#include <WinUser32.mqh>
extern double    TakeProfit=20;
extern double    Lots=1;
extern double    TrailingStop=5;



int start()
{
int cnt, ticket, total;
total = OrdersTotal();
//----
 if(total < 1)
{
 
 if(MessageBox("TO SELL 1.00 LOT OF "+Symbol()+" PRESS YES, TO BUY PRESS NO",
 "Script",MB_YESNO|MB_ICONQUESTION)!=IDYES)              
 {
 ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,0,Ask+TakeProfit*Point,"My EA",12345,0,Green);
  }             
else
{
    ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,0,Bid-TakeProfit*Point,"My EA",12345,0,Red);
 }   
return(0);
}

//================================================================        

  
      
   
//===============================
for(cnt=0;cnt<total;cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderType()<=OP_SELL && OrderSymbol()==Symbol())
{
if(OrderType()==OP_BUY) 
{
if(TrailingStop>0)
{
if(Bid-OrderOpenPrice()>Point*TrailingStop)
{
if(OrderStopLoss()<Bid-Point*TrailingStop)
{
OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Point*TrailingStop,OrderTakeProfit(),0,Green);
}
return(0);
}
}
}
}
else 
{
if(TrailingStop>0)
{
if((OrderOpenPrice()-Ask)>(Point*TrailingStop))
{
if((OrderStopLoss()>(Ask+Point*TrailingStop)) ||(OrderStopLoss()==0))
{
OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Point*TrailingStop,
OrderTakeProfit(),0,Red);
}
return(0);
}
}
}
}

return(0);
}






Sample





Analysis



Market Information Used:



Indicator Curves created:


Indicators Used:



Custom Indicators Used:

Order Management characteristics:
Checks for the total of open orders
It automatically opens orders when conditions are reached

It can change open orders parameters, due to possible stepping strategy

Other Features:

It opens Message Boxes to the user

BackTest : USDJPY on H1

From 2009-11-01 to 2009-11-30 Profit Factor:0.04 Total Net Profit:-5390.38

BackTest : USDCHF on H1

From 2009-12-01 to 2010-01-01 Profit Factor:0.00 Total Net Profit:0.00

BackTest : EURUSD on H1

From 2009-12-01 to 2010-01-17 Profit Factor:0.06 Total Net Profit:-7178.50

BackTest : USDCAD on H1

From 2009-12-01 to 2010-01-01 Profit Factor:0.09 Total Net Profit:-2435.01

BackTest : EURUSD on H1

From 2009-08-01 to 2009-10-01 Profit Factor:0.58 Total Net Profit:-869.00

BackTest : GBPUSD on H1

From 2010-01-01 to 2010-02-27 Profit Factor:0.07 Total Net Profit:-10052.00

BackTest : EURUSD on H1

From 2010-04-01 to 2010-04-30 Profit Factor:0.00 Total Net Profit:0.00

BackTest : EURUSD on H1

From 2010-05-01 to 2010-05-31 Profit Factor:0.00 Total Net Profit:0.00

BackTest : EURUSD on H1

From 2010-06-01 to 2010-06-30 Profit Factor:0.00 Total Net Profit:0.00

Request Backtest for 5pip_TSL


From : (yyyy/mm/dd) To: (yyyy/mm/dd)

Pair: Period: