vente 5 sek.

Tags:    visual-basic

hvor dan få jeg disse 2 commandoe adskelt med 5 sek.

image1.borderstyle = 1

det er her der skal hværer en puse på 5 sek.

image1.borderstyle = 0


er der en nem måde som F.eks wait = 5000 eller noget ???

- Danne



9 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 5 karma
Sorter efter stemmer Sorter efter dato
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sleep (5000)

Mvh.,

Jakob Justsen



Du skal bruge timeren!

Jeg kan ikke give dig en præcist kode da det er meget lang tid siden jeg har brugt visualbasic

det er vel noget med

timeren.interval = 5000
timeren.enabled= true



jeg mender bare at der skulle hvær mulighedfor bare at skive noget i stin med wait = 500 = ½ sek

-Danne




hvor dan få jeg disse 2 commandoe adskelt med 5 sek.

image1.borderstyle = 1

det er her der skal hværer en puse på 5 sek.

image1.borderstyle = 0


er der en nem måde som F.eks wait = 5000 eller noget ???

- Danne


Det kan gøres sådan her
<pre>
Dim MyTime As Date

MyTime = Now

MsgBox "jeg venter"

' Her ventes i 5 sekunder
While DateDiff("s", MyTime, Now) < 5
DoEvents
Wend
' Og her er afventningen færdig
MsgBox "Jeg er færdig"
</pre>

I Am The Cyborg, and i'm here to serve :)




Det kan gøres sådan her
<pre>
Dim MyTime As Date

MyTime = Now

MsgBox "jeg venter"

' Her ventes i 5 sekunder
While DateDiff("s", MyTime, Now) < 5
DoEvents
Wend
' Og her er afventningen færdig
MsgBox "Jeg er færdig"
</pre>

I Am The Cyborg, and i'm here to serve :)


Vil dette ikke lagge computeren utrolig meget, når den bare sidder i et loop ?

Eller er det bare mig?

---
Hilsen Anders



>>Vil dette ikke lagge computeren utrolig meget, når den bare sidder i et loop ?

>>Eller er det bare mig?

Busy waiting har aldrig været at foretrække for nogen!!

Mvh.,

Jakob Justsen




Det kan gøres sådan her
<pre>
Dim MyTime As Date

MyTime = Now

MsgBox "jeg venter"

' Her ventes i 5 sekunder
While DateDiff("s", MyTime, Now) < 5
DoEvents
Wend
' Og her er afventningen færdig
MsgBox "Jeg er færdig"
</pre>

I Am The Cyborg, and i'm here to serve :)

Vil dette ikke lagge computeren utrolig meget, når den bare sidder i et loop ?

Eller er det bare mig?

---
Hilsen Anders



<pre>
DoEvents
</pre>
Spørger om windows har noget som det skal have gjort :)

I Am The Cyborg, and i'm here to serve :)




<pre>
DoEvents
</pre>
Spørger om windows har noget som det skal have gjort :)

I Am The Cyborg, and i'm here to serve :)


Okey, det var også den eneste ting jeg ligge kikkede efter, men ville da gerne vide det helt præcist :) Nogen der ved om dette også findes til Pascal (delphi).

---
Hilsen Anders





<pre>
DoEvents
</pre>
Spørger om windows har noget som det skal have gjort :)



Kan man så være sikker på at der kun går 5 sekunder?

Jeg mener, hvad hvis windows har 6 sekunders arbejde der skal udføres?

Mvh.,

Jakob Justsen



t