做个简单的计时器左边两个TEXT用于分别显示分和秒,要动态的.右边两个Label内容可不写 还有两个text,一个用于输入计时的最大时间,另一个用于输入响铃时间距结束时间的时差,例如输入30则在

做个简单的计时器左边两个TEXT用于分别显示分和秒,要动态的.右边两个Label内容可不写 还有两个text,一个用于输入计时的最大时间,另一个用于输入响铃时间距结束时间的时差,例如输入30则在
做个简单的计时器
左边两个TEXT用于分别显示分和秒,要动态的.右边两个Label内容可不写 还有两个text,一个用于输入计时的最大时间,另一个用于输入响铃时间距结束时间的时差,例如输入30则在距总时间30秒时响铃.当然还有四个command用于开始计时,暂停,清空四个text,以及结束.要求清空时左侧两个text显示四个零.

做个简单的计时器左边两个TEXT用于分别显示分和秒,要动态的.右边两个Label内容可不写 还有两个text,一个用于输入计时的最大时间,另一个用于输入响铃时间距结束时间的时差,例如输入30则在
左边两个Text分别是Text1、Text2
右边两个Text分别是Text3、Text4
四个Command分别是Command1、Command2、Command3、Command4
还有一个Label1、一个Timer1
以下是代码：
Dim s As Long
Private Sub Command1_Click() '开始计时
s = Val(Text3.Text)
Timer1.Interval = 1000
Timer1.Enabled = True
Label1.Caption = "开始!"
End Sub
Private Sub Command2_Click() '暂停和继续
If Timer1.Enabled Then
Label1.Caption = "暂停!"
Command2.Caption = "继续"
Timer1.Enabled = False
Else
Label1.Caption = "继续!"
Command2.Caption = "暂停"
Timer1.Enabled = True
End If
End Sub
Private Sub Command3_Click() '清空和停止
Timer1.Enabled = False
s = 0
Text1.Text = "00"
Text2.Text = "00"
Label1.Caption = "停止!"
End Sub
Private Sub Command4_Click() '退出程序
End
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer() '倒计时及响铃
s = s - 1
If s >= 0 Then
Text1.Text = Format(s \ 60,"00")
Text2.Text = Format(s Mod 60,"00")
End If
If s = Val(Text4) Then Label1.Caption = "响铃!"
If s