欢迎来到天天文库
浏览记录
ID:51837722
大小:217.00 KB
页数:12页
时间:2020-03-16
《打字源程序打字系统的设计与实现.doc》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、打字系统的设计与实现本工程以一个比较实用的例子,主要用来实现对打字速度、打字准确率进行评测,并给出适当的成绩,是一个用于测试打字的应用程序。通过本系统,可以了解如何使用VisualBasic来开发一个比较完整的应用程序。但限于篇幅,有一些功能没有实现,如用户管理,系统配置以及登录、启动屏幕(SplashScreen)等。本工程将使用VB的多种控件,如文件对话框控件、时间控件、SSTab控件、状态栏以及通用控件等。本系统可以完成以下任务:l以随机抽取文本方式或指定具体文本文件的方式,来获得打字测试的内容。但文件不能超过40
2、96字节(而且,最多是前300个字有效)。l用户可以设置各种系统参数。如考试时间设定、字数设置。l打字速度、准确率、成绩的测试。图1-1、1-2显示的是程序运行后的外观图1-2运行时的“系统设置”界面图1-2运行时的“打字测试”界面首先,现在窗体上添加各种控件,如图1-3、1-4设计屏幕,然后添加程序代码。在图1-3的“打字测试”设计界面窗体中,其控件、主要属性、控件说明(一些次要属性如Height、Width除非特别,否则将不特别说明,读者可以根据具体情况来设定)如下:控件名称主要控件属性名称属性值功能说明Form1C
3、aption打字测试系统BorderStyle3–FixedDialogStartUpPosition2-屏幕中心CommonDialog名称dbFileTimer名称Timer1用于时间限定和倒计时显示Interval1000名称Timer2用于在状态栏中显示时间和日期Interval500SSTabCaption打字测试ForeColor&H00FF0000&(蓝色)TabOrientation1-ssTabOrientationBottomLabel名称lblTime显示倒计时计时器BackColor浅蓝Borde
4、rStyle1–FixedSingleCaption10:00名称lblGetText存放测试内容,顺序置后BorderStyle1–FixedSingleWordWrapTrue名称lblWrite指示打入字符的进度,顺序在lblGetText的前面。BackStyle0–Transpare(透明)BorderStyle1–FixedSingleForeColor&H00FF0000&(蓝色)名称lblError指示出打错的文本,打对的用空格填充BadkStyle0–Transpare(透明)BorderStyle1–
5、FixedSingleForeColor&H000000FF&(红色)名称lblInfo用来显示打字速度以及准确率等BorderStyle1–FixedSingleTextBox名称txtGetText用来输入字符(汉字)EnabledFalseMultiLineTrueCommandButton名称cmdStart开始测试按钮Caption开始名称Command1以打开文件方式选取测试内容Caption指定文件名称CmdExit退出系统Caption退出StatusBar名称StatusBar1状态栏,显示时间注:其中
6、,lblGetText、lblWrite、lblError在设计时应该在风格、位置和大小上一致,运行时也须一致(见相关代码)。这里相互错开,主要是要大家清楚界面的设计。图1-3“打字测试”设计界面在图1-4的“系统设置”设计界面窗体中,其控件、主要属性、控件说明如下:控件名称主要控件属性名称属性值功能说明SSTabCaption系统设置ForeColor&H00FF0000&(蓝色)ComboBox名称cmbSetTime设定测试时间,其值见代码Text10Frame名称Frame1Caption测试时间设置Option
7、Button名称Option1这是控件数组,用于指定测试内容选择Label名称lblTip在“设置说明”框架内,进行各项说明图1-4“系统设置”设置界面本系统采用的主要原理:l系统初始化:完成系统的各项初始化。PrivateSubForm_Load()‘使得目标文字的各项标签的位置、大小一直lblError.Left=lblGetText.LeftlblError.Top=lblGetText.ToplblError.Height=lblGetText.HeightlblError.Width=lblGetText.Wi
8、dthlblWrite.Left=lblGetText.LeftlblWrite.Top=lblGetText.ToplblWrite.Height=lblGetText.HeightlblWrite.Width=lblGetText.WidthlblWrite.Font.Size=lblGetText.Font.S
此文档下载收益归作者所有