[VB] For next in tekstvak werkt niet?

[mazz]

Hallo,

Ik heb eindelijk gevonden hoe ik steeds een volgende getal kan laten optellen bij een voorafgegeven getal, en heb dit nu in dit script verwerkt.

Visual Basic:

Private Sub CommandButton1_Click()
       
Dim getal As Integer

        For getal = 1 To 10
        
                xx.Text = 1 + getal
        

Next getal
End Sub

Hij geeft dus wel een waarde in xx tekstvak, maar dat is 11 en dat veranderd niet.
Ik denk dat het ergens te maken heeft met de declaratie van de variablen, maar ik kom er gewoon niet uit. Willen jullie alstublieft even helpen

[Mastermind]

Visual Basic:

Private Sub CommandButton1_Click() 
        
If xx.Text = "" Then xx.Text = "1"
Else xx.Text = Val(xx.Text) + 1

End Sub

[ Voor 3% gewijzigd door Mastermind op 11-06-2007 18:39 ]

[DutchCommando]

Hij loopt de for-lus door en komt dan uit op 1 + 10. Dat gaat zo snel dat je niet ziet dat er tussenliggende getallen worden weergegeven. Althans, dat is wat ik zie zonder enige VB kennis .

[Basti504]

Visual Basic:

Private Sub CommandButton1_Click() 
        
Dim getal As Integer 

        For getal = 1 To 10 
         
                xx.Text = 1 + getal 
         

Next getal 
End Sub

Hij gaat hier door een lus lopen die doet

1 + 1
1 + 2
...
1 + 10

Er wordt in deze lus niet gekeken naar wat de waarde van de textbox is. Hij doet alleen een statisch sommetje

Visual Basic:

Private Sub Command1_Click()
Dim getal As Integer

    For getal = 1 To 10
        
        Dim uitkomst As Integer
        
        uitkomst = Val(Text1.Text) + getal
         
            Text1.Text = uitkomst
         

    Next getal

End Sub

Hier gaat de som verder op de waarde van te textbox, als in:

Waarde textbox is 10

10 + 1 = 11
11 + 2 = 13
...

[whoami]

mazz schreef op maandag 11 juni 2007 @ 18:21:
Hallo,

Ik heb eindelijk gevonden hoe ik steeds een volgende getal kan laten optellen bij een voorafgegeven getal, en heb dit nu in dit script verwerkt.

Visual Basic:

Private Sub CommandButton1_Click()
       
Dim getal As Integer

        For getal = 1 To 10
        
                xx.Text = 1 + getal
        

Next getal
End Sub

Hij geeft dus wel een waarde in xx tekstvak, maar dat is 11 en dat veranderd niet.
Ik denk dat het ergens te maken heeft met de declaratie van de variablen, maar ik kom er gewoon niet uit. Willen jullie alstublieft even helpen

Sorry hoor, maar leer toch eerst eens even debuggen; stap voor stap door je code lopen en kijken wat er gebeurt.
Dit is echt basic.
Tipje: wat je kan doen, is bijhouden hoeveel keer er geklikt is op die knop, of kan je iedere keer de vorige output bewaren, en daar 1 bij op tellen.
Er zijn meerdere wegen die leiden naar Rome.