个性化猜牌游戏 猜数游戏

《个性化猜牌游戏 猜数游戏》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、实验报告课程：可视化程序设计班级：姓名：学号：成绩：指导教师：实验日期：实验密级：预习程度：实验时间：仪器组次：E13必修/选修：选修实验序号：3实验名称：实验三可视化基础编程实验目的与要求：1、熟练掌握VB.NET的窗体和基本控件编程，掌握小型游戏的设计与实现2、培养运用VB.NET编程解决司题的能力，提高计算机编程能力；3、引导和培养具有认真严谨的实验态度和勇于实践的学习精神。实验仪器：名称型号数量微机1-15-一、实验内容(一)猜数游戏1、实验题目由计算机随机产生一个[1，100]间的整数，给用户猜测，每次给出猜大了还是猜小了的提示。最多猜5次，5次均猜错即为

2、输，5次猜数中有一次猜对即赢（可灵活修改、条件可自行根据需要设定）。要求：n单击【开始】按钮可开始游戏，完成猜数后可重新开始猜数游戏。n不允许窗口最大化、不允许调整窗口大小，窗口中显示游戏说明。n用户输入后，在窗口中有相应信息的显示输出(ListBox)。为便于理解题意，程序执行结果请参考下图。-15--15-2、编程设计思想n采用了面向对象的程序设计思想，通过VB的抽象模型WindowsForms来编写窗口类和其他的类；n采用了消息映射的程序设计思想，通过VB的消息映射的机制，可以对按钮窗口的行为进行定义，从而满足我们对其的需要；n具体的编程思想如下[1]定义变量

3、num,每局竞猜前生成一个随机数.[2]定义变量count记录当前局用户已猜的次数.[3]设置按钮定位,自动判断状况定位”重新开始”按钮或”确定”按钮为默认按钮,让用户尽量省去使用鼠标,可直接通过按键盘实现整个游戏过程.[4]通过DoEvent函数和循环语句,实现窗口的放大和缩小,且将动画过程显现给用户观看.避免唐突.[5]对图片实现隐藏,在用户赢或输的那个状态才显示图片,其余时刻只显示输入框.[6]使用try_catch来防止格式输入错误.[7]每轮猜测都有猜大或猜小的提示.当输赢图片遮挡住状态框时,将显示当前猜测次数的文本框的文档改成输赢状态鼓励语句.来告知用户

4、结果。[8]每轮猜测后自动清空输入框，让用户不用手动清除数据就可实现下一轮猜测，使程序的使用更为便利。3、事件机制应用本实验采用如下的事件机制，如表所示事件名称事件描述Button1_Click第一次触发时为“开始”，即DoEvent,让程序界面变大，之后每次触发为游戏重新开始。Button2_Click退出程序按钮Button3_Click“确定”，用户向系统反馈用户猜测的数据4、程序源代码设计（一）游戏开始界面设置及开启新一轮游戏PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.

5、ClickAcceptButton=Button3If(Button1.Text<>"重新开始")ThenButton1.Text="重新开始"Fori=0To100Me.Width=461+2*iMe.Height=441+iApplication.DoEvents()'更新窗口，使窗口能被用户响应NextPictureBox1.Width=300PictureBox1.Height=400PictureBox2.Width=300PictureBox2.Height=400TextBox2.Visible=TrueButton3.Visible=TrueAcce

6、ptButton=Button3-15-Button3.Focus()TextBox2.Clear()TextBox3.Visible=TrueTextBox3.Width=300TextBox3.Height=400TextBox2.Focus()ElseTextBox3.Visible=TrueTextBox2.Clear()Button3.Focus()TextBox2.Focus()TextBox2.Enabled=TrueButton3.Enabled=TrueEndIfPictureBox2.Visible=FalsePictureBox1.Visibl

7、e=FalseTextBox2.Focus()TextBox3.Text=TextBox3.Text&"新游戏开始啦"&vbCrLfcount=1num=Int(Rnd()*100)+1Label1.Visible=TrueLabel1.Text="请进行第"&count&"次尝试"EndSub（二）关闭程序PrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.ClickEndEndSub（三）游戏状态PrivateSubButton3_Click(senderAsObject,eA