Programación de gambas
O agregue una subrutina.
Islas Shikai
Para i = 9 a 0, tamaño de paso -1
wt = 1
Cuando wt gt0.1
p>ra = Int(Rnd() * 10)
Seleccione caso ra
Caso 0
Celda (1, 2). Seleccione
Caso 1
celda (1, 1). Seleccione
Caso 2
celda (2, 1). Seleccione
Caso 3
celda (3, 1). Selecciona
Caso 4
celdas (3, 2). Seleccione
Caso 5
celda (3, 3). Selecciona
Caso 6
celdas (3, 4). Selecciona
Caso 7
celdas (2, 4). Seleccione
Caso 8
celda (1, 4). Seleccione
Caso 9
celda (1, 3). Seleccione
Finalizar selección
Aplicar. esperar(valor de tiempo actual("0:00:01") * peso)
peso = peso * 0.8
anillo
c = 11 - i
Celda (c, 7) = i
myMsgbox " " amp《Cuántos segundos quedan》 amp"-" amp;i, 1, "prompt", 64 p >
Luego
Finalizar empalme
Sub mi msgbox (mi mensaje es una cadena, el tiempo es un número entero, mi título es una cadena, mi botón es un número entero)'Auto Cierre el cuadro de diálogo.
CreateObject("Wscript. Shell"). Aparece mi aviso, hora, mi título, botón
Finalizar conector