如何开发打字测速小程序

随着技术的不断进步，信息化的不断加强，现在工作几乎是无纸化办公了，打字也是一项基本技能，打字的快慢直接影响到工作效率，对于个人来说我们个人的打字速度到底怎么样呢？除了使用网络上的打字测速软件之外，我们个人也可以开发出具有打字测速功能的小程序，不信，请你看完这篇经验。

首先双击vb6快捷图标，进入主界面，执行文件-新建工程命令，在弹出的新建工程对话框中选择标准exe文件，选中后点击确定进入编辑主界面。

按住窗体周围的小正方形拖拽调节窗体的大小，使其大小合适，选择form1修改其borderstyle属性值0-none，并修改startupposition属性值为屏幕中心。

在工具箱里双击便签控件在窗体上产生一个label1，修改其caption属性值为“打字测速软件”，点击font属性弹出字体设置对话框，设置字体为王羲之书法字体，字形为常规字体，字号为二号。

选择工具箱里的文本框工具，在窗体上拖拽出两个文本框控件 ，把text1调节大一些用于文本的输入，另一个下一些用于显示打字速度。

接着在窗体上放置三个按钮，依次修改其caption属性为“开始”、“结束”、“退出”，并调节他们的位置使他们排放整齐美观。

接着在窗体上再次放置两个标签，依次修改其caption属性值为“打字速度”、“字/分钟”，并调节排放位置，修改text1和text2的text属性值为空。

双击开始按钮进入代码编辑区域，输入代码为：kstime = Time()，接着进入结束按钮代码编辑区域输入代码为：

Private Sub cmdend_Click()

Dim inttimecost As Integer, intwordcount As Integer

jstime = Time()

inttimecost = DateDiff("s", kstime, jstime)

intwordcount = Len(txtinput.Text)

txtspeed.Text = intwordcount / (inttimecost / 60)

End Sub

接着点击工具栏的运行按钮进行调试运行，在这里产出溢出错误，根据提示内容进行修改，这类错误的主要原因应该是数据类型范围不够，重新定义数据类型。

在对象中选择通用，过程中选择声明，输入代码为：

Option Explicit

Dim kstime As Date, jstime As Date

运行并调试。

再次点击工具栏的运行按钮进行测试，通过后进行测试算法是否正确，点击开始按钮，在大的输入框中输入文字，接着点击结束按钮，查看文本框2中是否有数据产生，点击后产生错误，根据错误提示继续修改。

再次调试运行查看结果，用秒表测试自己的打字速度和该程序测得的数据进行比较查看算法思想是否正确。

执行文件-生成工程1.exe文件，在弹出的对话框中选择桌面，输入名称为“打字测速”，点击生成，将其生成可执行文件，接着保存整个文件即可。