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