Test Foro de elhacker.net SMF 2.1

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

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


Static a as Integer


Muchisimas Grx

CitarPrivate 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:

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:

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.