Teller

[Mr Digitalis]

Hallo,

Ik probeer een teller te maken die vanaf het cijfer 3 begint op te tellen met iedere keer 1 erbij als er op de knop geklikt wordt.
Als ik met deze code 1 keer op de knop klik gaat hij van drie naar vier,
maar waarom gaat hij niet verder naar vijf, zes, zeven etc.?

Wat doe ik verkeerd of te weining?

 Private Sub btnVerhogenTeller_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerhogenTeller.Click
        ' als gebruiker op de knop klikt wordt het getal in het programma met 1 verhoogt 
        ' en begint met ophogen vanaf 3.

        ' Declaren van de variabelen
        Dim teller As Integer = 3

        teller += 1
        lblGetal.Text = teller

    End Sub

 

[Palmpje]

Hij begint iedere keer met 3 omdat de procedure waarin je de muisklik behandelt de variabele lokaal definieert en iedere keer laat starten met de waarde 3.
Maak er een globale variabele van (definieren buiten deze procedure) en zet 'm daar op 3 en dan DIM Teller etc... weglaten in deze Sub

 

[hackie900]

wat je ook kan doen is maak een trackbar, zet visible op false, zet de value op 3 en de max. value 1000000 (is hij bijna onbeperkt). dan gebruik je deze code in de knop:

TrackBar1.Value += 1
        lblGetal.Text = TrackBar1.Value

 

[The Mighty Atom]

Nog makkelijker is het om de text property van die label op 3 of een ander getal te zetten.

Dan heb je maar één regel code nodig in je button click event:

lblGetal.Text += 1