Prikazati sat tipa sati:minute:sekunde:stotinke

[ nd_genius @ 28.02.2006. 19:25 ] @

Kako mogu napraviti da mi program "cita" vrijeme pomocu timera, a da prikazuje i stotinke??? Koristio sam pretragu, ali nisam uspio naci odgovor koji bi mi pomogao.

Hvala unaprijed

[ mladenovicz @ 28.02.2006. 22:47 ] @

Code:

Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)

Private 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

Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    Dim MyTime As SYSTEMTIME
    'Set the graphical mode to persistent
    Me.AutoRedraw = True
    'Get the local time
    GetLocalTime MyTime
    'Print it to the form
    Me.Print "The Local Date is:" & MyTime.wMonth & "-" & MyTime.wDay & "-" & MyTime.wYear
    Me.Print "The Local Time is:" & MyTime.wHour & ":" & MyTime.wMinute & ":" & MyTime.wSecond & _
    ":" & MyTime.wMilliseconds
End Sub

_{[Ovu poruku je menjao mladenovicz dana 28.02.2006. u 23:48 GMT+1]}

[ nd_genius @ 01.03.2006. 19:10 ] @

Ovo radi, ali treba mi da se mijenja vrijeme..
Znaci, program upise vrijeme kad se program pokrene, i ne mijenja ga.

pitanje: Sat navedenog tipa, ali da se non-stop mijenja???

[ steewsc @ 02.03.2006. 10:59 ] @

Ubaci Timer u formu i postavi:

Enabled=True
Interval=1

i dodaj sledeci kod:

Code:

Private Sub Timer1_Timer()
Call Form_Load
End Sub

[ Shadowed @ 02.03.2006. 21:21 ] @

Pre bih preporucio da stavi interval na 10. Ionako mu trebaju samo stotinke a osvezenje monitora nije dovoljno da bi se prikazali hiljaditi delovi sekunde. A i program ce trositi manje resursa.

[ steewsc @ 03.03.2006. 15:31 ] @

Moja greska, zaboravio da je u milisekundama.