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

Soyez le premier à donner votre avis sur cette source.

Vue 4 812 fois - Téléchargée 183 fois

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

Ajouter un commentaire

Commentaires

pi7438
Messages postés
94
Date d'inscription
vendredi 14 juin 2002
Statut
Membre
Dernière intervention
16 avril 2004
-
c'est nullllll comme code, c'est trop simple a faire ca
krakkoukluk
Messages postés
11
Date d'inscription
mardi 3 juin 2003
Statut
Membre
Dernière intervention
8 juin 2003
-
comm quoi écrire de super programmes n'empeche pas d'être con tu en es la preuve vivante
(au fait c'est con mais t as oublié de mettre l'image 6 dans ton unpi systeme en gros ton prog aussi il sert a rien puisqu'il ne marche pas)
allez chiale pas ca peut arriver a tout le monde

non sérieusement faut que tu m'explique : tu sais pas lire ou c juste que t as envie de me faire chier ??
non parcequ il me semble avoir bien expliquer a la fin de mon prog que ceci était pour les débutants, qu'il ne servait a rien en lui meme et qu'il était juste la pour comprendre le fonctionnement de Randomize et de Rnd.
Alors qu'est ce qui c'est passé ?? hein ?? tu t'es senti concerné par le mot débutant ??? pauvre chou va....
allez viens faire un calin...
Alan71
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004
-
krakkoulduk> C pour le plaisir de poster des sources ou koi? nan mé je comprend pas ton but la... les prog merdiques que tu envoie n'ont aucune portée pédagogique (en admettant qu'il puisse en avoir) ! ca ert a quoi !!! pas un seul commentaire : autant dire au newbie 'allez voir ds l'aide'. De plus, tu fais pas ton boulot en entier. Essaie pas de faire ton interessant, tute prend pour plus que débutant p-e ?

pour info : ubnd, borne supérieure, lbnd borne inférieure
MyRnd=rnd*ubnd+lbnd

si le nbre généré doit etre un entier :
MyRnd=Int(Rnd*ubnd)+lbnd

mais pleure pa, hein ?
cs_korg
Messages postés
26
Date d'inscription
jeudi 9 mai 2002
Statut
Membre
Dernière intervention
25 mars 2006
-
En parlant de boule billard, ça me fait penser à une énigme
Soit 12 boules de billard, une balance à plateau sans l'aide de poids
trouver en seulement 3 pesées, la boule qui ne posséde pas le même
poids en ne sachant pas dés le départ, si elle est + ou - lourde que les
11 autres boules
Alan71
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004
-
peser de la facon suivante et toujour prendre le tas le + lourd

6 ---^--- 6
3 ---^--- 3

puis en retirer une et faire

1 ---^--- 1

si le poid est égal, alors, C la boule retiré. sinon, c'est celle du coté que le plato penche

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.