¿Puede algún experto ayudarme a cambiar el programa vb para que pueda ejecutarse? ¡Gracias!
Simplemente cámbielo un poco
Dim mse As Integer, se As Integer, mi As Integer
Private Sub Command1_Click()
Temporizador1 .Intervalo = 10
Comando1.Enabled = Falso
Comando2.Enabled = Verdadero
Temporizador1.Enabled = Verdadero
End Sub
Subcomando privado2_Click()
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False p >
End Sub
Sub Command3_Click()
Label2.Caption = Formato(mi, "00")
Label4.Caption = Formato ( se, "00")
Label6.Caption = Formato(mse, "00")
Timer1.Enabled = False
mi = 0: se = 0: mse = 0
Comando1.Enabled = Verdadero
Comando2.Enabled = Falso
End Sub
Subtemporizador privado1_Timer( )
mse = mse 1
Label6.Caption = Format(mse, "00")
Si mse gt = 99 Entonces
mse = 0
Label6.Caption = Formato(mse, "00")
se = se 1
Label4.Caption = Formato(se, " 00")
Si se = 99 Entonces
se = 0
Label4.Caption = Format(se, "00")
mi = mi 1
Label2.Caption = Format(mi, "00")
Finalizar si
Finalizar si
End Sub
Hay dos acciones principales:
(1) Se agrega Timer1.Interval = 10. Si este parámetro no está configurado, el valor predeterminado es cero y, por supuesto, lo será. no correr.
(2) Declaración de declaración de variables agregadas Dim mse As Integer, se As Integer, mi As Integer
Si no se declaran, se usarán cada vez que se ingrese el evento time_timer() Los valores de las variables se ponen a cero y, por supuesto, el programa no producirá los resultados deseados.
El programa modificado ya se ha ejecutado.