[VB] Loop aan en uit

[fleppuhstein]

Ik ben bezig met een programma te maken om de lpt poort hoog en laag te kunnen zetten van pin 2 t/m 9.

Zodat ik met de computer dit ledje
[url="http://www.circuitsonline.net/circuits/view.php?id=34"]http://www.circuitsonline.net/circuits/view.php?id=34[/url]

aan en uit kan zetten, door het schema aan te passen kan je er ook 230 mee schakelen. zeg maar een huis van de toekomst idee. Zodat elke dag om zeg 19:00 de lampen aangaan.

Maar ik ben nu aan het testen om ook een Knightrider scanner te maken je weet wel zo heen en weer. Die functie die werkt nu. Alleen ik wil het ook in een loop kunnen zetten.

Nou heb ik dus een check box aan gemaakt als ik die aan vink dan loopt het wel, ik kan hem alleen niet meer uitvinken en het programma loopt vast

Dus vraag is kan je een loop functie maken die ook uit kan worden gezet ?

[XTerm]

DoEvents in de loop.

[fleppuhstein]

Op zondag 28 juli 2002 20:28 schreef XTerm89D het volgende:
DoEvents in de loop.

DoEvents ?

[DukeMan]

Op zondag 28 juli 2002 20:35 schreef fleppuhstein het volgende:

[..]

DoEvents ?

DoEvents zorgt er voor dat de besturing van VB even aan windows wordt overgedragen, zodat deze weer even op adem kan komen.

[fleppuhstein]

Op zondag 28 juli 2002 20:39 schreef NTGiant het volgende:

[..]

DoEvents zorgt er voor dat de besturing van VB even aan windows wordt overgedragen, zodat deze weer even op adem kan komen.

Ik heb dus deze coding achter een knop hangen

code:

Private Sub Command11_Click()
knightriderscan
if check9 = 1 then knigtriderscan
End Sub

Hoe verwerk ik die DoEvents erin ik heb het voorbeeld opgezocht in MSDn maar ben er weinig wijzer uit geworden.

[Sensei_D]

Volgens moet die eerste Knightriderscan weg en dan zou die het moeten doen

[fleppuhstein]

Op zondag 28 juli 2002 22:09 schreef MariahCareyLover het volgende:
Volgens moet die eerste Knightriderscan weg en dan zou die het moeten doen

gedaan dan zit het programma weer in een loop en kan ik niet dat vinkje uitzetten.

[mulder]

Op zondag 28 juli 2002 22:09 schreef MariahCareyLover het volgende:
Volgens moet die eerste Knightriderscan weg en dan zou die het moeten doen

Vet lachen, not, moet je techposts scoren ofzo?

Topic:
Je moet die DoEvents waarschijnlijk in bizar genaamde functie KingriderScan doen. Post anders wat meer code.

[Crazy D]

Op zondag 28 juli 2002 20:41 schreef fleppuhstein het volgende:
Ik heb dus deze coding achter een knop hangen

code:

Private Sub Command11_Click()
knightriderscan
if check9 = 1 then knigtriderscan
End Sub

Hoe verwerk ik die DoEvents erin ik heb het voorbeeld opgezocht in MSDn maar ben er weinig wijzer uit geworden.

1. geef de beesjes een duidelijke naam, command1 of check9 zegt je over een week geen moer meer

2. DoEvents plaats je binnen een loop.

code:

Do While bContinue
    ' doe iets met die lichtjes
    ' laat Windows ff tot rust komen ;)
    DoEvents
Loop

Meest duidelijke is trouwens een loopje van 1 tot 10 miljoen of zo, en probeer dan je form maar eens te verplaatsen. Plaats dan DoEvents in die loop, en zie het verschil.

Overigens vind ik het wel een wat wazige constructie, eerst die knightrider aanroepen, en als check9 aangevinkt is, nog een keertje Da's geen loop, da's gewoon 2 keer

[Lars The 18th]

Hmm dat is nog niet eens zo slecht gedacht .. thanks

[ Voor 180% gewijzigd door Lars The 18th op 09-05-2004 22:39 ]