lave et ½ sek. forsinkelse

Du kan bruge API kaldet Sleep

Men det stopper hele dit program...

Put dette i et modul:
Public Declare Sub Sleep Lib \"kernel32\" (ByVal dwMilliseconds As Long)

Og brug Sleep 500 (milisekunder, 500 = ½ sekund)

men jeg skal ik sleep\'e hele programmet.. for det står og modtager data.. og det må jo ikke gå glip af noget..

Det går ikke glip af noget, men det bliver bare forsinket.

Men det er vel hellerikke acceptabelt?

Jeg har afprøvet det... det dur sgu ik rigtig, til mit program... :(

Ok.

Så er der også en anden metode, men det er stadig ikke helt \"ok\".

Public Declare Function GetTickCount Lib \"kernel32\" () As Long

Dim x1 As Long \'Aktuel TickCount
Dim iSleepTime As Long \'Den tid der skal ventes i miliskunder
iSleepTime = 5000 \'(5 sec)

x1 = GetTickCount \'Set aktuel tickcount

Do While x1 + iSleepTime > GetTickCount
    DoEvents
    \'Her venter vi...
Loop
\'Færdig

Hvad med at bruge en timer control i VB. Her kan du så meds hændelsen timer() indsætte en ny linie.

Kedde

Ved ikke om det er det du skal bruge, men det kan du vel også : )

Jeg forstod det som om du skulle bruge en timer inde i koden.

Hej richardr!

Håber du kan bruge dette:

Webcrawler

-Enjoy!

Sådan laver man en forsinkelse af handlinger i VB:
------------------------------------------------------------------
\'Tilføj første linie til et modul.
\'Tilføj anden linie i din kode der hvor du vil ha´ forsinkelsen.
\'(500) = 1/2 sekund - afhænger dog af computerkraften.


Declare Sub Sleep Lib \"kernel32\" (ByVal dwMilliseconds As Long)


Call Sleep(500)

-webcrawler-

Du er lidt dum ikke? Prøv lige at læse de andre poster først.

chris2k - sorry! Havde lidt for travlt.... En lille detajle var at kalde Sleep (Call Sleep). Men en smutter - håber du bærer over med mig :-)

Det er ok : )

\'Timer declares
Declare Function SetTimer Lib \"user32\" _
            (ByVal hwnd As Long, _
            ByVal nIDEvent As Long, _
            ByVal uElapse As Long, _
            ByVal lpTimerFunc As Long) As Long

Declare Function KillTimer Lib \"user32\" _
          (ByVal hwnd As Long, _
          ByVal nIDEvent As Long) As Long




Public Sub TimerProc(ByVal hwnd As Long, _
                    ByVal uMsg As Long, _
                    ByVal idEvent As Long, _
                    ByVal dwTime As Long)
 
  \'Smid næste linie ind i liste
End Sub


Et eller andet sted opretter du timeren

\'Start timer
\'500 = et halvt sekund
m_TimeID = SetTime(vbNull, 0, 500, AddressOf TimerProc)


Husk at kalde
KillTimer m_TimerID

//Nolle_K

TimerProc blive så kaldt hvert halve sekund uden at hele programmet fryser!

Det funger!!

Jeg har ikk kunne få det til at virke.. det er vist os et lidt gammelt spg.. men lukker det lige.. chris og nolle.. i får pointene som tak for hjælpen..