begin
  bServeurTrouve=false
  
  //nombre de serveurs définis
  nNum=3 
  
  while bServeurTrouve==false
    
    
  
    clearBuffer(cClient_socket)
    //"endOfString" num (Pour ligne série, client et serveur TCP) Code ASCII pour le caractère de fin de chaîne à utiliser avec les opérateurs '=' (dans la plage [0, 255]) 
    if(sioCtrl(cClient_socket, "endOfString", 13)!=0)
      putln("probleme sioCtrl(cClient_socket, endOfString, 13)")
    endIf
    //port 30000 utilisé par socket UDP
    if(sioCtrl(cClient_socket, "port", 30000)!=0)
      putln("probleme sioCtrl(cClient_socket, port, 30000)")
    endIf
    //0 pour configurer les lectures sur socket bloquante,
    //une autre valeur en seconde sinon
    if(sioCtrl(cClient_socket, "timeout",1)!=0 )
      putln("probleme sioCtrl(cClient_socket, timeout,2)")
    endIf
  
    //  if(sioCtrl(cClient_socket, "nagle",false)!=0 )
    //    putln("probleme sioCtrl(cClient_socket, nagle,false)")
    // endIf
  
  
  
    if nNum==0
      putln("Serveur NON TROUVE, on recommence le scan")        
      nNum=3
    endIf
    switch(nNum)
      //le scan fonctionne mais il faut que toutes les adresses soient joignables.
      //si une adresse balayée n'est pas joignable, une adresse suivante ne pourra pas être jointe
      //dans ce cas mettre manuellement l'adresse du bon serveur en premier 
      case 3
        //rapid en filaire à la maison et a l'aip (meme adresse)
        sAdrIPServeur="192.168.1.49"  
        //sAdrIPServeur="192.168.1.254"  
 
        // sAdrIPServeur="192.168.43.14"   
      break
      case 2
        //rapid en filaire 
        //      sAdrIPServeur="192.168.1.49"
        //rapid en wifi à l'aip sur WIFI AIP ROBOT
        sAdrIPServeur="192.168.3.5"
     

        //test bidon google
        //sAdrIPServeur="8.8.8.8"
      break
   
      case 1
        //rapid en wifi via huawei GR5
        sAdrIPServeur="192.168.43.14"   
      break
    endSwitch
    
    put("essai serveur: ")
    putln(sAdrIPServeur)
    if(sioCtrl(cClient_socket, "target", sAdrIPServeur)!=0)
      putln("probleme sioCtrl(cClient_socket, target, sAdrIPServeur)")
    endIf
    
    delay(2)
    
    //nNum2=13
    //if(sioSet(cClient_socket,nNum2)==-1)
    //if(sioSet(cClient_socket,nNum2)<1)
    
    //fait une requette bidon
    sEtat="r 5 6 2"
    //redimensionne nNum2 pour traduire la chaine vers un tableau de caractères
    resize(nNum2,1,len(sEtat)+1)
    for nNum3=0 to len(sEtat)
      nNum2[nNum3]=asc(sEtat,nNum3)  
    endFor
    nNum2[len(sEtat)]=13
    // delay(1) 
    
    
    //resize(nNum2,1,128)
    nNum3=5
    //for nNum4=0 to 30
    while nNum3>0 and bServeurTrouve==false
      put("tentative: ")
      putln(nNum3)
      if(sioSet(cClient_socket,nNum2)!=-1)
        bServeurTrouve=true
        put("serveur capteur trouve: ")
        putln(sAdrIPServeur)
        //delay(3)
      endIf
      nNum3=nNum3-1
    endWhile
    nNum=nNum-1
  endWhile
  
  
  //test des sockets  TCP
  
  x_sMsg="Bonjour de la part de RX60"

  /////// CONFIGURATION SOCKET UDP /////////
  
  
  //"endOfString" num (Pour ligne série, client et serveur TCP) Code ASCII pour le caractère de fin de chaîne à utiliser avec les opérateurs '=' (dans la plage [0, 255]) 
  if(sioCtrl(cUdpsock, "endOfString", 13)!=0)
    putln("probleme D")
  endIf
  
  if(sioCtrl(cUdpsock, "port", 10000)!=0)
    putln("probleme A")
  endIf
  
  if(sioCtrl(cUdpsock, "target", sAdrIPServeur)!=0)
    putln("probleme B")
  endIf
 
  //0 pour configurer les lectures sur socket bloquantes,
  //une autre valeur en seconde sinon
  if(sioCtrl(cUdpsock, "timeout", 10)!=0 )
    putln("probleme C")
  endIf
  
  
  
  ////  FIN CONFIGURATION SOCKET UDP ///////


end