---

Hej

Jeg er vandt til fra embedded programmering at jeg kan fryse min software i
en løkke mens den sidder og venter på nogle ting der skal ske f.eks.

dim timeout as integer

Private Sub Command1_Click()
timeout = 2000
Timer1.Enabled = True
Timer1.Interval = 1

While (MSComm1.Input <> ">" And timeout <> 0)
StatusBar1.SimpleText = timeout
Wend

if timeout > 0 then msgbox "ok" else msgbox "fejl"

End Sub

Private Sub Timer1_Timer()
timeout = timeout - 1
End Sub

Problemet er at PC'en fryser og timeout slet ikke ændre sig !?
det virker som om timeren slet ikke tæller !

hvordan gør man så det ?

altså kigger på om der er kommet en ">" karaker fra mscomm1.input og hvis
der er gået 2 sekunder uden den er kommet skriver man en fejl

M.v.h.
Lasse Madsen

---

Lasse Madsen skrev:
> While (MSComm1.Input <> ">" And timeout <> 0)
> StatusBar1.SimpleText = timeout
> Wend

> Problemet er at PC'en fryser og timeout slet ikke ændre sig !?
> det virker som om timeren slet ikke tæller !
>
> hvordan gør man så det ?

While (MSComm1.Input <> ">" And timeout <> 0)
StatusBar1.SimpleText = timeout
DoEvents
Wend

---

"Lasse Madsen" <lm@h-tech.dk> wrote in message
news:400f9506$0$30080$edfadb0f@dtext01.news.tele.dk

Jeg vil mene at du skal have en "DoEvents" kommando med ind i løkken,
for at frigive ressourcer til Windows.


--
Posted via Mailgate.ORG Server - http://www.Mailgate.ORG