Usa VB para hacer semáforos
Modifícalo y agrega este código: (aquí uso forma en lugar de etiqueta, solo reemplázalo si quieres usarlo... jaja...)
¿subprivado? ?shape1_click()
tiemr1.enabled=true
end?sub
privado?sub?shape2_click()
i= 14
end?sub
No sé por qué los semáforos de arriba usan etiquetas... Yo uso forma aquí. Si crees que no es bueno, simplemente cámbialo... Jaja ··
Opción?Explícito
Dim?i?As?Integer
Privado?Sub?Form_Load() Temporizador1.Intervalo?=?1000 Temporizador1. habilitado?=?False Shape1.Visible?=?True Shape2.Visible?=?False Shape3.Visible?=?False
Fin?Sub
Privado?Sub?Timer1_Timer()
i?=?i?1
Seleccionar?Case?i
Case?Is?lt;=?10?'Luz roja durante 10 segundos
Forma1.Visible?=?True
Caso?Is?lt;=?13?'Rojo y amarillo juntos durante 3 segundos
Forma2.Visible? =?True
Caso?Is?lt;=?23?'Luz verde durante 10 segundos
Forma1.Visible?=?False
Forma2.Visible ?=?False
Shape3.Visible?=?True
Case?Is?lt;=?26'Amarillo y verde juntos durante 3 segundos
Shape2 .Visible?=?True
Case?Else' se repite, la luz roja está encendida
i?=?0
Shape1.Visible?= ?Verdadero
Forma2 .Visible?=?False
Forma3.Visible?=?False
Fin?Seleccionar
Etiqueta1.Caption ?=?"Hora:"?amp; ?i
Fin?Sub