用VisualBasic.NET编写扑克牌游戏(1)

Private width As Integer = 0
Private height As Integer = 0
Declare Function cdtInit Lib "cards.dll" (ByRef width As Integer, _
ByRef height As Integer) As Boolean 

Declare Function cdtDrawExt Lib "cards.dll" (ByVal hdc As IntPtr, _
ByVal x As Integer, ByVal y As Integer, ByVal dx As Integer, _
ByVal dy As Integer, ByVal card As Integer, _
ByVal mode As Integer, ByVal color As Long) As Boolean 

Declare Sub cdtTerm Lib "cards.dll" () 

Structure card
Public face As Integer
Public suit As Integer
Public count As Integer
Public faceup As Boolean
End Structure 

dim Deck() As card
Deck = New card(51) {}
Dim TopCard As Integer
Private Sub GetDeck()
　Dim i, j As Integer
　For i = 0 To 3
For j = 0 To 12
　Deck(j + 13 * i).face = j
　Deck(j + 13 * i).suit = i
　If j < 10 Then
Deck(j + 13 * i).count = j + 1
　Else
Deck(j + 13 * i).count = 10
　End If
　Deck(j + 13 * i).faceup = False
Next
　Next
End Sub
Private Sub Shuffle()
　Dim i, j, k As Integer
　Dim tc As card
　For k = 1 To 500
i = CType(My.Computer.Clock.TickCount * Rnd(), Integer) Mod 52
j = CType(Int(Rnd() * 52), Integer)
tc = Deck(i)
Deck(i) = Deck(j)
Deck(j) = tc
　Next
　topcard = 0
End Sub