- 1、本文档共10页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
综合练习——打字练习
教科版(云南)信息技术八年级下册
第15课
新课导入
问题与任务:
小明想利用VB编写一个打字游戏帮助同学们提高打字速。游戏玩法如下,如“图15-1打字游戏效果图”所示。
(1)每次屏幕上会随机出现5个字母,字母从顶部不断下落。
(2)若用户输入正确或者某字母下落超过底框,则变换字
母并重新开始。
X
i
q
开蚰
1o
焰求
G快打李
新课讲解
一、打字软件原理分析
观察游戏执行过程,结合本单元所学知识,打字游戏的实现
原理如下。
(1)5个字母为一个控件数组,这样多个相同控件的处理就可以通过循环语句来实现。
(2)字母的下落就是控制Timer控件的Top属性值的增加,如果字母的Top属性值大于图片框的Height属性值,则字母消失。
(3)字母的重新开始包含两个动作利用ToP属性值归
零回到顶部、利用随机函数变换内容。
(4)输人正确意味着键盘输入字符与窗口中的字符是相同的。
练一练根据上面描述的功能和原理分析,填写表“15-1打字游戏主要控件分析表”。
控件名
功能
实现原理
CommandStar
开始游戏
启动Timer;随机初始化字母
CommandEnd
PicType
Timerl
表15-1打字游戏主要控件分析表
本打字软件的关键就是将用户输的字母与窗口
中的字母做比较,判断是否相同并给出相应的反应。因此,要想实现程序,就必须解决如何识别用户键
盘盘输的字母这个问题。
二、Keypress事件和Chr函数
?想一想新建一个工程,在窗体中加入Label控件,命名为Labelxianshi,依照“图15-2
Keypress事件”所示输入代码。将键盘按下的字母
与程序中出现的数字记录下来,与表15-2对比,看看是否一致。结合程序,体会Keypress事件和
Keyascii的作用。
十进制
字符
97
a
98
b
99
C
:
:
120
X
121
y
122
Z
:
:
表15-2十进制数与字符的对应(部分)
VB中,当用户按下键盐上的字母键时就会触发
Keypress事件。因此,我们可通过Keypress事件的KeyAscii参数来识别按键。
资料室
ASCII编码
计算机中所有的数据都要用二进制来表示、为了让不同计算机在相互通信时不发生混乱,国际标准化组织将ASCII码作为一种共同守的西文字符码标准。
如图15-3(a)所示先新建一个工程,在窗体中分
别加入LabelText、Command控件,并修改相应控
件的name属性。然后依图15-3(b)所示输入代码。
记录Text中输入的数字与显示的结果,与表15-2对
比,看看是否一致。结合程序,说说Chr函数的作用。
确定
(b)Chr函数代码窗口
(a)Chr函数界面设计图
Cliek
Comandl
PrivateSubCommandl_Click()
LabelXianshi.Caption=Chr(TextInput.Text)
EndSub
Foml
输入数字
显示字母
通过观察,我们发现Chr函数的作用就是返回
以数值表达式为编码的字符,其语法格式为:Chr(数值表达式)。
(1)结合本节知识,想想如何判断键盘输入的字母和
指定的字母是否一致。
(2)Chr(Int(Rnd*25)+97)的作用是什么?
三、打字游戏的程序设计
相比以前的程序,本程序稍复杂一些,多次涉
及For循环语句和If选择语句的混合使用。对于这样一些大型、复杂的程序,我们可以尝试着采取
“分而治之”的策略,将它分解为更小、更容易处
理的子问题。当这些子问题被求解后,原来的问题也就迎刃而解了。
例如,要使“如果输入的字母与下落的某个字
母相同,则该字母随机变换字母并回到顶点”功能
实现,我们可以采用上面的方法,如图“15-4“判断键盘输入”的流程分解图”所示。
I=0
是
I=4?
↓否
判断键盘输入
I=I+1
/
输入的字母=当前字母
是
回到顶部
随机变换字母
根据上述流程图,我们可以逐步写出对应的程序,
具体如下:
PrivateSubPicType_KeyPress(KeyAsciiAsIntegcr)
Fori=0To4
如果输入的字母与下落的某个字母相同,则该字母随机变换字母并回到顶点
Nexti
EndSub
ifChr(KeyAscii)=Letter(i).CaptionThen
Letter().Top=0
Letter(i).Caption=Chr(lnt(Rnd*25)
您可能关注的文档
- 第二单元整体教学课件统编版语文七年级下册.pptx
- 第一章 第二节 第1课时 勾股定理及其逆定理(北师版八年级下册数学课件).pptx
- 合格考教学)第10课 影响世界的工业革命——岳西县店前中学2025届高二(1)(2)班.pptx
- 合格考教学)第12课 资本主义世界殖民体系的形成——岳西县店前中学2025届高二(1)(2)班.pptx
- 合格考教学)第14课 第一次世界大战与战后国际秩序——岳西县店前中学2025届高二(1)(2)班.pptx
- 教科版(云南)信息技术八年级下册 第十三课《控件数组与 liner控件“开心水果机”》.pptx
- 教科版(云南)信息技术八年级下册 第十四课《循环结构一一画同心圆》.pptx
- 七下第5课时++学会管理情绪(课件).pptx
- 人教版(2024)七年级地理下册课件 第9章 第二节第1课时 发达国家集中的地区 温带海洋性气候与畜牧业.pptx
- 人教版(2024)七年级地理下册课件 第9章 第二节第2课时 繁荣的旅游业.pptx
- 智慧农业,赋能未来-农技服务惠及农民.pptx
- 2025年度房屋自愿转让及配套设施维护责任及移交合同3篇.docx
- 2025年度房管局监督下的老旧小区改造房屋买卖合同3篇.docx
- 合成纤维单体制造实验课程设计与操作-化学工程专业教授演讲.pptx
- 探索机械治疗市场蓝海-揭秘市场竞争与发展策略.pptx
- 软件辅助:英语学习新策略-利用学习软件提升英语四项能力.pptx
- 2025年度房屋自愿过户房产继承权确认协议3篇.docx
- 科技引领金融新革命-深化金融科技创新,掌握未来趋势.pptx
- 农经组织创新大道-集体经济管理新视角.pptx
- 2025年度房管局指导下的房屋买卖价格评估服务合同3篇.docx
最近下载
- QMS现场审核过程的风险及应对 - 第六章 审核过程的其他风险及应对考试答案.doc
- 一例脑卒中气管切开合并吞咽障碍患者护理个案汇报.pptx
- 2024年常州工业职业技术学院单招职业技能测试题库(考试直接用).docx VIP
- C#程序设计基础入门教程(第2版)PPT完整全套教学课件.pptx
- 2022年江苏省南京师大苏州实验学校自主招生物理试卷附答案解析.pdf
- 《哪吒之魔童闹海》开学第一课收心哪吒2主题班会课件课件(图文).pptx VIP
- 小学体育开学第一课.ppt VIP
- 2021年小学数学第一单元《除法》—三年级下册章节复习精编讲义(思维导图+知识讲解+达标训练)北师大版,含解析.pdf VIP
- 党支部“三会一课”台账.docx VIP
- 2024年常州工业职业技术学院单招职业技能测试题库精选答案.docx VIP
文档评论(0)