Visual Basic.NET How to Program (PDF)

664 Strings, Characters and Regular Expressions Chapter 15
8 Public Sub New(ByVal faceValue As String, _
9 ByVal suitValue As String)
10
11 face = faceValue
12 suit = suitValue
13 End Sub ' New
14
15 Public Overrides Function ToString() As String
16 Return face & " of " & suit
17 End Function ' ToString
18
19 End Class ' CCard
Fig. 15.17 CCard class (part 2 of 2).
1 ' Fig. 15.18: DeckOfCards.vb
2 ' Simulating card dealing and shuffling.
3
4 Public Class FrmDeck
5 Inherits Form
6
7 Friend WithEvents lblDisplay As Label ' displays dealt card
8 Friend WithEvents lblStatus As Label ' number of cards dealt
9
10 Friend WithEvents cmdDeal As Button ' deal one card
11 Friend WithEvents cmdShuffle As Button ' shuffle cards
12
13 ' Visual Studio .NET generated code
14
15 Private currentCard As Integer
16 Private randomObject As Random = New Random()
17 Private deck As CCard() = New CCard(51) {}
18
19 ' handles form at load time
20 Public Sub FrmDeck_Load(ByVal sender As System.Object, _
21 ByVal e As System.EventArgs) Handles MyBase.Load
22
23 Dim faces As String() = {"Ace", "Deuce", "Three", _
24 "Four", "Five", "Six", "Seven", "Eight", "Nine", _
25 "Ten", "Jack", "Queen", "King"}
26
27 Dim suits As String() = {"Hearts", "Diamonds", "Clubs", _
28 "Spades"}
29
30 Dim i As Integer
31
32 ' no cards have been drawn
33 currentCard = -1
34
Fig. 15.18 Card dealing and shuffling simulation (part 1 of 4).