资源简介

课程名称 电子储物柜改进 课时数 2
参考教材 《可视化编程应用基础——Visual Basic》（陈建军）
教学目标 知识与技能 进一步了解控件数组的应用复习回顾input语句、rnd函数的用法
过程与方法 将控件数组应用于实际生活案例中回顾、熟练运用rnd函数综合运用input语句进行信息交互
情感与价值观 结合生活中的实际案例，提高学生编程兴趣通过发现问题、解决问题，提高学生学习过程中的成就感
教学重点 1、熟练运用控件数组2、input语句、rnd函数的用法
教学难点 将控件数组运用于实际生活案例中
课前准备 教学PPT、助学视频、任务单
教学过程（80分钟）
环节（用时） 内容 活动 技术手段
教师 学生
课堂导入(8') 演示改进的电子储物柜效果，对功能模块进行分析讲解。 讲解 听课 PPT、EXE程序
【设计意图】了解程序功能，明确本堂课的学习内容。
任务1：电子储物柜界面设计(15') 任务说明：打开改进的电子储物柜界面，并分析电子储物柜界面设计组成：柜子组（16个标签数组）、存物按钮。 讲解、分析 实践、设计 VB程序、助学视频
【设计意图】根据教师演示分析，学生熟悉界面组成，并自主设计界面。
任务2：储物柜初始化 (10') 任务说明：1、窗体装载时，初始化16个柜子的编号、对齐方式及状态（包括颜色、柜子内容、密码等）任务分析柜子状态、柜子密码、柜子物品须定义为全局数组，分别为gzzt(1 to 16)、gzmm(1 to 16)、gznr(1 to 16),且需进行初始化，如下： For i = 1 To 16 gzzt(i) = True gznr(i) = "" gzmm(i) = -1 Next For i = 0 To 15 Label1(i).Caption = i + 1 Label1(i).Alignment = 2 Next 讲解、分析、演示 听课、实践 Vb程序、助学视频
【设计意图】程序初始化，为后续奠定基础。
任务3：存物功能实现(30') 任务说明：单击存物按钮，如有空柜子，则弹出柜号及随机生成柜子密码，然后输入寄存的物品名称，完成存物后，该柜子的颜色变为红色（代表已被寄存）。知识讲解：存物的过程如下：（1）遍历所有柜子，找到空柜子，结束遍历，代码如下： For i = 1 To 16 If gzzt(i) = True Then Exit For Next(2)如果找到柜子，则弹出柜号和随机生成的柜子密码，并弹出输入框，供输入寄存物品名称(3)未找到空柜子，弹出“没有空柜”对话框。 讲解、分析、编码、演示 听课、实践 Vb程序、助学视频
【设计意图】掌握存物具体流程，便于功能编码实现。
任务4：取物功能实现(10') 任务说明： 单击寄存的柜子（标签数组），在弹出的对话框中输入寄存时生成的密码，输入正确后，弹出寄存的物品名称，取物成功，取物后初始化柜子状态；否则取物失败，重新输入密码。 讲解、分析、编码、演示 听课、实践 Vb程序、助学视频
【设计意图】掌握取物 具体流程，便于功能编码实现。
作业收交小结(5') 1、总结2、布置作业 编程实现：在本节课任务基础上增加取物按钮，要求单击取物按钮，弹出对话框输入寄存密码，自动遍历所有柜子密码，找到对应的柜子，弹出寄存物品名称（须保证随机生成的密码不重复）。 小结、作业上交情况查看并收《任务单》 上交作业《任务单》 教学软件
课后小结(2') 回顾总结控件数组、input语句与rnd函数用法，并对任务实施过程进行点评和总结。

展开更多......

收起↑