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

Disable buttons when player turn ended

master
CrystalMoogle 2023-07-16 17:34:38 +01:00
parent de4dda9b25
commit 20f702b537
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
BlackjackGUI/GameWindow.vb
View File

@ -54,6 +54,11 @@
PlayerCard7.Image = Utilities.GetCardImage(card) PlayerCard7.Image = Utilities.GetCardImage(card)
End Sub End Sub
Private Sub EndPlayerTurn() Handles game.EndPlayerTurn
HitButton.Enabled = False
StandButton.Enabled = False
End Sub
Private Sub EndGame(message) Handles game.EndGame Private Sub EndGame(message) Handles game.EndGame
WinMessage.Text = message WinMessage.Text = message
HitButton.Enabled = False HitButton.Enabled = False

2
BlackjackGUI/game.vb
View File

@ -3,6 +3,7 @@
Public Event CardDealt(card, cardNumber, hide) Public Event CardDealt(card, cardNumber, hide)
Public Event SetTotalLabels(playerTotal, dealerTotal) Public Event SetTotalLabels(playerTotal, dealerTotal)
Public Event ShowDealerCard(card) Public Event ShowDealerCard(card)
Public Event EndPlayerTurn()
Public Event EndGame(winMessage) Public Event EndGame(winMessage)
Private player As Player Private player As Player
@ -107,6 +108,7 @@
Sub DealerTurn() Sub DealerTurn()
GetTotal(dealer) GetTotal(dealer)
RaiseEvent EndPlayerTurn()
RaiseEvent SetTotalLabels(player.total, dealer.total) RaiseEvent SetTotalLabels(player.total, dealer.total)
RaiseEvent ShowDealerCard(dealer.hidden) RaiseEvent ShowDealerCard(dealer.hidden)
If player.winType = WinCondition.Bust Then If player.winType = WinCondition.Bust Then