DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Text Timer

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Mar 2007

Posts: 3

Reputation: vidyahajare is an unknown quantity at this point

Solved Threads: 0

vidyahajare vidyahajare is offline

Offline

Newbie Poster

Re: Text Timer

#11

Mar 29th, 2007

thanks a million for explaining the use of getsystemtime() .
i was luking for that particular peiece of onfo very badly.
it's really ossom

vidya

•

Originally Posted by Comatose

Alright, I've Got It:

You Need To Add A Plain Ole Standard Module (It's A Good Practice), inside of the module add this:

Module Code:
Help with Code Tags

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Public Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Public Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long
 
Public Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End Type
Public Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) Public Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long Public Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As Integer End Type
In your form load event, You'll need this code:

Form Load Code
Help with Code Tags

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Dim GMTime As SYSTEMTIME
Dim TheTime As String
GetSystemTime GMTime
 
Text1.Text = GMTime.wHour & ":" & GMTime.wMinute & ":" & GMTime.wSecond & "." & GMTime.wMilliseconds
 
For x = 1 To 10000
    Print "Frost"
Next
 
GetSystemTime GMTime
 
Text2.Text = GMTime.wHour & ":" & GMTime.wMinute & ":" & GMTime.wSecond & "." & GMTime.wMilliseconds
Timer1.Interval = 1
Label1.Caption = ""
Dim GMTime As SYSTEMTIME Dim TheTime As String GetSystemTime GMTime Text1.Text = GMTime.wHour & ":" & GMTime.wMinute & ":" & GMTime.wSecond & "." & GMTime.wMilliseconds For x = 1 To 10000 Print "Frost" Next GetSystemTime GMTime Text2.Text = GMTime.wHour & ":" & GMTime.wMinute & ":" & GMTime.wSecond & "." & GMTime.wMilliseconds Timer1.Interval = 1 Label1.Caption = ""
And Lastly in your timer event:

Timer Event Code:
Help with Code Tags

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Dim GMTime As SYSTEMTIME
Dim TheTime As String
GetSystemTime GMTime
 
Label1.Caption = GMTime.wHour & ":" & GMTime.wMinute & ":" & GMTime.wSecond & "." & GMTime.wMilliseconds
Dim GMTime As SYSTEMTIME Dim TheTime As String GetSystemTime GMTime Label1.Caption = GMTime.wHour & ":" & GMTime.wMinute & ":" & GMTime.wSecond & "." & GMTime.wMilliseconds
So Far, This works flawlessly for me. Let me know how it works for you.... if you need an additional help, let me know.