返回

资料详情(天天资源网)

资料简介

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 的学习评估,并将评估 等级填写到“我的成长记录袋”中。 评估项目 掌握程度 我在本课学习中的最 大收获和不足 较好 一般 较差 了解文本框的作用 会对文本框主要属 性进行设置 初步认识算法及其 描述方式 理解流程图的各个 符号的作用 我的学习效果达到了 级 查看更多

Copyright 2004-2019 ttzyw.com All Rights Reserved 闽ICP备18023965号-4

天天资源网声明:本站点发布的文章作品均来自用户投稿或网络整理,部分作品未联系到知识产权人或未发现有相关的知识产权登记

全屏阅读
关闭