Question

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

Answer 1

初始设置：(一个文本框，一个标签，一个定时器）
文本框：Text1.text的初值在控件属性中设置成10
定时器：Time1.Interval属性：1000，Time1.Enabled属性：True
标 签：Label1.Caption属性：计时10秒
程序：
Dim A As Integer
Private Sub Form_Load()
A = 3600
End Sub
Private Sub Timer1_Timer()
If Text1.Text <> 0 Then
Text1.Text = Val(Text1.Text) - 1
Else
A = A - 1
Label1.Caption = "暂停1小时"
If A = 0 Then
Text1.Text = 10
A = 3600
Label1.Caption = "继续计时"
End If
End If
End Sub

Answer 2

定时需要多准？若要求不高，就佷简单
先运行10s可用时钟控件，1小时就直接用time

追问

能不能写点简单的代码阿?因为思路我也会阿...只是不晓得如何编阿....谢谢阿

追答

你要告诉我你定时的精度是秒级还是毫秒级，不清楚要求我无法给你写代码

Answer 3

直接用Timer控件，让timer运行，定义两个全局变量，第一个，true运行十秒，false终止。第二个，true运行一个小时，false暂停，统计秒数，不断切换。

追问

关键我如何切换,能不能写个简单的代码阿?呵呵

Answer 4

你可以定义一个Integer：当30分钟时为0 一小时时为1
加个判断
当30分钟时为0执行…… 一小时时为1执行…… 然后一个半小时又为0…………
记得采纳~

追问

有点深奥,可以写点代码么?

Answer 5

'1个Timer1，Command1
Private Sub Command1_Click()
Timer1.Enabled = False
Timer1.Interval = 10000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static int1 As Integer
If Timer1.Interval = 10000 Then
'运行了10秒
Timer1.Enabled = False
Timer1.Interval = 60000
Timer1.Enabled = True

Else
int1 = int1 + 1
If int1 >= 60 Then
'60分了，运行你的程序
Timer1.Enabled = False
Timer1.Interval = 10000
Timer1.Enabled = True
int1 = 0 '准备下一个60分
End If
End If
End Sub