|
programme de jeu
– Il s’agit de réaliser une interface
D’un programme de jeu simulant une machine à sous : " Lucky Seven "
– Règle :
• En cliquant sur "Jouer"
Des chiffres apparaissent, Si un 7 apparaissent parmi eux,
Alors l'image des sous est Affiché
• Pour arrêter, appuyer sur le bouton Arrêter
Création de l’interface
– Ouvrir un nouveau projet
– Créer les deux boutons de commande :
Bouton « commande » resté appuyé
Dessus, le déplacer sur la feuille et le Positionner à l’endroit voulu
• Le redimensionner avec la souris (Pointer sur le coin inférieur et tirer
Avec la souris)
– Pour les chiffres, utiliser le bouton« Label »
– Prévoir une zone plus importante pour le Label 4 accueillant le texte Lucky Seven
• Introduire une zone « Image » pour Y insérer l’image des sous
Donner des propriétés aux commandes
– Cliquer sur le bouton Command1
• Double-cliquer sur la fenêtre propriétés
• Double-cliquer sur Capiton Saisir « Jouer »
• Faire la même chose avec Command2 en saisissant « Arrêter » Pour retrouver les commandes, il suffit d’aller dans la zone de Liste déroulante, Objet situé en haut de la fenêtre Propriétés
Définition des propriétés des étiquettes de chiffres
1. Sélectionner les trois étiquettes de chiffres en cliquant d'abord sur la
1ère puis sur les deux autres en maintenant le bouton MAJ appuyé
• Un rectangle de sélection encadre chacune des étiquettes
Comme plusieurs objets ont été sélectionnés, seules les propriétés
Susceptibles d'être changées collectivement sont affichées dans la
Fenêtre Propriétés.
2. Propriétés à définir :
• Alignement : choisir 2-center ;
• BorderStyle : choisir 1-Fixed dans le menu ;
• Font : Times New Roman, style Gras, taille : 24 points ;
3. Supprimer les trois libellés afin que les cases soient vides au Démarrage du programme :
• Sélectionner individuellement chacune des trois étiquettes ;
• Double-cliquer sur la propriété Capiton et appuyer sur SUPPR. Le Libellé de l'objet Label1 est supprimé. Répéter l'opération pour les deux autres
Définition de l'étiquette descriptive
1. Cliquer sur l'objet étiquette ;
2. Changer la propriété Caption en Lucky Seven ;
3. Changer la fonte, la taille… comme précédemment ;
4. Changer la couleur en agissant sur ForeColor. Cliquer sur l'onglet "Palette" puis sur la case violet foncé. La couleur est traduite en Hexadécimal dans la fenêtre
Définition des propriétés de la zone Image
– Cette zone est sensée contenir le graphique des pièces.
Ce graphique apparaît lorsque l'utilisateur remporte le jackpot (au moins une fois le chiffre 7)
1. Cliquer sur l'objet zone d'image
2. Mettre la propriété Stretch à True
3. Double cliquer sur la propriété Picture dans la fenêtre
Propriétés. La boîte de dialogue "Charger une image" apparaît, puis aller chercher l'image dans la partition Microsoft sous Clipart. Le fichier s'appelle "Pieces.wmf".
En l'ouvrant, le métafichier Windows est chargé dans la zone d'image de la feuille
4. Mettre la propriété Visible sur False de manière à masquer les pièces au démarrage du programme. (Vous le ferez apparaître ultérieurement dans le programme)
Écriture du code du programme
– Il s'agit du code chargé de :
• calculer les chiffres aléatoires, de les afficher dans les
cases correspondantes et de détecter un éventuel
jackpot.
– Comme le programme est géré par l'activation des boutons
"Jouer" et "Arrêter", il suffit d'associer le code approprié à ces
boutons
– La fenêtre Code est une fenêtre spéciale de l'environnement
de programmation permettant d'entrer et d'éditer les
instructions de programmation
Écriture du code du programme : exo-Lucky
– Doubler cliquer sur la fenêtre "Arrêter" sur la feuille. La fenêtre Code
apparaît
– Rentrer l'instruction : End
– Doubler cliquer sur la fenêtre "Jouer" sur la feuille. La fenêtre Code
apparaît
– Rentrer le code suivant :
Image1.Visible = False
Label1.Caption = Int(Rnd * 10)
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
If (Label1.Caption = 7) Or (Label2.Caption = 7) Or _ (Label3.Caption = 7) Then Image1.Visible = True
Beep
End If
Application
– Ajouter un module standard
– Ecrire dans le module :
Public Gains
– Enregistrer Module sous le nom : Gains.bas
–Double-cliquer sur la commande
–"Jouer" de Feuille1 et ajouter les instructions suivantes après
Beep :
Gains = Gains+1
lblGains.Caption = "Gains : " & Gains
–Jouer et apprécier
–Créer une procédure à caractère général
– En plus des variables publiques, un module standard peut contenir des procédures à caractère général
– Cette procédure :
• Peut être appelée de partout dans le programme
• N'a rien avoir avec les procédures événementielles qui sont
associées à des objets
– Il existe 3 types de procédures
1. Procédures de fonctions
Appelables par leur nom, peuvent recevoir des arguments et retournent une valeur associée à leur nom
2. Procédures Sub Idem que les procédures de fonctions sauf qu'elles ne
retournent pas de valeurs associées à leur nom
Application
– Ajouter une fonction au programme Lucky Seven pour calculer le taux de réussite.
– Pour cela mettre en place une fonction taux et une variable publique appelée Jeux dans le module standard
– Cette fonction sera appelée chaque fois que le bouton "jouer" est activé
– Le résultat doit apparaître dans un nouveau label à placer
sur la feuilleCréer une nouvelle étiquette Label sous Gains avec comme
propriétés pour Label5 : Alignment (2-center), Caption (0,0%),
Font (Arial, Gras Italique, 12 points), ForeColor (Rouge),
Name(lblTaux)
. Dans la fenêtre Projet, double-cliquer sur Reussite.bas pour
l'ouvrir dans la fenêtre code, saisir:
Public Parties
–Saisir la déclaration de fonction suivante dans le module standard
– Ajouter les 2 instructions suivantes :
• Celle là après la dernière instruction comprenant Rnd :
Parties = Parties + 1
• Celle là entre End If et End Sub :
|
