code mql4 to mql5

#property show_inputs
extern double Lot = 0.1;
extern string  TradeComment="IA 8 Paires";



//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
int start()
  {
   int TradesSent=0;


 
    while(true)
     {
  int ticket= OrderSend("AUDUSD",OP_SELL, Lot, MarketInfo("AUDUSD",MODE_BID), 2, NULL, NULL, TradeComment, 0, 0, CLR_NONE);
   
    if(ticket<=0) Print("Error = ",GetLastError());
      else { Print("ticket = ",ticket);TradesSent++; break; }
     }   
    
    while(true)
     {
  ticket= OrderSend("EURUSD",OP_SELL, Lot, MarketInfo("EURUSD",MODE_BID), 2, NULL, NULL, TradeComment, 0, 0, CLR_NONE);
  
   if(ticket<=0) Print("Error = ",GetLastError());
      else { Print("ticket = ",ticket);TradesSent++; break; }
     }   
   
    while(true)
     {
  ticket= OrderSend("GBPUSD",OP_SELL, Lot, MarketInfo("GBPUSD",MODE_BID), 2, NULL, NULL, TradeComment, 0, 0, CLR_NONE);
   
    if(ticket<=0) Print("Error = ",GetLastError());
      else { Print("ticket = ",ticket);TradesSent++; break; }
     }   
    
    while(true)
     {
   ticket=OrderSend("NZDUSD",OP_SELL, Lot, MarketInfo("NZDUSD",MODE_BID), 2, NULL, NULL, TradeComment, 0, 0, CLR_NONE);
   
   if(ticket<=0) Print("Error = ",GetLastError());
      else { Print("ticket = ",ticket);TradesSent++; break; }
     }   
   
    while(true)
     {
   ticket=OrderSend("NZDJPY",OP_BUY, Lot, MarketInfo("NZDJPY",MODE_ASK), 2, NULL, NULL, TradeComment, 0, 0, CLR_NONE);
   
    if(ticket<=0) Print("Error = ",GetLastError());
      else { Print("ticket = ",ticket);TradesSent++; break; }
     }   
    
    while(true)
     {
   ticket=OrderSend("EURJPY",OP_BUY, Lot, MarketInfo("EURJPY",MODE_ASK), 2, NULL, NULL, TradeComment, 0, 0, CLR_NONE);
   
    if(ticket<=0) Print("Error = ",GetLastError());
      else { Print("ticket = ",ticket);TradesSent++; break; }
     }   
    
    while(true)
     {
   ticket=OrderSend("AUDJPY",OP_BUY, Lot, MarketInfo("AUDJPY",MODE_ASK), 2, NULL, NULL, TradeComment, 0, 0, CLR_NONE);
   
    if(ticket<=0) Print("Error = ",GetLastError());
      else { Print("ticket = ",ticket);TradesSent++; break; }
     }   
    
    while(true)
     {
   ticket=OrderSend("GBPJPY",OP_BUY, Lot, MarketInfo("GBPJPY",MODE_ASK), 2, NULL, NULL, TradeComment, 0, 0, CLR_NONE);
   
    if(ticket<=0) Print("Error = ",GetLastError());
      else { Print("ticket = ",ticket);TradesSent++; break; }
     }   
   
   
   return(0);
  }
//+----------------------------------------------------------------------------------------------------+

thank you sincerely

Sorry for my English i am French

Hi phenix, I rewrite your MQL4 code to be like this below;

//+------------------------------------------------------------------+
//|                                                    MQL4 Note.mq4 |
//|                           Copyright 08 May 2012 , onewithzachy   |
//|                                                                  |
//+------------------------------------------------------------------+

#property show_inputs
extern double  Lot          = 0.1;
extern string  TradeComment = "IA 8 Paires";

int TradesSent = 0;
//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
int start()
  {
  ORDER_SEND_FUNC ("AUDUSD", OP_SELL);
  ORDER_SEND_FUNC ("EURUSD", OP_SELL);
  ORDER_SEND_FUNC ("GBPUSD", OP_SELL);
  ORDER_SEND_FUNC ("NZDUSD", OP_SELL);
  ORDER_SEND_FUNC ("NZDJPY", OP_BUY);
  ORDER_SEND_FUNC ("EURJPY", OP_BUY);
  ORDER_SEND_FUNC ("AUDJPY", OP_BUY);
  ORDER_SEND_FUNC ("GBPJPY", OP_BUY);
  
   return(0);
  }
