扑克游戏编程

Cards.dll支持Windows自带的游戏，如Solitaire（纸牌游戏）。如果我们知道如何使用Cards.dll中的API函数，那么，我们就能像Windows自带的游戏一样绘制扑克牌面。我们需要使用其中三个基本函数：cdtInit， cdtDrawExt，和 cdtTerm。并且需要两个变量：width和height用于初始化函数cdtInit进行初始化。下面给出这些接口函数的声明及参数说明。

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

　　参数说明：width，height返回牌默认宽和高，单位为pixels。

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

　　参数说明：hdc(handle to a device context)句柄；

　　x，y指定牌左上角坐标位；
　　dx，dy指定牌宽和高；
　　card需要绘制的牌，0-51[A（草花、方块、红桃、黑桃），2，…，K]；53-65牌背面；
　　mode 指定绘制方式，牌面向上为0，牌面向下为1；
　　color 指定背景色。
　
Declare Sub cdtTerm Lib "cards.dll" ()

　　无参数。

　　我们需要在游戏开始时调用cdtInit对cards.dll进行初始化，这样我们才能使用cards.dll中的cdtDrawEx等函数；每绘制一张牌，我们都要调一次cdtDrawExt函数；当我们结束游戏时，调用一次cdtTerm以结束cards.dll的使用。
二、 游戏规则的算法实现

　　二十一点游戏是玩家要取得比庄家更大的点数总和，但点数超过二十一点即为爆牌，并输掉注码。J、Q、K算10点，A可算1点或11点，其余按牌面值计点数。“BlackJack”是由一张A和J、Q、K或10所组成。开始时每人发两张牌，一张明，一张暗，凡点数不足二十一点，可选择博牌。如果首两张牌是对子可选择分牌。

　　为简化起见，程序中只有两个玩家Dealer和Player，都发