VB programando tres luces ABC A es roja durante un segundo, B es roja durante dos segundos, C es roja durante tres segundos, cuando cualquiera se vuelve roja, las otras dos se vuelven verdes y continúa en bucle.

Coloque tres controles (matrices) de Shape1 en el formulario y hágalos circulares. Sus nombres son Shape1(0), Shape1(1) y Shape1(2). Establezca Shape1(0) en Verde. haga los otros dos rojos y coloque un temporizador de control de eventos1:

dim d como entero

Private Sub Form_Load()

Timer1.Interval = 1000

Fin Sub

Private Sub Timer1_Timer()

d = d 1

Si d = 1 entonces

Shape1 (0).FillColor = vbRed

Shape1(1).FillColor = vbGreen

ElseIf d = 3 Then

Shape1(1).FillColor = vbRed

Forma1(2).FillColor = vbGreen

ElseIf d = 6 Entonces

d = 0

Forma1(0). vbGreen

Shape1(2).FillColor = vbRed

End If

End Sub