-
Establece la propiedad Interval de Timer1 a 1 milisegundo y va a funcionar.
Saludos.
xDDDDDDDDDDDD
CitarA veces grandes problemas son solo pequeñas estupideces
-
Asegurate de establecer el valor de TicsParar a 0 luego de pasar los 45.
If TicsParar >= 30 And TicsParar <= 45 Then
Label1.Caption = "endavant"
ElseIf TicsParar > 45 Then
Label1.Caption = "95 " & TicsParar
TicsParar =0
End If
Saludos.
-
Private Sub Timer1_Timer()
InValue = PortIn(889)
If InValue = 95 Then
TicsParar = 200 'poner eso en otro lado
TicsParar = TicsParar - 1
Label1.Caption = TicsParar
End If
End Sub
Pues claro que siempre va mostrar 199 si cada vez que entra al timer le vuelves y le asignas 200 y le restas 1 . Solo debes de cambiar de posicion cuando se le asigna el 200. Ponlo antes del timer o no se donde.
-
Si el ticsparar es constante pues declaralo en las declaraciones generales (al principito del codigo) o en el form_load . Si el valor 200 va variar de persona a persona o no se que pues tendras que asignarlo cuando se presione algun boton o algun evento suceda.
-
Private Sub Timer1_Timer()
InValue = PortIn(889)
If InValue = 95 Then
if contar = true then
TicsParar = TicsParar + 1
Label1.Caption = TicsParar
end if
If TicsParar = 50 Then
Label1.Caption = "endavant" & TicsParar
TicsParar = 0
contar = false
End If
'
End If
End Sub
Declara una variable contar de tipo Boolean. Cada vez que va a sumar verifica si aun quieres que cuente , cuando esta en false pues deja de contar o sumar.