Keskustelu: Ohjelmointikysymykset: VB6: [VB] Sekuntikello

elikkä mitenkä pystys tekeen vb:llä tavallisen sekuntikellon?

Esimerkiksi seuraavasti:

Dim alku As Double

Private Sub Command1_Click()
    ' nollataan aikalaskuri
    alku = Timer
    ' aloitetaan ajan näyttö
    Timer1.Interval = 10
End Sub

Private Sub Command2_Click()
    ' lopetetaan ajan näyttö
    Timer1.Interval = 0
End Sub

Private Sub Timer1_Timer()
    ' näytetään kulunut aika sopivasti
    Label1 = Format(Timer - alku, "0.00")
End Sub

Formilla täytyy olla kaksi nappia (Command1, Command2), teksti (Label1) ja ajastin (Timer1).

Tuolla noin ei näytä aivan tasan tarkkaan oikein, jos on hidas kone.

Kyllä se aika tarkkaan näyttää eikä se jätätä kuitenkaan (ellei sitten koneen kello jätätä). Ajan päivitys näytöllä saattaa heittää jonkin verran todellisesta sekunnista, mutta enimmillään sadasosan.