Pasos para diseñar un semasforo. (SEMANA 25)

  1. Inicializamos el programa y seleccionamos EXE ESTANDAR para luego colocar un color de fondo al formulario. Luego insertamos 1 objeto picture y despúes en la propiedad del mismo nombre buscamos e insertamos una imagen.

2. Seguidamente a la imagen le insertamos 3 objetos shape y a cada uno le seleccionamos la propiedad (shape-circle) (backstyle-opaque).

3. Luego codificaremos 3 objetos timer.

4. Luego de ubicar los codigos a los objetos shape nos ubicamos al formulario y al 1 shape le cambiamos el color por el color negro copiamos ese codigo y manipulamos el color en una secuencia logica donde no debe aparecer mas colores sino el rojo en el 1 el naranja en el segundo y el verde en el 3 observen el siguiente codigo:

Private Sub Timer1_Timer()

Shape1.BackColor = &HFF&

Shape2.BackColor = &H0&

Shape3.BackColor = &H0&

End Sub

Private Sub Timer2_Timer()

Shape1.BackColor = &H0&

Shape2.BackColor = &H80FF&

Shape3.BackColor = &H0&

End Sub

Private Sub Timer3_Timer()

Shape1.BackColor = &H0&

Shape2.BackColor = &H0&

Shape3.BackColor = &HC000&

End Sub

5. Luego cambiamos el colora todos los objetos shape y los ponemos de color negro.

6.- Ubicamos el intervalo a cada timer asignado los siguientes intervalos respectivamente (timer 1 8000, timer 2 16000 y el timer 3 24000) de esa manera ya tenemos que solo ejecutar nuestra aplicación.