Consultas, desarrollo de programas y petición de presupuestos:

domingo, 28 de agosto de 2011

Timer: ejemplo de crear un texto parpadeante y una cuenta atras

Os traigo un simple ejemplo del control timer:
un texto parpadeante y una cuenta atras
Solo necesitas 2 label, 2 RadioButton y un control Timer

Este es el codigo fuente:
‘ Gambas class file
PUBLIC a AS Integer
PUBLIC SUB Form_Open()
Timer1.Enabled = TRUE
END
PUBLIC SUB Timer1_Timer()
‘texto parpadeante
IF RadioButton1.value = TRUE THEN
Timer1.Delay = 400
IF a = 1 THEN
Label1.ForeColor = Color.red
Label1.Background = Color.Cyan
a = 0
ELSE
Label1.ForeColor = Color.blue
Label1.Background = Color.Green
a = 1
ENDIF
ELSE
‘cuenta atras
Timer1.delay = 1000
Label2.text = Str$(Val(Label2.text) – 1)
ENDIF
END
Explicacion:
Dependiendo del RadioButton que este pulsado, se activara el texto parpadeante o la cuenta atras. Y el retardo del timer, cambiara tambien a 400 milisegundos para el texto parpadeante o a 1000 milisegundos (1 seg) para la cuenta atras.
La variable “a” controla que el cambio de color.

No hay comentarios:

Publicar un comentario