当前位置: 源码素材网 » VB源码 » 其它源码 » 详情页

VB6.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

  • 相关标签:指法练习
  • 调试环境:VB6.0
  • 文件大小:151K
  • 资源评级:
  • 更新时间:2019-08-13
  • 相关链接:暂无演示

源码测试截图:

VB6.0 打字 指法练习小程序源代码运行截图

相似源码:指法练习 VB源码下载:VB6.0 打字 指法练习小程序源代码 测试截图

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“VB6.0 打字 指法练习小程序源代码”源代码侵犯了您的权益,请尽快告诉我们。