/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Tid for en løkke
Fra : Jan Damkjær Dahl


Dato : 20-05-01 19:43

Kan nogen fortælle mig hvordan jeg finder tiden på en løkkes kørsel

altså hvorlang tid er der gået fra løkken starter til den slutter

jeg har prøvet med dette, men jeg syntes det er nogle mærkelige tal. Jeg
ville gerne have det i timer, minutter og sekunder ..HH:MM:SS

Start = Time
For i = 0 To .List1.ListCount - 1
Soeg Sti, .List1.List(i)
Next
Slut = Time
Tid = Slut - Start


--
mvh.
Jan Damkjær Dahl



 
 
Bjarke Walling Peter~ (20-05-2001)
Kommentar
Fra : Bjarke Walling Peter~


Dato : 20-05-01 20:58

Jan Damkjær Dahl <jdd@worldonline.dk> skrev i en
news:vbUN6.27441$zv2.2838463@news010.worldonline.dk...
> Kan nogen fortælle mig hvordan jeg finder tiden på en løkkes kørsel
>
> altså hvorlang tid er der gået fra løkken starter til den slutter
>
> jeg har prøvet med dette, men jeg syntes det er nogle mærkelige tal. Jeg
> ville gerne have det i timer, minutter og sekunder ..HH:MM:SS
>
> Start = Time
> For i = 0 To .List1.ListCount - 1
> Soeg Sti, .List1.List(i)
> Next
> Slut = Time
> Tid = Slut - Start
>

Prøv dette:

start = Timer ' Ikke Time, men Timer
....
slut = Timer
tid = start - slut
h = Int(tid / 3600) ' h = Antal timer
tid = tid - h * 3600
m = Int(tid / 60) ' m = Antal minutter
s = tid - m * 60 ' s = Antal sekunder


- Bjarke Walling Petersen

> --
> mvh.
> Jan Damkjær Dahl
>
>



Jan Damkjær Dahl (20-05-2001)
Kommentar
Fra : Jan Damkjær Dahl


Dato : 20-05-01 21:06

Jeg har fået hjælp og det ser ud til at virkr

format$(Tid, "HH:MM:SS")


"Bjarke Walling Petersen" <bwp@bwp.dk> skrev i en meddelelse
news:9e97kn$3np$1@news.cybercity.dk...
> Jan Damkjær Dahl <jdd@worldonline.dk> skrev i en
> news:vbUN6.27441$zv2.2838463@news010.worldonline.dk...
> > Kan nogen fortælle mig hvordan jeg finder tiden på en løkkes kørsel
> >
> > altså hvorlang tid er der gået fra løkken starter til den slutter
> >
> > jeg har prøvet med dette, men jeg syntes det er nogle mærkelige tal. Jeg
> > ville gerne have det i timer, minutter og sekunder ..HH:MM:SS
> >
> > Start = Time
> > For i = 0 To .List1.ListCount - 1
> > Soeg Sti, .List1.List(i)
> > Next
> > Slut = Time
> > Tid = Slut - Start
> >
>
> Prøv dette:
>
> start = Timer ' Ikke Time, men Timer
> ...
> slut = Timer
> tid = start - slut
> h = Int(tid / 3600) ' h = Antal timer
> tid = tid - h * 3600
> m = Int(tid / 60) ' m = Antal minutter
> s = tid - m * 60 ' s = Antal sekunder
>
>
> - Bjarke Walling Petersen
>
> > --
> > mvh.
> > Jan Damkjær Dahl
> >
> >
>
>



Tomas Christiansen (20-05-2001)
Kommentar
Fra : Tomas Christiansen


Dato : 20-05-01 22:14

Bjarke Walling Petersen skrev:
> start = Timer ' Ikke Time, men Timer
> ...
> slut = Timer

Man KAN bruge VB's indbyggede funktion Timer, men skal den bruges ofte, skal
man være opmærksom på, at den tager ret lang tid at udføre. Derved KAN den
have temmelig kraftig negativ virkning på køretiden af ens program.

I de tilfælde hvor hastigheden er afgørende, kan jeg anbefale at bruge:

Declare Function timeGetTime Lib "winmm.dll" () As Long

....som kan bruges på følgende måde:

Dim lStart As Long
lStart = timeGetTime
'Her der den kode, som skal tidstages
MsgBox "Det tog ca. " & timeGetTime - lStart & " millisekunder"

Faktisk tager det mere end 4 gange så lang tid at udføre kaldet Timer som at
udføre kaldet timeGetTime.

-------
Tomas



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408894
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste