Analyse d'une main dans un jeu de poker( avec toutes les cartes en .bmp )

Soyez le premier à donner votre avis sur cette source.

Vue 7 987 fois - Téléchargée 1 095 fois

Télécharger le projet
Commenter

Description

Ce programme sert à analyser une main de poker. C'est à dire des cartes aléatoires sont générés et forment la main du joueur et le programme sert à dire quesqu'il a dans sa main.
Comme par exemple, une paire, une suite royale, brelan .....etc...Le programme garde également en mémoire tout les cartes utilisés( avec un vrai paquet de 52 cartes ). Lorsqu'il a expiré toutes les gardes, le programme demande de rebrasser.
Il est très simple avec ce programme, de prendre toutes les fonctions d'analyse et en faire un jeu de poker à plusieurs joueurs. Il vous reste plus qu'a l'interfacer correctement et d'afficher qui est le gagnant....

Source / Exemple : 


'Toutes et dans le zip
'Voici le main
Sub Main()

    Dim Choix As Integer
    Dim Rep As String     ' le répertoire sur le disque où réside mon programme
    Dim UneMain(0 To 4) As Integer
    Dim Paquet(0 To 51) As Integer
    Dim NbJeu As Integer  'Variable utilisé comme compteur
    
    Call Ajuster(Rep)
    
    Call InitialisationCartes(Paquet())    'Initialisation du paquet
    Call Brasser(Paquet())                 'Brassage du paquet
    
    NbJeu = 0              'Initialisation du compteur
    Do
        Choix = Val(InputBox(MENU, "Menu Principale"))
        Select Case Choix
            Case 1:         'Le joueur veut avoir 5 cartes
                    If NbJeu < 10 Then
                        Call DéfinirMain(UneMain(), NbJeu, Paquet())
                        Call TrierMain(UneMain())
                        Call AfficherMain(UneMain(), Rep)
                        
                    Else
                        MsgBox "Veuillez rebrassez s.v.p"
                    End If
                    
            Case 2:        'Le joueur veut brasser le paquet
                    Call InitialisationCartes(Paquet()) 'Réinitialisation du paquet
                    Call Brasser(Paquet())              'Rebrassage du paquet
                    MsgBox ("Vos cartes ont été brasser!"), vbOKOnly, "BRASSAGE"
                    NbJeu = 0                           'Réinitialisation du compteur
        
        End Select
    
    Loop Until Choix = "3"
    
    End

End Sub

Conclusion :


Il est pas mal pour ceux qui veulent ce faire un jeu mais sans tous coder. Comme je l'est dit, quelqu'un qui est habile a faire des interfaces pourrait facilement prendre le programme et le modifier afin d'en faire un jeu véritable. Allez y et donnez moi en des nouvelles!!!

Ciao
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Boby14
9 déc. 2012 à 19:08
moi je suis tout nouveau et j'aime bien ta souce et tes explication a l'intérieur qui mon aidé a comprendre
comment ca fonctione.
zemetafyzik Messages postés 117 Date d'inscription jeudi 17 juin 2004 Statut Membre Dernière intervention 3 novembre 2007 1
20 sept. 2007 à 19:14
Salut, juste un petit message pour te dire quil existe une API qui affiche directement les cartes d'un jeu...donc inutile de les avor en bmp.
poulpotron Messages postés 3 Date d'inscription jeudi 1 mai 2003 Statut Membre Dernière intervention 1 mai 2003
1 mai 2003 à 14:45
tt dabord je voulais te dire que ton prog analyse poker etait tres bien! mais je voulais savoir qqchose:
dans tes fonctions pour determiner si on a une paire , un carré ... tu verifies si les 5 cartes st identik a la premiere ms tu verifie pa si la deuxieme est identik a la troisieme et deuxieme a la 4 eme ...
je c pa si c moi ki me trompe ms jaimerai avoir ta reponse stp!

merci bcp et bonne continuation...
poulpotron Messages postés 3 Date d'inscription jeudi 1 mai 2003 Statut Membre Dernière intervention 1 mai 2003
1 mai 2003 à 14:44
tt dabord je voulais te dire que ton prog analyse poker etait tres bien! mais je voulais savoir qqchose:
dans tes fonctions pour determiner si on a une paire , un carré ... tu verifies si les 5 cartes st identik a la premiere ms tu verifie pa si la deuxieme est identik a la troisieme et deuxieme a la 4 eme ...
je c pa si c moi ki me trompe ms jaimerai avoir ta reponse stp!

merci bcp et bonne continuation...
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 (FScorpion)