Kuinka saa kellon jossa on sekunnin tuhannesosat?
kun ei taida tuolla tavan timerillä saada :/
Timer
Oppilas
4
471
Vastaukset 4
- 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
Metsamanin muru kissa kuollut
Nyt siellä surraan muru kissaa päivä tolkulla,vaikka muuten ei oo välittänyt mitenkään siitä,kun joka videolla vaan mars1662650- 821135
Kysymys
Pystyisitkö tutustuu kaverina tai alkaa parisuhteeseen skitsofreenikon kanssa? T.Skitosoaffektiivinen (parantunut) Ois2371025- 121996
Tapailtaisko nainen
Meidän kotien puolessavälissä suunnilleen, vähä niinku salaa. Siinä on yks kiva paikka joka sopis hyvin. Mieheltä82858- 87717
Kissan kuolema
https://youtube.com/shorts/lJznLVfBTxA?si=h-F1D4Arg4uGjGX- On tuo aivan uskomaton tapaus! Lähes 200 osanottoa ja surun104618Haluatko J-mies jutella asiat selviksi vai jäädä palstalle haaveilemaan
Kuten otsikko sanoo: Haluatko tavata ja jutella, jotta saadaan asioihin selvyys lopullisesti vai haluatko mieluummin haa50577- 38552
- 36508