home *** CD-ROM | disk | FTP | other *** search
/ An Introduction to Progr…l Basic 6.0 (4th Edition) / An Introduction to Programming using Visual Basic 6.0.iso / PROGRAMS / CH13 / 13-3-2C.CLS < prev    next >
Encoding:
Visual Basic class definition  |  1998-09-18  |  991 b   |  46 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "CCard"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10. Private m_Denomination As String
  11. Private m_Suit As String
  12.  
  13. Public Property Get Suit() As String
  14.   Suit = m_Suit
  15. End Property
  16.  
  17. Public Property Let Suit(ByVal vSuit As String)
  18.   m_Suit = vSuit
  19. End Property
  20.  
  21. Public Property Get Denomination() As String
  22.   Denomination = m_Denomination
  23. End Property
  24.  
  25. Public Property Let Denomination(ByVal vDenom As String)
  26.   m_Denomination = vDenom
  27. End Property
  28.  
  29. Public Function IdentifyCard() As String
  30.   Dim Denom As String
  31.   Select Case Val(m_Denomination)
  32.     Case 1
  33.       Denom = "Ace"
  34.     Case Is <= 10
  35.       Denom = m_Denomination
  36.     Case 11
  37.       Denom = "Jack"
  38.     Case 12
  39.       Denom = "Queen"
  40.     Case 13
  41.       Denom = "King"
  42.   End Select
  43.   IdentifyCard = Denom & " of " & m_Suit
  44. End Function
  45.  
  46.