初学提问/倒计时重置如何实现?求吧主不删,实在是吧内没找到解
vb吧
全部回复
仅看楼主
level 3
魏青瞳Ω 楼主
初学提问/倒计时重置如何实现?
求吧主不删,实在是吧内没找到解决方案。
作业:做一个可重置的手速测试器。
timer目前只会一点点interval和enabled,楼主试图timer1.enabled=false,又参考吧内某大神的解答,timer1.interval=0,但是无法正常运行。
对timer一知半解,在这里先谢过各位大佬了。
2020年05月16日 11点05分 1
level 3
魏青瞳Ω 楼主
Dim t As Integer, x As Integer
Private Sub Form_Load()
x = 0
t = 10
'加载窗体时,初始剩余时间为10秒
End Sub
Private Sub Command1_Click()
x = x + 1
'每一次click使得击打数+1
Label3.Caption = "手速评估中..."
If t > 0 Then
Label2.Caption = Str(x)
Else
End If
'当倒计时结束时输出击打数值
End Sub
Private Sub Timer1_Timer()
Timer1.Interval = 1000
'设定时间变动间隔
If x > 0 Then
t = t - 1
Else
End If
'倒计时开始判定
Label1.Caption = Str(t)
'倒计时剩余时间输出
If t = 0 And x >= 60 Then
Label3.Caption = "手速较快"
End If
If t = 0 And x < 60 And x >= 30 Then
Label3.Caption = "手速正常"
End If
If t = 0 And x > 0 And x < 30 Then '
Label3.Caption = "手速较慢"
End If
'手速快慢进行条件判定评估
If t = 0 Then
Timer1.Enabled = False
Label2.Caption = Str(x)
'倒计时结束时停止,并输出打击次数
ElseIf x > 0 Then
Timer1.Enabled = True
'倒计时结束判定
End If
End Sub
Private Sub Command2_Click()
Call Form_Load
'唤起窗体加载事件
Label1.Caption = Str(t)
Label2.Caption = Str(x)
Label3.Caption = "手速待评估"
'重置状态
Timer1.Enabled = False
Timer1.Interval = 0
'重置计时器效果,此为无效代码
End Sub
2020年05月16日 11点05分 2
level 15
运行时不建议更改Interval属性,只需要用Enabled控制定时器的开关即可
2020年05月17日 00点05分 4
感谢!不久前才意识到可以用面板进行属性修改
2020年05月23日 08点05分
level 8
10秒钟点几次?
2020年05月23日 11点05分 5
对
2020年05月30日 11点05分
1