新Visual Basic.NET程序设计实验实训指导 教学课件 邱炳城 实验8 猜牌游戏.pptVIP

Visual Basic.NET程序设计实验实验8 猜牌游戏 【功能描述】 模拟“三张牌”的猜牌游戏。有三张牌，两张梅花10和一张红桃K，游戏者在三张牌中猜出哪一张是红桃K，若猜对，积分增加，否则减少。积分为0时游戏结束。 【实验内容】 1．PictureBox控件、NumericUpDown控件、Timer组件的应用。 2．控件集合的运用。 3．Static Dim语句的应用。 4．与控件关联的用户自定义数据的运用。 【实验目的】 1．理解静态变量及其应用。 2．掌握多个事件引发同一过程的处理方法。 3．熟悉NumericUpDown控件和Timer组件的的基本使用方法。 4．熟悉引用控件集合中的元素的方法。 5．熟悉控件自定义数据的使用。 【预备知识】 1．Timer组件 2．NumericUpDown控件 3．控件集合Controls 4．Static Dim语句 【实验步骤】 1．创建及保存项目 2．窗体设计 3．程序设计 4．程序调试 5．程序改进 【问题与思考】- 1 1．在事件过程Timer1_Tick中，如果将语句“Static i As Integer”改为“Dim i As Integer”，试分析说明程序的运行情况有什么不同？ 2．在事件过程Timer1_Tick中，如果将语句“i = 0”删除，程序的运行情况又会有什么不同？为什么？ 3．除了使用自定义过程、控件集合以及使用控件的Tag属性等技术手段来简化程序代码外，试通过互联网与联机帮助寻找其它的简化程序代码的编程技术。 4．如果窗体中有很多PictureBox控件，在程序代码中的某一地方需要将它们全部装入图像p，则可这样处理： （1）将这些PictureBox控件命名为P1、P2、P3、…，窗体中的其它控件不要以P开头命名。 （2）在需要将它们全部装入图像p的地方使用下面代码。 For Each k As Control In Me.Controls If k.Name Like P* Then Dim pbox As PictureBox = k pbox.Image = p End If Next 试分析为什么可以使用这样的代码？变量k及变量pbox是什么变量？各代表什么？ 【问题与思考】- 2 5．按下面要求改写程序： 在一轮的游戏中，用户翻牌后，程序在显示积分时，自动根据押分的大小，大约在3秒钟内分10次逐渐增加或逐渐减少，而且只有当积分显示完成时，才允许用户继续进行下一轮的游戏。 6．按下面要求改写程序： 程序窗口中有10张牌，其中有2张是红桃K，其余都是梅花10。洗牌后，红桃K可能出现在1到10的任意位置。一轮游戏中，用户有两次机会，只要有一次选中红桃K即为胜出，如果两次选的牌都是梅花10即为输。 Timer组件 Timer是一个定时引发事件的Windows组件。当应用程序需要每隔一段时间执行一段代码时，可在窗体添加该Timer组件，并给该控件的Tick事件添加需要定时执行的代码。Timer组件常用的属性有： Enabled —— 启用（True）或禁用Timer引发事件。 Interval —— 引发事件的时间间隔。单位为毫秒，可设置值为1-64767。 例8-1 实时时钟 在当前程序窗口的标题显示一个包括日期和时间的实时时钟。 新建一个项目，添加一个Timer组件（Timer1），设置Enabled属性为True、Interval属性为1000，给Timer1控件的Tick事件添加下面的事件过程代码。 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Me.Text = Now End Sub NumericUpDown控件 NumericUpDown是一个可以让用户通过键盘或鼠标进行数值调节的控件，称为数字显示框。该控件是由一个文本框与一对用户可单击以调整数值的箭头的组合，常用的属性有： Increment —— 用户单击向上或向下箭头时数字的调整量。 Maximum —— 数字显示框的最大值，默认值为100。 Minimum —— 数字显示框的最小值，默认值为0。 Value —— 数字显示框的值。 控件集合Controls 当前窗体的所有控件组成一个控件集合Me.Controls，而容器Panel1中的所有控件组成一个控件集合Panel1.Controls。 例8-2 改变窗口文字大小 程序窗口中有一个数字显示框控件，用户通过调整该