[Jeu VBA] Plus ou Moins

[Lone-wolf]

Bonsoir à tous,

en pièce jointe le fameux jeu du 'Plus ou Moins'

Pour l'affichage de l'icône, modifier le chemin dans le code.

Bon del et très bon weekend à tous.

 

[ROGER2327]

Re : [Jeu VBA] Plus ou Moins

Merci Lone-wolf

Quelques suggestions de modifications :

[COLOR="DarkSlateGray"][B]Private Sub UserForm_Initialize()
   Dim Fichier As String
   Dim x As Long
   InitJeu [COLOR="SeaGreen"]'Pour éviter de commencer systématiquement avec zéro.[/COLOR]
   Fichier = ThisWorkbook.Path & "\image.ico" [COLOR="SeaGreen"]' Fonctionne si l'image est dans le même dossier que le classeur.[/COLOR]
   x = Len(Dir(Fichier))
   If x = 0 Then Exit Sub
   x = ExtractIconA(0, Fichier, 0)
   SendMessageA FindWindow(vbNullString, Me.Caption), &H80, False, x
End Sub

Private Sub OK_Click()
Dim rep As Long
   On Error GoTo E [COLOR="SeaGreen"]'Pour éviter le plantage en cas d'absence de saisie ou en cas de saisie non numérique.[/COLOR]
   If CInt(Nombres.Text) < nbAlea Then
      Textes.Caption = "C'est plus !"
      Nombres.SetFocus
   Else
      If CInt(Nombres.Text) > nbAlea Then
         Textes.Caption = "C'est moins !"
         Nombres.SetFocus
      Else
         If CInt(Nombres.Text) = nbAlea Then
            Textes.Caption = "Bravo ! C'était bien le " & nbAlea
            Nombres.SetFocus
            rep = MsgBox("Voulez-vous recommencer ?", vbYesNo, "Jeu - Plus ou Moins")
            If rep = vbNo Then
               Unload Me
               End
            Else
               InitJeu
            End If
         End If
      End If
   End If
R: Nombres.Text = ""
Exit Sub
E: On Error GoTo 0: Resume R [COLOR="SeaGreen"]'Traitement de l'erreur.[/COLOR]
End Sub[/B][/COLOR]

ROGER2327
#3713

Jeudi 5 Gidouille 137 (Saint Ugolin, mansuet, SQ)
1er Messidor An CCXVIII
2010-W24-6T21:20:11Z

 

[Lone-wolf]

Re : [Jeu VBA] Plus ou Moins

Bonsoir Roger,

merci pour la sugestion, je vais tester.

A+

 

[Lone-wolf]

Re : [Jeu VBA] Plus ou Moins

Dans UserForm_Initialize() Il y a ceci:

InitJeu 'Pour éviter de commencer systématiquement avec zéro.

Malheureusement ça commence toujours par 0.

 

[ROGER2327]

Re : [Jeu VBA] Plus ou Moins

Re...

C'est bizarre. Je viens de rouvrir le classeur et de faire quelques parties. J'ai fermé le classeur, puis rouvert à plusieurs reprises sans que la première partie donne systématiquement zéro comme cible. Je ne vois pas d'où vient le problème...​

ROGER2327
#3714

Jeudi 5 Gidouille 137 (Saint Ugolin, mansuet, SQ)
1er Messidor An CCXVIII
2010-W24-6T22:08:59Z

 

[Lone-wolf]

Re : [Jeu VBA] Plus ou Moins

ça vient de Initjeu.

J'ai supprimer tout ce qui lui concernait et fait comme ceci:

Private Sub OK_Click()
Dim rep As Long
Textes.Caption = ""
Randomize Timer
nbAlea = Int(Rnd() * 200)
   On Error GoTo E 'Pour éviter le plantage en cas d'absence de saisie ou en cas de saisie non numérique.
   If CInt(Nombres.Text) < nbAlea Then
      Textes.Caption = "C'est plus !"
      Nombres.SetFocus
   Else
      If CInt(Nombres.Text) > nbAlea Then
         Textes.Caption = "C'est moins !"
         Nombres.SetFocus
      Else
         If CInt(Nombres.Text) = nbAlea Then
            Textes.Caption = "Bravo ! C'était bien le " & nbAlea
            Nombres.SetFocus
            rep = MsgBox("Voulez-vous recommencer ?", vbYesNo, "Jeu - Plus ou Moins")
            If rep = vbNo Then
               Unload Me
               End
            End If
         End If
      End If
   End If
R: Nombres.Text = ""
Exit Sub
E: On Error GoTo 0: Resume R 'Traitement de l'erreur.
End Sub

On ne commence plus par 0.

 

[Lone-wolf]

