🚀 go-pugleaf

Dit kan je doen met de DateDiff functie:

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
    Dim StartDate As Date, EndDate As Date
    'Start date initialiseren
    StartDate = Now
    '3 seconden wachten
    Sleep 3000
    'Eind date inlezen
    EndDate = Now
    'verschil berekenen en tonen
    MsgBox DateDiff("s", StartDate, EndDate)
End Sub

Mvg,
Pieter Philippaerts
http://www.allapi.net/

"Pieter Huygens" <phuygens@pandora.be> wrote in message
news:tgcH7.17020$XM4.736@afrodite.telenet-ops.be...
> Beste usenetters,
>
> Ik ben een in visual basic een kleine meter aan het maken.
> Het moet de snelheid van de internetverbinding meten.
> Hij werkt alsvolgt:
> het download een file van een server (verschillende servers eigenlijk) die
> altijd *exact* 1 megabyte is.
> Dan zou hij om de snelheid van je verbinding te weergeven, de kilobytes
> (grootte van de file dus) moeten delen door het aantal seconden of ev.
> minuten dat de overdracht heeft geduurt.
> Daarvoor ben ik opzoek naar een soort van methode die me toelaat een timer
> aan te zetten, een chronometer eigenlijk.
> Die ik in de vb code kan aanzetten en ook kan stopzetten, en die dan in
een
> variabele ofzo het aantal seconden weergeeft
> Voor de nauwkeurigheid zouden de seconden dat de overdracht heeft geduurt
> moeten weergeven worden in miliseconden.
>
> Iemand een idee hoe zoiets te doen is?
> Met een eenvoudige Timer is dat niet te doen volgens mij, of ben ik mis?
>
> Alvast bedankt voor de hulp!
> Pieter Huygens
>
>