Como hacer un contador con un boton

[fedefrankk]

Hola quisiera hacer en visual un boton y cada vez que lo apreto me sume un numero,
lo hice asi:

Código PHP:

  Private Sub Command2_Click()
a = 1

acumular = acumular + 1


Print acumular

End Sub 
   

pero siempre me sale un 1

gracias de antemanos
saludos fede

[STK_Pablo]

Te sale un 1 poorque siempre estas inicializando la variable al hacer el click. Lo correcto sería:

Código vb:

Sub form_load()
    a=1
End Sub
 
Sub Boton_click()
    a=a+1
    print a
End Sub
 

Bueno, se puede perfeccionar bastante (podes agregar un boton para resetear el contador y volver al inicio, etc) pero la idea es esa, poner la variable incial fuera del procedemiento que incrementa el contador... Espero te sirva de ejemplo, cualquier duda avisa nomas y vemos que hacer....

[Sergestux]

De hecho aun tiene que declarar la variable a, como global afuera de los dos procedimientos (load y click)

Código vb:

Dim a As Integer
 
Sub Boton_click()
    a = a + 1
    Debug.Print a
End Sub
 
Private Sub Form1_Load()
    a = 1
End Sub
 

[fedefrankk]

Muchas Gracias por la repuesta, para que funcione hay que declarar la variable afuera .

De hecho aun tiene que declarar la variable a, como global afuera de los dos procedimientos (load y click)

Muchisimas Gracias

saludos a todos
fede

[seba123neo]

Hola, proba tambien:

Código vb:

Private Sub Command1_Click()
    Static i As Integer
    i = i + 1
    Debug.Print i
End Sub
 

saludos.