欢迎来到冰点文库! | 帮助中心 分享价值,成长自我!
冰点文库
全部分类
  • 临时分类>
  • IT计算机>
  • 经管营销>
  • 医药卫生>
  • 自然科学>
  • 农林牧渔>
  • 人文社科>
  • 工程科技>
  • PPT模板>
  • 求职职场>
  • 解决方案>
  • 总结汇报>
  • ImageVerifierCode 换一换
    首页 冰点文库 > 资源分类 > DOCX文档下载
    分享到微信 分享到微博 分享到QQ空间

    五子棋游戏实验报告Word格式文档下载.docx

    • 资源ID:5264472       资源大小:21.87KB        全文页数:18页
    • 资源格式: DOCX        下载积分:3金币
    快捷下载 游客一键下载
    账号登录下载
    微信登录下载
    三方登录下载: 微信开放平台登录 QQ登录
    二维码
    微信扫一扫登录
    下载资源需要3金币
    邮箱/手机:
    温馨提示:
    快捷下载时,用户名和密码都是您填写的邮箱或者手机号,方便查询和重复下载(系统自动生成)。
    如填写123,账号就是123,密码也是123。
    支付方式: 支付宝    微信支付   
    验证码:   换一换

    加入VIP,免费下载
     
    账号:
    密码:
    验证码:   换一换
      忘记密码?
        
    友情提示
    2、PDF文件下载后,可能会被浏览器默认打开,此种情况可以点击浏览器菜单,保存网页到桌面,就可以正常下载了。
    3、本站不支持迅雷下载,请使用电脑自带的IE浏览器,或者360浏览器、谷歌浏览器下载即可。
    4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩,下载后原文更清晰。
    5、试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。

    五子棋游戏实验报告Word格式文档下载.docx

    1、因为需要画棋盘,所以必须有图形容器,这里用picturebox框第一个窗体是登陆界面,因为玩家姓名需要在程序中不断变换,因此需要将玩家名定义成两个变量,又因为这两个变量在几个窗体中都用到,所以在模块中定义为全局变量当五子棋主界面启动之后,首先系统要自动绘制棋盘。思路:用直线绘制棋盘-直线是由点绘制的-每个点都有坐标-改变坐标系为用户坐标系用户坐标系的定义要在窗体启动时实现。(2)坐标系的两个顶点坐标的确定?考虑到五子棋15*15,确定棋盘坐标系顶点为(-8, 8),(8, -8)(3)棋子的绘制与存储棋子的绘制用实心圆模式,颜色为黑色及白色两种。棋子在内存中的存储方式:因为表示各个棋子的数据类

    2、型都相同,所以考虑用数组存储,因为棋盘是二维的,因此棋子用二维数组a存储。a(i,j)表示用户坐标(i,j)的棋子状态,0表示此处无棋子,1表示此处为黑子,2表示此处为白子,下棋初始时,棋盘所有位置的初始状态都为0(4)下棋子的步骤鼠标点击棋盘交叉点附近的位置,系统应实现自动识别鼠标点击位置附近的交叉点解决方法:坐标系的变换已经将棋盘交叉点坐标整数化,因此系统所需要实现的功能即是将鼠标所点击的位置坐标化为整数即可,例如将(6.2, -5.3)变成(6, -5)。在交叉点上交替下黑白棋子。定义一个逻辑数据类型变量blackwhite,该变量的值为真时下黑子,为假时下白子,每下一个棋子,该变量的值

    3、都要取反(NOT)。判断赢棋每次下子时都必须进行赢棋判断,判断的依据是5个子按照横线、竖线或斜线连成一行。2层循环。当有一方胜利时,棋局结束,此时在棋盘上继续点击,将不再下棋。设置一个逻辑变量wuziqi,其值为真时说明棋局没有结束,可以在棋盘上放棋子,该值为假时,说明该棋局结束,不能放棋子。(6)五子棋保存棋局保存棋局的功能即把内存中与棋局相关的数据(棋局名称、棋子位置、棋子颜色、棋局状态(即棋局是否结束)存入外存中,以便以后能够恢复棋局。保存的实现用两种技术实现:文件和数据库。采用数据库技术实现棋局保存:数据库设计:数据表字段:棋局名、x坐标、y坐标、该点状态值、下棋状态。每条记录表示棋盘

    4、上一个存储的点的信息。 要实现用数据库保存数据,就必须使程序连接到数据库上,这里用的是data控件,通过在程序中对data控件属性的设置来连接数据库、数据表。首先判断如果输入的棋局名和当前记录的棋局名相等,说明表中有输入棋局名对应的棋局信息,将其删除,判断过程是将用户输入的棋局名(字符串)从记录集(即表)的棋局字段顶端至下逐一比较在表的最后,也就是最后一条记录后加上新保存棋局的各条记录因为棋盘上空点居多,大部分点的信息为0,因此只需保存有棋子的点的信息用文件技术进行棋局保存,思路相同。(7)五子棋恢复棋局首先从数据库文件中找到要恢复棋局的数据(即曾经保存的数据),然后把这些数据赋值给内存中相应

    5、的数组或者变量中,按照这些数据重新绘制棋盘和棋子,即完成了对棋局的恢复。窗体启动事件应该完成的事情:组合框中应该显示曾经保存的棋局名。因为每次保存棋局时,都是将棋局所有棋子的记录添加在表的最后,因此表中关于棋局名的记录只能是类似于aaabbbbccccc的形式,而不可能是abbcacc的形式,根据这个特点编程序取出表中不同的棋局名。具体算法:用一个字符串变量strfile初始值为空,从表的顶端向下依次移动记录指针,如果当前记录的棋局名字段和strfile不相等,说明进入另一个棋局的记录中,将该棋局记录的棋局名赋值给strfile,并加入到组合框中,一直到表中最后一个记录因为要从数据库中取出相关

    6、数据到a数组中,因此要将a数组所有数据清零。要建立一个data控件,与数据库连接起来,而后识别棋局(即表中的棋局名字段与在列表框中选择的棋局名比较),将数据库该棋局中所有信息都赋值给a数组及相关变量。刚才仅仅是数据的恢复,即将数据库中已经保存过的数据恢复到内存中,下一步应该根据内存中的数据重新绘制棋盘以及棋子。重新绘制棋盘是独立的一块功能,因此考虑用全局子过程来实现,该子过程定义在模块中。思路如下:清屏绘制棋盘根据a数组中的每一项的两个下标来决定绘制棋子的位置,根据每一项的值是1还是2来决定在该位置绘制何颜色的棋子。决定该黑白方走的blackwhite变量当时没有保存,可以采用在数据库中保存的

    7、方式来解决,本例中解决方法是通过数黑白棋子个数来决定恢复棋局后该谁走的。因此设置了一个变量做计数器,每走一步棋计数器的值加一。用文件技术实现棋局恢复,思路相同。(8)悔棋悔一步棋:用几个变量来表示关于一步棋的几个信息,每次下子都将该子的信息赋值给那几个变量,悔一步棋即将那几个变量所表示的点的a数组信息清零。而后调用paint()过程重画。以上是教师带着学生完成的软件功能。遗留问题:保存棋手姓名和棋局名并在恢复棋局的时候显示。(需要同学们自己完成)在数据表中多建立两个字段,分别表示两个棋手姓名,同其它数据的保存类似。三、设计日期十二月四、完成日期五、实验体会其实,一开始学习vb我就对它不抱有一定

    8、的热情,可能是因为要用到计算机以及编程问题,当时一想到有代码,就会无比的苦恼,但是为了让这门课顺利通过,我还是怀着一颗必须要学的心情。起初,我对待这门新课程和其他课程一样,保持着必须认真听讲的决心。但是由于理论课太过枯燥,没学几次,我就败下阵来,开始有一节没一节的听,但是心里还是存有愧疚,就得自己不该这样懒惰,所以总是坐在前边几排座位上,逼着自己一定要学些什么,这总归要比坐在后边效果要好一些。在学了这半学期vb之后,我同样有了一些体会,虽然不会比创新程序的同学深刻,但是也让我相信了,起码在老师他自己的课堂上,他讲的要点都是对的。1、一定要认真听讲做笔记,这是提高效率最快的方法,就像老师说的。有

    9、了上机课,我才能真正懂得听课的重要性,其实有些课件虽然老师为了学生能够及时的进行自我复习传上去一些,但有些东西终归是老师上课讲的,而并没有写入课件的。所以,当真正自己写的时候,一遍一遍的被程序提示出错,内心其实很着急,因为老师只有一个,而且也不会围着你团团转,所以这时候,请教同学是唯一的方法,但是这唯一的方法也不是时时都能发挥作用,同学也有不会,还是需要老师。其实我知道,大部分的问题都是上课老师已经讲过的,只是自己没听。或者是一知半解,经常写丢一些重要程序,导致程序一直无法运行。比如我经常把退出子过程exit sub弄丢,自己当时没觉得它很重要,虽然老师讲过如果没有这个,后边的程序会很麻烦。当

    10、时,我也只是那么一听,没在意,后来编程黑白子竖方向赢棋时没把它加上,之后麻烦就出现了,我的黑白子一直都没法完成竖方向赢棋总是有一个方向没法判断,起初老师告诉我看看是否有算法上的错误,但是,我找了一节多课(我承认我这个人太固执,必须要知道为什么错了,才会做下一步),我觉得我的算法一定没问题,但是不明白为什么错,后来在读别人的程序时,才发现是我的exit sub没写,造成的,只有退出我上一个的子过程,这个过程才能正常运行。所以可见没听老师的话,是多么可怕,尤其还是在我也没听他讲课的前提下根本不懂代码意思,乱删改造成的后果。所以,不管是在哪里,学知识是对任何事情在打基础。做每一步都要问一句问什么,凡

    11、是都有原因。2、学会独立思考,多问自己为什么,求帮助是下策在最初的的上机试验里,我总会问老师一些我自己可以解决的问题,自己不愿动脑想,希望以最快捷的方式,获得最佳的结果。但是,往往会被老师教育一下,因为在其中,有一半是拼写错误,而自己没注意,另一半是写程序时不够完整(认真说起来是根本没怎么想,只是将课上抄录下来的不完整笔记,凭借自己的主观意愿,编写的程序,不问为什么)。其实后来想一想,确实是自己的问题,既耽误自己时间,也耽误老师时间。这些程序老师只是给一个思路,教你如何编写程序,但是完整的需要自己来做,这些都需要弄清思路,才会懂得我需要什么,从而编写出什么,这样犯错几率才会大大减少。这也是锻炼

    12、自己思路逻辑性的时候,也是老师让我们学的地方。只是当时没有听进去。就像老师说的,只有这样才能将程序融为自己的,真正有能力去编自己想要边的程序。3、任何新鲜的事物都需要一个熟悉的过程,凡是要趁热打铁,效率才会高。其实,这也是老师经常说的,可我们总是在做错事之后,才会想起来,原来某某某说的话是多么的对,但是总是忽略它事前的作用。我确实每次上完课,笔记连翻都不翻,到真正上机的时候才会开始琢磨这个程序的意思,所以每一次的上机,我的速度都是比别人慢好多,而且尤其是笔记也没有记得很全的时候(也没有及时的补),上机时间都不够我完成上次所讲的程序的。所以会很后悔,没有好好听讲,没有好好记笔记、补笔记,造成了效

    13、率低下的局面。所以,凡事都要趁热打铁,才会尽快吸收。4、任何事情都不是一气呵成,事先的计划会是你事半功倍,而实践是检验真理的唯一标准,程序亦是如此。 这是我这两天在研究程序为什么这么写的原因时,才开始领悟到的。这一点老师也有可能说过。我在抛开老师所编写的五子棋的程序下,想通过自己的思考,把五子棋的思路捋顺,所以开始自己画结构图(真正开始有这种想法的是在我看到老师给我们展示的他的往届同学做贪吃蛇的心得中,才发觉重要性)。一开始我花了一个很短的一段时间,画出一个我自认为很满意思路图,但是当我在重新用一些数去实验,当我再对比我写的图与老师编写的程序有何不同的时候,就会发现,有很多漏洞。比如,我想到了

    14、有下棋,但没有想到下棋前要清屏,防止程序之前有任何痕迹,防止出错;还有我想到了下棋之后要判断赢棋,但是当我到赢棋的那一步思路,我才想到,要判断赢棋,就必须有五个相同颜色的子连一起,那么在这之前我就要加上关于数组的赋值,来代表每一种颜色的棋子,从而构造if条件语句,完成应其目的等等。其实这些都不是我一开始做程序就想到的,只有当按照计划实施的过程中,才能验证思路的正确性,才能知道自己的思路与逻辑缺陷在哪里,从而弥补不足。这也是将自己的逻辑思维进一步完善的过程,也是老师想让我们得到的东西。 所以,通过这次的课程,我能体会到老师的良苦用心,也感谢老师一直不厌倦的一遍遍教我们,一遍遍告诉我们不愿意听的忠

    15、言。我会将我从这里学到的态度,以及做事的思维方式,运用到其他事情上,哪怕是一点点,也会让我的效率比以往更有提高。六、全部界面和代码Form 1Private Sub Command1_Click()If Trim(Text1.Text) = Or Trim(Text2.Text) = ThenMsgBox 请输入玩家姓名!End IfIf Trim(Text1.Text) = Trim(Text2.Text) Then不能输入相同姓名!Exit Subb = Text1.Textw = Text2.TextForm2.ShowUnload MeEnd SubForm 2Dim m As Int

    16、egerDim n As IntegerDim i As IntegerDim j As IntegerPrivate Sub Form_Load()Form2.Picture1.Scale (-8, 8)-(8, -8)Private Sub 开始游戏_Click()Picture1.ClsFor i = -7 To 7Picture1.Line (-7, i)-(7, i), QBColor(0)Picture1.Line (i, -7)-(i, 7), QBColor(0)NextFor i = -11 To 11For j = -11 To 11a(i, j) = 0Label1.Ca

    17、ption = 该黑方 + b + 走blackwhite = Truewuziqi = TruePrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)m = CInt(X)n = CInt(Y)If CInt(X) = -7 And CInt(X) = 7 And CInt(Y) = -7 And wuziqi = True ThenPicture1.FillStyle = 0If blackwhite = True And a(m, n) = 0 ThenPi

    18、cture1.FillColor = QBColor(0)Picture1.Circle (m, n), 0.3, QBColor(0)a(m, n) = 1该白方 + w + blackwhite = FalseIf blackwhite = False And a(m, n) = 0 ThenPicture1.FillColor = QBColor(15)Picture1.Circle (m, n), 0.3, QBColor(15)a(m, n) = 2For i = m - 4 To mIf a(i, n) = 1 And a(i + 1, n) = 1 And a(i + 2, n)

    19、 = 1 And a(i + 3, n) = 1 And a(i + 4, n) = 1 Then MsgBox 黑方胜利! wuziqi = False Exit Sub End IfIf a(i, n) = 2 And a(i + 1, n) = 2 And a(i + 2, n) = 2 And a(i + 3, n) = 2 And a(i + 4, n) = 2 Then白方胜利! NextFor j = n - 4 To nIf a(m, j) = 1 And a(m, j + 1) = 1 And a(m, j + 2) = 1 And a(m, j + 3) = 1 And a

    20、(m, j + 4) = 1 ThenIf a(m, j) = 2 And a(m, j + 1) = 2 And a(m, j + 2) = 2 And a(m, j + 3) = 2 And a(m, j + 4) = 2 ThenFor i = 4 To 0 Step -1If a(m - i, n + i) = 1 And a(m - i + 1, n + i - 1) = 1 And a(m - i + 2, n + i - 2) = 1 And a(m - i + 3, n + i - 3) = 1 And a(m - i + 4, n + i - 4) = 1 Thenwuziq

    21、i = FalseIf a(m - i, n + i) = 2 And a(m - i + 1, n + i - 1) = 2 And a(m - i + 2, n + i - 2) = 2 And a(m - i + 3, n + i - 3) = 2 And a(m - i + 4, n + i - 4) = 2 ThenIf a(m + i, n + i) = 1 And a(m + i - 1, n + i - 1) = 1 And a(m + i - 2, n + i - 2) = 1 And a(m + i - 3, n + i - 3) = 1 And a(m + i - 4,

    22、n + i - 4) = 1 ThenIf a(m + i, n + i) = 2 And a(m + i - 1, n + i - 1) = 2 And a(m + i - 2, n + i - 2) = 2 And a(m + i - 3, n + i - 3) = 2 And a(m + i - 4, n + i - 4) = 2 ThenPrivate Sub 保存棋局_Click()Form3.ShowPrivate Sub 打开已保存棋局_Click()Form4.ShowPrivate Sub 悔棋_Click()If wuziqi = True Thena(m, n) = 0C

    23、all paintPrivate Sub 保存棋局文件_Click()CommonDialog1.Filter = *.wzq/*.wzqCommonDialog1.Action = 2Open CommonDialog1.FileName For Output As #1Print #1, wuziqiFor j = -7 To 7If a(i, j) 0 ThenPrint #1, iPrint #1, jPrint #1, a(i, j)Print #1, bPrint #1, wClose #1Private Sub 打开棋局文件_Click()CommonDialog1.Action

    24、 = 1Open CommonDialog1.FileName For Input As #1Line Input #1, strwzqwuziqi = CBool(strwzq)Do While Not EOF(1)Line Input #1, striLine Input #1, strjLine Input #1, straLine Input #1, strbLine Input #1, strwa(Val(stri), Val(strj) = Val(stra)LoopForm 3Dim recount As IntegerWith Data1.DatabaseName = App.

    25、Path + 五子棋棋库.mdb.RecordSource = 五子棋棋库.Refresh棋局名不能为空If .Recordset.RecordCount .Recordset.MoveLastrecount = .Recordset.RecordCount.Recordset.MoveFirstFor i = 1 To recountIf .Recordset.Fields(棋局名) = Text1.Text Then.Recordset.DeleteIf Not .Recordset.EOF Then.Recordset.MoveNext.Recordset.AddNew.Recordset.Fields() = Text1.Text执黑棋者) = b执白棋者) = wX坐标) = iY坐标) = j该点状态值) = a(i, j)下棋状态) = wuziqi.Recordset.UpdateEnd WithForm 4Combo1.Text = 请选择所要打开的棋局strfile = recount = .


    注意事项

    本文(五子棋游戏实验报告Word格式文档下载.docx)为本站会员主动上传,冰点文库仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知冰点文库(点击联系客服),我们立即给予删除!

    温馨提示:如果因为网速或其他原因下载失败请重新下载,重复下载不扣分。




    关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

    copyright@ 2008-2023 冰点文库 网站版权所有

    经营许可证编号:鄂ICP备19020893号-2


    收起
    展开