Логическая ошибка в игре в блэкджек

Question

Я работал над проектом блэкджека для школы и столкнулся с досадной логической ошибкой, которую я не могу отследить. Счет игроков не складывается правильно, когда участвует туз. Я кодировал его так, что туз должен измениться со значения 11 на 1, когда игрок берет карту, а его счет больше 21. Какой совет? Любой способ улучшить мою кодировку в целом был бы также хорош. Благодарю.

Private Sub ButtonDraw_Click(sender As Object, e As EventArgs) Handles 
ButtonDraw.Click

    counter = counter + 1
    Dim bust As Integer = 21


    ' holds the numeric value for the players cards
    Dim card1 As Integer
    Dim card2 As Integer
    Dim card3 As Integer
    Dim card4 As Integer
    Dim card5 As Integer


    If counter = 1 Then

        'generates a value between 1 and 14 for the card
        card1 = random.Next(2, 15)

        'after getting card value this if statement determines if it is a 
face card and outputs the appropriate face value
        If card1 = 11 Then
            card1 = 10
            LabelCard1.Text = "J"
        ElseIf card1 = 12 Then
            card1 = 10
            LabelCard1.Text = "Q"
        ElseIf card1 = 13 Then
            card1 = 10
            LabelCard1.Text = "K"
        ElseIf card1 = 1 Then
            LabelCard1.Text = "A"
        ElseIf card1 = 14 Then
            card1 = 11
            LabelCard1.Text = "A"
        Else
            LabelCard1.Text = card1
        End If

        'displays the players card
        LabelCard1.Visible = True

        playerScore = playerScore + card1

        'automatically moves to card 2 since you draw 2 cards each game
        counter = counter + 1

    End If

    If counter = 2 Then

        card2 = random.Next(2, 15)

        If card2 = 11 Then
            card2 = 10
            LabelCard2.Text = "J"
        ElseIf card2 = 12 Then
            card2 = 10
            LabelCard2.Text = "Q"
        ElseIf card2 = 13 Then
            card2 = 10
            LabelCard2.Text = "K"
        ElseIf card2 = 1 Then
            LabelCard2.Text = "A"
        ElseIf card2 = 14 Then
            card2 = 11
            LabelCard2.Text = "A"
        Else
            LabelCard2.Text = card2
        End If


        'totals the player score
        playerScore = playerScore + card2

        'enables stay button
        ButtonStay.Enabled = True

        'displays player score in green text for 21, red for bust, and black 
for under
        If playerScore = 21 Then
            LabelPlayerScore.ForeColor = Color.Green
        ElseIf playerScore > 21 Then
            LabelPlayerScore.ForeColor = Color.Red
        Else
            LabelPlayerScore.ForeColor = Color.Black
        End If

        'updates the player score
        LabelPlayerScore.Text = playerScore

        'displays the players card
        LabelCard2.Visible = True



    End If

    If counter = 3 Then

        card3 = random.Next(2, 15)

        If card3 = 11 Then
            card3 = 10
            LabelCard3.Text = "J"
        ElseIf card3 = 12 Then
            card3 = 10
            LabelCard3.Text = "Q"
        ElseIf card3 = 13 Then
            card3 = 10
            LabelCard3.Text = "K"
        ElseIf card3 = 1 Then
            LabelCard3.Text = "A"
        ElseIf card3 = 14 Then
            card3 = 11
            LabelCard3.Text = "A"
        Else
            LabelCard3.Text = card3
        End If

        playerScore = playerScore + card3

        'changes the ace from an 11 to a 1 value if score exceeds 21
        If playerScore > bust Then
            If card1 = 11 Then
                card1 = 1
                playerScore = card1 + card2 + card3
            End If
            If card2 = 11 Then
                card2 = 1
                playerScore = card1 + card2 + card3
            End If
            If card3 = 11 Then
                card3 = 1
                playerScore = card1 + card2 + card3
            End If
        End If



        'changes the color of the players score if 21 or bust
        If playerScore = 21 Then
            LabelPlayerScore.ForeColor = Color.Green
        ElseIf playerScore > 21 Then
            LabelPlayerScore.ForeColor = Color.Red
        ElseIf playerScore < 21 Then
            LabelPlayerScore.ForeColor = Color.Black
        End If

        LabelPlayerScore.Text = playerScore

        LabelCard3.Visible = True

        'if player goes over 21 automatically updates loss counter and 
disables stay button. displays bust msg
        If playerScore > 21 Then
            losses += 1
            LabelLoseCounter.Text = losses
            ButtonStay.Enabled = False
            ButtonDraw.Enabled = False
            ButtonPlayAgain.Enabled = True
            Dim response = MessageBox.Show("You bust!", "Bust", 
MessageBoxButtons.RetryCancel, MessageBoxIcon.Exclamation)
            If response = 4 Then
                ButtonPlayAgain.PerformClick()
            End If
        End If

    End If

    If counter = 4 Then

        card4 = random.Next(2, 15)

        If card4 = 11 Then
            card4 = 10
            LabelCard4.Text = "J"
        ElseIf card4 = 12 Then
            card4 = 10
            LabelCard4.Text = "Q"
        ElseIf card4 = 13 Then
            card4 = 10
            LabelCard4.Text = "K"
        ElseIf card4 = 1 Then
            LabelCard4.Text = "A"
        ElseIf card4 = 14 Then
            card4 = 11
            LabelCard4.Text = "A"
        Else
            LabelCard4.Text = card4
        End If

        playerScore = playerScore + card4

        'changes the ace from an 11 to a 1 value if score exceeds 21
        If playerScore > bust Then
            If card1 = 11 Then
                card1 = 1
                playerScore = card1 + card2 + card3 + card4
            End If
            If card2 = 11 Then
                card2 = 1
                playerScore = card1 + card2 + card3 + card4
            End If
            If card3 = 11 Then
                card3 = 1
                playerScore = card1 + card2 + card3 + card4
            End If
            If card4 = 11 Then
                card4 = 1
                playerScore = card1 + card2 + card3 + card4
            End If
        End If



        'changes the color of the players score if 21 or bust
        If playerScore = 21 Then
            LabelPlayerScore.ForeColor = Color.Green
        ElseIf playerScore > 21 Then
            LabelPlayerScore.ForeColor = Color.Red
        ElseIf playerScore < 21 Then
            LabelPlayerScore.ForeColor = Color.Black
        End If


        LabelPlayerScore.Text = playerScore

        LabelCard4.Visible = True


        'if player goes over 21 automatically updates loss counter and 
