Question

编程和stackoverflow非常新。在vb.net中，目前我将计时器间隔设置为文本框中的插入值。我想有两个带有值的文本框（例如30000和40000），并且计时器间隔设置为这两个值之间的随机数（例如30到40秒之间）。想要在每次计时器滴答时重新计算此数字。谢谢。

我能找到的最接近的是：Setting random Timer intervals in VB但它没有处理用户定义的值。

Answer 1

在您的计时器代码中...添加与此类似的东西..

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

Answer 2

也许这对你有用吗？

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

VB.net - 设置两个用户定义值之间的定时器间隔

2 个答案: