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
Hvala unaprijed
Prikazati sat tipa sati:minute:sekunde:stotinke
Zaključano
Zakačeno
izmenjeno 1 put, poslednji put mladenovicz 28.02.2006. u 23:48
Izmene poruke
- mladenovicz28.02.2006. u 23:48zapis iz teksta poruke
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
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
Potpis
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???
Znaci, program upise vrijeme kad se program pokrene, i ne mijenja ga.
pitanje: Sat navedenog tipa, ali da se non-stop mijenja???
Ubaci Timer u formu i postavi:
Enabled=True
Interval=1
i dodaj sledeci kod:
Enabled=True
Interval=1
i dodaj sledeci kod:
Code:
Private Sub Timer1_Timer()
Call Form_Load
End Sub
Private Sub Timer1_Timer()
Call Form_Load
End Sub
Potpis
www.cicevac.com
†StEEwSc†
†StEEwSc†
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.
Moja greska, zaboravio da je u milisekundama.
Potpis
www.cicevac.com
†StEEwSc†
†StEEwSc†