zana
/
BlackjackGUI
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix

master
CrystalMoogle 2023-07-21 18:20:29 +01:00
parent a368d0af41
commit 9581591605
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
BlackjackGUI/Game.vb
View File

@ -34,7 +34,7 @@
Sub DealCard(playerDealt As Object, Optional hide As Boolean = False) Sub DealCard(playerDealt As Object, Optional hide As Boolean = False)
Dim card As Tuple(Of String, String) = deck(0) Dim card As Tuple(Of String, String) = deck(0)
Dim playingCard = New Card(card, hide) Dim playingCard = New Card(card, hide)
playerDealt.hand.Add(card) playerDealt.hand.Add(playingCard)
deck.RemoveAt(0) deck.RemoveAt(0)
GetTotal(playerDealt, hide) GetTotal(playerDealt, hide)
If hide Then If hide Then
@ -43,7 +43,7 @@
Dim cardNumber As String = Dim cardNumber As String =
If(TypeOf playerDealt Is Dealer, (playerDealt.hand.Count + 5).ToString(), playerDealt.hand.Count) If(TypeOf playerDealt Is Dealer, (playerDealt.hand.Count + 5).ToString(), playerDealt.hand.Count)
RaiseEvent CardDealt(card, cardNumber, hide) RaiseEvent CardDealt(playingCard, cardNumber, hide)
RaiseEvent SetTotalLabels(player.total, dealer.total) RaiseEvent SetTotalLabels(player.total, dealer.total)
End Sub End Sub