Bobbyb
hallo
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????
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
----------------------------------
Bobbyb
hallo
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!
Dat doe je zo
Do
DoEvents
Loop
Zo loopt windows niet vast omdat je hem de tijd geeft onzinnige dingen te doen