五子棋网络对战.docVIP

数学与计算机学院实验一、五子棋网络对战和聊天—聊天模块实验报告 年级 08级 学号 2008482012 姓名 o8网络2 成绩 专业 网络工程 实验地点 C1—228 指导教师 常卓 实验项目 五子棋网络对战和聊天—聊天 实验日期 2011年4月20号 实验报告要求： 实验目的 二、实验原理 三、实验要求 四、实验步骤、结果（程序+注释+截图）及分析 五、实验遇到的困难及解决 六、实验心得总结 五子棋网络对战和聊天聊天模块 聊天聊天模块 实验目的： 掌握网络连接的主要过程和方法以及网络连接时一些控件的使用方法和属性设置。 2、实验原理： 2.1 流程图（聊天-聊天模块） ↓ ↓ ↓ 2.2模块界面： 3、实验要求： 网络五子棋游戏基于P2P（Peer to Peer，端对端）的网络连接，不需要服务器。游戏规则如下： 1、请求连接的一方在游戏中执白，后手；被请求一方在游戏中执黑，先手； 2、先在棋盘上行、列或者对角线上连续放置五个棋子一方获胜。 主要实现游戏双方的网络通信；实现游戏双方棋子在棋盘的摆放；在游戏的同时可以播放背景音乐。 4、实验步骤、结果（程序+注释+截图）及分析： 4.1模块代码： 4.1.1主界面代码： Private Sub About_Click() Load Form3 Form3.Show End Sub Download by Private Sub Com1_Click(Index As Integer) Select Case Index Case 0 Label3.Caption = Combo1.Text Send 5 + Combo1.Text Case 1 Combo1.Text = Case 2 开始新局 Send 3 ResetGame 如果本机主机的话，pic图片有效，可以下子否则无效 If Server = 1 Then Pic1.Enabled = True Else Pic1.Enabled = False Case 3 重新联机 If Label2.Caption = 连线中 Then Send 4 DoEvents End If Winsock1.Close Label2.Caption = 尚未连线 Load Form2 加载联机欢迎窗体 Form2.Show Case 4 断开连接并结束运行 If Label2.Caption = 连线中 Then Send 4 DoEvents End If Winsock1.Close End End Select End Sub Private Sub Form_Load() 打开D盘net5.txt Open D:\net5.txt For Input As #1 Do Input #1, Gdata Combo1.AddItem Gdata 在Combo1控件中添加数据 If EOF(1) Then Close #1: Exit Sub 如果超出文件尾，则关闭文件 Loop End Sub Private Sub Form_Unload(Cancel As Integer) If Label2.Caption = 连线中 Then Send 4 DoEvents End If Winsock1.Close End End Sub Private Sub Music_Click() I