Hallo erstmal,
ich habe vor ein Pokerspiel (Texas Hold'em) zu programmieren.
In diesem Spiel gibt es 52 Karten. Aus sieben Karten die man zu sehen bekommt muss man mit 5en ein gutes Blatt formen. Insgesammt können dann etwa 2,6 Mio. verschieden Blätter geformt werden. Nun zu meinem Problem:
Da ich nicht 2,6 Mio verschiedene Blätter von VBA abfragen lassen will, weder noch Zeit habe diese zu programmieren brauche ich Hilfe.
Ich will es mal mit folgendem Beispiel erläutern:
Sub test()
Dim a As Variant
Dim b As Variant
Dim c As Variant
Dim d As Variant
Dim e As Variant
Dim f As Variant
Dim g As Variant
Dim loesung As Variant
a = "As" 'Ass pik
b = "9c" '9 Kreuz
c = "2h" '2 Herz
d = "Ks" 'König pik
e = "Qs" 'Dame pik
f = "10s" '10 pik
g = "Js" 'Junge pik
loesung = a + b + c + d + e + f + g
End Sub
a,b,c,d,e,f,g sind die 7 Karten mit denen man ein Blatt formen muss (5 Karten). Das stärkste Blatt hier wäre ein Royal Flush (A,K,Q,J,10 alles in pik) |