用VB6.0 设计一个打字游戏程序 5
设计一个打字游戏程序,用户可以进行中英文选择,打字完毕后能正确统计结果(包括得分与时间)和显示:要求:1).贯彻事件驱动的程序设计思想。2).用户界面友好,功能明确,操作...
设计一个打字游戏程序,用户可以进行中英文选择,打字完毕后能正确统计结果(包括得分与时间)和显示:
要求:
1).贯彻事件驱动的程序设计思想。
2).用户界面友好,功能明确,操作方便;可以添加其他功能或修饰。
3).代码应适当缩进,并给出必要的注释,以增强程序的可读性。
设计思路如下:(仅供参考,各种功能的实现方式不是唯一的,同学们也可根据前面所学知识,自己进行界面和功能的设计。)
(1)英文输入界面
随机产生6个英文字母,每个字母用标签显示,这些控件的名称可用控件数组label1(0),label1(1),label1(2), label1(3), label1(4), label1(5)以便于用循环减少代码的书写。
6个标签从窗体顶端向窗体低端飘落(用计时器控件每隔一段时间改变标签的top属性,即每隔一段时间将标签的top属性加上一个数值,以前的实验中我们完成过标签从左到右边的移动,那从上到下的移动又该如何实现呢?),当用户在文本框中输入的字母正好是飘落的某个字母时(这里可以用文本框的keypress事件判断用户输入的是哪个字母),重新产生该标签上的字母,该标签重新冲顶端飘落,每个字母到达窗体底部则生命减1,生命为0是强行结束,结束时能计算得分和所用时间。
(2)中文输入界面
用两个文本框,上一个文本框显示原文,下一个文本框是用户输入的文字,可以在第二个文本框的change事件中或keypress事件中用mid函数对两个文本框对应位置的文字进行比较,(例如:Mid(Text1.Text, i, 1) <> Mid(RichTextBox1.Text, i, 1), 或chr(keyascii)<> Mid(RichTextBox1.Text, i, 1)。
注意普通的文本框不能单独设置每个文字的颜色,如果要将一个文本框中的文字设置成不同的颜色,需要用功能更强大的文本框RichTextBox,该控件也可以从部件对话框中加入到工具箱中。利用文本框的Selstart,Sel SelLength,SelColor属性设置出错文本颜色,这些属性的详细用法可以参照书本第三章介绍文本框控件的章节。
第一个文本框中的文本可以每次从一个文本文件中读入一行,当用户输完这一行后,再从文件中读入下一行内容。
结束时,应该能够计算用户打字的正确率和打字速度。 展开
要求:
1).贯彻事件驱动的程序设计思想。
2).用户界面友好,功能明确,操作方便;可以添加其他功能或修饰。
3).代码应适当缩进,并给出必要的注释,以增强程序的可读性。
设计思路如下:(仅供参考,各种功能的实现方式不是唯一的,同学们也可根据前面所学知识,自己进行界面和功能的设计。)
(1)英文输入界面
随机产生6个英文字母,每个字母用标签显示,这些控件的名称可用控件数组label1(0),label1(1),label1(2), label1(3), label1(4), label1(5)以便于用循环减少代码的书写。
6个标签从窗体顶端向窗体低端飘落(用计时器控件每隔一段时间改变标签的top属性,即每隔一段时间将标签的top属性加上一个数值,以前的实验中我们完成过标签从左到右边的移动,那从上到下的移动又该如何实现呢?),当用户在文本框中输入的字母正好是飘落的某个字母时(这里可以用文本框的keypress事件判断用户输入的是哪个字母),重新产生该标签上的字母,该标签重新冲顶端飘落,每个字母到达窗体底部则生命减1,生命为0是强行结束,结束时能计算得分和所用时间。
(2)中文输入界面
用两个文本框,上一个文本框显示原文,下一个文本框是用户输入的文字,可以在第二个文本框的change事件中或keypress事件中用mid函数对两个文本框对应位置的文字进行比较,(例如:Mid(Text1.Text, i, 1) <> Mid(RichTextBox1.Text, i, 1), 或chr(keyascii)<> Mid(RichTextBox1.Text, i, 1)。
注意普通的文本框不能单独设置每个文字的颜色,如果要将一个文本框中的文字设置成不同的颜色,需要用功能更强大的文本框RichTextBox,该控件也可以从部件对话框中加入到工具箱中。利用文本框的Selstart,Sel SelLength,SelColor属性设置出错文本颜色,这些属性的详细用法可以参照书本第三章介绍文本框控件的章节。
第一个文本框中的文本可以每次从一个文本文件中读入一行,当用户输完这一行后,再从文件中读入下一行内容。
结束时,应该能够计算用户打字的正确率和打字速度。 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询