五子棋网络对战.doc

年级08级学号2008482012姓名o8网络2成绩专业网络工程实验地点C1—228指导教师常卓实验项目五子棋网络对战和聊天—聊天实验日期2011年4月20号实验报告要求:实验目的二、实验原理三、实验要求四、实验步骤、结果(程序+注释+截图)及分析五、实验遇到的困难及解决六、实验心得总结五子棋网络对战和聊天聊天模块聊天聊天模块实验目的:掌握网络连接的主要过程和方法以及网络连接时一些控件的使用方法和属性设置。2、实验原理:(聊天-聊天模块)建立服务器↓查看在线用户↓选择用户并向该用户发送消息↓发送完成,:3、实验要求:网络五子棋游戏基于P2P(PeertoPeer,端对端)的网络连接,不需要服务器。游戏规则如下:1、请求连接的一方在游戏中执白,后手;被请求一方在游戏中执黑,先手;2、先在棋盘上行、列或者对角线上连续放置五个棋子一方获胜。主要实现游戏双方的网络通信;实现游戏双方棋子在棋盘的摆放;在游戏的同时可以播放背景音乐。4、实验步骤、结果(程序+注释+截图)及分析:::PrivateSubAbout_Click()'1_Click(IndexAsInteger)"5"+=""Case2'开始新局Send"3"ResetGame'如果本机主机的话,pic图片有效,可以下子否则无效IfServer===FalseCase3'="连线中"ThenSend"4"="尚未连线"LoadForm2''="连线中"ThenSend"4"()'"D:\"ForInputAs#1'DoInput#1,'在Combo1控件中添加数据IfEOF(1)ThenClose#1:ExitSub'如果超出文件尾,则关闭文件LoopEndSubPrivateSubForm_Unload(CancelAsInteger)="连线中"ThenSend"4"()==TruemciExecute("PlayD:\")Else:=FalsemciExecute("StopD:\")EndIfEndSubPrivateSubPic1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)'棋盘鼠标事件IfButton=1Then'将屏幕坐标转换为棋盘坐标sx=Fix(X/21)+1:sy=Fix(Y/20)+1Ifmap(sx,sy)<>0ThenExitSubCallsndPlaySound("",0)map(sx,sy)=ServerDrawScreena=GameOver(Server)Ifa=ServerThenImage1(0).Visible=TrueWin(Server)=Win(Server)+1IfServer=1ThenLost(2)=Lost(2)+1ElseLost(1)=Lost(1)+(2).Caption="战绩:"+Str(Win(1))+"胜"+Str(Lost(1))+"败"(4).Caption="战绩:"+Str(Win(2))+"胜"+Str(Lost(2))+"败"EndIfSend"1"+Chr(sx)+Chr(sy)=FalseEndIfEndSubPrivateSubQuit_Click()="连接中"ThenSend"4"