Loop probleem

[joeri01]

Hallo,

Ik heb vandaag voor elkaar gekregen om twee LEDs aan te sutren via de printerpoort maar nu wil ik ze een paar keer laten knipperen met de loop functie.

dit is wat ik nu heb:
For I = 1 To 10
Call LPT_DataReg_PinHigh(BIT0)
Sleep 500
Call LPT_DataReg_PinLow(BIT0)
Sleep 500
Next I

maar dan kan ik verder niks met mijn computerdoen tot dat hij klaar is.

alvast bedankt, Joeri

 

[The Mighty Atom]

Zet

Application.DoEvents()

boven de loop code.

Als dat niks uithaalt, kun je gebruik maken van een backgroundworker control, en dan de loop code onder het DoWork event plaatsen.

Het hele process start je met BackGroundWorker.RunWorkerAsync()

Plaats die onder de sub die de loop code moet aanroepen.