Problemas con un Contador

[Pitoniso]

Private Sub Timer1_Timer()
Dim a
a = a + 1
Debug.Print a
End Sub

En ves de irme Sumando 1, se me queda en 1........ No suma 1, 2 ,3, 4....

Pq???????

Salu2

[Crack_X]

Porque cada ves que entra al timer vuelve a declarar la variable y eso la inicia a 0.

[NYlOn]

Código [Seleccionar] Expandir


Static a as Integer


[Pitoniso]

Muchisimas Grx

[skapunky]

Private Sub Timer1_Timer()
Dim a
a = a + 1
Debug.Print a
End Sub

En ves de irme Sumando 1, se me queda en 1........ No suma 1, 2 ,3, 4....

Pq???????

Primero de todo has de declarar una condicion inicial, por ejemplo a= o, el contador a=a+1 te quedaria despues de la accion, tu codigo quedaria asi:

Código [Seleccionar] Expandir

sub nombre1()
dim a as integer
a=0
Debug.Print a
a=a+1
end sub

Ahora solo faltaria implementarle la estructura de repeticion, por ejemplo:

Código [Seleccionar] Expandir

sub nombre1()
dim a as integer
a=0
for a=0 to 6 do
Debug.Print a
a=a+1
loop
end sub

Esto seria un contador de hasta seis veces por ejemplo, hay muchas estructuras de para contadores... busca info.

Saludos.