Primer Jueguito (Suerte) en PowerBuilder

[JovenOsiris]

Primer Jueguito (Suerte) en PowerBuilder

Declare Instance Variables

Instance Variables

Código:

double img

Timer

Código:

if img=0 then
//sle_1.visible=true
sle_1.backcolor=rgb(255,255,0)
sle_4.backcolor=rgb(255,255,255)
sle_7.backcolor=rgb(255,255,255)
sle_10.backcolor=rgb(255,255,255)
sle_13.backcolor=rgb(255,255,255)
img=1
else
if img=1 then
//sle_1.visible=true
//sle_2.visible=true
//sle_5.visible=true
sle_1.backcolor=rgb(255,255,255)
sle_2.backcolor=rgb(255,255,0)
sle_5.backcolor=rgb(255,255,0)
sle_8.backcolor=rgb(255,255,0)
sle_11.backcolor=rgb(255,255,0)
img=2
else
if img=2 then
sle_1.backcolor=rgb(255,255,255)
sle_2.backcolor=rgb(255,255,255)
sle_5.backcolor=rgb(255,255,255)
sle_8.backcolor=rgb(255,255,255)
sle_11.backcolor=rgb(255,255,255)
sle_3.backcolor=rgb(255,255,0)
sle_6.backcolor=rgb(255,255,0)
sle_9.backcolor=rgb(255,255,0)
sle_12.backcolor=rgb(255,255,0)

img=3
else
if img=3 then
sle_1.backcolor=rgb(255,255,255)
sle_2.backcolor=rgb(255,255,255)
sle_5.backcolor=rgb(255,255,255)
sle_8.backcolor=rgb(255,255,255)
sle_11.backcolor=rgb(255,255,255)
sle_3.backcolor=rgb(255,255,255)
sle_6.backcolor=rgb(255,255,255)
sle_9.backcolor=rgb(255,255,255)
sle_12.backcolor=rgb(255,255,255)
sle_4.backcolor=rgb(255,255,0)
sle_7.backcolor=rgb(255,255,0)
sle_10.backcolor=rgb(255,255,0)
sle_13.backcolor=rgb(255,255,0)
img=0
end if
end if
end if
end if

cb_1 / Boton Detener

Código:

timer(0)

cb_2 / Boton Continuar

Código:

timer(0.1)

Listo espero que les guste

Fuente:
Para ver este enlace Registrate o Inicia Sesion

Ica Virtual

- Autor:
Para ver este enlace Registrate o Inicia Sesion

JovenOsiris