Dés électroniques

Soyez le premier à donner votre avis sur cette source.

Vue 3 386 fois - Téléchargée 196 fois

Description

Bon c'est tous simple, ca sert pas a grand chose, mais bon...
Je l'ai commanté, mais je ne suis pas sur que ce soit trés compréhensible.
Comme d'habitude je suis désolé pour les fautes.

Source / Exemple :


Private Sub Command1_Click()

Dim D0 As Integer, D1 As Integer, D2 As Integer, D3 As Integer  'Déclaration des variables représentant la valeur de chaque dé

Dim Avance As Integer  ' Déclaration de la variable signifiant l'avancement de l'operation

Randomize 'Initalize la fonction random

Avance = 100 ' intialasation de Avance a 100   Avance sert a dire au programme ou il en est.

Do While Avance > Int(3 / 4 * 100)  'execute la boucle tant que la valeur de avance est a plus de 75

    selection D0, 0 'appel de la Fonction pour l'affichage du dé
    
    DoEvents 'Une pause pour VB
    
    Avance = Avance - 1 'Décrementation de 1 pour avance
    
    Sleep (Pause.Value) ' une petite pause si l'on souhaite que les dés tournes doucement
Loop

' la meme chose pour les 3 autres dés:
Do While Avance > Int(2 / 4 * 100)
    selection D1, 1
    DoEvents
    Avance = Avance - 1
    Sleep (Pause.Value)
Loop
Do While Avance > Int(1 / 4 * 100)
    selection D2, 2
    DoEvents
    Avance = Avance - 1
    Sleep (Pause.Value)
Loop
Do While Avance > 1
    selection D3, 3
    DoEvents
    Avance = Avance - 1
    Sleep (Pause.Value)
Loop
End Sub

Private Function selection(De As Integer, afficheur As Integer) 'Fonction pour l'affichage du dé

    De = Int((Rnd * 6) + 1) 'Selection aleatoire de la valeur du  dé
    
    For i = 0 To 5 'boucle de 6 cycle
        If De = i + 1 Then Affichage(afficheur).Picture = Dé(i).Picture 'Convertion de la valeur de <<De>> par l'image du dé correspondant
    Next i
    
End Function

Conclusion :


J'avais fait ce petit programme pour un copin qui voulait un prog. comme ca donc je voulais en faire profité tous le monde tant qu'a faire...

PS: Ca peut etre adapté pour un jeu de loto ou style yam's.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
60
Date d'inscription
lundi 28 juillet 2003
Statut
Membre
Dernière intervention
7 novembre 2004

On aurait pas copié un livre de programmation?
Allez va...c'est quand même bien

Pour le livre je sais qu'il y a un exemple de dés, mais je sais plus lequels...j'en ai tellement...
Messages postés
132
Date d'inscription
mercredi 12 juin 2002
Statut
Membre
Dernière intervention
26 janvier 2006

LOL

Moué, ba comme vous le dite je debute, en tous cas je vous remerci tous pour vos commantaire.
Ce que j'aurais du faire c'est deja de lire calmement un tutoriel, mais je n'ai maleureusement pas toujour le temp et je vais encore en avoir moin :(.
Et, comme toujours, je veus tous faire rapidement , enfin bon ...
Je vais prendre un tutoriel (si vous en aver un qui est bien...), pis je vais bien le lire et je vais refaire le programme. (Asser simple heuresement)


A++ et merci encore à tous le monde.


PCMAN5
Messages postés
320
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
16 février 2009

Salut !

Je sais très bien que ton premier commentaire apportait quelques chose de constructif ( et encore si peu... ) Mais c'est ta façon hautaine ( limite irrespectueuse ) de dire les choses qui m'ont engagés dans cette discussion et non une projection sur autrui. Dailleur toi aussi tu devrais lire les autres commentaires, car à part les 3 premiers commentaires, il n'y a aucune leçon ni de toi ni de moi, ni de personne !
Je ne suis ni succpetible ni dictateur, par contre je ne connait pas le phénomène qui consiste à croire que l'on donne des leçons, alors que finalement on ne fait que parler dans le vide...
Bref, cette discussion est CLOSE !

@+ et sans rancunes
Messages postés
171
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
20 juillet 2008

susceptible et dictateur... de mieux en mieux... Mon premier commentaire apportait de quoi de constructif...

Jannoman m'a repondu une connerie et toi tu as embarqué dans ce qui ne te concernait pas.

On appel ce phenomene de la projection. tu projete sur autrui ton propre comportement et tu fini par te croire... De mieux en mieux.

Tous les autres commentaires, que tu appeles a tort leçon, vont pour REPONDRE au reponse que l'on m'envoie.

Relit les commentaires... Je n'ai rien initié de tout cela...

Salut bien !
Messages postés
320
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
16 février 2009

Salut !

N'empêche que l'on a essasyé de trouver des solutions ! Et toi tu n'as rien fait à part contrdire pour finalement ne rien apporter de plus !
Bref comme je te l'ai déja dit arrête d'essayer de donner des leçons et apporte quelques chose ou va-t-en !
cette discussion est maintenant CLOSE !
Si tu as quelque chose à nous dire envoie nous un message !

@+
Afficher les 19 commentaires

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.