EL   OVNI   TAMBALEA

Program Ovni

               Method cargarOvni()

                               LoadSprite("OVNI", "OVNI.gif")

                               MoveSpriteToPoint("OVNI", 50, 50)

                               ShowSprite("OVNI")

               End Method

               Method Main()

                               Define ángulo As Int = 5

                               cargarOvni()

                               Loop 400

                                              MoveSpriteBy("OVNI", 1, 0)

                                              RotateSpriteBy("OVNI", ángulo)

                                              ángulo = ángulo * -1

                                              Delay(40)

                               End Loop

               End Method

End Program

La instrucción Define ángulo As Int = 5, permite definir una variable llamada ángulo en la que podemos guardar un valor entero, por eso el As Int, y en ella guardamos el valor 5. Si queremos cambiar el 5 por otro valor entero como el 11, simplemente damos la instrucción ángulo = 11. O si queremos cambiar el 5 por -5, multiplicamos el 5 por -1 y el resultado lo guardamos en la casilla ángulo, como en la línea 13. En esta variable no podemos guardar un valor decimal, ni una cadena; solo podemos guardar valores enteros. 

 

Como el programa anterior, este programa mueve y rota el Ovni 400 veces, pero en el primer ciclo del loop lo rota 5 grados y le asigna a ángulo el valor -5, en el segundo ciclo lo rota -5 grados y le asigna a ángulo el valor 5, en el tercer ciclo lo rota 5 grados y asigna a ángulo el valor -5, etc,. Esto hace que el Ovni se tambalee. Cambie el valor inicial del ángulo y observe lo que sucede al correr el programa.

 

Ejercicios:

 

1.        Mueva el ovni y el lapiz en un círculo con centro en X = 100, Y = 100. 

2.        Mueva el ovni y el lapiz en dos círculos tangentes.

3.        Mueva el ovni y el lapiz de tal manera que dibujen el símbolo de los juegos olimpicos.

 

<< Anterior