disables stay button
        If playerScore > bust Then
            losses += 1
            LabelLoseCounter.Text = losses
            ButtonStay.Enabled = False
            ButtonDraw.Enabled = False
            ButtonPlayAgain.Enabled = True
            Dim response = MessageBox.Show("You bust!", "Bust", 
MessageBoxButtons.RetryCancel, MessageBoxIcon.Exclamation)
            If response = 4 Then
                ButtonPlayAgain.PerformClick()
            End If
        End If

    End If

    If counter = 5 Then

        card5 = random.Next(2, 15)

        If card5 = 11 Then
            card5 = 10
            LabelCard5.Text = "J"
        ElseIf card5 = 12 Then
            card5 = 10
            LabelCard5.Text = "Q"
        ElseIf card5 = 13 Then
            card5 = 10
            LabelCard5.Text = "K"
        ElseIf card5 = 1 Then
            LabelCard5.Text = "A"
        ElseIf card5 = 14 Then
            card5 = 11
            LabelCard5.Text = "A"
        Else
            LabelCard5.Text = card5
        End If

        playerScore = playerScore + card5


        'changes the ace from an 11 to a 1 value if score exceeds 21
        If playerScore > bust Then
            If card1 = 11 Then
                card1 = 1
                playerScore = card1 + card2 + card3 + card4 + card5
            End If
            If card2 = 11 Then
                card2 = 1
                playerScore = card1 + card2 + card3 + card4 + card5
            End If
            If card3 = 11 Then
                card3 = 1
                playerScore = card1 + card2 + card3 + card4 + card5
            End If
            If card4 = 11 Then
                card4 = 1
                playerScore = card1 + card2 + card3 + card4 + card5
            End If
            If card5 = 11 Then
                card5 = 1
                playerScore = card1 + card2 + card3 + card4 + card5
            End If
        End If


        'changes the color of the players score if 21 or bust
        If playerScore = 21 Then
            LabelPlayerScore.ForeColor = Color.Green
        ElseIf playerScore > 21 Then
            LabelPlayerScore.ForeColor = Color.Red
        Else
            LabelPlayerScore.ForeColor = Color.Black
        End If

        LabelPlayerScore.Text = playerScore

        LabelCard5.Visible = True

        'if player goes over 21 automatically updates loss counter and 
disables stay button
        If playerScore > 21 Then
            losses += 1
            LabelLoseCounter.Text = losses
            ButtonStay.Enabled = False
            ButtonDraw.Enabled = False
            ButtonPlayAgain.Enabled = True
            Dim response = MessageBox.Show("You bust!", "Bust", 
MessageBoxButtons.RetryCancel, MessageBoxIcon.Exclamation)
            If response = 4 Then
                ButtonPlayAgain.PerformClick()
            End If
        Else
            wins += 1
            LabelLoseCounter.Text = wins
            ButtonStay.Enabled = False
            ButtonDraw.Enabled = False
            ButtonPlayAgain.Enabled = True
            Dim response = MessageBox.Show("Winner, Winner, Chicken 
Dinner!!", "Winner!", MessageBoxButtons.RetryCancel, 
MessageBoxIcon.Exclamation)
            If response = 4 Then
                ButtonPlayAgain.PerformClick()
            End If
        End If

    End If
End Sub

Answer 1

У вас нет playerScore > bust проверить когда counter = 2

Чтобы соответствовать вашему стилю кодирования, вам нужно добавить примерно такой код в строке 80:

   If playerScore > bust Then
        If card1 = 11 Then
            card1 = 1
            playerScore = card1 + card2
        End If
        If card2 = 11 Then
            card2 = 1
            playerScore = card1 + card2
        End If
    End If

Это, вероятно, то, что вы пропустили по сравнению с вашим намерением.

Это может не получить вещи, как вы хотели бы, хотя. Если оценка является банкротом, не все тузы нужно конвертировать в 1, учли ли вы это в логике программы?

Думая шире, здесь написано много повторяющегося кода.

Делая шаг за шагом, первое, на что нужно обратить внимание, это сохранить карты в массиве или списке, а затем использовать For или же For Each выполнять задачи для каждого, а не вводить тот же код снова.

Следующим шагом после этого будет использование функций или вспомогательных [подпрограмм] для сбора общего кода, так что вам нужно будет написать его только один раз, но вызывать его несколько раз, чтобы получить необходимую логику.

Удачи вам в изучении кода:-)