Petit jeu de pile ou face paskeu la boule de billard y'en a ki comprenne pas ;-)

Description

bon bah c'est à peu près comme pour la boule de billard :
sélectionnez shape dans la boite a outil
faites en un de la taille de la piece que vous souhaitez
propriétés : backcolor : jaune
backstyle : 1-opaque
bordercolor : orange
borderwidth : 3
shape : 3-circle

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

faites un Command button sous le shape
propriétés : name : cmdLancer
caption : LANCER

cliquez sur la feuille Form1
propriétés : caption : Pile ou Face
MaxButton : false
MinButton : false

allez ensuite dans la feuille de code project1-Form1(code)
et tapez ce code :

Source / Exemple :


Dim aleat As Integer
Dim reponse As String

Private Sub cmdLancer_Click()

Randomize 't'as vu vjeu j'ai compris la leçon !!! en fait ca sert initialiser le générateur de nombres aléatoires
aleat = Rnd * 10  'Rnd retourne un nombre aléatoire entre 0 et 1 non compris
    If aleat < 5 Then
        reponse = "PILE"
    Else
        reponse = "FACE"
    End If

lblReponse.Caption = reponse

End Sub

Conclusion :


bon bah voila c'est tout simple , c'est juste pour les débutants comme tout mes codes sources d'ailleurs (normal ! j'en suis un !)
en fait j'ai fait ce code parce qu'il est plus simple à comprendre que celui de la boule de billard (enfin juste plus court quoi !) et aussi parce que Pile ou Face, les gens connaissent plus que la boule de billard
ah et puis si vous vous demandez a quoi ca sert eh bah ca sert a rien !!
c juste pour comprendre encore une fois le fonctionnement de Rnd
voila

Codes Sources

A voir également

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.