problema con temporizador
Publicado por maro (10 intervenciones) el 13/01/2003 11:12:16
hola, y gracias por leer la presente nota. tengo un problema pretendo, contar el tiempo(en milisegundos) que tarda una aplicacion en rellenar y mostrar una tabla de 1500 elementos. utilizo un temporizador que se encarga de incrementar una variable que es la que cuenta el tiempo. pero no se debido a que causa el temporizador no se activa ni cuenta. a continuacion les mando el codigo del programa, comentado, y espero que sea de facil entendimiento. si alguien pueda ayudarme y me mande posibles soluciones, gracias.
valores iniciales del temporizador.
inteval = 1
enabled =false
CODIGO DEL PROGRAMA.
Option Explicit
Dim tabla(1500) As Integer ' declaracion de de la tabla
Dim tiempo As Integer ' declaracion de la variable que contara el tiempo
Private Sub Command1_Click() ' boton que rellena, muestra, abilita y desabilita el temporizador
Dim i As Integer
tiempo = 0 ' inicializacion de tiempo
tmrcontar.Enabled = True ' habilitacion del temporizador xa que cuente el tiempo que se usa en las instrucciones
For i = 0 To 1500 ' bucle que rellena la tabla con numeros aleatorios
tabla(i) = Rnd * 99
Next i
For i = 0 To 1500 ' bucle q muestra la tabla
txtmuestra = txtmuestra + " " + Str(tabla(i))
Next i
tmrcontar.Enabled = False ' se desactiva el temporizador
MsgBox tiempo ' muestra la variable tiempo
End Sub
Private Sub tmrcontar_Timer() ' evento del temporizador
tiempo = tiempo + 1 ' incremento de la variable tiempo, cada vez que pasa un milisegundo
End Sub
FIN CODIGO DE PROGRAMA
valores iniciales del temporizador.
inteval = 1
enabled =false
CODIGO DEL PROGRAMA.
Option Explicit
Dim tabla(1500) As Integer ' declaracion de de la tabla
Dim tiempo As Integer ' declaracion de la variable que contara el tiempo
Private Sub Command1_Click() ' boton que rellena, muestra, abilita y desabilita el temporizador
Dim i As Integer
tiempo = 0 ' inicializacion de tiempo
tmrcontar.Enabled = True ' habilitacion del temporizador xa que cuente el tiempo que se usa en las instrucciones
For i = 0 To 1500 ' bucle que rellena la tabla con numeros aleatorios
tabla(i) = Rnd * 99
Next i
For i = 0 To 1500 ' bucle q muestra la tabla
txtmuestra = txtmuestra + " " + Str(tabla(i))
Next i
tmrcontar.Enabled = False ' se desactiva el temporizador
MsgBox tiempo ' muestra la variable tiempo
End Sub
Private Sub tmrcontar_Timer() ' evento del temporizador
tiempo = tiempo + 1 ' incremento de la variable tiempo, cada vez que pasa un milisegundo
End Sub
FIN CODIGO DE PROGRAMA
Valora esta pregunta


0