Discussion :

[terlercomande]

Bonjour

Avant tout voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Public vA As Integer
 
Private Sub Form_Load()
Randomize
vA = Int(100 * Rnd)
End Sub
 
Private Sub Perdu_Click()
'Permet d'avoir la solution
saisie.Text = vA
End Sub
 
Public Sub saisie_Change()
Dim vSaisie As Integer
 
End Sub
 
Private Sub Tester_Click()
'Ceci devrait marcher avec des select mais je ne trouve pas le moyen
'Il me dit toujours le chiffre est tro bas....
Select Case vSaisie
    Case Is > vA: MsgBox ("Tu vise trop haut")
    Case Is < vA: MsgBox ("Tu vise trop Bas")
    Case Is = vA: MsgBox ("Bien jouer tu as trouver")
    Case Else: MsgBox ("Tu dois taper un chiffre")
End Select
End Sub

Mon projet :

Je souhaite effectuer un petit jeu dont le but est de trouver un chiffre.

Mais je but sur certaine chose car mon niveau en vb est pas très bon même nul je dirais

Bon alors je souhaitais déjà pouvoir comparé mes deux valeurs (aléatoire et le chiffre saisie) car ici rien que le égal ne fonctionne pas ensuite je voudrais que l'utilisateur ait le droit a 3 tentative pas une de plus lol

Mais bon j'ai chercher mais j'ai pas trouver avec mon ami google

Alors je viens vous voir merci d'avance

[iclic]

Bonjour Terlercomande,

1.D'abord tu définis ta variable Vsaisie dans la sub Saisie_Change()
mais tu ne lui donnes aucune valeur donc elle est toujours égal à 0.

2.Etant définie dans la sub, pour VB6 c'est une variable locale.
Elle ne vaut que pour la sub Saisie_Change().
Situ avais mis 'option explicit, tu aurais eu l'erreur dans:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Tester_Click()
'Ceci devrait marcher avec des select mais je ne trouve pas le moyen
'Il me dit toujours le chiffre est tro bas....
Select Case vSaisie  'ici erreur variable non définie
...

Alors regarde ce code avec les petits changements et essaie-le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Public vA As Integer
Dim vsaisie As Integer
 
Private Sub Form_Load()
Randomize
vA = Int(100 * Rnd)
End Sub
 
Private Sub Perdu_Click()
'Permet d'avoir la solution
Saisie.Text = vA
End Sub
 
Public Sub saisie_Change()
 
 vsaisie = Saisie.Text
 Stop 'pour voir la valeur de vsaisie en mettant le pointeur de la souris sur  'vsaisie
End Sub
 
Private Sub Tester_Click()
'Ceci devrait marcher avec des select mais je ne trouve pas le moyen
'Il me dit toujours le chiffre est tro bas....
Stop 'pour voir la valeur de vsaisie et de va ici
Select Case vsaisie
    Case Is > vA: MsgBox ("Tu vises trop haut")
    Case Is < vA: MsgBox ("Tu vises trop Bas")
    Case Is = vA: MsgBox ("Bien joué tu as trouvé")
    Case Else: MsgBox ("Tu dois taper un chiffre")
End Select
End Sub

Je t'ai mis deux "stop" pour voir les valeurs,tu peux les enlever après.
Pour les trois tentatives ,il suffit de mettre un compteur et puis de tester si sa valeur =3 , puis si c'est le cas de réinitialiser les variables.

A+