Programma op achtergrond

[eleco]

Hallo,

Ik heb bezig led's aan te sturen met mijn pc (via de printerpoort).
Maar stel ik wil een ledje laten knipperen dan loopt mijn pc vast omdat ik een eindeloze lus gebruik.

Weet iemand hoe ik het ledje "op de achtergrond" kan laten knipperen?

Code:

Dim a as byte

a = 1

Do while a = 1
Call SetPortBit (0) ' ledje 0 aan
Sleep (1000) 'wacht 1000 ms
Call ClrPortBit (0) 'ledje 0 uit
Slaap (1000) 'wacht 1000 ms
Loop

Alvast bedankt, Eleco

 

[Jabber]

Met behulp van een backgroundworker.
Google er maar even op, het is niet zo moeilijk.

Tevens zou je in de backgroundworker een timer
kunnen gebruiken die om de seconde afloopt.
Als het event omhoog komt kun je je led in een andere status zetten.

 

[RonaldGJ]

Je script bestaat uit 'Sleep()' en 'Slaap()'. Misschien ook een foutje ?

Gr. Ronald!