Programación de luz roja y luz verde

Publica tres fotos, una roja, una amarilla y una verde.

Imagen roja 1(0)

Imagen amarilla 2(1)

Imagen verde 3(2)

privado declarar subsleeplib " kernel 32 "(byval dw millones mientras) declaración

Subform_activate privado()

imagen1(0). visible = verdadero

imagen1(1). visible = falso

imagen1(2). visible=false

i=1

Múltiples actividades

Dormir(5)

Hacer cuando sea cierto

Si i>2 entonces i=i-3

Imagen 1 (número de identificación 1). visible = no imagen 1(I-1). Visible

imagen1(i). Visible = no imagen1(i). Visible

Múltiples actividades

Dormir (5)

i=i+1

Anillo

Conector final