第一次是1个小时,第二次50分钟,第三次40分钟, 一直到0分钟么?
还是第一次是1个小时, 第二次50分钟,第三次回到1个小时,第四次50分钟,一直循环..
如果按照你现在的表述,我理解的是应该是第二种...
下面是第二种的解法...第一种在这上面修改一下就可以了...
Dim 过去时间,现在时间
Do
For i = 0 To 1
Call 子程序1(60-10*i)
Call 子程序2()
Delay 100
Next
Delay 100
Loop
Sub 子程序1(参数)
过去时间 = Plugin.GetSysInfo.GetTime()
Do
现在时间 = Plugin.GetSysInfo.GetTime()
If 过去时间 >= 参数 * 1000 * 60 Then
TracePrint "时间到了,我要跳出子程序1..."
Exit Do
Else
TracePrint "我是子程序1,我在运行中..."
End If
Delay 100
Loop
End Sub
Sub 子程序2()
TracePrint "我是子程序2,我在运行中..."
TracePrint "现在已经运行结束子程序2,我要重新去运行子程序1"
End Sub