document.write('
');
document.write('Public Class card
');
document.write('
');
document.write(' \'Cory Jackson
');
document.write(' \'while not all properties are used, they provide a use for other games
');
document.write(' \'i have taken into consideration all properties of a card i could think of
');
document.write('
');
document.write(' \'stores if red then true
');
document.write(' Dim m_red As Boolean
');
document.write(' Public ReadOnly Property red()
');
document.write(' Get
');
document.write(' Return m_red
');
document.write(' End Get
');
document.write(' End Property
');
document.write(' \'holds string for picture file name
');
document.write(' Dim m_picture As String
');
document.write(' Public ReadOnly Property picture()
');
document.write(' Get
');
document.write(' Return m_picture
');
document.write(' End Get
');
document.write(' End Property
');
document.write(' \'suit holds string value of suit
');
document.write(' Dim m_suit As String
');
document.write(' Public ReadOnly Property suit()
');
document.write(' Get
');
document.write(' Return m_suit
');
document.write(' End Get
');
document.write(' End Property
');
document.write(' \'number holds card value of card
');
document.write(' Dim m_cardvalue As Integer
');
document.write(' Public ReadOnly Property cardvalue()
');
document.write(' Get
');
document.write(' Return m_cardvalue
');
document.write(' End Get
');
document.write(' End Property
');
document.write(' Dim m_cardname As String
');
document.write(' Public ReadOnly Property cardname()
');
document.write(' Get
');
document.write(' Return m_cardname
');
document.write(' End Get
');
document.write(' End Property
');
document.write(' \'returns the string value of card
');
document.write(' Dim m_facecard As Boolean
');
document.write(' Public ReadOnly Property facecard()
');
document.write(' Get
');
document.write(' Return m_facecard
');
document.write(' End Get
');
document.write(' End Property
');
document.write(' \'creates a card, gets card number and suit from deckofcards class
');
document.write(' Public Sub New(ByVal fromdecknumber As Integer, ByVal fromdecksuit As String)
');
document.write(' Dim suits() As String = {"hearts", "diamonds", "clubs", "spades"}
');
document.write('
');
document.write(' m_cardvalue = fromdecknumber
');
document.write(' m_suit = suits(fromdecksuit)
');
document.write('
');
document.write(' If (m_suit = "diamonds") Or (m_suit = "hearts") Then
');
document.write(' m_red = True
');
document.write(' End If
');
document.write('
');
document.write(' If ((fromdecknumber = 1) Or (fromdecknumber = 11) Or (fromdecknumber = 12) Or (fromdecknumber = 13)) Then
');
document.write(' m_facecard = True
');
document.write(' End If
');
document.write('
');
document.write(' Select Case fromdecknumber
');
document.write(' Case 1
');
document.write(' m_cardname = "Ace of " & m_suit
');
document.write(' m_cardvalue = 1
');
document.write(' m_picture = m_suit & "_ace.png"
');
document.write(' Case Is <= 10
');
document.write(' m_cardname = fromdecknumber & " of " & m_suit
');
document.write(' m_cardvalue = fromdecknumber
');
document.write(' m_picture = m_suit & "_" & fromdecknumber & ".png"
');
document.write(' Case 11
');
document.write(' m_cardname = "Jack of " & m_suit
');
document.write(' m_cardvalue = 10
');
document.write(' m_picture = m_suit & "_jack.png"
');
document.write(' Case 12
');
document.write(' m_cardname = "Queen of " & m_suit
');
document.write(' m_cardvalue = 10
');
document.write(' m_picture = m_suit & "_queen.png"
');
document.write(' Case 13
');
document.write(' m_cardname = "King of " & m_suit
');
document.write(' m_cardvalue = 10
');
document.write(' m_picture = m_suit & "_king.png"
');
document.write(' End Select
');
document.write(' End Sub
');
document.write('End Class
');
document.write('
');
document.write('Public Class deckofcards
');
document.write('
');
document.write(' \'Cory Jackson
');
document.write('
');
document.write(' \'sets an array of 52 cards
');
document.write(' Public m_deck(52) As card
');
document.write(' \'constructor makes 52 cards, or 1 complete deck of cards
');
document.write(' \'passes the card number and suit to the card class and fills the array
');
document.write(' Public Sub New()
');
document.write(' Dim temp1, temp2 As Integer
');
document.write(' Dim suits() As String = {"Hearts", "Diamonds", "Clubs", "Spades"}
');
document.write(' For temp1 = 0 To 3
');
document.write(' For temp2 = 1 To 13
');
document.write(' m_deck(temp1 * 13 + temp2) = New card(temp2, temp1)
');
document.write(' Next
');
document.write(' Next
');
document.write(' End Sub
');
document.write(' \'swaps card and temp card
');
document.write(' Private Sub swap(ByVal shuffletemp1 As Integer, ByVal shuffletemp2 As Integer)
');
document.write(' Dim tempcard As card
');
document.write(' tempcard = m_deck(shuffletemp1)
');
document.write(' m_deck(shuffletemp1) = m_deck(shuffletemp2)
');
document.write(' m_deck(shuffletemp2) = tempcard
');
document.write(' End Sub
');
document.write(' \'shuffles cards randomly
');
document.write(' Public Sub shuffledeck()
');
document.write(' Dim index, shuffletemp1, shuffletemp2 As Integer
');
document.write(' Dim randomnum As New Random
');
document.write(' For shuffletemp1 = 1 To 2000
');
document.write(' For shuffletemp2 = 1 To 52
');
document.write(' index = randomnum.Next(1, 53)
');
document.write(' swap(shuffletemp2, index)
');
document.write(' Next
');
document.write(' Next
');
document.write(' End Sub
');
document.write('End Class
');
document.write('
');
document.write('');
document.write('I have used this set in a few different projects and I have not had any problems. Leave a comment if you have any ideas for improvement. ');
document.write('
');