五子棋网络对战

《五子棋网络对战》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、数学与计算机学院实验一、五子棋网络对战和聊天—聊天模块实验报告年级08级学号2008482012姓名o8网络2成绩专业网络工程实验地点C1—228指导教师常卓实验项目五子棋网络对战和聊天—聊天实验日期2011年4月20号实验报告要求：一、实验目的二、实验原理三、实验要求四、实验步骤、结果（程序+注释+截图）及分析五、实验遇到的困难及解决六、实验心得总结共页第页五子棋网络对战和聊天聊天模块聊天聊天模块1、实验目的：掌握网络连接的主要过程和方法以及网络连接时一些控件的使用方法和属性设置。2、实验原理：2.

2、1流程图（聊天-聊天模块）建立服务器↓查看在线用户↓选择用户并向该用户发送消息↓发送完成，退出系统2.2模块界面：共页第页3、实验要求：网络五子棋游戏基于P2P（PeertoPeer，端对端）的网络连接，不需要服务器。游戏规则如下：1、请求连接的一方在游戏中执白，后手；被请求一方在游戏中执黑，先手；2、先在棋盘上行、列或者对角线上连续放置五个棋子一方获胜。主要实现游戏双方的网络通信；实现游戏双方棋子在棋盘的摆放；在游戏的同时可以播放背景音乐。4、实验步骤、结果（程序+注释+截图）及分析：4.1模块代码

3、：4.1.1主界面代码：PrivateSubAbout_Click()LoadForm3Form3.Show共页第页EndSub'Downloadbyhttp://www.codefans.netPrivateSubCom1_Click(IndexAsInteger)SelectCaseIndexCase0Label3.Caption=Combo1.TextSend"5"+Combo1.TextCase1Combo1.Text=""Case2'开始新局Send"3"ResetGame'如果本机主机的话

4、，pic图片有效，可以下子否则无效IfServer=1ThenPic1.Enabled=TrueElsePic1.Enabled=FalseCase3'重新联机IfLabel2.Caption="连线中"ThenSend"4"DoEventsEndIfWinsock1.CloseLabel2.Caption="尚未连线"LoadForm2'加载联机欢迎窗体Form2.ShowCase4'断开连接并结束运行IfLabel2.Caption="连线中"ThenSend"4"DoEventsEndIfWin

5、sock1.CloseEndEndSelectEndSubPrivateSubForm_Load()'打开D盘net5.txtOpen"D:et5.txt"ForInputAs#1'DoInput#1,Gdata共页第页Combo1.AddItemGdata'在Combo1控件中添加数据IfEOF(1)ThenClose#1:ExitSub'如果超出文件尾，则关闭文件LoopEndSubPrivateSubForm_Unload(CancelAsInteger)IfLabel2.Caption="

6、连线中"ThenSend"4"DoEventsEndIfWinsock1.CloseEndEndSubPrivateSubMusic_Click()IfForm1.Music.Checked=FalseThenForm1.Music.Checked=TruemciExecute("PlayD:a.MP3")Else:Form1.Music.Checked=FalsemciExecute("StopD:a.MP3")EndIfEndSubPrivateSubPic1_MouseUp(ButtonAs

7、Integer,ShiftAsInteger,XAsSingle,YAsSingle)'棋盘鼠标事件IfButton=1Then'将屏幕坐标转换为棋盘坐标sx=Fix(X/21)+1:sy=Fix(Y/20)+1Ifmap(sx,sy)<>0ThenExitSubCallsndPlaySound("put.wav",0)map(sx,sy)=ServerDrawScreena=GameOver(Server)Ifa=ServerThenImage1(0).Visible=TrueWin(Server)

8、=Win(Server)+1IfServer=1ThenLost(2)=Lost(2)+1ElseLost(1)=Lost(1)+1共页第页Form1.Label1(2).Caption="战绩："+Str(Win(1))+"胜"+Str(Lost(1))+"败"Form1.Label1(4).Caption="战绩："+Str(Win(2))+"胜"+Str(Lost(2))+"败"EndIfSend"1"+Chr(sx)+Chr(sy)Pic1.En