• Home
 · 
• Miscellaneous
 · 
• game of 21

game of 21

game of 21

Rate game of 21

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Const strPlayer As String = "Player"
Private Const strComputer As String = "Computer"
Private Const strDraw As String = "Draw"

Private Sub cmdDone_Click()
    Unload Me
End Sub

Private Sub cmdPlayGame_Click()
    Static intPlayerScore As Integer, intCompScore As Integer, intDrawsScore As Integer
    Dim intPlayerTotal As Integer, intCompTotal As Integer
    
    'Deal 3 cards to Player
    Call DealCard(imgPlayerCard1, intPlayerTotal)
    Call DealCard(imgPlayerCard2, intPlayerTotal)
    Call DealCard(imgPlayerCard3, intPlayerTotal)
    
    'Deal 3 cards to Computer
    Call DealCard(imgCompCard1, intCompTotal)
    Call DealCard(imgCompCard2, intCompTotal)
    Call DealCard(imgCompCard3, intCompTotal)
    
    If Winner(intPlayerTotal, intCompTotal) = strPlayer Then
        lblWinner.Caption = "You won!"
        Call UpdateScore(intPlayerScore)
        Call ShowScore(lblScore, intPlayerScore, intCompScore, intDrawsScore)
    ElseIf Winner(intPlayerTotal, intCompTotal) = strComputer Then
        lblWinner.Caption = "Computer won"
        Call UpdateScore(intPlayerScore)
        Call ShowScore(lblScore, intPlayerScore, intCompScore, intDrawsScore)
    Else
        lblWinner.Caption = "It's a draw!"
        Call UpdateScore(intDrawsScore)
        Call ShowScore(lblScore, intPlayerScore, intCompScore, intDrawsScore)
    End If
End Sub

Sub DealCard(ByRef imgCard As Image, ByRef intPlayerTotal As Integer)
    Dim intCardNum As Integer
    
    intCardNum = Int(10 * Rnd + 1)
    If intCardNum = 1 Then
        imgCard.Picture = LoadPicture("Card1.wmf")
    ElseIf intCardNum = 2 Then
        imgCard.Picture = LoadPicture("Card2.wmf")
    ElseIf intCardNum = 3 Then
        imgCard.Picture = LoadPicture("Card3.wmf")
    ElseIf intCardNum = 4 Then
        imgCard.Picture = LoadPicture("Card4.wmf")
    ElseIf intCardNum = 5 Then
        imgCard.Picture = LoadPicture("Card5.wmf")
    ElseIf intCardNum = 6 Then
        imgCard.Picture = LoadPicture("Card6.wmf")
    ElseIf intCardNum = 7 Then
        imgCard.Picture = LoadPicture("Card7.wmf")
    ElseIf intCardNum = 8 Then
        imgCard.Picture = LoadPicture("Card7.wmf")
    ElseIf intCardNum = 9 Then
        imgCard.Picture = LoadPicture("Card9.wmf")
    ElseIf intCardNum = 10 Then
        imgCard.Picture = LoadPicture("Card10.wmf")
    End If
    intPlayerTotal = intPlayerTotal + intCardNum
End Sub

Function Winner(ByVal intPlayerTotal As Integer, ByVal intCompTotal As Integer) As String
    Const intLimit As Integer = 21
    
    If (intPlayerTotal = intCompTotal) Or _
       (intPlayerTotal > intLimit And intCompTotal > intLimit) Then
       Winner = strDraw
    ElseIf (intCompTotal > intLimit) Or _
       (intPlayerTotal > intLimit And intCompTotal > intLimit) Then
       Winner = strPlayer
    Else
      Winner = strComputer
    End If
End Function

Sub UpdateScore(ByRef intWinner As Integer)
    Const intWinPoints As Integer = 1
    
    intWinner = intWinner + intWinPoints
End Sub

Sub ShowScore(ByRef lblLabel As Label, ByVal intPlayerScore As Integer, _
ByVal intCompScore As Integer, ByVal intDrawsScore As Integer)
    lblScore.Caption = "You: " & intPlayerScore & vbCrLf _
        & "Computer: " & intCompScore & vbCrLf _
        & "Draws: " & intDrawsScore
End Sub
Private Sub Form_Load()
    Randomize
End Sub