これには本当に苦労しました。私は 2 スタックのカードを持っています.. ユーザー対コンピュータ。カードが配られ、適切に表示され、問題なく機能します。問題は、2 つのスタックのカードを実際に比較するにはどうすればよいかということです。したがって、ユーザーが「9」と言い、コンピューターが「8」を取得すると、ユーザーはポイントを獲得します。「AceofClubs.png」などの名前で読み込まれた 52 の画像があります。では、それぞれの画像に比較する値を与えるにはどうすればよいでしょうか? ありがとう!
Public Enum Suit
Diamonds
Spades
Clubs
Hearts
終了列挙
Public Enum FaceValue Two = 2 Three = 3 Four = 4 Five = 5 Six = 6 Seven = 7 Eight = 8 Nine = 9 Ten = 10 Jack = 11 Queen = 12 King = 13 Ace = 14 End Enum
Public Class Card Private ReadOnly faceVal As FaceValue Private isCardUp As Boolean Private ReadOnly suit As Suit
Public ReadOnly Property FaceVal As FaceValue
Get
Return Me.faceVal
End Get
End Property
Public Property IsCardUp As Boolean
Get
Return Me.isCardUp
End Get
Set(ByVal value As Boolean)
Me.isCardUp = value
End Set
End Property
Public ReadOnly Property Suit As Suit
Get
Return Me.suit
End Get
End Property
Public Sub New(ByVal suit As Suit, ByVal faceVal As FaceValue, ByVal isCardUp As Boolean)
MyBase.New()
Me.suit = suit
Me.faceVal = faceVal
Me.isCardUp = isCardUp
End Sub
Public Overrides Function ToString() As String
Return String.Concat("The", Me.faceVal.ToString(), "of", Me.suit.ToString())
End Function
クラス終了