Computer Programming Concepts and Visual Basic David I. Schneider

Next i
End Sub
Public Function ReadCard(cardNum As Integer) As String
ReadCard = m_deck(cardNum).IdentifyCard
End Function
Private Sub Swap(ByVal i As Integer, ByVal j As Integer)
‘Swap the ith and jth card in the deck
Dim TempCard As New CCard
TempCard.Denomination = m_deck(i).Denomination
TempCard.Suit = m_deck(i).Suit
m_deck(i).Denomination =
m_deck(j).Denomination
m_deck(i).Suit = m_deck(j).Suit
m_deck(j).Denomination = TempCard.Denomination
m_deck(j).Suit = TempCard.Suit
End Sub
Public Sub ShuffleDeck()
‘Do 200 passes through the deck. On each pass
‘swap each card with a randomly selected card.
Dim index As Integer, i As Integer, k As Integer
Randomize ‘Initialize random number generator
For i = 1 To 200
For k = 1 To 52
index = Int((52 * Rnd) + 1)
Call Swap(k, index)
Next k
RaiseEvent Shuffling(i, 200)
Next i
End Sub
‘Form Code
Public WithEvents cards As CDeckOfCards
Private Sub Form_Load()
Set cards = New CDeckOfCards
End Sub
Private Sub cmdShuffle_Click()
Call cards.ShuffleDeck
End Sub
Private Sub cmdDeal_Click()
Dim str As String
Dim i As Integer
picHand.Cls
For i = 1 To 5
str = cards.ReadCard(i)
picHand.Print str
Next i
End Sub
Class Relationships 379