本文发表在《微型机与应用》杂志2001年第3期。

基于 VB 中 WINSOCK 控件的网上象棋系统的实现

马根峰¹,孙艳²　,王平¹

(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确定每个坐标点的物理地址。

　　　　首先给出坐标原点的物理坐标（X₀，Y₀），然后利用公式

　　　　　　X = X₀+ (i1 - 1) * intColToCol

Y = Y₀-(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 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

oldY 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,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 DevelopmentNetwork

　

Realizationof the system of Chinese chess in network by winsock control of VB

MAGen-feng SUN Yan　Wang Ping

AbstractFirstly this paper describes how to uses thewinsock control in Visual Basic.

Then it deeply analyses the design priciple and completion processof this system。

Key wordsWinsock control；TCP；UDP