Refactor code to make Game its own Class to split from UI dedicated functions.
parent
1295bdbc09
commit
6880589562
|
|
@ -1,294 +0,0 @@
|
||||||
Public Class Form1
|
|
||||||
Inherits Form
|
|
||||||
|
|
||||||
Dim player As New Player()
|
|
||||||
Dim dealer As New Dealer()
|
|
||||||
Dim deck As New List(Of String)
|
|
||||||
Dim gameRunning As Boolean = True
|
|
||||||
Private Sub StartGame_Click(sender As Object, e As EventArgs) Handles StartGame.Click
|
|
||||||
PlayGame()
|
|
||||||
End Sub
|
|
||||||
Private Sub HitButton_Click(sender As Object, e As EventArgs) Handles HitButton.Click
|
|
||||||
If gameRunning And player.hand.Count < 5 And player.ingame Then
|
|
||||||
DealCard(player)
|
|
||||||
CheckPlayer(player)
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub StandButton_Click(sender As Object, e As EventArgs) Handles StandButton.Click
|
|
||||||
If gameRunning And player.ingame Then
|
|
||||||
player.ingame = False
|
|
||||||
DealerTurn()
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
Private Sub ResetCards()
|
|
||||||
Dim pictureBoxes() As PictureBox = {PlayerCard1, PlayerCard2, PlayerCard3, PlayerCard4, PlayerCard5, PlayerCard6, PlayerCard7, PlayerCard8, PlayerCard9, PlayerCard10}
|
|
||||||
For Each box In pictureBoxes
|
|
||||||
box.Image = Nothing
|
|
||||||
Next
|
|
||||||
End Sub
|
|
||||||
Sub PlayGame()
|
|
||||||
InitGame()
|
|
||||||
End Sub
|
|
||||||
Sub InitGame()
|
|
||||||
ResetCards()
|
|
||||||
WinMessage.ResetText()
|
|
||||||
HitButton.Enabled = True
|
|
||||||
StandButton.Enabled = True
|
|
||||||
StartGame.Enabled = False
|
|
||||||
gameRunning = True
|
|
||||||
player.Start()
|
|
||||||
dealer.Start()
|
|
||||||
CreateDeck()
|
|
||||||
DealCard(player)
|
|
||||||
DealCard(dealer, isDealer:=True)
|
|
||||||
DealCard(player)
|
|
||||||
DealCard(dealer, isDealer:=True, hide:=True)
|
|
||||||
GetTotal(dealer)
|
|
||||||
CheckPlayer(dealer, True)
|
|
||||||
CheckPlayer(player)
|
|
||||||
End Sub
|
|
||||||
Sub CreateDeck()
|
|
||||||
deck.Clear()
|
|
||||||
Dim nums As String() = {"A", "2", "3", "4", "5", "6", "7", "8", "9", "10", "J", "Q", "K"}
|
|
||||||
Dim suits As String() = {"Hearts", "Diamonds", "Spades", "Clubs"}
|
|
||||||
For Each s As String In suits
|
|
||||||
For Each n As String In nums
|
|
||||||
deck.Add(n + " of " + s)
|
|
||||||
Next
|
|
||||||
Next
|
|
||||||
Shuffle(deck)
|
|
||||||
End Sub
|
|
||||||
Sub Shuffle(deck)
|
|
||||||
Dim max As Integer = deck.Count - 1
|
|
||||||
Dim random As New Random()
|
|
||||||
For x As Integer = 0 To max
|
|
||||||
Dim rand As Integer = random.Next(0, max)
|
|
||||||
Dim temp As String = deck(x)
|
|
||||||
deck(x) = deck(rand)
|
|
||||||
deck(rand) = temp
|
|
||||||
Next
|
|
||||||
End Sub
|
|
||||||
Sub DealCard(player, Optional suppress = False, Optional isDealer = False, Optional hide = False)
|
|
||||||
Dim card = deck(0)
|
|
||||||
player.hand.Add(card)
|
|
||||||
deck.RemoveAt(0)
|
|
||||||
GetTotal(player, hide)
|
|
||||||
Dim cardNumber As String = If(isDealer, (player.hand.count + 5).ToString(), player.hand.count)
|
|
||||||
Dim pictureBox As PictureBox
|
|
||||||
Try
|
|
||||||
pictureBox = CType(Me.Controls.Find("PlayerCard" + cardNumber, True).First(), PictureBox)
|
|
||||||
If hide Then
|
|
||||||
pictureBox.Image = My.Resources.blue
|
|
||||||
player.hidden = card
|
|
||||||
Else
|
|
||||||
pictureBox.Image = GetCardImage(card)
|
|
||||||
End If
|
|
||||||
SetTotalLabels()
|
|
||||||
Catch ex As Exception
|
|
||||||
WinMessage.Text = "Error: " + ex.Message
|
|
||||||
EndGame()
|
|
||||||
End Try
|
|
||||||
End Sub
|
|
||||||
Sub GetTotal(player, Optional hide = False)
|
|
||||||
If hide Then
|
|
||||||
Exit Sub
|
|
||||||
End If
|
|
||||||
Dim cards As List(Of String) = player.hand
|
|
||||||
If cards.Count = 0 Then
|
|
||||||
player.total = 0
|
|
||||||
Return
|
|
||||||
End If
|
|
||||||
Dim t As Integer = 0
|
|
||||||
Dim a As Integer = 0
|
|
||||||
For Each x As String In cards
|
|
||||||
Dim card As String = x
|
|
||||||
Dim num As String = card.Split(" "c)(0)
|
|
||||||
If num = "K" Or num = "Q" Or num = "J" Then
|
|
||||||
num = 10
|
|
||||||
End If
|
|
||||||
If num = "A" Then
|
|
||||||
num = 11
|
|
||||||
a += 1
|
|
||||||
End If
|
|
||||||
num = Integer.Parse(num)
|
|
||||||
t += num
|
|
||||||
Next
|
|
||||||
While (a > 0 And t > 21)
|
|
||||||
a -= 1
|
|
||||||
t = t - 10
|
|
||||||
End While
|
|
||||||
player.total = t
|
|
||||||
End Sub
|
|
||||||
Sub SetTotalLabels()
|
|
||||||
Dim dealerLabelTotal As String = DealerTotal.Text.Split(": ")(0)
|
|
||||||
Dim playerLabelTotal As String = PlayerTotal.Text.Split(": ")(0)
|
|
||||||
DealerTotal.Text = dealerLabelTotal + ": " + dealer.total.ToString()
|
|
||||||
PlayerTotal.Text = playerLabelTotal + ": " + player.total.ToString()
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
Sub CheckPlayer(playerToCheck, Optional peek = False)
|
|
||||||
If Not peek Then
|
|
||||||
If playerToCheck.total = 21 And playerToCheck.hand.count = 2 Then
|
|
||||||
playerToCheck.winType = WinCondition.Blackjack
|
|
||||||
playerToCheck.ingame = False
|
|
||||||
dealer.ingame = False
|
|
||||||
DealerTurn()
|
|
||||||
ElseIf playerToCheck.total > 21 Then
|
|
||||||
playerToCheck.winType = WinCondition.Bust
|
|
||||||
playerToCheck.ingame = False
|
|
||||||
DealerTurn()
|
|
||||||
ElseIf playerToCheck.total < 22 And playerToCheck.hand.count = 5 Then
|
|
||||||
playerToCheck.winType = WinCondition.FiveCard
|
|
||||||
playerToCheck.ingame = False
|
|
||||||
dealer.ingame = False
|
|
||||||
DealerTurn()
|
|
||||||
End If
|
|
||||||
If playerToCheck.total = 21 Then
|
|
||||||
playerToCheck.ingame = False
|
|
||||||
DealerTurn()
|
|
||||||
End If
|
|
||||||
Else
|
|
||||||
If playerToCheck.total = 21 And playerToCheck.hand.count = 2 Then
|
|
||||||
playerToCheck.winType = WinCondition.Blackjack
|
|
||||||
playerToCheck.ingame = False
|
|
||||||
player.ingame = False
|
|
||||||
DealerTurn()
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
Sub DealerTurn()
|
|
||||||
PlayerCard7.Image = GetCardImage(dealer.hidden)
|
|
||||||
GetTotal(dealer)
|
|
||||||
SetTotalLabels()
|
|
||||||
If player.winType = WinCondition.Bust Then
|
|
||||||
CheckGame()
|
|
||||||
Exit Sub
|
|
||||||
End If
|
|
||||||
If dealer.ingame And dealer.hand.Count < 5 Then
|
|
||||||
If dealer.total = 21 And dealer.hand.Count = 2 Then
|
|
||||||
dealer.winType = WinCondition.Blackjack
|
|
||||||
dealer.ingame = False
|
|
||||||
ElseIf dealer.total > 21 Then
|
|
||||||
dealer.winType = WinCondition.Bust
|
|
||||||
player.ingame = False
|
|
||||||
ElseIf dealer.total < dealer.limit Then
|
|
||||||
DealCard(dealer, isDealer:=True)
|
|
||||||
DealerTurn()
|
|
||||||
Else
|
|
||||||
dealer.winType = WinCondition.NormalWin
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
CheckGame()
|
|
||||||
End Sub
|
|
||||||
Sub CheckGame()
|
|
||||||
WinMessage.Text = GetResults()
|
|
||||||
EndGame()
|
|
||||||
End Sub
|
|
||||||
Sub EndGame()
|
|
||||||
HitButton.Enabled = False
|
|
||||||
StandButton.Enabled = False
|
|
||||||
StartGame.Enabled = True
|
|
||||||
End Sub
|
|
||||||
Function GetResults()
|
|
||||||
If dealer.winType = WinCondition.Blackjack Then
|
|
||||||
If player.winType = WinCondition.Blackjack Then
|
|
||||||
PrintCurrentGame()
|
|
||||||
Return "Player ties with Blackjack!"
|
|
||||||
Else
|
|
||||||
PrintCurrentGame()
|
|
||||||
Return "Dealer wins with Blackjack!"
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
If player.winType = WinCondition.Blackjack Then
|
|
||||||
PrintCurrentGame()
|
|
||||||
Return "Player wins with Blackjack!"
|
|
||||||
End If
|
|
||||||
If player.winType = WinCondition.FiveCard Then
|
|
||||||
PrintCurrentGame()
|
|
||||||
Return "Player wins with Five Card Charlie!"
|
|
||||||
End If
|
|
||||||
If player.winType = WinCondition.Bust Then
|
|
||||||
PrintCurrentGame()
|
|
||||||
Return "Player busts!"
|
|
||||||
End If
|
|
||||||
If dealer.winType = WinCondition.Bust Then
|
|
||||||
PrintCurrentGame()
|
|
||||||
Return "Dealer busts!"
|
|
||||||
End If
|
|
||||||
If player.total > dealer.total Then
|
|
||||||
PrintCurrentGame()
|
|
||||||
Return "Player wins with total of " + player.total.ToString() + "!"
|
|
||||||
End If
|
|
||||||
If player.total = dealer.total Then
|
|
||||||
PrintCurrentGame()
|
|
||||||
Return "Tie!"
|
|
||||||
End If
|
|
||||||
If player.total < dealer.total Then
|
|
||||||
PrintCurrentGame()
|
|
||||||
Return "Dealer wins with total of " + dealer.total.ToString() + "!"
|
|
||||||
End If
|
|
||||||
PrintCurrentGame()
|
|
||||||
Return "error"
|
|
||||||
End Function
|
|
||||||
Function GetCardImage(card) As Image
|
|
||||||
Dim num As String = card.split(" ")(0)
|
|
||||||
Dim suit As String = card.split(" ")(2)
|
|
||||||
Select Case num
|
|
||||||
Case "K"
|
|
||||||
num = "king"
|
|
||||||
Case "Q"
|
|
||||||
num = "queen"
|
|
||||||
Case "J"
|
|
||||||
num = "jack"
|
|
||||||
Case "A"
|
|
||||||
num = "ace"
|
|
||||||
End Select
|
|
||||||
|
|
||||||
Dim img As String = suit + "_" + num
|
|
||||||
Return My.Resources.ResourceManager.GetObject(img.ToLower())
|
|
||||||
End Function
|
|
||||||
Sub PrintCurrentGame()
|
|
||||||
Console.WriteLine("Dealer Hand: " + String.Join(", ", dealer.hand) + " Total: " + dealer.total.ToString())
|
|
||||||
Console.WriteLine("Player Hand: " + String.Join(", ", player.hand) + " Total: " + player.total.ToString())
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
|
|
||||||
End Class
|
|
||||||
|
|
||||||
Public Class Player
|
|
||||||
Private _winCondition As WinCondition
|
|
||||||
Public Property hand As New List(Of String)
|
|
||||||
Public Property total As Integer
|
|
||||||
Public Property ingame As Boolean
|
|
||||||
Public Property winType
|
|
||||||
Get
|
|
||||||
Return _winCondition
|
|
||||||
End Get
|
|
||||||
Set
|
|
||||||
_winCondition = Value
|
|
||||||
End Set
|
|
||||||
End Property
|
|
||||||
|
|
||||||
Sub Start()
|
|
||||||
hand.Clear()
|
|
||||||
total = 0
|
|
||||||
ingame = True
|
|
||||||
winType = WinCondition.NormalWin
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
End Class
|
|
||||||
Public Class Dealer
|
|
||||||
Inherits Player
|
|
||||||
|
|
||||||
Public Property limit As Integer = 17
|
|
||||||
Public Property hidden As String
|
|
||||||
End Class
|
|
||||||
|
|
||||||
Enum WinCondition
|
|
||||||
Bust
|
|
||||||
NormalWin
|
|
||||||
FiveCard
|
|
||||||
Blackjack
|
|
||||||
End Enum
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||||
Partial Class Form1
|
Partial Class GameWindow
|
||||||
Inherits System.Windows.Forms.Form
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
'Form overrides dispose to clean up the component list.
|
'Form overrides dispose to clean up the component list.
|
||||||
|
|
@ -230,7 +230,7 @@ Partial Class Form1
|
||||||
WinMessage.Size = New Size(0, 30)
|
WinMessage.Size = New Size(0, 30)
|
||||||
WinMessage.TabIndex = 15
|
WinMessage.TabIndex = 15
|
||||||
'
|
'
|
||||||
' Form1
|
' GameWindow
|
||||||
'
|
'
|
||||||
AutoScaleMode = AutoScaleMode.Inherit
|
AutoScaleMode = AutoScaleMode.Inherit
|
||||||
ClientSize = New Size(1264, 681)
|
ClientSize = New Size(1264, 681)
|
||||||
|
|
@ -251,7 +251,7 @@ Partial Class Form1
|
||||||
Controls.Add(StandButton)
|
Controls.Add(StandButton)
|
||||||
Controls.Add(HitButton)
|
Controls.Add(HitButton)
|
||||||
MinimumSize = New Size(1280, 720)
|
MinimumSize = New Size(1280, 720)
|
||||||
Name = "Form1"
|
Name = "GameWindow"
|
||||||
StartPosition = FormStartPosition.CenterScreen
|
StartPosition = FormStartPosition.CenterScreen
|
||||||
Text = "Blackjack"
|
Text = "Blackjack"
|
||||||
CType(PlayerCard1, ComponentModel.ISupportInitialize).EndInit()
|
CType(PlayerCard1, ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
|
@ -0,0 +1,58 @@
|
||||||
|
Public Class GameWindow
|
||||||
|
Private WithEvents game As Game
|
||||||
|
Private Sub StartGame_Click(sender As Object, e As EventArgs) Handles StartGame.Click
|
||||||
|
game = New Game()
|
||||||
|
game.Start()
|
||||||
|
End Sub
|
||||||
|
Private Sub HitButton_Click(sender As Object, e As EventArgs) Handles HitButton.Click
|
||||||
|
game.Hit()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub StandButton_Click(sender As Object, e As EventArgs) Handles StandButton.Click
|
||||||
|
game.Stand()
|
||||||
|
End Sub
|
||||||
|
Private Sub OnResetUI() Handles game.ResetUI
|
||||||
|
Dim pictureBoxes() As PictureBox = {PlayerCard1, PlayerCard2, PlayerCard3, PlayerCard4, PlayerCard5, PlayerCard6, PlayerCard7, PlayerCard8, PlayerCard9, PlayerCard10}
|
||||||
|
For Each box In pictureBoxes
|
||||||
|
box.Image = Nothing
|
||||||
|
Next
|
||||||
|
WinMessage.ResetText()
|
||||||
|
HitButton.Enabled = True
|
||||||
|
StandButton.Enabled = True
|
||||||
|
StartGame.Enabled = False
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub OnCardDealt(card As String, cardNumber As String, hide As Boolean) Handles game.CardDealt
|
||||||
|
Dim pictureBox As PictureBox
|
||||||
|
Debug.Print(cardNumber)
|
||||||
|
Try
|
||||||
|
pictureBox = CType(Me.Controls.Find("PlayerCard" + cardNumber, True).First(), PictureBox)
|
||||||
|
If hide Then
|
||||||
|
pictureBox.Image = My.Resources.blue
|
||||||
|
Else
|
||||||
|
pictureBox.Image = Utilities.GetCardImage(card)
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
EndGame("Error: " + ex.Message)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub SetTotalLabels(playerTotalAmount, dealerTotalAmount) Handles game.SetTotalLabels
|
||||||
|
Dim dealerLabelTotal As String = DealerTotal.Text.Split(": ")(0)
|
||||||
|
Dim playerLabelTotal As String = PlayerTotal.Text.Split(": ")(0)
|
||||||
|
DealerTotal.Text = dealerLabelTotal + ": " + dealerTotalAmount.ToString()
|
||||||
|
PlayerTotal.Text = playerLabelTotal + ": " + playerTotalAmount.ToString()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub ShowDealerCard(card) Handles game.ShowDealerCard
|
||||||
|
PlayerCard7.Image = Utilities.GetCardImage(card)
|
||||||
|
End Sub
|
||||||
|
Private Sub EndGame(message) Handles game.EndGame
|
||||||
|
WinMessage.Text = message
|
||||||
|
HitButton.Enabled = False
|
||||||
|
StandButton.Enabled = False
|
||||||
|
StartGame.Enabled = True
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
End Class
|
||||||
|
|
@ -31,7 +31,7 @@ Namespace My
|
||||||
|
|
||||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()>
|
<Global.System.Diagnostics.DebuggerStepThroughAttribute()>
|
||||||
Protected Overrides Sub OnCreateMainForm()
|
Protected Overrides Sub OnCreateMainForm()
|
||||||
Me.MainForm = Form1
|
Me.MainForm = GameWindow
|
||||||
End Sub
|
End Sub
|
||||||
End Class
|
End Class
|
||||||
End Namespace
|
End Namespace
|
||||||
|
|
|
||||||
|
|
@ -0,0 +1,30 @@
|
||||||
|
Public Class Utilities
|
||||||
|
Public Shared Function Shuffle(list)
|
||||||
|
Dim max As Integer = list.Count - 1
|
||||||
|
Dim random As New Random()
|
||||||
|
For x As Integer = 0 To max
|
||||||
|
Dim rand As Integer = random.Next(0, max)
|
||||||
|
Dim temp As String = list(x)
|
||||||
|
list(x) = list(rand)
|
||||||
|
list(rand) = temp
|
||||||
|
Next
|
||||||
|
Return list
|
||||||
|
End Function
|
||||||
|
Public Shared Function GetCardImage(card) As Image
|
||||||
|
Dim num As String = card.split(" ")(0)
|
||||||
|
Dim suit As String = card.split(" ")(2)
|
||||||
|
Select Case num
|
||||||
|
Case "K"
|
||||||
|
num = "king"
|
||||||
|
Case "Q"
|
||||||
|
num = "queen"
|
||||||
|
Case "J"
|
||||||
|
num = "jack"
|
||||||
|
Case "A"
|
||||||
|
num = "ace"
|
||||||
|
End Select
|
||||||
|
|
||||||
|
Dim img As String = suit + "_" + num
|
||||||
|
Return My.Resources.ResourceManager.GetObject(img.ToLower())
|
||||||
|
End Function
|
||||||
|
End Class
|
||||||
|
|
@ -0,0 +1,191 @@
|
||||||
|
Public Class Game
|
||||||
|
Public Event ResetUI()
|
||||||
|
Public Event CardDealt(card, cardNumber, hide)
|
||||||
|
Public Event SetTotalLabels(playerTotal, dealerTotal)
|
||||||
|
Public Event ShowDealerCard(card)
|
||||||
|
Public Event EndGame(winMessage)
|
||||||
|
|
||||||
|
Private player As Player
|
||||||
|
Private dealer As Dealer
|
||||||
|
Private deck As New List(Of String)
|
||||||
|
|
||||||
|
Public Sub Start()
|
||||||
|
|
||||||
|
Init()
|
||||||
|
player.Start()
|
||||||
|
dealer.Start()
|
||||||
|
DealCard(player)
|
||||||
|
DealCard(dealer, isDealer:=True)
|
||||||
|
DealCard(player)
|
||||||
|
DealCard(dealer, isDealer:=True, hide:=True)
|
||||||
|
CheckPlayer(player)
|
||||||
|
CheckPlayer(dealer, True)
|
||||||
|
End Sub
|
||||||
|
Sub Init()
|
||||||
|
player = New Player()
|
||||||
|
dealer = New Dealer()
|
||||||
|
deck = CreateDeck()
|
||||||
|
RaiseEvent ResetUI()
|
||||||
|
End Sub
|
||||||
|
Sub DealCard(playerDealt, Optional isDealer = False, Optional hide = False)
|
||||||
|
Dim card As String = deck(0)
|
||||||
|
playerDealt.hand.Add(card)
|
||||||
|
deck.RemoveAt(0)
|
||||||
|
GetTotal(playerDealt, hide)
|
||||||
|
If hide Then
|
||||||
|
playerDealt.hidden = card
|
||||||
|
End If
|
||||||
|
Dim cardNumber As String = If(isDealer, (playerDealt.hand.Count + 5).ToString(), playerDealt.hand.Count)
|
||||||
|
|
||||||
|
RaiseEvent CardDealt(card, cardNumber, hide)
|
||||||
|
RaiseEvent SetTotalLabels(player.total, dealer.total)
|
||||||
|
End Sub
|
||||||
|
Sub GetTotal(playerToCheck, Optional hide = False)
|
||||||
|
If hide Then
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
Dim cards As List(Of String) = playerToCheck.hand
|
||||||
|
If cards.Count = 0 Then
|
||||||
|
playerToCheck.total = 0
|
||||||
|
Return
|
||||||
|
End If
|
||||||
|
Dim total As Integer = 0
|
||||||
|
Dim aceTotal As Integer = 0
|
||||||
|
For Each card As String In cards
|
||||||
|
Dim num As String = card.Split(" "c)(0)
|
||||||
|
If num = "K" Or num = "Q" Or num = "J" Then
|
||||||
|
num = 10
|
||||||
|
End If
|
||||||
|
If num = "A" Then
|
||||||
|
num = 11
|
||||||
|
aceTotal += 1
|
||||||
|
End If
|
||||||
|
num = Integer.Parse(num)
|
||||||
|
total += num
|
||||||
|
Next
|
||||||
|
While (aceTotal > 0 And total > 21)
|
||||||
|
aceTotal -= 1
|
||||||
|
total -= 10
|
||||||
|
End While
|
||||||
|
playerToCheck.total = total
|
||||||
|
End Sub
|
||||||
|
Sub CheckPlayer(playerToCheck, Optional peek = False)
|
||||||
|
If playerToCheck.total = 21 And playerToCheck.hand.count = 2 And peek Then
|
||||||
|
playerToCheck.winType = WinCondition.Blackjack
|
||||||
|
playerToCheck.ingame = False
|
||||||
|
player.ingame = False
|
||||||
|
DealerTurn()
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If playerToCheck.total = 21 And playerToCheck.hand.count = 2 Then
|
||||||
|
playerToCheck.winType = WinCondition.Blackjack
|
||||||
|
playerToCheck.ingame = False
|
||||||
|
dealer.ingame = False
|
||||||
|
DealerTurn()
|
||||||
|
ElseIf playerToCheck.total > 21 Then
|
||||||
|
playerToCheck.winType = WinCondition.Bust
|
||||||
|
playerToCheck.ingame = False
|
||||||
|
DealerTurn()
|
||||||
|
ElseIf playerToCheck.total < 22 And playerToCheck.hand.count = 5 Then
|
||||||
|
playerToCheck.winType = WinCondition.FiveCard
|
||||||
|
playerToCheck.ingame = False
|
||||||
|
dealer.ingame = False
|
||||||
|
DealerTurn()
|
||||||
|
End If
|
||||||
|
If playerToCheck.total = 21 Then
|
||||||
|
playerToCheck.ingame = False
|
||||||
|
DealerTurn()
|
||||||
|
End If
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Sub DealerTurn()
|
||||||
|
GetTotal(dealer)
|
||||||
|
RaiseEvent SetTotalLabels(player.total, dealer.total)
|
||||||
|
RaiseEvent ShowDealerCard(dealer.hidden)
|
||||||
|
If player.winType = WinCondition.Bust Then
|
||||||
|
CheckGame()
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If dealer.ingame And dealer.hand.Count < 5 Then
|
||||||
|
If dealer.total = 21 And dealer.hand.Count = 2 Then
|
||||||
|
dealer.winType = WinCondition.Blackjack
|
||||||
|
dealer.ingame = False
|
||||||
|
ElseIf dealer.total > 21 Then
|
||||||
|
dealer.winType = WinCondition.Bust
|
||||||
|
player.ingame = False
|
||||||
|
ElseIf dealer.total < dealer.limit Then
|
||||||
|
DealCard(dealer, isDealer:=True)
|
||||||
|
DealerTurn()
|
||||||
|
Else
|
||||||
|
dealer.winType = WinCondition.NormalWin
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
CheckGame()
|
||||||
|
End Sub
|
||||||
|
Sub Hit()
|
||||||
|
If player.hand.Count < 5 And player.ingame Then
|
||||||
|
DealCard(player)
|
||||||
|
CheckPlayer(player)
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
Sub Stand()
|
||||||
|
If player.ingame Then
|
||||||
|
player.ingame = False
|
||||||
|
DealerTurn()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
Sub CheckGame()
|
||||||
|
Dim winMessage As String = GetResults()
|
||||||
|
RaiseEvent EndGame(winMessage)
|
||||||
|
End Sub
|
||||||
|
Function GetResults()
|
||||||
|
If dealer.winType = WinCondition.Blackjack Then
|
||||||
|
If player.winType = WinCondition.Blackjack Then
|
||||||
|
Return "Player ties with Blackjack!"
|
||||||
|
Else
|
||||||
|
Return "Dealer wins with Blackjack!"
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
If player.winType = WinCondition.Blackjack Then
|
||||||
|
Return "Player wins with Blackjack!"
|
||||||
|
End If
|
||||||
|
If player.winType = WinCondition.FiveCard Then
|
||||||
|
Return "Player wins with Five Card Charlie!"
|
||||||
|
End If
|
||||||
|
If player.winType = WinCondition.Bust Then
|
||||||
|
Return "Player busts!"
|
||||||
|
End If
|
||||||
|
If dealer.winType = WinCondition.Bust Then
|
||||||
|
Return "Dealer busts!"
|
||||||
|
End If
|
||||||
|
If player.total > dealer.total Then
|
||||||
|
Return "Player wins with total of " + player.total.ToString() + "!"
|
||||||
|
End If
|
||||||
|
If player.total = dealer.total Then
|
||||||
|
Return "Tie!"
|
||||||
|
End If
|
||||||
|
If player.total < dealer.total Then
|
||||||
|
Return "Dealer wins with total of " + dealer.total.ToString() + "!"
|
||||||
|
End If
|
||||||
|
Return "error"
|
||||||
|
End Function
|
||||||
|
Function CreateDeck()
|
||||||
|
deck.Clear()
|
||||||
|
Dim nums As String() = {"A", "2", "3", "4", "5", "6", "7", "8", "9", "10", "J", "Q", "K"}
|
||||||
|
Dim suits As String() = {"Hearts", "Diamonds", "Spades", "Clubs"}
|
||||||
|
For Each s As String In suits
|
||||||
|
For Each n As String In nums
|
||||||
|
deck.Add(n + " of " + s)
|
||||||
|
Next
|
||||||
|
Next
|
||||||
|
Return Utilities.Shuffle(deck)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
End Class
|
||||||
|
|
||||||
|
Public Enum WinCondition
|
||||||
|
Bust
|
||||||
|
NormalWin
|
||||||
|
FiveCard
|
||||||
|
Blackjack
|
||||||
|
End Enum
|
||||||
|
|
@ -0,0 +1,28 @@
|
||||||
|
Public Class Player
|
||||||
|
Private _winCondition As WinCondition
|
||||||
|
Public Property hand As New List(Of String)
|
||||||
|
Public Property total As Integer
|
||||||
|
Public Property ingame As Boolean
|
||||||
|
Public Property winType
|
||||||
|
Get
|
||||||
|
Return _winCondition
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
_winCondition = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Sub Start()
|
||||||
|
hand.Clear()
|
||||||
|
total = 0
|
||||||
|
ingame = True
|
||||||
|
winType = WinCondition.NormalWin
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
|
Public Class Dealer
|
||||||
|
Inherits Player
|
||||||
|
|
||||||
|
Public Property limit As Integer = 17
|
||||||
|
Public Property hidden As String
|
||||||
|
End Class
|
||||||
Loading…
Reference in New Issue