当前位置：首页 → 问答吧 → 急救一个困惑许久的问题

急救一个困惑许久的问题

时间：2011-07-20

来源：互联网

vb如何实现一个程序先运行10s，然后停止1小时后，再继续运行一个小时，如此循环。。。。。。

作者: penghui218 发布时间: 2011-07-20

Timer控件？

作者: Alice814108771 发布时间: 2011-07-23

VB code

Option Explicit
Dim flag As Integer
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
Label1.Caption = "运行中,10秒后暂停.."
flag = 0
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = Timer1.Interval + 1000
If flag = 0 And Timer1.Interval = 10000 Then
    Timer1.Interval = 60000: flag = 1: Label1.Caption = "暂停中,1小时后运行.."
ElseIf flag = 1 And Timer1.Interval = 5000 Then
    Timer1.Interval = 60000: flag = 2: Label1.Caption = "运行中,1小时后运行.."
ElseIf flag = 2 And Timer1.Interval = 5000 Then
    Timer1.Interval = 60000: flag = 1: Label1.Caption = "暂停中,1小时后运行.."
End If

End Sub

作者: xiaolinyouni 发布时间: 2011-07-23

引用 2 楼 xiaolinyouni 的回复:

VB code
Option Explicit
Dim flag As Integer
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
Label1.Caption = "运行中,10秒后暂停.."
flag = 0
Timer1.Enabled = True
End Sub

Private Sub ……

草,弄错地方了
修正

VB code

Option Explicit
Dim flag As Integer
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
Label1.Caption = "运行中,10秒后暂停.."
flag = 0
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = Timer1.Interval + 1000
If flag = 0 And Timer1.Interval = 10000 Then
    Timer1.Interval = 1000: flag = 1: Label1.Caption = "暂停中,5秒后运行.."
ElseIf flag = 1 And Timer1.Interval = 60000 Then
    Timer1.Interval = 1000: flag = 2: Label1.Caption = "运行中,5秒后运行.."
ElseIf flag = 2 And Timer1.Interval = 60000 Then
    Timer1.Interval = 1000: flag = 1: Label1.Caption = "暂停中,5秒后运行.."
End If

End Sub