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 6 818 fois - Téléchargée 939 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

poulpotron
Messages postés
3
Date d'inscription
jeudi 1 mai 2003
Statut
Membre
Dernière intervention
1 mai 2003
-
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
-
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...
zemetafyzik
Messages postés
119
Date d'inscription
jeudi 17 juin 2004
Statut
Membre
Dernière intervention
3 novembre 2007
1 -
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.
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.

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.