Red de conocimiento informático - Consumibles informáticos - ¿Puede algún experto ayudarme a cambiar el programa vb para que pueda ejecutarse? ¡Gracias!

¿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

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.