Vb turn código fuente del juego
Función de tiempo de trayectoria del sujeto ()
Con el ciclo de valor de tiempo, hay menos declaraciones.
Para t = 0,1 a 30
Seleccione. ShapeRange.IncrementLeft 20
h = 20 - 9,8 * t * t / 200
Seleccionar. Rango de forma
Aplicar. espere ahora() valor de tiempo(" 00:00:1 ")'El sistema se detiene durante 1 segundo;
Próxima prueba
....Inserte efectos de imagen y sonido aquí.
Conector final
Puedes insertar efectos de imagen y sonido y restauración de estado a continuación para facilitar la siguiente operación.
Hoja Activa. Forma ("Imagen 19"). Selección
selección rango de forma .incrementar top-280 # 'Expandir, miniatura.
Aplicar. espere ahora() valor de tiempo(" 00:00:1 ")'El sistema se detiene durante 1 segundo;
ActiveSheet. Forma ("Objeto9"). Escoger
Seleccionar. Hubo disparos.
Aplicar. waitnow() timevalue ("00: 00: 2")'El sistema se detiene durante 2 segundos;
ActiveSheet. Forma ("Imagen 15"). Escoger
Seleccionar. Rango de formas. Incremento Top-280 #'' explota y se expande en secuencia.
Aplicar. waitnow() timevalue ("00: 00: 3")'El sistema se detiene durante 1 segundo;
ActiveSheet. Forma ("Imagen 15"). Escoger
Seleccionar. Rango de formas. ' Incrementtop280 # 'Deshacer el seguimiento de descomposición y restablecer la imagen.
Hoja Activa. Forma ("Imagen 19"). Escoger
Seleccionar. ShapeRange.IncrementTop 280#
Hoja de trabajo activa. Forma ("Imagen 6"). Seleccione "Restablecer bala de cañón".
Seleccionar. rango de forma . incremento izquierda-608.25
Seleccionar. rango de forma .incremento superior 177 #
Conector final