Création d'un jeu en VBA (Visual Basic pour Application)

VBA est un langage dérivé du BASIC qui permet d'écrire des "macros" dans des applications comme Word, Excel, Libre Office, etc...

 Notre exercice s'effectuera sur "Libre Office Writer"

 TELECHARGER LE JEU

Pour créer une Macro, il faut aller dans le menu "Outils / Macro / Gérer les Macros / LibreOfficeBasic"

Sous Word 2003, aller dans le menu "Outils / Macro / Macros..."

Sous les dernières versions de Word, aller dans le menu "Affichage / Macros / Créer"

Choisir de créer la macro dans le document en cours d'édition.

 

Sub JeuNombreMystere

'    MsgBox("Bonjour, nous sommes le "& Date() )
    
'    prenom = InputBox("Quel est votre prénom ?")
    
'    MsgBox("Enchanté de vous accueillir, " & prenom & ". Vous allez devoir trouver un nombre entre 1 et 100")
 
    nombre = int (Rnd * 100) + 1
    
    MsgBox(nombre)
    do
        do
          proposition = InputBox("Entrer un nombre entre 1 et 100, ou 0 pour abandonner")
        loop until IsNumeric(proposition)
        proposition = CInt(proposition)  'convertit en nombre entier
        if proposition=0
            MsgBox("Vous abandonnez...")
        else
            if nombre=proposition then
                MsgBox("Gagné !")
            else   
                if proposition>nombre then
                   MsgBox("Votre proposition est trop grande.")
                else
                   MsgBox("Votre proposition est trop petite.")
                end if
            end if
        end if
    loop until nombre=proposition or proposition=0     
End Sub