Kuinka saa kellon jossa on sekunnin tuhannesosat?
kun ei taida tuolla tavan timerillä saada :/
Timer
Oppilas
4
407
Vastaukset
- Orwell
Tällä API-funktiolla saat aika tarkan ajan.
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- Oppilas
En saanut toimimaan, voisitko selittää mitenkä tuo pitää tehdä? =)
- Orwell
Oppilas kirjoitti:
En saanut toimimaan, voisitko selittää mitenkä tuo pitää tehdä? =)
En tiedä mitä haluat oikein tehdä, mutta ao. koodinpätkä näyttää juoksevan ajan.
Lisää formille Timer- ja Label-kontrolli ja aseta Timer-kontrollin Interval-arvo 1.
Private Sub Timer1_Timer()
Dim sys As SYSTEMTIME
Call GetLocalTime(sys)
Label1.Caption = sys.wHour & ":" & sys.wMinute & ":" & sys.wSecond & ":" & sys.wMilliseconds
End Sub - vbguru
Oppilas kirjoitti:
En saanut toimimaan, voisitko selittää mitenkä tuo pitää tehdä? =)
Print Time & ":" & Replace(Round(Timer - Int(Timer), 3), "0,", "")
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kumpi vetoaa enemmän sinuun
Kaivatun ulkonäkö vai persoonallisuus? Ulkonäössä kasvot vai vartalo? Mikä luonteessa viehättää eniten? Mikä ulkonäössä?871724- 851232
- 1101123
- 68915
- 102884
Okei nyt mä ymmärrän
Olet siis noin rakastunut, se selittää. Onneksesi tunne on molemminpuolinen 😘56818- 47731
- 36722
Olen huolissani
Että joku päivä ihastut/rakastut siskooni. Ja itseasiassa haluaisin, ettei hän olisi mitenkään sinun tyyppiäsi ja pitäis47671- 33663