使用 Visual Basic 每分钟递增变量

Question

我正在 VB.NET (Visual Basic 2008) 中编写一个程序，其中我需要变量 X 每分钟增加 1，默认值为 0。到目前为止，我已经制作了一个计时器，用于计算从加载表单开始经过的分钟和秒数。从那里开始，我有点卡住了。

这是我得到的代码：

Dim X as Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    X = 0
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Function ConvertFunction(ByVal Counter As Integer) As String
    Dim Mins, Secs As Integer
    Secs = Counter Mod 60
    Mins = Counter \ 60
    Return Mins.ToString("00") & ":" & Secs.ToString("00")
End Function

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Static Counter As Integer
    Counter = Counter + 1
    Label1.Text = ConvertFunction(Counter)
End Sub

帮助，有人吗？提前致谢！

编辑：

我忘记包含一个细节，我刚刚意识到这可能会造成混淆。

在程序初始加载时默认值为0，但由于它也引用到数据库，过一段时间它可能是10或其他东西，所以下次加载程序时，它开始点将来自10。

对此感到抱歉。 ：/

Answer 1

我认为您发布的代码中包含所需的一切，但您的计时器每秒触发一次（1000 毫秒）。只需将其更改为每分钟触发一次就足够了：

Dim X as Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    X = 0 'or any other value from the database
    Timer1.Interval = 60000 'fires every minute
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    X += 1 ' increment the X after each minute passes
End Sub