Boule de billard n°8 ou comment faire confiance au hasard...

Télécharger le projet
Commenter

Description

ceci est une reproduction de la boule de billard noire qu'il faut secouer pour voir s'affcher une réponse dans un cadre comme on peut en voir dans certaine séries a la télé...

tout d'abord, dans la boite a outil sélectionnez le bouton "shape" et créez en un qui fasse presque toute la feuille.
puis dans propriété, sélectionnez : backcolor : noir
backstyle : 1-opaque
shape : 3-circle

faites un autre shape plus petit a l'intérieur du premier
avec comme propriétés : backcolor : blanc
backstyle : 1-opaque
shape : 3-circle

faites un label à l'intérieur du dexième shape
avec comme propriétés : name : lblReponse
alignment : 2-center
backstyle : 0-transparent
caption : rien
font : arial gras 10

et enfin faites un command button sous le premier shape
avec comme propriétés : name : cmdSecouer
caption : SECOUER
font : arial gras 12

cliquez sur la feuille form1 et dans propriété mettez "boule de billard n° 8" dans caption et désactivez minbutton et maxbutton en mettant false comme valeur en face de ces deux propriétés

puis double-cliquez sur SECOUER et tapez ce code (attention pour les débs, les deux premières lignes sont à taper avant la private sub)
bon je sais le code est long mais il n'est pas très compliqué...
comme vous pouvez le constater le code source utilise la fonction Rnd qui génère un nombre au hasard entre 0 et 1 non inclus
j'ai donc multiplié cette valeur par 1000 pour que ce soit encore plus facile à comprendre voila qui vous montre un exemple d'utilisation du hasard avec visual basic

Source / Exemple : 


'déclaration des variables
Dim aleat As Integer      'aleat est le nombre aléatoire qui déterminera le message a afficher
Dim reponse As String    'reponse est la variable dans laquelle sera stockée la réponse

Private Sub cmdSecouer_Click()
Randomize
aleat = Rnd * 1000
    If aleat < 33.33 Then
        reponse = "oui"
    ElseIf aleat < 66.66 Then
        reponse = "non"
    ElseIf aleat < 99.99 Then
        reponse = "peut-être"
    ElseIf aleat < 133.32 Then
        reponse = "peut-être pas"
    ElseIf aleat < 166.65 Then
        reponse = "attend un peu"
    ElseIf aleat < 199.98 Then
        reponse = "patiente"
    ElseIf aleat < 233.31 Then
        reponse = "redemande plus tard"
    ElseIf aleat < 266.64 Then
        reponse = "sois plus patient"
    ElseIf aleat < 299.97 Then
        reponse = "ce n'est pas le bon moment"
    ElseIf aleat < 333.3 Then
        reponse = "dis-moi plus de choses à ce sujet..."
    ElseIf aleat < 366.63 Then
        reponse = "précise ta question"
    ElseIf aleat < 399.96 Then
        reponse = "articule !"
    ElseIf aleat < 433.29 Then
        reponse = "parle plus fort, je ne t'entend pas !"
    ElseIf aleat < 466.62 Then
        reponse = "qui a dit que je pouvais te répondre ?"
    ElseIf aleat < 499.95 Then
        reponse = "es-tu sûr de vouloir entendre la réponse ?"
    ElseIf aleat < 533.28 Then
        reponse = "n'as tu rien de plus intéressant à faire ?"
    ElseIf aleat < 566.61 Then
        reponse = "avant de répondre, j'aimerais en savoir plus sur toi"
    ElseIf aleat < 599.94 Then
        reponse = "je ne sais pas"
    ElseIf aleat < 633.27 Then
        reponse = "aucune idée"
    ElseIf aleat < 666.6 Then
        reponse = "reformule autrement ta question"
    ElseIf aleat < 699.93 Then
        reponse = "pourquoi le saurais-je ?"
    ElseIf aleat < 733.26 Then
        reponse = "on m'attend pour une partie de billard"
    ElseIf aleat < 766.59 Then
        reponse = "demande plutot à la boule blanche"
    ElseIf aleat < 799.92 Then
        reponse = "je n'ai pas réponse à tout"
    ElseIf aleat < 833.25 Then
        reponse = "je te le dirais plus tard"
    ElseIf aleat < 866.58 Then
        reponse = "tu m'as l'air désespéré"
    ElseIf aleat < 899.91 Then
        reponse = "tu me fatigue"
    ElseIf aleat < 933.24 Then
        reponse = "je ne suis pas un hochet"
    ElseIf aleat < 966.57 Then
        reponse = "laisse-moi me reposer"
    Else
        reponse = "ta question est trop compliquée"
    End If
    
lblReponse.Caption = reponse
    
End Sub

Conclusion :


comme vous pouvez le constater le code source utilise la fonction Rnd qui génère un nombre au hasard entre 0 et 1 non inclus
j'ai donc multiplié cette valeur par 1000 pour que ce soit encore plus facile à comprendre voila qui vous montre un exemple d'utilisation du hasard avec visual basic
Télécharger le projet

Codes Sources

A voir également

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 (krakkoukluk)