LECCION 30

Visual Basic 2015 Lección 30: Dibujo de polígonos y Pies

Hemos aprendido cómo crear los gráficos y la pluma para dibujar objetos rectángulo, elipse, círculo y el texto en las lecciones anteriores, ahora vamos a aprender a dibujar polígonos y pastel en IDE de Visual Basic 2015.

30,1: Dibujo de polígonos

Polígono es una figura plana cerrada delimitada por tres o más lados rectos. Con el fin de dibujar un polígono en la pantalla, es necesario definir las coordenadas de todos los puntos (también conocidos como vértices) que se unieron para formar la pollygon. La sintaxis para define los puntos de un polígono con vértices A1, A2, A3, A4 ...... .Un es el siguiente;

Dim A1 Como Nuevo punto (X1, Y1) Dim A2 Como Nuevo punto (X2, Y2)

Dim A3 Como Nuevo punto (X3, Y3)

Dim A4 Como Nuevo punto (X4, Y4)

.

Un Dim como nuevo punto (Xn, Yn)

Después de declarar los puntos, necesitamos definir una estructura de puntos que agrupan todos los puntos juntos utilizando la siguiente sintaxis: Dim myPoints Como punto () = {. A1, A2, A3, ..., An} .Por último, crear el objeto gráfico y utilizar el método drawPolygon para dibujar el polígono utilizando la siguiente sintaxis:

myGraphics tenues como gráficos = Me.CreateGraphics

myGraphics.DrawPolygon (myPen, myPoints)

donde myPen es el objeto de la pluma creado usando la siguiente sintaxis:
myPen = nueva pluma (Drawing.Color.Blue, 5)

Ejemplo 30.1: Dibujo de un triángulo
Un triángulo es un polígono con tres vértices. Aquí está el código:

Private Sub BtnDraw_Click (remitente como objeto, e como EventArgs) Maneja BtnDraw.Click

Dim myPen Como Pen
Dim a As New Point (10, 10)
Dim B Como Nuevo punto (100, 50)
Dim C como nuevo punto (60, 150)
Dim myPoints Como Point () = {A, B, C}
myPen = nueva pluma (Drawing.Color.Blue, 5)
myGraphics tenues como gráficos = Me.CreateGraphics
myGraphics.DrawPolygon (myPen, myPoints)

End Sub

Al ejecutar el programa produce la imagen como se muestra en la Figura 30.1



Figura 30.1





Ejemplo 30.2: Dibujo de un cuadrilátero
Un cuadrilátero es un polígono formado por cuatro lados, por lo que necesita para definir cuatro vértices. El código es el siguiente:

Private Sub BtnDraw_Click (remitente como objeto, e como EventArgs) Maneja BtnDraw.Click

Dim myPen Como Pen Dim a As New Point (10, 10)
Dim B Como Nuevo punto (100, 50)
Dim C como nuevo punto (120, 150)
Dim D Como Nuevo punto (60, 200)
Dim myPoints Como Point () = {A, B, C, D}
myPen = nueva pluma (Drawing.Color.Blue, 5)
myGraphics tenues como gráficos = Me.CreateGraphics
myGraphics.DrawPolygon (myPen, myPoints)

End Sub

La imagen de salida es como se muestra en la Figura 29.2


Figura 30.2
30,2: Dibujo de una empanada

Con el fin de elaborar un pastel, se puede utilizar el método DrawPie del objeto gráfico. Como de costumbre, es necesario crear los gráficos y los objetos de la pluma. La sintaxis para la elaboración de un pastel es:

myGraphics.DrawPie (myPen, X, Y, anchura, altura, startAngle, SweepAngle)

Donde X e Y son las coordenadas del rectángulo delimitador, otros argumentos son fáciles de entender. Tanto startAngle y SweepAngle se miden en grados. SweepAngle puede tomar valores posibles o negativos. Si el valor es positivo, se barre a través de la dirección hacia la derecha mientras negativo significa que barren a través de dirección hacia la izquierda.

Example30.3: Dibujo de un pastel que comienza con 0 grados en sentido horario y barrido a través de 60 grados.

Private Sub BtnDraw_Click (remitente como objeto, e como EventArgs) Maneja BtnDraw.Click

Dim myPen Como Pen = myPen nueva pluma (Drawing.Color.Blue, 5)
myGraphics tenues como gráficos = Me.CreateGraphics
myGraphics.DrawPie (myPen, 50,50, 150,150,0,60)

End Sub

La imagen de salida es como se muestra en la Figura 30.3



Figura 30.3