本文发表在《微型机与应用》杂志2001年第3期。
基于VB中WINSOCK控件的网上象棋系统的实现
马根峰1 , 孙艳2 , 王平1
(1.重庆邮电学院自动化学院,重庆,400065；2. 铁道部第十九工程局四处，内蒙 通辽，028000 )
摘要 本文首先介绍了Visual Basic中的WINSOCK控件的使用方法，然后深入探讨了网上象棋系统的设计思想及其实现过程。
关键词 WINSOCK控件；TCP；UDP
中图分类号： 文献标识码：
1 引言
MicrosoftVisual Basic 是可视化的、面向对象的、采用事件驱动方式的结构化的高级程序设计语言。它提供了开发Microsoft Windows(R)应用程序的迅速、最简捷的方法。在网上象棋系统的工作中，笔者利用VB编写了网上象棋系统，实现了网上下棋的基本功能。
2 VB中WINSOCK控件简介
利用 WinSock 控件可以与远程计算机建立连接，并通过用户数据文报协议 (UDP)或者传输控制协议 (TCP)进行数据交换。这两种协议都可以用来创建客户与服务器应用
程序。
Winsock它提供了访问 TCP 和 UDP 网络服务的方便途径。Visual Basic、Visual C++的开发人员都可使用它。为编写客户或服务器应用程序，不必了解 TCP 的细节或调用低级的Winsock APIs。通过设置控件的属性并调用其方法就可轻易连接到一台远程机器上去，并且还可双向交换数据。
2.1 TCP 基础
数据传输协议允许创建和维护与远程计算机的连接。连接两台计算机就可彼此进行数据传输。
如果创建客户应用程序，就必须知道服务器计算机名或者 IP 地址（RemoteHost 属性），还要知道服务器进行“侦听”的端口（RemotePort 属性），然后调用 Connect 方法。
如果创建服务器应用程序，就应设置一个收听端口（LocalPort 属性）并调用 Listen 方法。当客户计算机需要连接时就会发生 ConnectionRequest 事件。为了完成连接，可调用 ConnectionRequest 事件内的 Accept 方法。
建立连接后，任何一方计算机都可以收发数据。为了发送数据，可调用 SendData 方法。当接收数据时会发生 DataArrival 事件。调用 DataArrival 事件内的 GetData 方法就可获取数据。
2.2 UDP 基础
用户数据报协议 (UDP) 是一个无连接协议。跟 TCP 的操作不同，计算机并不建立连接。另外 UDP 应用程序可以是客户机，也可以是服务器。
为了传输数据，首先要设置计算机A的RemoteHost为计算机B的名称或IP地址，然后将计算机A的RemotePort属性设置为计算机B的LocalPort 属性，最后调用Bind方法然后，指定用于 UDP 连接的 LocalPort 和 LocalIP。
经过上面的在个步骤之后，计算机A和B就可以调用 SendData 方法来着手发送信息，还可以在 DataArrival 事件内的利用 GetData 方法来获取已发送的信息了。
3 网上象棋中的几个关键问题
3.1 如何将象棋中的棋子和棋盘的信息用计算机来描述出来
l 象棋中棋盘
象棋中棋盘共有九列，十行，共有9 ´ 10 个点。我将显示器的最左下角看成是坐标原点，屏幕上方为Y轴的正方向，单位是1；屏幕的右方向看成是X轴的正方向，单位是1。然后用90个坐标（I，J）从（1，1）到（9，10）来表示这90个点的位置。
l 确定每个坐标点的物理地址。
首先给出坐标原点的物理坐标（X0，Y0），然后利用公式
X = X0+ (i1 - 1) * intColToCol
Y = Y0-(j1 - 1) * intRowToRow
其中intColToCol、intRowToRow分别表示棋盘列间距、行间距。
l 棋子
两方棋子共2 ´ 16个，我自定义了记录类型qiZis ，它用域 index 、caption 、blnDeleted 、x、y分别表示棋子的序号、棋子的名称、是否被吃掉、在棋盘中的逻辑坐标的X值、Y值。外观上用命令按钮数组（其序号index从1到32）来代表棋子。
3.2 如何将象棋的规则如何转换成计算机算法
象棋中走子的规则如下：
“马走日、象走田、车走直路炮翻山 ”等等
上面的这些规则如何用计算机来描述出来，如何在计算机中来控制棋子的行走和吃子，这成了网上象棋的关键。我在实现这个系统的时候是采用下面的方案。
l 对于走子
首先取得用户点击鼠标的位置（通过窗体的MouseDown事件），然后找出90个坐标点中物理坐标最为相近的一个坐标点，记下它的逻辑坐标，然后通过函数blnCanMove(ByValIndexMoved As Integer, ByVal oldX As Integer, ByVal oldY As Integer, ByVal newXAs Integer, ByVal newY As Integer) As Boolean 来判断序号为IndexMoved的棋子是否能从逻辑坐标（oldX，oldY）移动到（newX，newY）。
在这个函数中则集中了每种棋子的走子规则。它主要是通过对两个坐标值进行处理来判断棋子IndexMoved是否能这样走子。
以行车为例，该函数在执行时要经过以下的判断：
每一，目标位置和起始位置是否在一条直线上，即目标位置的逻辑X、
Y坐标值与起始位置的X、Y坐标值是否有一个相等；
第二，目标位置与起始位置之间是否无其它的棋子。只有满足这两个条件，才能行车。
再举一个复杂的例子，能不能走马要经过以下的判断：
第一，目标位置与起始位置是否构成日字，目标位置与起始位置边线的斜率是否为2或1/2（首先还必须是否会发生除0中断），以及横纵坐标之差中是否一个为1另人个为2；
第二，判断在有可能发生别马腿的位置上是否有别的棋子。
l 对于吃子
每一，要判断两个棋子是否属于同一方；
第二，取出目标棋子的逻辑坐标，再用函数blnCanEated(ByVal
IndexMoved As Integer, ByVal oldX As Integer, ByVal oldY As Integer,ByVal intdexStable As Integer, ByVal newX As Integer, ByVal newY As Integer) AsBoolean 来判断源棋子IndexMoved 是否能从逻辑坐标（oldX，oldY）移动到（newX，newY）并吃掉这个位置的对方的棋子intdexStable。
这个函数同函数blnCanMove大致类似，不同之处在于炮的规则在二个函数中有差别。在走炮的时候，目标位置与起始位置之间不能有别的棋子，而在用炮吃子的时候，目标位置与起始位置中间必须有且只有一个棋子。
3.3 如何通知对方自己棋子的变化
l 对于Winsock控件的协议选择。
可以用Winsock控件来实现计算机间通信的功能。其关键之处在于对于协议的选取。其实对于网上象棋这个应用来说，其实这两种协议都可以实现数据据传输的功能。在这我选取了传输控制协议TCP，原因如下：
第一、 数据发送是间歇的，用户间在下棋的过程中不断传输和接收数据。
第二、 TCP提供的是可靠的传输服务。
第三、 UDP提供的是面向无连接的服务，我希望客户计算机提出下棋
请求之后，得到服务器的确认信息。
l 需要传输的信息。
在这里，通信的一方只需要将它所移动的棋子的索引号、目标位置的逻辑坐标、是否删除棋子以及如果要删除棋子的话被删除的棋子的索引号这四类信息传送给通信的另一方。
在系统中我通过字符串strSend = CStr(intIndex) & "|" & CStr(i) &"|" & CStr(j) & "d" & "0"、strSend = CStr(intIndex) &"|" & CStr(i) & "|" & CStr(j) &"d" & CStr(index) 来分别传送不删除棋子、删除棋子Index的信息，而intIndex则是源棋子，i和j则是目标位置的逻辑坐标。
如果是删除棋子，则必须对被吃掉的棋子采取处理，可采用的方案是将棋子的blnDeleted设为TRUE、属性Visible设为FALSE。
3.4 如何保证棋手依次走棋
一名棋手在走棋之后，立即将自己的应用程序中的所有棋子锁定（使各个命令按钮的Enable属性为FALSE），直到对方传送到信息才解除对所有棋子的锁定。
4 系统实现简介
4.1 客户端的TcpForclient_DataArrival事件的处理
TcpForClient.GetData st
'获得要移动的棋子的INDEX值和目标点的坐标（I，J）
………
qiZi(index).x =i
qiZi(index).y =j
Dim TempPhysicalZBAs ZuoBiao
TempPhysicalZB =transZB_Logic_physical(i, j)
CmdIcon(index).MoveTempPhysicalZB.x - halfCmdWidth,
TempPhysicalZB.y - halfCmdHeight
‘判断老将是否被吃掉以及对应的操作
………
对于服务器端的TcpForserver_DataArrival事件的处理类似于客户端。
4.2 函数blnCanMove来判断棋子的走动是否合法
Private FunctionblnCanMove (ByVal IndexMoved As Integer, ByVal oldX As Integer, ByVal
oldY As Integer, ByVal newX As Integer, ByVal newY As Integer) AsBoolean
………
Select CaseIndexMoved
Case 1, 2, 3, 4, 5 '红兵
If (oldY < 6) And (oldX = newX AndnewY = oldY + 1) Then
'没有过河时只能向前走
blnCanMove = True
ElseIf (oldY >= 6) And (Abs(oldX - newX)= 1 And oldY = newY) Or
(oldX = newX AndnewY - oldY = 1) Then '过河后可以左右和向前移动
blnCanMove = True
Else
blnCanMove = False
End If
………
4.3 判断是否别象眼的函数blnElphonentStoped
Private FunctionblnElphonentStoped(ByVal x1 As Integer, ByVal y1 As Integer,
ByVal x2 As Integer, ByVal y2As Integer) As Boolean
Dim i, xMid, yMid, iCount As Integer
xMid = (x1 + x2) / 2
yMid = (y1 + y2) / 2
iCount = 0
For i = 1 To 32
If qiZi(i).blnDeleted = False Then
If (qiZi(i).x = xMid) And(qiZi(i).y = yMid) Then
iCount = iCount + 1
End If
End If
Next i
If iCount = 0 Then
blnElphonentStoped = False
Else
blnElphonentStoped = True
End If
End Function
4.4 用来移动棋子的事件处理过程Form_MouseDown
Form_MouseDown(Button As Integer, Shift AsInteger, x As Single, y As Single)
For i = 1 To 9
For j = 1 To 10
TempPhysicalZB = transZB_Logic_physical(i, j)
If Abs(x - TempPhysicalZB.x) <= intColToCol / 2 And
Abs(y -TempPhysicalZB.y) <= intRowToRow / 2 Then
IfblnCanMove(intIndex, qiZi(intIndex).x, qiZi(intIndex).y, i, j) = False Then
MsgBox "你不能这么走!", vbCritical +vbOKOnly, " 错误"
Exit Sub
End If
strSend = CStr(intIndex) &"|" & CStr(i) & "|" & CStr(j) &"d" & "0"
'Call BeforeMove(intIndex,i, j)
qiZi(intIndex).x = i
qiZi(intIndex).y= j
CmdIcon(intIndex).Move TempPhysicalZB.x - halfCmdWidth,
TempPhysicalZB.y- halfCmdHeight
TcpForClient.SendData strSend
Exit Sub
End If
Next j
Next i
End Sub
参考文献：
1 希望图书创作室 · 中文Visual Basic 6.0教程 · 北京 ：宇航出版社，1999.5
2 Microsoft 公司· Microsoft Development Network
Realizationof the system of Chinese chess in network by winsock control of VB
MAGen-feng SUN Yan Wang Ping
Abstract Firstly this paper describes how to uses thewinsock control in Visual Basic.
Then it deeply analyses the design priciple and completion processof this system。
Key words Winsock control；TCP；UDP