Re : [Jeu VBA] Plus ou Moins

Oooooppppss!! J'ai répondu trop vite.

La bonne nouvelle c'est ce que j'ai dit auparavant,
la mauvaise c'est qu'il n'y a plus de chiffre aléatoire.

 

[ROGER2327]

Re : [Jeu VBA] Plus ou Moins

Re...

Étonnant ! La version avec la procédure InitJeu fonctionne chez moi. Je joins ma version modifiée pour que vous puissiez me dire comment elle réagit chez vous.​

ROGER2327
#3715

Jeudi 5 Gidouille 137 (Saint Ugolin, mansuet, SQ)
1er Messidor An CCXVIII
2010-W24-6T22:22:26Z

 

[ROGER2327]

Re : [Jeu VBA] Plus ou Moins

Suite...

Je viens d'ouvrir le classeur et de faire trois parties. Cibles : 185, 21 et 155.
J'ai fermé puis rouvert et fait encore trois parties. Cibles : 16, 36, 45.
Bref, il semble que cela fonctionne correctement.​

ROGER2327
#3716

Jeudi 5 Gidouille 137 (Saint Ugolin, mansuet, SQ)
1er Messidor An CCXVIII
2010-W24-6T22:31:46Z

 

[Lone-wolf]

Re : [Jeu VBA] Plus ou Moins

Cette fois c'est OK! Avec ton fichier.

Je vais regarder le code. Merci encore.

Bonne nuit! 😉

 

[ROGER2327]

Re : [Jeu VBA] Plus ou Moins

Parfait ! Bonne nuit !

ROGER2327
#3718

Jeudi 5 Gidouille 137 (Saint Ugolin, mansuet, SQ)
1er Messidor An CCXVIII
2010-W24-6T22:41:21Z

 

[Lone-wolf]

Re : [Jeu VBA] Plus ou Moins

Bonjour Roger,

j'ai vu tu as ajouté dans ton code [B6].Select , qui n'était pas dans celui que tu m'as montré.

C'est pour ça qu'au départ on recommencaient à zéro.

Bon dimanche

 

[JNP]

Re : [Jeu VBA] Plus ou Moins

Bonjour le fil 🙂,
Une petite suggestion : Compter le nombre de coups joués.

Option Explicit
[COLOR=red]Dim NbreDeCoups As Integer[/COLOR]

et

Private Sub OK_Click()
[COLOR=red]NbreDeCoups = NbreDeCoups + 1[/COLOR]
Dim rep As Long
   On Error GoTo E 'Pour éviter le plantage en cas d'absence de saisie ou en cas de saisie non numérique.
   If CInt(Nombres.Text) < nbAlea Then
      Textes.Caption = "C'est plus que " & Nombres.Text & "."
      Nombres.SetFocus
   Else
      If CInt(Nombres.Text) > nbAlea Then
         Textes.Caption = "C'est moins que " & Nombres.Text & "."
         Nombres.SetFocus
      Else
         If CInt(Nombres.Text) = nbAlea Then
            Textes.Caption = "Bravo ! C'était bien le " & nbAlea
            Nombres.SetFocus
            rep = MsgBox([COLOR=red]"[/COLOR][COLOR=red]Nombre de coups joués : " & NbreDeCoups & vbCrLf &[/COLOR] _
                "Voulez-vous recommencer ?", vbYesNo, "Jeu - Plus ou Moins")
            If rep = vbNo Then
               Unload Me
               End
            Else
               [COLOR=red]NbreDeCoups = 0[/COLOR]
                InitJeu
            End If
         End If
      End If
   End If
R: Nombres.Text = ""
Exit Sub
E: On Error GoTo 0: Resume R 'Traitement de l'erreur
End Sub

Esthétiquement, ce serait peut-être bien de le mettre directement sur l'USF.
Bon dimanche 😎

 

[Lone-wolf]

Re : [Jeu VBA] Plus ou Moins

Bonjour JNP,

merci pour cette sugestion 😉

 

[ROGER2327]

Re : [Jeu VBA] Plus ou Moins

Re...

Bonjour Roger,

j'ai vu tu as ajouté dans ton code [B6].Select , qui n'était pas dans celui que tu m'as montré.

C'est pour ça qu'au départ on recommencaient à zéro.

Bon dimanche

C'est sans influence sur le comportement du jeu. [B6].Select n'est là que pour cacher la sélection sous le bouton (c'est plus beau).
Je ne comprends toujours pas d'où vient votre problème d'hier soir...​

Bonne journée,

ROGER2327
#3719

Vendredi 6 Gidouille 137 (Saint Dieu, retraité, SQ)
2 Messidor An CCXVIII
2010-W24-7T08:34:15Z