Jeu inutile

[etienne97]

Bonjour,
Ne connaissant presque rien à VBA, je me demandais s'il était possible de faire un programme qui essaie de deviner un nombre entre 1 et 1000 auquel un joueur pense en posant des questions du genre: «Est-il plus petit que 734?» en encore «Est-ce qu'il a comme deuxième chiffre un 6?» subtilement, à l'aide de boîtes de texte et tout ça de façon simple et rapide. Merci pour vos réponses!

 

[KenDev]

Re : Jeu inutile

Bonjour Etienne,

Subtilement je sais pas mais de façon directe :

Sub Devine()
Dim mini%, maxi%, x%, y%, t%
mini = 1: maxi = 1000: x = (mini + maxi) / 2
Do
    t = t + 1
    y = MsgBox("Le Nombre est t-il plus petit que " & x & " ?", 3, "Appuyer sur Cancel si le nombre proposé est le bon")
    Select Case y
        Case 2
            MsgBox "Nombre trouvé en " & t & " essais"
            Exit Sub
        Case 6
            maxi = x - 1
        Case 7
            mini = x + 1
    End Select
    If maxi < mini Then
        MsgBox "Réponses incohérentes, j'abandonne !"
        Exit Sub
    End If
    x = (mini + maxi) / 2
Loop
End Sub

Cordialement

KD