VB: Prog qui plante...mais pourquoi?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VB: Prog qui plante...mais pourquoi?

finch911

Salut,
Je dois réaliser un genre de petit jeu en VB
Le programme génére un nombre entier aléatoire
L'utilisateur entre des nombres et a chaque fois le programme lui dit si il est plus grand ou plus petit que le nombre généré.
Une fois que l'utilisateur a trouver le nombre, on affiche le nombre d'essais
La dessus j'ai aucun problème. Si il tape une chaine de caractère on devra le sortir du programme...et la ca plante
(je début en VB)

Code :

Sub jeux()
Dim valeur As String
Dim essais As String
Dim vraisfaux As String
Dim compteur As Integer
Dim tmp As String
Dim tmp2 As Integer
compteur = 0
tmp = Rnd() * 100
valeur = Int(tmp)
essais = InputBox("Entrez un nombre entre 0 et 100", "Nombre" )
Do
MsgBox (essais)
If IsNumeric(essais) = False Then
essais = -1
Else
If (essais < valeur) Then
vraisfaux = "Le nombre est plus grand!"
Else
vraisfaux = "Le nombre est plus petit!"
End If
essais = InputBox(vraisfaux, "Nombre" )
End If
compteur = compteur + 1
Loop While ((essais <> valeur) Or (essais = -1))
MsgBox (compteur)
End Sub

Publicité

AlainTech

Pas trouvé? Cherche encore!

Essaye comme ça:

Sub jeux()
Dim valeur As String
Dim essais As String
Dim vraisfaux As String
Dim compteur As Integer
Dim tmp As String
Dim tmp2 As Integer

compteur = 0
tmp = Rnd() * 100
valeur = Int(tmp)

essais = InputBox("Entrez un nombre entre 0 et 100", "Nombre" )

Do
MsgBox (essais)
If IsNumeric(essais) Then
If (essais < valeur) Then
vraisfaux = "Le nombre est plus grand!"
Else
vraisfaux = "Le nombre est plus petit!"
End If
essais = InputBox(vraisfaux, "Nombre" )
Else
Exit Sub
End If
compteur = compteur + 1
Loop While ((essais <> valeur) Or (essais = -1))

MsgBox (compteur)

End Sub

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!

finch911

Ca marche mais j'avais un peu simplifier.
Il faudrait juste que je sortes de la boucle et pas de la "Sub".

Carbon_14

"Exit do" sort d'une boucle do (me semble, VB vieux). Exit for d'un for next.

essais = InputBox("entrez " ) ne devrait pas être dans la boucle DO ??

AlainTech

Pas trouvé? Cherche encore!

Tu déclares essais comme string donc tu ne peux y mettre un nombre.
Il y a donc une façon simple de sortir de ta boucle en vérifiant si essais est numérique:

Sub jeux()
Dim valeur As String
Dim essais As String
Dim vraisfaux As String
Dim compteur As Integer
Dim tmp As String
Dim tmp2 As Integer

compteur = 0
tmp = Rnd() * 100
valeur = Int(tmp)

essais = InputBox("Entrez un nombre entre 0 et 100", "Nombre" )

Do
MsgBox (essais)
If (essais < valeur) Then
vraisfaux = "Le nombre est plus grand!"
Else
vraisfaux = "Le nombre est plus petit!"
End If
essais = InputBox(vraisfaux, "Nombre" )
compteur = compteur + 1
Loop While (IsNumeric(essais) And (essais <> valeur))

MsgBox (compteur)

End Sub

FORUM HardWare.fr

Programmation

VB/VBA/VBS

VB: Prog qui plante...mais pourquoi?

Sujets relatifs
imagejpeg etc etc qui plante	commande prog java
[ C ] débunger un prog	livre consellé ? (prog. de jeux en C++)
liaison prog C++ et excel	[C++]Mon programme compile mais plante.
php executer prog avec interface graphique	prog demarrage de session
Convertir un prog C++ Unix en Prog Visuql C++ sous Windows	[Delphi] faire une pause dans un prog ?
Plus de sujets relatifs à : VB: Prog qui plante...mais pourquoi?

Page générée en 0.067 secondes