WaitEx() Function :D

I'm learning VB.net so I decided to translate a couple easier things from VB6. This was a popular Wait() function used a lot in VB6, so I thought I could make it better AND put it into VB.net, so here we are. There is an easier way to do this, but since I'm learning I thought I'd give it a go

    Public Declare Function timeGetTime Lib "winmm.dll" () As Long

    Public Sub WaitEx(ByVal value As Long, ByVal seconds As Boolean)

        On Error Resume Next
        Dim cTime As Long

        cTime = timeGetTime()

        If seconds = True Then

            Do
                Application.DoEvents()
            Loop While cTime + (value * 1000) > timeGetTime()

        Else

            Do
                Application.DoEvents()
            Loop While cTime + value > timeGetTime()

        End If

    End Sub

How to use:
Value property (long): This is the time that the application will wait for.
Seconds property (boolean): Set to true to have the application wait for [value] in seconds, set to false to have it wait for [value] in milliseconds.

 

[Nullware]

Shorten it?

 Public Declare Function timeGetTime Lib "winmm.dll" () As Long

    Public Sub WaitEx(ByVal value As Long, ByVal seconds As Boolean)

        On Error Resume Next
        Dim cTime As Long

        cTime = timeGetTime()

        If seconds = True Then

            value = value * 1000

        End if

        Do
            Application.DoEvents()
        Loop While cTime + value > timeGetTime()

    End Sub

 

[Swan]

Made slightly better. "On Error Resume Next" Is SO Visual Basic 6.

    Public Declare Function timeGetTime Lib "winmm.dll" () As Long

    Public Sub WaitEx(ByVal value As Long, ByVal seconds As Boolean)
        Dim cTime As Long

        Try
            cTime = timeGetTime()
        
            If seconds = True Then

                value = value * 1000

            End if

            Do
                Application.DoEvents()
            Loop While cTime + value > timeGetTime()


        Catch Ex As Exception
            Console.WriteLine(Ex.Message)
            Console.WriteLine(Ex.StackTrace)
        End Try
    End Sub

 

[Nullware]

Made slightly better. "On Error Resume Next" Is SO Visual Basic 6.

I figured .Net must have implemented the Try Catch but I don't do much of it so good job thinking of it. Team effort.

 

[Flaming Idiots]

Why use a native function to get the time? This should work just fine, just use 0.3 for 300 milliseconds.

Public Sub Wait(ByVal Seconds As Double)
    If Seconds <= 0 Then Throw New InvalidOperationException("Must wait more than zero seconds.")
    Dim EndTime = Now + TimeSpan.FromSeconds(Seconds)
    Do While Now <= EndTime
        System.Windows.Forms.Application.DoEvents()
    Loop
End Sub

It would be better to use a timer or an alternate thread though.

 

[Swan]

I figured .Net must have implemented the Try Catch but I don't do much of it so good job thinking of it. Team effort.

I use it in almost every program that I write ^_^