Kuinka saa kellon jossa on sekunnin tuhannesosat?
kun ei taida tuolla tavan timerillä saada :/
Timer
Oppilas
4
399
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
- 1452519
En kai koskaan saa sinua
Koska et usko että riitäisit minulle. Olet aina pitänyt itseäsi liian risana ja heikkona. Katkot korkeutesi, ja poraat k1541649Terveystalon lääkärit ylilaskuttaneet
Tämän pörriäiset osaavat, laskuttamisen. Terveystalo myöntää asian. https://www.hs.fi/suomi/art-2000011134269.html "K1331613Saran ökytyyli käänsi katseita.
On nyt kyllä Sara kasvoistaan, kuvan perusteella todellakin pyöristynyt ainakin kuvan perusteella.1461344- 661338
The Summit Suomi: Maxie avaa hyytävästä tilanteesta kuvauksissa: "Veri roiskui ja tajusi, että..."
Oletko seurannut The Summit Suomea? Tykkäätkö vai et tai mitä mieltä ylipäätään olet sarjasta? Moni katsoja on kaikonnut131170Työttömille lusmuille luvassa lisää keppiä
Hallitus aikoo kiristää velvoitteiden laiminlyönnistä seuraavia työttömyysturvan karensseja ensi vuodesta alkaen. Hall2611123- 156966
Miksi ihmeessä?
Erika Vikman diskattiin, ei osallistu Euroviisuihin – tilalle Gettomasa ja paluun tekevä Cheek22904Tiedän kaiken sinusta ja kaikesta
Tiedän miten kärsit. Tiedän millanen oikeesti oot. Tiedän miksi valehtelit, tiedän miksi satutit mua. Tiedän mitä tapaht58889