Devin

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

S'inscrire maintenant

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.

Du même auteur (cs_Nocturne)