Auto-Forex

extern double       lots = 0.01;
extern double       Slippage = 2;

static int          last_bar = 0;





//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+


int start()
{
  int nb_bars;
  if (nb_bars < 1)
  {
    nb_bars = Bars ;
  }
  RefreshRates();

  //---- Deja un ordre ouvert sur cette barre ?

  if(last_bar != Bars)
  {
    last_bar = Bars ;
    int ticket;
    int sens;
    int i;
    int tendance;


    // A-t-on un changement de tendance ?

    if(tendance != sens)
    {
      tendance = sens ;

      for(i=OrdersTotal()-1;i>=0;i--)
      {
        OrderSelect(i, SELECT_BY_POS);
        int type   = OrderType();

        bool result = false;

        switch(type)
        {
          //Close opened long positions
          case OP_BUY  : result = OrderClose(OrderTicket(),OrderLots(),MarketInfo(OrderSymbol(),MODE_BID),Slippage,Green);
                        break;

          //Close opened short positions
          case OP_SELL : result = OrderClose(OrderTicket(),OrderLots(),MarketInfo(OrderSymbol(),MODE_ASK),Slippage,Green);
                        break;
        }
      }
    }


// On ouvre un ordre dans le sens du résultat de la dernière barre connue


    if(Open[1] > Ask) // En baisse
    {
      ticket = OrderSend(Symbol(), OP_SELL, lots, Bid, 1, 0, 0, "Order SELL bar #"+last_bar, 0, 0, Red);
      sens = -1 ;
    }
    if(Open[1] < Ask) // En hausse
    {
      ticket = OrderSend(Symbol(), OP_BUY, lots, Ask, 1, 0, 0, "Order BUY bar #"+last_bar, 0, 0, Blue);
      sens = 1 ;
    }
  }
}

Comment( "\n        sens = " + sens,
            "\n        tendance =   " + tendance);