人教版九年级信息技术全第八课使用定时器控件---设计动感抽号机教学课件共16张PPT

L/O/G/O 引 入 L/O/G/O 【学习难点】 1、定时器控件的原理 2、Rnd函数产生任意范围的整数的推导 1、学会Rnd（）随机函数 的应用。 2、学会Int（）取整函数 的应用 3、了解定时器控件的使用 原理 4、掌握定时器控件的应用 【学习目标】第6课 设计动感抽号机 ——定时器控件的使用 【制作任务】 设计一个“课堂动感抽号机”程序 【项目分析】 1、程序界面要求：设计一个“动感抽号机”的程序，登录界面如左图所 示。 2、程序功能要求：假设一个班学生的学号从1开始依次编号。本程序要 求单击“开始”按钮后，先输入班级人数，然后随机滚动显示学号，直 到点击“停止”按钮后，先输入班级人数，然后随机滚动显示学号，直 到点击“停止”按钮后，弹出如右图所示的窗口，显示抽中的学号。 【实现思路】 1、设置窗体界面，在窗体中添加两个标签，添加一个文本框， 添加两个按钮，添加一个定时器控件。 2、在“开始”按钮中编写代码，实现输入全班人数及启动定 时器的功能；在定时器中编写代码，实现在文本框中随机动态 显示学号；在“停止”按钮中编写代码，实现停止定时器以及 在弹 出窗口中显示抽中的学号。 小组合作探究：界面设计 实践：按照项目要求，完成程序界面的设计 Label1 Label2 Text1 Command2 Command1 Timer1 三、设计算法 1、“开始”按钮功能算法如下： 2、定时器每隔100毫秒循环执行 的Timer 事件过程，算法如下： 3、“停止”按钮功能算法如下： 四、编写代码 (一)、定义变量 Dim n As Interger Dim num As Interger (二)、根据“开始”按钮功能算法编写代 码： 四、编写代码 n = Val(InputBox(“输入人数”)) Timer1.Enabled=true (三)、定时器每隔100毫秒循环执行的 Timer 事件过程，根据算法编写代码： 四、编写代码 Randomize num = int(rnd()*n+1) Text2.text=num (四)、根据“停止”按钮功能算法编写代 码： 四、编写代码 Msgbox”恭喜” & num & “号被抽中” Timer1.Enabled= False 四、编写代码 （五)、完成所有代码编写 存盘 • 在桌面新建一个文件夹 XX班XX学号XX名 • 将文件全部存入此文件夹， 文件名抽号机，并生成可执 行文件，上交“目录”。 实践探究 检测与评估P25 8.完成表1-2-1 的学习评估，并将评估 等级填写到“我的成长记录袋”中。 评估项目 掌握程度 我在本课学习中的最 大收获和不足 较好 一般 较差 了解文本框的作用 会对文本框主要属 性进行设置 初步认识算法及其 描述方式 理解流程图的各个 符号的作用 我的学习效果达到了 级