Visual Basic.NET How to Program (PDF)

1060 ASP .NET and Web Services Chapter 21
110 ' if dealer and player have not exceeded 21,
111 ' higher score wins; equal scores is a push
112 If dealersTotal > playersTotal Then
113 GameOver(GameStatus.LOSE)
114 ElseIf playersTotal > dealersTotal Then
115 GameOver(GameStatus.WIN)
116 Else
117 GameOver(GameStatus.PUSH)
118 End If
119
120 End Sub 'DealerPlay
121
122 ' deal another card to player
123 Private Sub cmdHit_Click(ByVal sender As System.Object, _
124 ByVal e As System.EventArgs) Handles cmdHit.Click
125
126 ' get player another card
127 Dim card As String = dealer.DealCard()
128 playersCards &= vbTab & card
129 DisplayCard(playerCard, card)
130 playerCard += 1
131
132 Dim total As Integer = _
133 dealer.CountCards(playersCards)
134
135 ' if player exceeds 21, house wins
136 If total > 21 Then
137 GameOver(GameStatus.LOSE)
138
139 ' if player has 21, they cannot take more cards
140 ' the dealer plays
141 If total = 21 Then
142 cmdHit.Enabled = False
143 DealerPlay()
144 End If
145 End If
146
147 End Sub ' cmdHit_Click
148
149 ' deal two cards each to dealer and player
150 Private Sub cmdDeal_Click(ByVal sender As System.Object, _
151 ByVal e As System.EventArgs) Handles cmdDeal.Click
152
153 Dim card As String
154 Dim cardImage As PictureBox
155
156 ' clear card images
157 For Each cardImage In cardBoxes
158 cardImage.Image = Nothing
159 Next
160
161 pbStatus.Image = Nothing
162
Fig. 21.15 Blackjack game that uses the Blackjack Web service (part 4 of 9).