Devin

Soyez le premier à donner votre avis sur cette source.

Vue 2 829 fois - Téléchargée 191 fois

Description

Deviner un nombre compris entre 1 et 9999

Source / Exemple :


'**************************************************************
'********************Par Nocturne 2002*************************
'*********Deviner un nombre compris entre 1 et 9999************
'**************************************************************
Option Explicit
Dim compteur, i As Integer
Dim nombre_au_hasard As Integer

Public Sub Form_Load()

Randomize 'Initialise le générateur de nombres aléatoires
nombre_au_hasard = Int((9999 * Rnd) + 1) 'Selectionne un nombre entre 1 et 9999
'MsgBox nombre_au_hasard 'Pour faire une verification
End Sub

Private Sub OK_Click()

If Not IsNumeric(Choix.Text) Then 'Verif le contenu du TextBox, si pas numerique alors
    MsgBox "Saisie non valide" & Chr(13) & Chr(13) & "Seul les nombres de 1 à 9999 sont accépté" & Chr(13) & Chr(13) & "Recommencer !!!"
    Exit Sub
End If

If Choix.Text < 1 Then 'Le contenu du TextBox est inferieur à 1
    MsgBox "Saisie non valide" & Chr(13) & Chr(13) & "Seul les nombres supérieur à 1 et inférieur à 9999 sont accépté" & Chr(13) & Chr(13) & "Recommencer !!!"
    Exit Sub
End If

If Choix.Text > 9999 Then 'Le contenu du TextBox est superieur à 9999
    MsgBox "Saisie non valide" & Chr(13) & Chr(13) & "Seul les nombres inférieur à 9999 et supérieur à 1 sont accépté" & Chr(13) & Chr(13) & "Recommencer !!!"
    Exit Sub
End If

If CInt(Choix.Text) > nombre_au_hasard Then
    Label2(compteur) = " " & Choix.Text & " : " & " Trop grand "
Else
    If CInt(Choix.Text) < nombre_au_hasard Then
        Label2(compteur) = " " & Choix.Text & " : " & " Trop petit "
    Else
        MsgBox " Bravo !!! " & Chr(13) & "Vous avez trouvé en " & compteur + 1 & " coups"
        Retirage.Enabled = True
        OK.Enabled = False
        Exit Sub
    End If
End If
compteur = compteur + 1

Choix.SetFocus 'Focus sur le TexBox
Choix.SelStart = 0
Choix.SelLength = Len(Choix)

If compteur = 12 Then
    MsgBox "C'est fini !! " & Chr(13) & "Le nombre à trouver était " & nombre_au_hasard
    Retirage.Enabled = True
    OK.Enabled = False
End If

End Sub

Private Sub Retirage_Click()

For i = 0 To 11
    Label2(i).Caption = "" 'Remise à blanc des labels
Next i

Choix.Text = ""
Retirage.Enabled = False
OK.Enabled = True
compteur = 0
Randomize 'Initialise le générateur de nombres aléatoires
nombre_au_hasard = Int((9999 * Rnd) + 1)

End Sub

Private Sub Terminer_Click()
End
End Sub

Conclusion :


L'intérêt de ce petit programme, c'est l'utilisation de la fonction Rnd avec Randomize

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
115
Date d'inscription
mardi 26 février 2002
Statut
Membre
Dernière intervention
15 novembre 2007

Il est clair qu en VBS il n'y a pas d'interface graphique a gerer.
a+
Messages postés
44
Date d'inscription
samedi 29 novembre 2003
Statut
Membre
Dernière intervention
19 mars 2011

'ton code en vbs en moin de ligne quan meme lol

Randomize
nombre = Int((9999 * Rnd) + 1)
msgbox "vous dever rentrer un nombre entre 1 et 9999"
question = inputbox(rentrer votre nombre)
if question = nombre then
msgbox "impressionnant , reeseyer pour voir"
end if
if not question = nombre then
msgbox "vous ete nul ;-) .lol."
end if
if question < 1 or > 9999 then
msgbox "t con ou koi j'ai dit entre 1 et 9999"
end if

enfin bon ya pas la mise en forme la vu que c'est pas possible en vbs
Messages postés
44
Date d'inscription
samedi 29 novembre 2003
Statut
Membre
Dernière intervention
19 mars 2011

'ton code en vbs en moin de ligne quan meme lol

Randomize
nombre = Int((9999 * Rnd) + 1)
msgbox "vous dever rentrer un nombre entre 1 et 9999"
question = inputbox(rentrer votre nombre)
if question = nombre then
msgbox "impressionnant , reeseyer pour voir"
end if
if not question = nombre then
msgbox "vous ete nul ;-) .lol."
end if
if question < 1 or > 9999 then
msgbox "t con ou koi j'ai dit entre 1 et 9999"
end if
Messages postés
7
Date d'inscription
dimanche 7 septembre 2003
Statut
Membre
Dernière intervention
6 juillet 2009

Sympa comme jeux pour les enfants.
9/10
Messages postés
115
Date d'inscription
mardi 26 février 2002
Statut
Membre
Dernière intervention
15 novembre 2007

Affirmatif max12, l'espoire du hasard fait vivre...
Merci de ton commentaire.

A+
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.