Dés électroniques

Télécharger le projet
Commenter

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.
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 (pcman5)