本文收录于<<微型机与应用>>2001年11期基于VB中WINSOCK控件的网上象棋系统的实现马根峰1,孙艳2,王平1(1.重庆邮电学院自动化学院,重庆,400065；2.铁道部第十九工程局四处，内蒙通辽，028000)摘要本文首先介绍了VisualBasic中的WINSOCK控件的使用方法，然后深入探讨了网上象棋系统的设计思想及其实现过程。关键词WINSOCK控件；TCP；UDP中图分类号：文献标识码：1引言MicrosoftVisualBasic是可视化的、面向对象的、采用事件驱动方式的结构化的高级程序设计语言。它提供了开发MicrosoftWindows(R)应用程序的迅速、最简捷的方法。在网上象棋系统的工作中，笔者利用VB编写了网上象棋系统，实现了网上下棋的基本功能。2VB中WINSOCK控件简介利用WinSock控件可以与远程计算机建立连接，并通过用户数据文报协议(UDP)或者传输控制协议(TCP)进行数据交换。这两种协议都可以用来创建客户与服务器应用程序。Winsock它提供了访问TCP和UDP网络服务的方便途径。VisualBasic、VisualC++的开发人员都可使用它。为编写客户或服务器应用程序，不必了解TCP的细节或调用低级的WinsockAPIs。通过设置控件的属性并调用其方法就可轻易连接到一台远程机器上去，并且还可双向交换数据。2.1TCP基础数据传输协议允许创建和维护与远程计算机的连接。连接两台计算机就可彼此进行数据传输。如果创建客户应用程序，就必须知道服务器计算机名或者IP地址（RemoteHost属性），还要知道服务器进行“侦听”的端口（RemotePort属性），然后调用Connect方法。如果创建服务器应用程序，就应设置一个收听端口（LocalPort属性）并调用Listen方法。当客户计算机需要连接时就会发生ConnectionRequest事件。为了完成连接，可调用ConnectionRequest事件内的Accept方法。建立连接后，任何一方计算机都可以收发数据。为了发送数据，可调用SendData方法。当接收数据时会发生DataArrival事件。调用DataArrival事件内的GetData方法就可获取数据。2.2UDP基础用户数据报协议(UDP)是一个无连接协议。跟TCP的操作不同，计算机并不建立连接。另外UDP应用程序可以是客户机，也可以是服务器。为了传输数据，首先要设置计算机A的RemoteHost为计算机B的名称或IP地址，然后将计算机A的RemotePort属性设置为计算机B的LocalPort属性，最后调用Bind方法然后，指定用于UDP连接的LocalPort和LocalIP。经过上面的在个步骤之后，计算机A和B就可以调用SendData方法来着手发送信息，还可以在DataArrival事件内的利用GetData方法来获取已发送的信息了。3网上象棋中的几个关键问题3.1如何将象棋中的棋子和棋盘的信息用计算机来描述出来象棋中棋盘象棋中棋盘共有九列，十行，共有910个点。我将显示器的最左下角看成是坐标原点，屏幕上方为Y轴的正方向，单位是1；屏幕的右方向看成是X轴的正方向，单位是1。然后用90个坐标（I，J）从（1，1）到（9，10）来表示这90个点的位置。确定每个坐标点的物理地址。首先给出坐标原点的物理坐标（X0，Y0），然后利用公式X=X0+(i1-1)*intColToColY=Y0-(j1-1)*intRowToRow其中intColToCol、intRowToRow分别表示棋盘列间距、行间距。棋子两方棋子共216个，我自定义了记录类型qiZis，它用域index、caption、blnDeleted、x、y分别表示棋子的序号、棋子的名称、是否被吃掉、在棋盘中的逻辑坐标的X值、Y值。外观上用命令按钮数组（其序号index从1到32）来代表棋子。3.2如何将象棋的规则如何转换成计算机算法象棋中走子的规则如下：“马走日、象走田、车走直路炮翻山”等等上面的这些规则如何用计算机来描述出来，如何在计算机中来控制棋子的行走和吃子，这成了网上象棋的关键。我在实现这个系统的时候是采用下面的方案。对于走子首先取得用户点击鼠标的位置（通过窗体的MouseDown事件），然后找出90个坐标点中物理坐标最为相近的一个坐标点，记下它的逻辑坐标，然后通过函数blnCanMove(ByValIndexMovedAsInteger,ByValoldXAsInteger,ByValoldYAsInteger,ByValnewXAsInteger,ByValnewYAsInteger)AsBoolean来判断序号为IndexMoved的棋子是否能从逻辑坐标（oldX，oldY）移动到（newX，newY）。在这个函数中则集中了每种棋子...