nombre mystérieux

[arno]

bonjour, je souhaite réaliser le programme suivant, enfin le fonction suivante avec sub et en utilisant : Nb=Cint(Rnd * 1000)

il faut faire choisir par l'ordinateur un nombre compris entre 0 et 1000 et a partir de boites de saisie et de messages le jeu consiste à retrouver ce nombre. L'ordinateur dit si le nombre est trop petit ou trop grand a chaque tentative et félicite le joueur quand il a trouvé. On indiquera aussi le nombre de coup qu'il a fallu au joueur pour trouver ce nombre.

merci d'avanc et si vous pouviez me réaliser ce programme se serait une grande aide car g un peu de mal en programmation.

 

[Hervé]

Bonjour arno,

Tiens, c'est marrant, c'est le premier truc que j'ai essayé de faire en VBA


une proposition :

Sub Bouton1_QuandClic()
Dim nombre As Integer
Dim cpt As Byte
Dim bon As Boolean
Dim propo As Integer

nombre = Int((1000 * Rnd) + 1)
bon = False

Do
propo = Application.InputBox('Merci de faire une proposition ?', Type:=1)
If propo = 0 Then Exit Sub
If propo > nombre Then MsgBox 'le chiffre à trouver est plus petit que ' & propo: cpt = cpt + 1
If propo < nombre Then MsgBox 'le chiffre à trouver est plus grand que ' & propo: cpt = cpt + 1
If propo = nombre Then
        cpt = cpt + 1
        MsgBox 'Bravo, vous avez trouvé !!!' & vbNewLine & cpt & ' tentatives'
        bon = True
End If
Loop Until bon = True
End Sub

salut

Message édité par: Hervé, à: 02/12/2005 22:09

 

[Charly2]

Salut Arno (ou re-salut) et Hervé,

Dis Hervé, t'as pas l'impression de faire tous les devoirs d'Arno ou Adele ???

Enfin bon, c'est pô trop grave, mais je te signale quand même qu'il ou elle avait dit 'entre 0 et 1000 ', hein ? :whistle:

Pour la peine, je ne te mets que 18/20 car tu n'as pas respecté les consignes mais que ton programme est très amusant (j'ai commencé par là aussi, mais pas sous VBA).

Amitiés
Charly