文件名称:VB6.0 打字 指法练习小程序源代码
-
所属分类:
- 标签属性:
- 上传时间:2020-11-01
-
文件大小:140.79kb
-
已下载:0次
-
提 供 者:
-
相关连接:无下载说明:别用迅雷下载,失败请重下,重下不扣分!
介绍说明--下载内容来自于网络,使用问题请自行百度
VB6.0 编写的一个挺简单的指法练习源代码,随机显示练习题的内容,捕获 keypresses,计算打字练习时间,计算每分钟多少字,计算争取率,每分钟单词数计时器。一些相关的源代码:
Private Sub Timer1_Timer()
'每分钟单词数计时器
WordsPerMin = 0
PrgressBar1.Value = Val(Len(Lbl_Input.Caption) * 100 / Len(Txt_Article.Text))
'计算打字练习时间
Lbl_Time.Caption = TimeFormat(Int(Timer - Time_Start))
'计算每分钟多少字
Lbl_rate.Caption = Int(Len(Me.Lbl_Input.Caption) * 60 / Int(Timer - Time_Start)) & "字/分钟"
'计算争取率
Lbl_Correct.Caption = CorrectRate(Me.Lbl_Input.Caption)
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "start" '开始
StartNewTest = True '设置标识变量
Timer1.Enabled = True '设置Timer控件可用
Time_Start = Timer '获取开始的时间
Me.Txt_Article.SetFocus '将焦点设置在文本框中
' Lbl_Correct.Caption = "100%"
Case "new" '新建
Call ShowRandomWords
Timer1.Enabled = False
Lbl_Time.Caption = "0:0:0"
Lbl_rate.Caption = "0字/分钟"
PrgressBar1.Value = 0
' Lbl_Correct.Caption = "100%"
Case "exit" '退出
End
End Select
End Sub
Private Sub Timer1_Timer()
'每分钟单词数计时器
WordsPerMin = 0
PrgressBar1.Value = Val(Len(Lbl_Input.Caption) * 100 / Len(Txt_Article.Text))
'计算打字练习时间
Lbl_Time.Caption = TimeFormat(Int(Timer - Time_Start))
'计算每分钟多少字
Lbl_rate.Caption = Int(Len(Me.Lbl_Input.Caption) * 60 / Int(Timer - Time_Start)) & "字/分钟"
'计算争取率
Lbl_Correct.Caption = CorrectRate(Me.Lbl_Input.Caption)
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "start" '开始
StartNewTest = True '设置标识变量
Timer1.Enabled = True '设置Timer控件可用
Time_Start = Timer '获取开始的时间
Me.Txt_Article.SetFocus '将焦点设置在文本框中
' Lbl_Correct.Caption = "100%"
Case "new" '新建
Call ShowRandomWords
Timer1.Enabled = False
Lbl_Time.Caption = "0:0:0"
Lbl_rate.Caption = "0字/分钟"
PrgressBar1.Value = 0
' Lbl_Correct.Caption = "100%"
Case "exit" '退出
End
End Select
End Sub
(系统自动生成,下载前可以参看下载内容)
下载文件列表
压缩包 : 指法练习软件.rar 列表 MSSCCPRJ.SCC Project1.vbp Project1.vbw images/Thumbs.db images/{282D5215-7EDD-4C09-910E-80EB2C921483}.ico images/关闭.bmp images/开始.bmp images/新练习.bmp images/正常状况/'.bmp images/正常状况/-.bmp images/正常状况/0.bmp images/正常状况/1!.bmp images/正常状况/2.bmp images/正常状况/3.bmp images/正常状况/4.bmp images/正常状况/5.bmp images/正常状况/6.bmp images/正常状况/7.bmp images/正常状况/8.bmp images/正常状况/9.bmp images/正常状况/=.bmp images/正常状况/a.bmp images/正常状况/alt.bmp images/正常状况/b.bmp images/正常状况/c.bmp images/正常状况/caps.bmp images/正常状况/ctrl.bmp images/正常状况/d.bmp images/正常状况/e.bmp images/正常状况/enter.bmp images/正常状况/Esc.bmp images/正常状况/f.bmp images/正常状况/f1.bmp images/正常状况/f10.bmp images/正常状况/f11.bmp images/正常状况/f12.bmp images/正常状况/F2.bmp images/正常状况/F3.bmp images/正常状况/F4.bmp images/正常状况/f5.bmp images/正常状况/f6.bmp images/正常状况/f7.bmp images/正常状况/f8.bmp images/正常状况/f9.bmp images/正常状况/g.bmp images/正常状况/h.bmp images/正常状况/i.bmp images/正常状况/j.bmp images/正常状况/k.bmp images/正常状况/l.bmp images/正常状况/m.bmp images/正常状况/n.bmp images/正常状况/o.bmp images/正常状况/p.bmp images/正常状况/q.bmp images/正常状况/r.bmp images/正常状况/s.bmp images/正常状况/shift.bmp images/正常状况/t.bmp images/正常状况/tab.bmp images/正常状况/Thumbs.db images/正常状况/u.bmp images/正常状况/v.bmp images/正常状况/w.bmp images/正常状况/win.bmp images/正常状况/x.bmp images/正常状况/y.bmp images/正常状况/z.bmp images/正常状况/_.bmp images/正常状况/~.bmp images/正常状况/、.bmp images/正常状况/《-.bmp images/正常状况/《.bmp images/正常状况/》.bmp images/正常状况/【.bmp images/正常状况/】.bmp images/正常状况/空格.bmp images/正常状况/问号.bmp images/鼠标按下状况/' 副本.bmp images/鼠标按下状况/- 副本.bmp images/鼠标按下状况/0 副本.bmp images/鼠标按下状况/1!.bmp images/鼠标按下状况/2 副本.bmp images/鼠标按下状况/3 副本.bmp images/鼠标按下状况/4 副本.bmp images/鼠标按下状况/5 副本.bmp images/鼠标按下状况/6 副本.bmp images/鼠标按下状况/7 副本.bmp images/鼠标按下状况/8 副本.bmp images/鼠标按下状况/9 副本.bmp images/鼠标按下状况/= 副本.bmp images/鼠标按下状况/a 副本.bmp images/鼠标按下状况/alt 副本.bmp images/鼠标按下状况/b 副本.bmp images/鼠标按下状况/c 副本.bmp images/鼠标按下状况/caps 副本.bmp images/鼠标按下状况/ctrl 副本.bmp images/鼠标按下状况/d 副本.bmp images/鼠标按下状况/e 副本.bmp images/鼠标按下状况/enter 副本.bmp images/鼠标按下状况/Esc 副本.bmp images/鼠标按下状况/f 副本.bmp images/鼠标按下状况/f1 副本.bmp images/鼠标按下状况/f10 副本.bmp images/鼠标按下状况/f11 副本.bmp images/鼠标按下状况/f12 副本.bmp images/鼠标按下状况/F2 副本.bmp images/鼠标按下状况/F3 副本.bmp images/鼠标按下状况/F4 副本.bmp images/鼠标按下状况/f5 副本.bmp images/鼠标按下状况/f6 副本.bmp images/鼠标按下状况/f7 副本.bmp images/鼠标按下状况/f8 副本.bmp images/鼠标按下状况/f9 副本.bmp images/鼠标按下状况/g 副本.bmp images/鼠标按下状况/h 副本.bmp images/鼠标按下状况/i 副本.bmp images/鼠标按下状况/j 副本.bmp images/鼠标按下状况/k 副本.bmp images/鼠标按下状况/l 副本.bmp images/鼠标按下状况/m 副本.bmp images/鼠标按下状况/n 副本.bmp images/鼠标按下状况/o 副本.bmp images/鼠标按下状况/p 副本.bmp images/鼠标按下状况/q 副本.bmp images/鼠标按下状况/r 副本.bmp images/鼠标按下状况/s 副本.bmp images/鼠标按下状况/shift 副本.bmp images/鼠标按下状况/t 副本.bmp images/鼠标按下状况/tab 副本.bmp images/鼠标按下状况/Thumbs.db images/鼠标按下状况/u 副本.bmp images/鼠标按下状况/v 副本.bmp images/鼠标按下状况/w 副本.bmp images/鼠标按下状况/win 副本.bmp images/鼠标按下状况/x 副本.bmp images/鼠标按下状况/y 副本.bmp images/鼠标按下状况/z 副本.bmp images/鼠标按下状况/_ 副本.bmp images/鼠标按下状况/~ 副本.bmp images/鼠标按下状况/、 副本.bmp images/鼠标按下状况/《 副本.bmp images/鼠标按下状况/《- 副本.bmp images/鼠标按下状况/》 副本.bmp images/鼠标按下状况/【 副本.bmp images/鼠标按下状况/】 副本.bmp images/鼠标按下状况/空格 副本.bmp images/鼠标按下状况/问号 副本.bmp Form1.frm Form1.frx images/正常状况 images/鼠标按下状况 images
本网站为编程资源及源代码搜集、介绍的搜索网站,版权归原作者所有! 粤ICP备11031372号
1999-2046 搜珍网 All Rights Reserved.