CODIGO SEMAFORO

Codigo de programación de un semáforo en VISUAL BASIC

namespace semaforo
{
    public partial class Form1 : Form
    {
Declaramos las variables a utilizar
        int caso =0;
        public Form1()
        {
            InitializeComponent();
        }
        private void Form1_Load(object sender, EventArgs e)Configuramos en nuestra Picture Box que busque dentro de las propiedades de esa misma para que aparezca la primera imagen
        {
            pictureBox1.Image=semaforo.Properties.Resources.Diapositiva1;
    }
        private void encendido_Click(object sender, EventArgs e) Configuramos el botón de encendido para que active el timer
        {
            timer1.Start();
        }
        private void timer1_Tick(object sender, EventArgs e) Configuramos el temporizador utilizando un swtich case para producir la secuencia del semáforo 
        {
            switch (caso) Configuramos los casos para que dentro del intervalo de tiempo programado aparezca la imagen deseada y terminando active y haga el siguiente caso
            {
                case 0: Caso para semáforo encendido(verde)
                    pictureBox1.Image = semaforo.Properties.Resources.Diapositiva2;
                    label1.Text = "SIGA";
                    timer1.Interval = 5000;
                    caso = 1;
                    break;
                case 1:Caso para cambio de luz semáforo (verde parpadeo)
                    pictureBox1.Image = semaforo.Properties.Resources.Diapositiva4;
                    timer1.Interval = 1000;
                    pictureBox1.Image = semaforo.Properties.Resources.Diapositiva2;
                    timer1.Interval = 200;
                    caso = 3;
                    break;
              
                case 3:Caso para semáforo en precaución(amarillo)
                    pictureBox1.Image = semaforo.Properties.Resources.Diapositiva3;
                    label1.Text = "PRECAUCION";
                    timer1.Interval = 1000;
                    caso = 4;
                    break;
                case 4:Caso para semáforo en alto(rojo)
                    pictureBox1.Image = semaforo.Properties.Resources.Diapositiva9;
                    label1.Text = "ALTO";
                    timer1.Interval = 1000;
                    caso = 0;
                    break;
       
            }
            }
        private void apagado_Click(object sender, EventArgs e) codificamos el botón de apagado para que detenga el botón e aparesca la imagen del semáforo apagado
        {
            timer1.Stop();
            pictureBox1.Image = semaforo.Properties.Resources.Diapositiva1;
        }
        }
}