计时小软件(免费) 个人原创

carzylee10

分别计时功能,钞表

carzylee10

【文件名】:0782@52RD_秒表(1).rar
【格　式】:rar
【大　小】:4K
【简　介】:
【目　录】:无,源代码如下

Option Explicit
Dim ss%, mm%, hh%, ww%, na%
Dim time_rec As String
Private Sub Command1_Click()
Command4.Enabled = True
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Command5.Enabled = True
Timer1.Enabled = False
Call sequ
time_rec = Str(na) + "." + Text1.Text
List1.AddItem time_rec
End Sub
Private Sub Command3_Click()
Command5.Enabled = True
Call sequ
time_rec = Str(na) + "." + Text1.Text
List1.AddItem time_rec
End Sub
Private Sub Command4_Click()
Timer1.Enabled = False
ww = 0: ss = 0: mm = 0: hh = 0
Text1 = Format$(hh, "00") + ":" + Format$(mm, "00") + ":" + Format$(ss, "00") + ":" + Format$(ww, "00")
End Sub
Private Sub Command5_Click()
List1.Clear
Command4.Enabled = False
Command5.Enabled = False
Call sequ
End Sub
Private Sub Command6_Click()
End
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Text1 = Format$(hh, "00") + ":" + Format$(mm, "00") + ":" + Format$(ss, "00") + ":" + Format$(ww, "00")
Command4.Enabled = False
Command5.Enabled = False
End Sub

Private Sub Timer1_Timer()
ww = ww + 1
If ww >= 100 Then
ss = ss + 1
ww = 0
If ss >= 60 Then
mm = mm + 1
ss = 0
If mm >= 60 Then
hh = hh + 1
mm = 0
End If
End If
End If
Text1 = Format$(hh, "00") + ":" + Format$(mm, "00") + ":" + Format$(ss, "00") + ":" + Format$(ww, "00")
End Sub
Public Sub sequ()
Static sequence
sequence = sequence + 1
na = sequence
If Command5.Enabled = False Then
sequence = 0
End If
End Sub

carzylee10

经过小小修正,增加列表序号
【文件名】:0783@52RD_秒表.rar
【格　式】:rar
【大　小】:4K
【简　介】:
【目　录】:见上

源码同上