Question

How to run while loop for N seconds in VB.NET

Answer 1

Imports System
Imports System.Threading

Public Class Program
	Public Shared Sub Main()
        Dim startTime As DateTime = DateTime.Now
        Dim duration As TimeSpan = TimeSpan.FromSeconds(3)
        Dim endTime As DateTime = startTime.Add(duration)

        While DateTime.Now < endTime
            Thread.Sleep(1000)
            Console.WriteLine(DateTime.Now)
        End While
    End Sub
End Class


' run:
'
' 10/11/2024 8:36:12 AM
' 10/11/2024 8:36:13 AM
' 10/11/2024 8:36:14 AM
'

 

70+ SQL courses for beginners and professionals