29. März 2024, 15:06
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0409
  VB6: Black Jack Problem
 Von nPUltra
 Am 10. Juni 2008 um 21:40:52
 Frage Hallo. Ich habe ein Problem bei meinem Black Jack.
Asse zaehlen ja immer 1 oder 11. Wenn der Dieler <<< (Wenn ich es richtig schreibe, vbFun - falsches Wort, darf nicht) seine Karten zieht sieht es bei mir so aus (cards32.dll):
If Karte(lngZaehler) >= 0 And Karte(lngZaehler) <= 3 Then
If intDCount + 11 >= 22 Then
intDCount = intDCount + 1
Else
intDCount = intDCount + 11
End If
ElseIf Karte(lngZaehler) >= 4 And Karte(lngZaehler) <= 7 Then
intDCount = intDCount + 2
ElseIf Karte(lngZaehler) >= 8 And Karte(lngZaehler) <= 11 Then
intDCount = intDCount + 3
ElseIf Karte(lngZaehler) >= 12 And Karte(lngZaehler) <= 15 Then
intDCount = intDCount + 4
ElseIf Karte(lngZaehler) >= 16 And Karte(lngZaehler) <= 19 Then
intDCount = intDCount + 5
ElseIf Karte(lngZaehler) >= 20 And Karte(lngZaehler) <= 23 Then
intDCount = intDCount + 6
ElseIf Karte(lngZaehler) >= 24 And Karte(lngZaehler) <= 27 Then
intDCount = intDCount + 7
ElseIf Karte(lngZaehler) >= 28 And Karte(lngZaehler) <= 31 Then
intDCount = intDCount + 8
ElseIf Karte(lngZaehler) >= 32 And Karte(lngZaehler) <= 35 Then
intDCount = intDCount + 9
ElseIf Karte(lngZaehler) >= 36 And Karte(lngZaehler) <= 51 Then
intDCount = intDCount + 10
End If
Aber damit hat der Spieler ein Vorteil, da der Dieler, wenn er z.b. 4 und Ass bekommt, Punkte von 15 hat. Nun zieht er noch eine und es kommt eine 9 (Also 24). Aber normalerweise muesste der Dieler nun 14 haben.

Wie kann ich das am besten realisieren?

MFG Non Plus Ultra
[ VB-/VBA-Forum | Archiv 0409 | Archiv-Übersicht ]
 Antworten
VB6: Black Jack Problem - nPUltra 10. Juni 2008 um 21:40:52
Re: Black Jack Problem - Detlev Schubert 10. Juni 2008 um 21:58:24

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum