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
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.