//+----------------------------------------------------------------------------------------------------+          
int ORDER_SEND_FUNC (string my_symbol, int trade_type)
   {
   
   int ticket, mode_price, try;
   
   if (trade_type == OP_BUY)  mode_price = MODE_ASK;
   if (trade_type == OP_SELL) mode_price = MODE_BID;    
   
   while(true)
     {
     try ++;
     ticket= OrderSend(my_symbol, trade_type, Lot, MarketInfo(my_symbol,mode_price), 10, 0, 0, TradeComment, 0, 0, CLR_NONE);
   
     if(ticket <= 0) 
        {
        Print("Error = ",GetLastError());
        // some error code process here to decide whether to continue open position or not
        }
        else 
        {
        Print("Success sending order for ",my_symbol," with ticket = ", ticket," after ",try," trying.");
        TradesSent++; 
        break; 
        }
     } 
   return (ticket);
   }
   
//+----------------------------------------------------------------------------------------------------+

Here's the conversion to MQL5. I did not test this because I have bad internet connection. Rosh would you please be kind to help us to correct the codes if there's any error. :) 

1st conversion

// the codes is removed to save some space, please download the attachment to review the codes. Thank you. onewithzachy

Personally, I don't think it's good idea to send order with while loop like that.

I'll write more, when I have time, you just have to check this topic again phenix. :) 

BTW, what's the french of Hello, Good luck and Have fun ?

Have Fun :) 

Phenix, I don't have much time right now, so this is the best that I can help.

In the attachments below are the same code with adding tp and sl after position successfully opened. I only test this briefly, and it looks like it's running well.

Personally I think we should process the error codes, for example if there is requote, we can adjust the opening price properly so the position will be opened anyway. 

Have fun :) 

Use Standard library class CTrade, try this:

#property description "http://www.mql5.com/en/forum/6666"
#property link "http://www.mql5.com/en/forum/6666"

#include <Trade\Trade.mqh>

#property script_show_inputs

input double Lot          = 0.1;
input double SL           = 300;
input double TP           = 300;
input string TradeComment = "IA 8 Paires";

double My_SL=0.0,My_TP=0.0;
int TradesSent=0;

CTrade trade;
//+------------------------------------------------------------------+
//| Script program start function                                    |
//+------------------------------------------------------------------+

void OnStart()
  {
   PlaySound("wait.wav");
//---
//ORDER_SEND_FUNC ("AUDUSD", ORDER_TYPE_SELL);
//ORDER_SEND_FUNC ("EURUSD", ORDER_TYPE_SELL);
//ORDER_SEND_FUNC ("GBPUSD", ORDER_TYPE_SELL);
//ORDER_SEND_FUNC ("NZDUSD", ORDER_TYPE_SELL);
//ORDER_SEND_FUNC ("NZDJPY", ORDER_TYPE_BUY);
//ORDER_SEND_FUNC ("EURJPY", ORDER_TYPE_BUY);
//ORDER_SEND_FUNC ("AUDJPY", ORDER_TYPE_BUY);
//ORDER_SEND_FUNC ("GBPJPY", ORDER_TYPE_BUY);
//--- sell one pair
   double open_price=SymbolInfoDouble("AUDUSD",SYMBOL_BID);
   int digits=(int)SymbolInfoInteger("AUDUSD",SYMBOL_DIGITS);
   double SLprice=NormalizeDouble(SymbolInfoDouble("AUDUSD",SYMBOL_ASK)+SL*_Point,digits);
   double TPprice=NormalizeDouble(SymbolInfoDouble("AUDUSD",SYMBOL_ASK)-TP*_Point,digits);
   if(trade.Sell(Lot,"AUDUSD",open_price,SLprice,TPprice,TradeComment)==false)
     {
      Print("Sell AUDUAS failed, Error=",GetLastError(),
            "   Retcode description:",trade.CheckResultRetcodeDescription());
     }
   PlaySound("wait.wav");
  }
//+------------------------------------------------------------------+

Dear Rosh, thanks for the codes. The reason I didn't try that (for trade 3.mq5) was that Ctrade trade.sell (or trade.buy) doesn't have slippage, so we may end up in requotes. 

BTW,  I think that's a copy paste typo, you usually calculate TP for sell base on Bid price :).