loop in vb6 op xp

hallo ik loop nu al een tijdje te klieren met een loop in visual basic 6. ik maak een prog dat ziet er zo uit

Dim sngstorting As Long

Private Sub Check1_Click()
Print sngopdebank

End Sub

Private Sub Check2_Click()
Do While sngopdebank < 10000
sngopdebank = sngopdebank + sngstoring
loop
Print "ök genoeg"
End Sub

Private Sub form_load()
sngstorting = 50
End Sub

en zodra ik de check2 aan klik loopt het programma vast.
ik snap niet wat ik fout doe. mischien is het omdat ik win xp gebruik????

hallo

Als je programmeert in visual basic is het altijd aan te raden option explicit te gebruiken. Als je option explicit gebruikt geef je aan dat visual basic moet controleren of de gebruikte variabelen wel gedeclareerd zijn.

Zijn ze dit niet, dan zal visual basic een error geven. Dit is handig omdat je soms een tikfout kunt maken bij het invoeren van een variabele.

Dit is wat je fout gedaan hebt in je eigen stukje code: 'sngopdebank = sngopdebank + sngstorting' Zoals je ziet heb je een spelfout hebt gemaakt. Nu ik option explicit heb toegevoegd aan je programma geeft visual basic dat ook direct aan.

Ik heb hieronder even je code geplaats met alle aanpassingen. Ik hoop dat je er wat mee kunt.

Wat voor programma ben je trouwens aan het maken?

Visual Basic 6 werkt overigens prima met windows XP, ik heb er zelf nooit problemen mee gehad.
----------------------------------
Option Explicit

Dim sngstorting As Long
Dim sngopdebank As Long

Private Sub Check1_Click()
Print sngopdebank
End Sub

Private Sub Check2_Click()

Do While sngopdebank < 10000
sngopdebank = sngopdebank + sngstorting
Loop
Print "ök genoeg"

End Sub

Private Sub form_load()
sngstorting = 50
End Sub
----------------------------------

naa moe het werkt gewoon??? vaag ik heb het ook in andere progs geprobeert en daar werkte het ook niet. (een loop)

maar goed mijn dank groot
en het programma moet uiteindelijk een galfo sturing worden

nogmaals bedankt!

hallo

Dat doe je zo

code:


Do
 DoEvents
Loop

Zo loopt windows niet vast omdat je hem de tijd geeft onzinnige dingen te doen :)