[VB6]Een knop meer berekingen laten maken

[Verwijderd]

Ik maak een dart programma waarmee je de score bijhoudt.
Ik wil een knop telkens de ingevoerde score laten bereken vanaf 501.
Maar hij doet niet wat ik wil. Dit heb ik tot nu toe:

code:

Private Sub Form_Load() 
lstAntwoord.AddItem "501" 
End Sub 

Private Sub cmdBereken_Click() 
laatstegetal = lstAntwoord.ListIndex - 1 
msgbox str$(laatstegetal) 
spel = Val(lstAntwoord.List(laatstegetal)) 
msgbox str$(spel) 
score = Val(txtInvoer.Text) 
msgbox str$(score) 
beurt = spel - score 
msgbox str$(beurt) 
lstAntwoord.AddItem LTrim$(RTrim$(Str$(beurt))) 
End Sub

Ik heb er ff messageboxes tussen gegooit om te kijken wat er fout gaat:

als ik bijvoorbeeld 20 invoer:

in de eerste message box: -2
in de tweede message box: -2
in de derde message box: 0
in de vierde message box: 20
in de vijfde message box: -20

Vorige x kickten jullie me eraf, ik heb echt 2 boeken maar ik kom er gewoon niet uit, kunnen jullie er ff serieus nakijken?

[ Voor 2% gewijzigd door whoami op 30-11-2002 09:48 ]

[Tranq]

Ten eerste:
Zet je code plz tussen code tags...is wat overzichtelijker

Ten tweede:
We kijken altijd serious naar code

Ten derde:
Definieer je variabelen

Ten vierde:
laatstegetal = lstAntwoord.items.COUNT -1 (zoiets geloof ik) dus even tellen hoeveel er in zitten

[ Voor 14% gewijzigd door Tranq op 29-11-2002 23:36 ]

[Verwijderd]

Sorry voor de onduidelijkheden maar bedankt voor je goede en zorgvuldige reply! Wat ik heb hem aan de praat! Ipv listIndex was listCount de goede.

[Verwijderd]

"Tabs" zijn ook misschien handig om te gebruiken in je broncode.