VB.net - 在兩個用戶定義的值之間設置定時器間隔

編程和計算器的新增功能。在vb.net中，目前我已將計時器間隔設置爲文本框中的插入值。我想有兩個文本框的值（例如30000和40000）和計時器間隔設置爲這兩個值之間的隨機數（例如30和40秒之間）。希望每次計時器滴答時重新計算此編號。謝謝。VB.net - 在兩個用戶定義的值之間設置定時器間隔

我能找到的最接近的是：Setting random Timer intervals in VB但它沒有處理用戶定義的值。

來源

2014-10-16 TimeWarp

http://msdn.microsoft.com/en-us/library/2dx6wyd4%28v=vs.110%29.aspx – 2014-10-16 16:20:15

也許這會爲你工作好？

Option Strict On 
Option Explicit On 
Imports System.Timers 
Public Class Form1 

    Private WithEvents time As New Timer 
    Private randNum As New System.Random 

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 

     Me.TextBox1.Text = "30000" 
     Me.TextBox2.Text = "40000" 
     time.Interval = 1000 ' enable timer when form loads 
     time.Start() 

    End Sub 

    Private Sub time_Elapsed(sender As Object, e As ElapsedEventArgs) Handles time.Elapsed 
     ' this code (below) assumes valid data against TextBox1 and TextBox2 
     time.Interval = randNum.Next(CInt(Me.TextBox1.Text), CInt(Me.TextBox2.Text)) 
     Debug.WriteLine(time.Interval.ToString) 
    End Sub 

End Class

來源

2014-10-16 16:59:09 Rose

所有我需要添加爲： timer1.Interval = randNum.Next（CINT（TextBox1.Text），CINT（TextBox2.Text））此外，的Debug.WriteLine（Timer1.Interval.ToString）幫助確認有用。非常感謝！（： – TimeWarp 2014-10-16 17:39:00

在你的計時器代碼...添加類似這樣的東西..

Dim randNum As New System.Random 
Debug.WriteLine(randNum.Next(30, 40).ToString)

來源

2014-10-16 16:19:06 Rose

謝謝你的反應，但我所尋找的是有2用戶輸入值的文本框，並將計時器間隔作爲這兩個值之間的隨機數。 – TimeWarp 2014-10-16 16:41:25

VB.net - 在兩個用戶定義的值之間設置定時器間隔

回答

相關問題