-

[xadap]

-

[Slasher-K]

Establece la propiedad Interval de Timer1 a 1 milisegundo y va a funcionar.

Saludos.

[NYlOn]

xDDDDDDDDDDDD

A veces grandes problemas son solo pequeñas estupideces

[xadap]

-

[Slasher-K]

Asegurate de establecer el valor de TicsParar a 0 luego de pasar los 45.

Código [Seleccionar] Expandir

If TicsParar >= 30 And TicsParar <= 45 Then
  Label1.Caption = "endavant"
ElseIf TicsParar > 45 Then
  Label1.Caption = "95 " & TicsParar
  TicsParar =0
End If

Saludos.

[xadap]

-

[Crack_X]

Código [Seleccionar] Expandir

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.

[xadap]

-

[Crack_X]

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.

[xadap]

-