herhalen stoppen

[robojan1]

ik ben een programmatje in visual basic aan het maken om de lpt poort te besturen (er zitten leds op) het gaat al goed nu ben ik bezig met een onderdeelwaar je zelf een knippersnelheid in kan stellen en dat blijft zich steeds herhalen

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Do
            Wait(Val(f1a.Text))
            Out(Val(888), 1)
            Wait(Val(f1u.Text))
            Out(Val(888), 0)
        Loop


    End Sub
    Public Sub Wait(ByVal Milliseconds As Integer)
        Dim time As Date
        time = Now.AddMilliseconds(Milliseconds)
        Do While time > Now
            Application.DoEvents()
        Loop
    End Sub

button 3 is om het knipperen te starten maar het knipperen wil niet meer stoppen
dus hoe stop je dat

er zal vast wel een heel makelijk antwoordt zijn

 

[That Guy]

je hebt een "DO...LOOP" stukje gebruikt:

Do
            Wait(Val(f1a.Text))
            Out(Val(888), 1)
            Wait(Val(f1u.Text))
            Out(Val(888), 0)
        Loop

wat je dus moet doen is er een voorwaarde bij stellen
bijvoorbeeld:

Do Until bW00t = true
            Wait(Val(f1a.Text))
            Out(Val(888), 1)
            Wait(Val(f1u.Text))
            Out(Val(888), 0)
        Loop

[COLOR="SeaGreen"]'deze moet je nog ff aanpasse, tis een idee [/COLOR]
Private subButtonw00t_click()
 bW00t = true
end sub

 

[robojan1]

het werkt nog steeds niet nu zegt hij dat bwoot niet klopt

P.S. ik heb visual basic 2005 express

 

[That Guy]

bovenaan je code:

dim bwoot as boolean

in je form_load event:

bwoot = false

 

[robojan1]

het werkt

het werkt