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
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.