Timer

Oppilas

Kuinka saa kellon jossa on sekunnin tuhannesosat?
kun ei taida tuolla tavan timerillä saada :/

4

447

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. Omakotitalossa väkivaltaa ounasrinteellä

      Kertoo iltalehdet Mitä lienee Tapahtui. Verinen ihminen kannettu lanssiin
      Rovaniemi
      21
      1924
    2. Lopetin kokonaan ravintoloissa ruokailun ja juomisen

      Ravintoloissa hinnat ovat aivan naurettava korkealla. Alkoholin juomisessa ravintoloissa ei ole senkään vertaa järkeä.
      Maailman menoa
      124
      1826
    3. Persut jakavat tekoälyllä tehtyjä kuvia maahanmuuttajista somessa

      Eivät mainitse, että ovat tekoälyllä tehtyjä. Eivät näe asiassa mitään ongelmaa. Valehtelijapuolue taas vauhdissa. Unka
      Maailman menoa
      462
      1511
    4. Martinan hevoset.

      Tämä todella kaunis ja ketterä harmaa hevonen jolla monet kilpailut voitetaan ei ole Martinan.Tytär ratsastaa sillä tait
      Kotimaiset julkkisjuorut
      309
      1336
    5. Kasteen merkityksestä ihmiselle

      Jeesuksen hyvä ystävä Nikodemus meni heti Jeesuksen kasteen jälkeen kysymään häneltä kasteen merkityksestä ihmiselle. J
      Kaste
      420
      1199
    6. Miesmäinen vanha nainen joka kulkee lastenvaunujen kanssa

      Mikähän kaheli tämä yks kaupungilla karvahattu päässä kulukeva vanha eukko on joka työntää lastenvaunuja. Onhan sitte
      Kuhmo
      19
      1088
    7. kukaan ei pakota kasteeseen..

      Kommentointi estetty, joten kommentoin tähän.Kukaan ei pakota pakkokasteesta puhuvaa kastamaan lastansa.Noloa edes ehdot
      Kaste
      400
      1015
    8. Ethän leiki kanssani J- mies

      Jos oletkin joku pelimies, jolla monia vaihtoehtoja, katkon kylmästi yhteyden. En jaksa sellaisia miehiä.
      Ikävä
      100
      963
    9. Molemmat päät

      aivan tulessa😫 Miksi pitää ihmisen tällaisesta kärsiä??? Jos koko ajan pnettaa, niin miksi sitä seksiä ei voi sitten s
      Ikävä
      121
      933
    10. Liikenne onnettomuus

      Luin juuri Ampparista Konneveden kauheasta onnettomuudesta jossa menehtyi 60-luvulla syntynyt mies. Onko kellään tarkemp
      Konnevesi
      6
      840
    Aihe