Un petit bandit manchot ( jackpot ) pour s'amuser...

Soyez le premier à donner votre avis sur cette source.

Vue 5 927 fois - Téléchargée 249 fois

Description

Un programme de jackpot ( mon premier programme ) créé et terminé sous C++ Builder 6, grace aux infos trouvées sur ce site...
Voici le zip qui contient les sources completes
Merci

Source / Exemple :


//---------------------------------------------------------------------------
#include <vcl.h>
#include <time.h>     // indispensable pour générer des chifres aléatoires
#pragma hdrstop

#include "Unit1.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
unsigned int p=100;   // pactol de départ
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Edit1->Text = p;    // affiche le pactol de départ avant toute action de la part de l'utilisateur
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
Close();   // Quitter la partie ( ferme la fenêtre )
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
unsigned int m = Edit2->Text.ToInt();   // Valide la mise + converti le "Edit2->Text" en "unsigned int"
if (m<=p)   // teste si la mise est inférieur ou égale à pactol
        {
        srand((unsigned) time(NULL));
        int a=rand() %9;  // Génere le premier chiffre aléatoire
        int b=rand() %9;  // génere le second chiffre aléatoire
        int c=rand() %9;  // génere le troisieme chiffre aléatoire
        switch (a)   // affiche le bmp correspondant au chiffre en question
                {
                case 0:
                Image3->Picture->LoadFromFile("P0.bmp");
                break;
                case 1:
                Image3->Picture->LoadFromFile("P1.bmp");
                break;
                case 2:
                Image3->Picture->LoadFromFile("P2.bmp");
                break;
                case 3:
                Image3->Picture->LoadFromFile("P3.bmp");
                break;
                case 4:
                Image3->Picture->LoadFromFile("P4.bmp");
                break;
                case 5:
                Image3->Picture->LoadFromFile("P5.bmp");
                break;
                case 6:
                Image3->Picture->LoadFromFile("P6.bmp");
                break;
                case 7:
                Image3->Picture->LoadFromFile("P7.bmp");
                break;
                case 8:
                Image3->Picture->LoadFromFile("P8.bmp");
                break;
                case 9:
                Image3->Picture->LoadFromFile("P9.bmp");
                break;
                }
        switch (b)   // affiche le bmp correspondant au chiffre en question
                {
                case 0:
                Image2->Picture->LoadFromFile("P0.bmp");
                break;
                case 1:
                Image2->Picture->LoadFromFile("P1.bmp");
                break;
                case 2:
                Image2->Picture->LoadFromFile("P2.bmp");
                break;
                case 3:
                Image2->Picture->LoadFromFile("P3.bmp");
                break;
                case 4:
                Image2->Picture->LoadFromFile("P4.bmp");
                break;
                case 5:
                Image2->Picture->LoadFromFile("P5.bmp");
                break;
                case 6:
                Image2->Picture->LoadFromFile("P6.bmp");
                break;
                case 7:
                Image2->Picture->LoadFromFile("P7.bmp");
                break;
                case 8:
                Image2->Picture->LoadFromFile("P8.bmp");
                break;
                case 9:
                Image2->Picture->LoadFromFile("P9.bmp");
                break;
                }
        switch (c)   // affiche le bmp correspondant au chiffre en question
                {
                case 0:
                Image1->Picture->LoadFromFile("P0.bmp");
                break;
                case 1:
                Image1->Picture->LoadFromFile("P1.bmp");
                break;
                case 2:
                Image1->Picture->LoadFromFile("P2.bmp");
                break;
                case 3:
                Image1->Picture->LoadFromFile("P3.bmp");
                break;
                case 4:
                Image1->Picture->LoadFromFile("P4.bmp");
                break;
                case 5:
                Image1->Picture->LoadFromFile("P5.bmp");
                break;
                case 6:
                Image1->Picture->LoadFromFile("P6.bmp");
                break;
                case 7:
                Image1->Picture->LoadFromFile("P7.bmp");
                break;
                case 8:
                Image1->Picture->LoadFromFile("P8.bmp");
                break;
                case 9:
                Image1->Picture->LoadFromFile("P9.bmp");
                break;
                }
        if (a==b)  // teste si a = b
                {
                if (b==c)  // et si b = c
                        {
                        Label9->Caption = "JACKPOT !!!";   // affiche jackpot
                        p = p + ( m * 100000 );    // augmente le pactol
                        goto fin;   // va à la fin
                        }
                        else  // si  a = b mais b pas = c
                        {
                        Label9->Caption = "Gagné";  // affiche gagné
                        p = p + ( m * 100 );     // augmente le pactol
                        goto fin;   // va à la fin
                        }
                }
        if (b==c)
                {
                Label9->Caption = "Gagné";   // affiche gagné
                p = p + ( m * 100 );   // augmente le pactol
                goto fin;   // va à la fin
                }
        if (a==c)
                {
                Label9->Caption = "Gagné";   // affiche gagné
                p = p + ( m * 100 );    // augmente le pactol
                goto fin;   // va à la fin
                }
        Label9->Caption = "Perdu";   // affiche gagné
        p = p - m;    // diminue le pactol
        fin:   // la fin
        if (p<=0) // si le pactol passe en dessous de 0 la partie se termine
                {
                ShowMessage (" GAME OVER !!! ");
                Close();
                }
        Edit1->Text = p;  // afiche le pactol
        }
        else
        {
        ShowMessage ("Non! Vous ne pouvez pas miser plus que ce que vous avez !!!");  // rappelle le joueur à l'ordre
        }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
AboutBox->ShowModal();   // appelle la fenêtre aide 
}
//---------------------------------------------------------------------------

Conclusion :


Dézipper le zip dans le même répertoire que les sources pour pouvoir les utiliser. merci de me faire passer toutes remarques à propos de ce programme sur morph-adm@caramail.com

Codes Sources

A voir également

Ajouter un commentaire Commentaire
Messages postés
21041
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
30
ADMIN INFO:

svp, faire une MAJ du zip avec les sources en 1er, mets url pour aller prendre bimap et autres ressources necessaires.
Nous sommes ici pour du "CodeS-SourceS", pas vrai ?

BruNews, Admin CS, MVP Visual C++

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.