PRACTICA 2 CIRCULO EN MOVIMIENTO.DIAGONAL

Círculo en diagonal.

Por: MARILY MORENO GONZÁLEZ
Ing. en Sistemas Computacionales
Tecnologico de Estudios Superiores de Jilotepec.

OBJETIVO GENERAL

Realizar aplicación que muestre un plano cartesiano, y dentro de el un circulo que se mueva en diagonal  dentro de sus cuadrantes.

 

OBJETIVOS PARTICULARES

·         Poner en práctica los conocimientos adquiridos durante la carrera.

El utilizar un lenguaje de programación para diseñar una aplicación, para poder demostrar que se puede dibujar en un plano cartesiano y un circulo que se mueva en forma diagonal dentro de el.

El API 2D de Java introducido en el JDK 1.2 proporciona gráficos avanzados en dos dimensiones, texto, y capacidades de manejo de imágenes para los programas Java a través de la extensión del AWT. Este paquete de rendering soporta líneas artísticas, texto e imágenes en un marco de trabajo flexible y lleno de potencia para desarrollar interfaces de usuario, programas de dibujo sofisticados y editores de imágenes.

Ø  El API 2D de Java proporciona:

 

·         Un modelo de rendering uniforme para pantallas e impresoras.

·         Un amplio conjunto de primitivos geométricos, como curvas, rectángulos, y elipses y un mecanismo para rendreinzar virtualmente cualquier forma geométrica.

·         Mecanismos para detectar esquinas de formas, texto e imágenes. Un modelo de composición que proporciona control sobre cómo se renderizan los objetos solapados.

·         Soporte de color mejorado que facilita su manejo.

·         Soporte para imprimir documentos complejos.

Ø  Codificación de la aplicación.

 

Public Class Form1

 

   Dim timer As Timer

   Dim x, y, angulo, radio, centroX, centroY As Single

 

   Public Sub New()

       InitializeComponent()

 

       Me.Width = 800

       Me.Height = 600

       Me.StartPosition = FormStartPosition.CenterScreen

       Me.BackColor = Color.Black

       AddHandler Me.Paint, AddressOf form_Paint

 

       angulo = 0

       x = 100

       y = 300

       angulo = 0

       radio = 200

       centroX = 380

       centroY = 260

 

       timer = New Timer()

       AddHandler timer.Tick, AddressOf timer_Tick

       timer.Interval = 30

       timer.Start()

   End Sub

 

   Private Sub timer_Tick(sender As Object, e As EventArgs)

       x = centroX + radio * Math.Cos(angulo * Math.PI / 180)

       y = centroY + radio * Math.Sin(angulo * Math.PI / 180)

       angulo += 2

       If (angulo Mod 360 = 0) Then

           angulo = 0

       End If

       Refresh()

 

   End Sub

 

   Private Sub form_Paint(sender As Object, e As PaintEventArgs) _

   Handles MyBase.Paint

       'el sol

       e.Graphics.FillEllipse(New SolidBrush(Color.Yellow), New Rectangle(350, 230, 80, 80))

       'la tierra

       e.Graphics.FillEllipse(New SolidBrush(Color.Blue), New Rectangle(x, y, 30, 30))

   End Sub

 

End Class

 

Resultado

 

Al compilar la aplicación y verificar que no se muestra  Ningún error, se van a mostrar las siguientes ventanas:  

Pantalla donde

 

se muestra el

 

plano

 

cartesiano con

 

el circulo en

 

 

desplazándose

 

al

 

otro cuadrante

 

 

 

 

 

 

CONCLUSIONES

 

Al emplear cualquier lenguaje de programación es posible realizar una aplicación que en este caso fue la de realizar un plano cartesiano, y hacer que un circulo se deslice en forma diagonal en sus cuadrantes.