指定時間後にタイマーを停止する方法

Question

私は乱数を連続して実行する3つのtexboxを持っています。 一定時間後にタイマーを停止する方法を知っていますか？ 5秒 タイマ2は10秒後に TIMER2はここで15秒

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 
      Dim num1 As Integer 
      Dim rnd As New Random() 

      num1 = rnd.[Next](0, 2) 
      TextBox1.Text = Convert.ToString(num1) 

     End Sub 
    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick 
      Dim num1 As Integer 
      Dim rnd As New Random 
      num1 = rnd.[Next](1, 9) 
      TextBox2.Text = Convert.ToString(num1) 
     End Sub 

     Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick 
      Dim num1 As Integer 
      Dim rnd As New Random 
      num1 = rnd.[Next](1, 9) 
      TextBox3.Text = Convert.ToString(num1) 
     End Sub 
    Private Sub btnrndpick_Click(sender As Object, e As EventArgs) Handles btnrndpick.Click 
     Timer1.Enabled = True 
     Timer2.Enabled = True 
     Timer3.Enabled = True 
     Timer4.Enabled = True 
     Timer5.Enabled = True 
     btnrndpick.Text = "RUNNING" 
    End Sub 

Answer 1

後に停止停止した後の例 タイマ1が停止

はわずか1タイマーでそれを行うための一つの方法である：

Private Rnd As New Random() 
Private buttonPressTime As DateTime 

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 
    If (DateTime.Now - buttonPressTime) < New TimeSpan(0, 0, 2) Then 
     SetTextBoxText(TextBox1, 0, 2) 
    End If 
    If (DateTime.Now - buttonPressTime) < New TimeSpan(0, 0, 5) Then 
     SetTextBoxText(TextBox2, 1, 9) 
    End If 
    If (DateTime.Now - buttonPressTime) < New TimeSpan(0, 0, 15) Then 
     SetTextBoxText(TextBox3, 1, 9) 
    Else 
     Timer1.Stop() 
    End If 
End Sub 

Private Sub SetTextBoxText(ByVal TextBox As TextBox, ByVal LowerBound As Integer, ByVal UpperBound As Integer) 
    TextBox.Text = Rnd.[Next](LowerBound, UpperBound).ToString() 
End Sub 

Private Sub btnrndpick_Click(sender As Object, e As EventArgs) Handles btnrndpick.Click 
    Timer1.Enabled = True 
    buttonPressTime = DateTime.Now 
    btnrndpick.Text = "RUNNING" 
End Sub 

Answer 2

を持っていますあなたは整数変数を使ってみましたか？

よう 何かDim number as integer = 0

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick number += 1 If number = 5 Then 'For example. But you need to adjust the tick property. Timer1.Stop End Sub