While

Utilisateur anonyme -  
 Utilisateur anonyme -
Bonjour,

J'ai fait une application fenêtre en VB.NET et j'ai un gros problème. C'est un client et un serveur : le client envoie des messages au serveur qui, selon le message, va effectuer une action. Voici un tout petit bout :

If sMessageServer = "metallica" Then
Rage.Show()
Rage.WebBrowser1.Navigate("https://www.youtube.com/watch?v=bg92QpjRcJk")
End If

Mais quand je fais une while comme ceci :

Dim MaVariable As Integer
While MaVariable

If sMessageServer = "metallica" Then
Rage.Show()
Rage.WebBrowser1.Navigate("https://www.youtube.com/watch?v=bg92QpjRcJk")
End If

End While

l'action n'est pas effectuée

Comment remédier à ce désagrément ?

Merci beaucoup de votre aide

2 réponses

Michael_Ange Messages postés 231 Statut Membre 19
 
C'est normal , c'est à cause de ta condition....
Je m'explique :

Dim MaVariable As Integer

à initialisation de ta variable "MaVariable", celle-ci à pour valeur 0.
Le while s'assure que la condition est vérifiée avant d'exécuter la tache. Ta ligne While MaVariable peut s'écrire while 0, hors 0 ramène toujours la valeur 'False', c'est pour ça que ton morceau de code ne s'exécute pas.
Initialise "MaVariable" avec une autre valeur avant de lancer ta boucle...

exemple :
Dim MaVariable As Integer
While MaVariable

MaVariable = 1

If sMessageServer = "metallica" Then...
0
Utilisateur anonyme
 
Merci, mais l'action ne s'execute toujours pas .
Et en passant j'ai une question : lorsque le client a envoyé son message, il reste gelé, il ne fait plus rien, il n'y a meme pas affiché en haut (Ne répond plus). Quel est le probleme ?

Merci de ton aide
0