🚀 go-pugleaf

DateDiff heeft seconden als kleinste eenheid. Timer daarentegen telt het
aantal seconden vanaf middernacht, met een resolutie van 1/100 seconde. Zou
er geen wereldrecords mee bijhouden (andere bezigheden van de processor
kunnen de tijd even ophouden), maar een eenvoudige chronometer (elapsed
time) maak je zo:

'Declarations
Dim StartTijd As Single

Private Sub Form_Load()

Timer1.Interval = 100
Timer1.Enabled = True
StartTijd = Timer

End Sub

Private Sub Timer1_Timer()
Dim Verstreken As Single
Verstreken = Timer - StartTijd
Text1.Text = Format(Verstreken, "0.00")

End Sub

John


TIM VANWASSENHOVE heeft geschreven in bericht
<39192126.44D72DF@student.kuleuven.ac.be>...
>hallo,
>
>ik vroeg me af hoe ik een chronometer kan maken in vb5.0,
>met nauwkeurigheid tot op 1/10s.
>
>als ik een maak met interval 100ms,
>en dan looptijd = datedif("s",begin,time)
>dan krijg ik slecht een chronometer met nauwkeurigheid 1s
>
>hoe bereken ik het verschil tussen mijn begintijd en eindetijd op
>1/10s nauwkeurig is dus de vraag.
>
>alvast bedankt
>(sorry voor de warrige uitleg)