Programación de gambas

Elimine msgbox "" de esta línea; "segundos restantes" & "-" & i

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

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