Imprimir Página

Título: -
Publicado por: xadap en 8 Octubre 2005, 19:17 pm

Título: Re: contando y mostrando mensaje. no va :/
Publicado por: Slasher-K en 11 Octubre 2005, 00:20 am

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

Saludos.

Título: Re: contando y mostrando mensaje. no va :/
Publicado por: NYlOn en 11 Octubre 2005, 01:34 am

xDDDDDDDDDDDD

Citar

A veces grandes problemas son solo pequeñas estupideces

Título: -
Publicado por: xadap en 12 Octubre 2005, 16:04 pm

Título: Re: contando y mostrando mensaje. no va :/
Publicado por: Slasher-K en 13 Octubre 2005, 01:44 am

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

Código:

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

Saludos.

Título: -
Publicado por: xadap en 15 Octubre 2005, 15:57 pm

Título: Re: contando y mostrando mensaje. no va :/
Publicado por: Crack_X en 15 Octubre 2005, 16:00 pm

Código:

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.

Título: -
Publicado por: xadap en 15 Octubre 2005, 16:06 pm

Título: Re: contando y mostrando mensaje. no va :/
Publicado por: Crack_X en 15 Octubre 2005, 16:20 pm

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.

Título: -
Publicado por: xadap en 15 Octubre 2005, 17:05 pm

Título: Re: contando y mostrando mensaje. no va :/
Publicado por: Crack_X en 15 Octubre 2005, 17:10 pm

Código:

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.

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: xadap en 8 Octubre 2005, 19:17 pm