VB 程序网络五子棋.doc

附加实例1——网络五子棋 本章介绍了使用VB 6.0制作的一种网络五子棋游戏，可以联网进行下棋。本实例演示了网络通讯和小游戏编程，实例由两个窗体和一个模块组成，运行时双方可通过两台计算机连接，在下棋的同时也可以聊天。五子棋的游戏规则是双方任何一方的棋子在横向或斜向出现五个子连成一条线为赢。源程序位于“光盘\chap17\wzq.vbp”。 1.1 网络五子棋实现步骤： （1）新建标准EXE工程。 （2）创建frmmain和frmlogin窗体。 设置Frmmain窗体及其主要控件的属性如表17-1所示。 表17-1 frmmain窗体及其控件主要属性列表 对象 属性 属性值 Form Name Frmmain Caption 网络五子棋 Ico Wzq.ico Picture Name Pic1 Picture Qp.jpg Name Picbiaozhi Picture Biaozhi.jpg Text Name Txtchat Multiline True Text 空 Combobox Name Combsendtxt Lable Name Lbqzhei Caption 空 Name Lbzjhei Caption 空 Name Lbqzbai Caption 空 Name Lbzjbai Caption 空 Name Lbsl Caption 胜 Name Lbsb Caption 败 commandbutton Name Cmdsend Name Cmdclear Name Cmdnew Name Cmdreconnect Name Cmddisconnect Winsock Winsock1 设置frmlogin窗体及其控件属性如表17-2所示。 表17-2 frmlogin窗体及其控件属性 对象 属性 属性值 Text Name Text1 text 空 Name Text2 text 空 CommandButton name Command1 caption 确定 name Command2 caption 取消 Optionbutton Name Option1 Caption 建立游戏 Name Option2 Caption 加入游戏 两个窗体设计完后的界面如图17-1与图17-2所示。 图17-2 网络五子棋主窗体界面 图17-2 网络五子棋登录窗体界面 （3）编写相应事件的代码。对于编写代码部分，我们专门拿出一小节的内容进行介绍，同时添加一些必要的分析内容。 1.2 为各模块编写的主要代码及分析 （1）Module1模块主要代码分析 此模块是本游戏的主要部分，负责判断是否五颗同样的子连成一条线，发送和接收所有资料，及下棋时画出棋子等。 代码如下： Declare Sub BitBlt Lib gdi32 (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As _ Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) Declare Function sndPlaySound Lib Winmm.dll Alias sndPlaySoundA (ByVal SoundName As String, ByVal Flags As Long) As Long bitblt函数说明： 将一幅位图从一个设备场景复制到另一个设备场景。源DC和目标DC相互间必须兼容返回值非零表示成功，零表示失败。会设置GetLastError。 参数说明 HDestDC：目标设备场景。 x,y：对目标DC中目标矩形左上角的坐标。 nWidth,nHeight：欲传输图象的宽度和高度。 hSrcDC：源设备场景。 xSrc,ySrc：对源DC中源矩形左上角的坐标。 dwRop：参数表示一种绘制方式，常用直接复制方式，这时就取vbSrcCopy。 sndPlaySound函数说明 用来播放声音文件。 SoundName描述要播放的声音文件的位置和文件名。 Flags的取值能决定播放声音的模式。主要取值介绍如下： 取＆H0时：为同步播放模式； 取＆H1时：为异步播放模式； 取＆H2时：当声音文件未找到就停止播音返回； 取＆H8时：为循环播放模式。 声明全局变量 Global Const srccopy = HCC