|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
03.04.2007 00:42:33 |
Schnecki |
|
|
 versehentlich auf Sende-Button gekommen--> Frage |
03.04.2007 00:47:40 |
Schnecki |
|
|
|
03.04.2007 12:48:44 |
Rasta |
|
|
|
03.04.2007 15:22:49 |
Schnecki |
|
|
|
04.04.2007 09:10:35 |
Rasta |
|
|
|
04.04.2007 12:46:58 |
Schnecki |
|
|
Von:
Schnecki |
Datum:
03.04.2007 00:47:40 |
Views:
1225 |
Rating:
|
Antwort:
|
Thema:
versehentlich auf Sende-Button gekommen--> Frage |
Schnecki schrieb am 03.04.2007 00:42:33:
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
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
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)
---------
Wie kann ich in VBA jetzt folgendes programmieren:
Überprüfe ob in den 7 Karten ein Royal Flush Pik, also As,Ks,Qs,Js,10s vorkommt? Auch wenn die Karten für den Royal Flush nicht direkt hintereinander kommen. Immerhin ist das ja Text und ich kenne zurzeit selbst leider keine Lösung, bitte helft mir.
Freue mich über jede Gedankenstütze,
über Lösungen doppelt ;-)
Danke im Voraus
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
03.04.2007 00:42:33 |
Schnecki |
|
|
versehentlich auf Sende-Button gekommen--> Frage |
03.04.2007 00:47:40 |
Schnecki |
|
|
|
03.04.2007 12:48:44 |
Rasta |
|
|
|
03.04.2007 15:22:49 |
Schnecki |
|
|
|
04.04.2007 09:10:35 |
Rasta |
|
|
|
04.04.2007 12:46:58 |
Schnecki |
|
|