打字源程序打字系统的设计与实现.doc

《打字源程序打字系统的设计与实现.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