-

[Crack_X]

Código [Seleccionar] Expandir

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.