个性化猜牌游戏 猜数游戏.docVIP

实验报告 课程： 可视化程序设计 班级： 姓名： 学号： 成绩： 指导教师： 实验日期： 实验密级： 预习程度： 实验时间： 仪器组次： E13 必修/选修： 选修 实验序号： 3 实验名称： 实验三 可视化基础编程 实验目的与要求： 1、熟练掌握VB.NET的窗体和基本控件编程，掌握小型游戏的设计与实现 2、培养运用VB.NET编程解决司题的能力，提高计算机编程能力； 3、引导和培养具有认真严谨的实验态度和勇于实践的学习精神。 实验仪器： 名称 型号 数量 微机 1 一、实验内容 (一) 猜数游戏 1、实验题目 由计算机随机产生一个[1，100]间的整数，给用户猜测，每次给出猜大了还是猜小了的提示。最多猜5次，5次均猜错即为输，5次猜数中有一次猜对即赢（可灵活修改、条件可自行根据需要设定）。 要求： 单击【开始】按钮可开始游戏，完成猜数后可重新开始猜数游戏。 不允许窗口最大化、不允许调整窗口大小，窗口中显示游戏说明。 用户输入后，在窗口中有相应信息的显示输出(ListBox)。 为便于理解题意，程序执行结果请参考下图。 2、编程设计思想 采用了面向对象的程序设计思想，通过VB的抽象模型Windows Forms来编写窗口类和其他的类； 采用了消息映射的程序设计思想，通过VB的消息映射的机制，可以对按钮窗口的行为进行定义，从而满足我们对其的需要； 具体的编程思想如下 定义变量num,每局竞猜前生成一个随机数. 定义变量count记录当前局用户已猜的次数. 设置按钮定位,自动判断状况定位”重新开始”按钮或”确定”按钮为默认按钮,让用户尽量省去使用鼠标,可直接通过按键盘实现整个游戏过程. 通过DoEvent函数和循环语句,实现窗口的放大和缩小,且将动画过程显现给用户观看.避免唐突. 对图片实现隐藏,在用户赢或输的那个状态才显示图片,其余时刻只显示输入框. 使用try_catch来防止格式输入错误. 每轮猜测都有猜大或猜小的提示.当输赢图片遮挡住状态框时,将显示当前猜测次数的文本框的文档改成输赢状态鼓励语句.来告知用户结果。 每轮猜测后自动清空输入框，让用户不用手动清除数据就可实现下一轮猜测，使程序的使用更为便利。 3、事件机制应用 本实验采用如下的事件机制，如表所示 事件名称 事件描述 Button1_Click 第一次触发时为“开始”，即DoEvent,让程序界 面变大，之后每次触发为游戏重新开始。 Button2_Click 退出程序按钮 Button3_Click “确定”，用户向系统反馈用户猜测的数据 4、程序源代码设计 （一）游戏开始界面设置及开启新一轮游戏 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click AcceptButton = Button3 If (Button1.Text 重新开始) Then Button1.Text = 重新开始 For i = 0 To 100 Me.Width = 461 + 2 * i Me.Height = 441 + i Application.DoEvents() 更新窗口，使窗口能被用户响应 Next PictureBox1.Width = 300 PictureBox1.Height = 400 PictureBox2.Width = 300 PictureBox2.Height = 400 TextBox2.Visible = True Button3.Visible = True AcceptButton = Button3 Button3.Focus() TextBox2.Clear() TextBox3.Visible = True TextBox3.Width = 300 TextBox3.Height = 400 TextBox2.Focus() Else TextBox3.Visible = True