practico 2 graficos

Grafikpraktikant

Symmetrische Linien und Rechtecke

Erstellen Sie die Grafiken als Projekt in Visual Basic.

• Alle symmetrischen Graphen nehmen N Teile an
• Alle Zufallsgraphen benötigen N Linien
• Für einen Teil (Hälfte) muss ein Prozess durchgeführt werden, für den zweiten Teil ein anderer
• ✅ Programmiersprache: Visual Basic
• siehe PDF der Grafikpraxis

Inhalt

1. Übung 1
2. Übung 2
3. Übung 3
4. Übung 4
5. Übung 5
6. Übung 6
7. Übung 7
8. Übung 8
9. Übung 9
10. Übung 10

Erste Schritte ️

 Public Class Form1
    ' Crear una variable global de tipo Graphics
    Dim graphic As Graphics
    ' Definimos la variable timing para el retardo
    Dim timing As Integer = 99000000
    ' Cuando el formulario se abra por primera vez 
    ' asignaremos el PictureBox1.CreateGraphics a
    ' la variable graphic
    Private Sub Form1_Load(sender As Object , e As EventArgs) Handles MyBase .Load
        graphic = PictureBox1.CreateGraphics
    End Sub
    ' Crearemos un procedimiento o una function que no retorna nada
    ' para graficar un rectangulo mas conocido como marco.
    Public Sub Frame()
        graphic.DrawRectangle(Pens.Gray, 0 , 0 , PictureBox1.Width - 1 , PictureBox1.Height - 1 )
    End Sub
    ' *******************************************************************
    ' **  FUNCIONES REUTILIZABLES QUE USAREMOS PARA NO REPETIR CODIGO  **
    ' estas funciones podras usarlas en cualquier ejercicio del práctico.
    ' *******************************************************************

    ' Esta function genera un Rectangulo con una linea por la Mitad
    ' el parametro "align" solo podra recibir "vertical" y "horizontal"
    Public Sub CreateRectangleWithHalf(ax As Single , bx As Single , ay As Single , by As Single , align As String )
        Dim half As Single
        ' Pintamos el rectangulo de color Verde
        Using pen As New Pen(Color.Green) ' Puedes modificarlo si gustas
            pen.Width = 2
            graphic.DrawRectangle(pen, ax, ay, bx - ax, by - ay)
            Select Case align
                Case "vertical"
                    half = (ax + bx) / 2
                    graphic.DrawLine(pen, half, ay, half, by) ' * Vertical
                Case "horizontal"
                    half = (ay + by) / 2
                    graphic.DrawLine(pen, ax, half, bx, half) ' * Horizontal
                Case Else
            End Select
        End Using
    End Sub

    ' Esta funcion genera elementos Graficos (linea, rectangulo y ellipse)
    ' con colores random
    ' @parametros:
    ' x es la posision en el eje X
    ' y es la posision en el eje Y
    ' w es el ancho total del grafico (rectangle or ellipse)
    ' h es el alto total del grafico (rectangle or ellipse)
    Public Sub GraphicRandomColor(x As Single , y As Single , w As Single , h As Single , gName As String )
        Dim rng As New Random()
        Using pen = New Pen(Color.FromArgb(rng.Next( 256 ), rng.Next( 156 ), rng.Next( 200 )))
            pen.Width = 2
            Select Case gName
                Case "line"
                    ' para las lineas pasaremos x1, y1, x2, y2
                    graphic.DrawLine(pen, x, y, w, h) ' * x1, y1, x2, y2
                Case "rectangle"
                    graphic.DrawRectangle(pen, x, y, w, h)
                Case "ellipse"
                    graphic.DrawEllipse(pen, x, y, w, h)
                Case Else

            End Select
        End Using
    End Sub

    ' DESDE AQUI DESARROLLARAS EL PRACTICO...    
End Class 

Übung 1

Siehe Code

 ' * 1. Exercice symmetric graphics
Public Sub SymmetricGraphic1(ax As Single , bx As Single , ay As Single , by As Single , n As UInt32, half As Boolean )
    Dim x1, x2, y1, y2, mx, halfmy, r1, r2, vi1, vi2 As Single
    Dim index, j As UInt32
    mx = bx - ax : halfmy = (ay + by) / 2
    CreateRectangleWithHalf(ax, bx, ay, by, "horizontal" ) ' Horizontal
    r1 = mx / n : vi1 = ax
    r2 = (halfmy - ay) / n : x2 = bx
    ' Condicional para indicar en que mitad pintar las lineas
    If half Then
        y1 = halfmy : vi2 = ay
    Else
        y1 = by : vi2 = halfmy
    End If
    For index = 1 To n
        x1 = vi1 + (index - 1 ) * r1
        y2 = vi2 + (index - 1 ) * r2
        GraphicRandomColor(x1, y1, x2, y2, "line" )
        For j = 1 To timing
        Next
    Next
End Sub 

 ' Llamada de la funcion
Private Sub CualquierEvento_Click(sender As Object , e As EventArgs) Handles CualquierEvento.Click
    ' Esta llamada pinta el grafico en una mitad del marco
    SymmetricGraphic1(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, True )
    ' Esta llamada pinta el grafico en la otra mitad del marco
    SymmetricGraphic1(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, False )
End Sub 

Übung 2

Siehe Code

 ' *  2. Exercice symmetric graphics
Public Sub SymmetricGraphic2(ax As Single , bx As Single , ay As Single , by As Single , n As UInt32, half As Boolean )
    Dim x1, x2, y1, y2, my, halfmx, r, vi As Single
    Dim index, j As UInt32
    my = by - ay : halfmx = (ax + bx) / 2
    CreateRectangleWithHalf(ax, bx, ay, by, "vertical" ) 'Vertical
    r = my / n : vi = ay
    y1 = (ay + by) / 2
    x2 = halfmx
    If half Then
        x1 = ax
    Else
        x1 = bx
    End If
    For index = 1 To n + 1
        y2 = vi + (index - 1 ) * r
        GraphicRandomColor(x1, y1, x2, y2, "line" )
        For j = 1 To timing
        Next
    Next
End Sub 

 ' Llamada de la funcion
Private Sub CualquierEvento_Click(sender As Object , e As EventArgs) Handles CualquierEvento.Click
    ' Esta llamada pinta el grafico en una mitad del marco
    SymmetricGraphic2(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, True )
    ' Esta llamada pinta el grafico en la otra mitad del marco
    SymmetricGraphic2(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, False )
End Sub 

Übung 3

Siehe Code

 ' *  3. Exercice symmetric graphics
Public Sub SymmetricGraphic3(ax As Single , bx As Single , ay As Single , by As Single , n As UInt32, half As Boolean )
    Dim x1, x2, y1, y2, my, halfmx, r, vi As Single
    Dim index, j As UInt32
    my = by - ay : halfmx = (ax + bx) / 2
    CreateRectangleWithHalf(ax, bx, ay, by, "vertical" ) 'Vertical
    r = my / n : vi = ay
    x2 = halfmx : y2 = (ay + by) / 2
    If half Then
        x1 = ax
    Else
        x1 = bx
    End If
    For index = 1 To n + 1
        y1 = vi + (index - 1 ) * r
        GraphicRandomColor(x1, y1, x2, y2, "line" )
        For j = 1 To timing
        Next
    Next
End Sub 

 ' Llamada de la funcion
Private Sub CualquierEvento_Click(sender As Object , e As EventArgs) Handles CualquierEvento.Click
    ' Esta llamada pinta el grafico en una mitad del marco
    SymmetricGraphic3(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, True )
    ' Esta llamada pinta el grafico en la otra mitad del marco
    SymmetricGraphic3(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, False )
End Sub 

Übung 4

Siehe Code

 ' *  4. Exercice symmetric graphics
Public Sub SymmetricGraphic4(ax As Single , bx As Single , ay As Single , by As Single , n As UInt32, half As Boolean )
    Dim x1, x2, y1, y2, my, halfmx, r, vi As Single
    Dim index, j As UInt32
    my = by - ay : halfmx = (ax + bx) / 2
    CreateRectangleWithHalf(ax, bx, ay, by, "vertical" ) 'Vertical
    r = my / n : vi = ay : x2 = halfmx
    If half Then
        x1 = ax : y1 = by
    Else
        x1 = bx : y1 = ay
    End If
    For index = 1 To n
        y2 = vi + (index - 1 ) * r
        GraphicRandomColor(x1, y1, x2, y2, "line" )
        For j = 1 To timing
        Next
    Next
End Sub 

 ' Llamada de la funcion
Private Sub CualquierEvento_Click(sender As Object , e As EventArgs) Handles CualquierEvento.Click
    ' Esta llamada pinta el grafico en una mitad del marco
    SymmetricGraphic4(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, True )
    ' Esta llamada pinta el grafico en la otra mitad del marco
    SymmetricGraphic4(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, False )
End Sub 

Übung 5

Siehe Code

 ' *  5. Exercice symmetric graphics
Public Sub SymmetricGraphic5(ax As Single , bx As Single , ay As Single , by As Single , n As UInt32, half As Boolean )
    Dim x1, x2, y1, y2, my, mx, halfmx, r1, r2, vi1, vi2 As Single
    Dim index, j As UInt32
    mx = bx - ax : my = by - ay : halfmx = (ax + bx) / 2
    CreateRectangleWithHalf(ax, bx, ay, by, "vertical" ) 'Vertical
    r1 = my / n : vi1 = ay : x1 = halfmx
    r2 = (mx / 2 ) / n : y2 = by
    If half Then
        vi2 = halfmx + r2
    Else
        vi2 = halfmx - r2
    End If
    For index = 1 To n
        y1 = vi1 + (index - 1 ) * r1
        If half Then
            x2 = vi2 + (index - 1 ) * r2
            GraphicRandomColor(x1, y1, x2, y2, "line" )
        Else
            x2 = vi2 - (index - 1 ) * r2
            GraphicRandomColor(x1, y1, x2, y2, "line" )
        End If
        For j = 1 To timing
        Next
    Next
End Sub 

 ' Llamada de la funcion
Private Sub CualquierEvento_Click(sender As Object , e As EventArgs) Handles CualquierEvento.Click
    ' Esta llamada pinta el grafico en una mitad del marco
    SymmetricGraphic5(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, True )
    ' Esta llamada pinta el grafico en la otra mitad del marco
    SymmetricGraphic5(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, False )
End Sub 

Übung 6

Siehe Code

 ' * 6. Exercise random graphics
Public Sub RandomLines6(ax As Single , bx As Single , ay As Single , by As Single , n As UInt32, half As Boolean )
    Dim x1, x2, y1, y2, my, halfmx, halfmy As Single
    Dim index, j As UInt32
    my = by - ay : halfmx = (ax + bx) / 2 : halfmy = (ay + by) / 2
    CreateRectangleWithHalf(ax, bx, ay, by, "vertical" ) 'Vertical
    x1 = halfmx : y1 = halfmy
    For index = 1 To n
        y2 = ay + Rnd() * my
        If half Then
            x2 = halfmx + Rnd() * (bx - halfmx)
        Else
            x2 = ax + Rnd() * (halfmx - ax)
        End If
        GraphicRandomColor(x1, y1, x2, y2, "line" )
        For j = 1 To timing
        Next
    Next
End Sub 

 ' Llamada de la funcion
Private Sub CualquierEvento_Click(sender As Object , e As EventArgs) Handles CualquierEvento.Click
    ' Esta llamada pinta el grafico en una mitad del marco
    RandomLines6(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, True )
    ' Esta llamada pinta el grafico en la otra mitad del marco
    RandomLines6(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, False )    
End Sub 

Übung 7

Siehe Code

 ' * 7. Exercise random graphics
Public Sub RandomLines7(ax As Single , bx As Single , ay As Single , by As Single , n As UInt32, half As Boolean )
    Dim x1, x2, y1, y2, my, halfmx As Single
    Dim index, j As UInt32
    my = by - ay : halfmx = (ax + bx) / 2
    CreateRectangleWithHalf(ax, bx, ay, by, "vertical" ) 'Vertical
    y1 = ay + (my / 2 )
    If half Then
        x1 = (ax + halfmx) / 2
    Else
        x1 = halfmx + ((bx - ax) / 2 ) / 2
    End If
    For index = 1 To n
        y2 = ay + Rnd() * my
        If half Then
            x2 = ax + Rnd() * (halfmx - ax)
        Else
            x2 = halfmx + Rnd() * (bx - halfmx)
        End If
        GraphicRandomColor(x1, y1, x2, y2, "line" )
        For j = 1 To 66000000
        Next
    Next
End Sub 

 ' Llamada de la funcion
Private Sub CualquierEvento_Click(sender As Object , e As EventArgs) Handles CualquierEvento.Click
    ' Esta llamada pinta el grafico en una mitad del marco
    RandomLines7(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, True )
    ' Esta llamada pinta el grafico en la otra mitad del marco
    RandomLines7(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, False )
End Sub 

Übung 8

Siehe Code

 ' * 8. Exercice random graphics
Public Sub RandomLines8(ax As Single , bx As Single , ay As Single , by As Single , n As UInt32, half As Boolean )
    Dim x1, x2, y1, y2, my, halfmx As Single
    Dim index, j As UInt32
    CreateRectangleWithHalf(ax, bx, ay, by, "vertical" ) 'Vertical
    my = by - ay : halfmx = (ax + bx) / 2 : x1 = halfmx
    For index = 1 To n
        y1 = ay + Rnd() * my
        If half Then
            x2 = halfmx + Rnd() * (bx - halfmx)
        Else
            x2 = ax + Rnd() * (halfmx - ax)
        End If
        y2 = y1
        GraphicRandomColor(x1, y1, x2, y2, "line" )
        For j = 1 To timing
        Next
    Next
End Sub 

 ' Llamada de la funcion
Private Sub CualquierEvento_Click(sender As Object , e As EventArgs) Handles CualquierEvento.Click
    ' Esta llamada pinta el grafico en una mitad del marco
    RandomLines8(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, True )
    ' Esta llamada pinta el grafico en la otra mitad del marco
    RandomLines8(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, False )
    
End Sub 

Übung 9

Siehe Code

 ' * 9 Exercice random graphics
Public Sub RandomLines9(ax As Single , bx As Single , ay As Single , by As Single , n As UInt32, half As Boolean )
    Dim x1, x2, y1, y2, halfmx As Single
    Dim aux As Boolean = True
    Dim index, j As UInt32
    CreateRectangleWithHalf(ax, bx, ay, by, "vertical" ) 'Vertical
    halfmx = (bx + ax) / 2 : y1 = ay : y2 = by
    If half Then
        x1 = ax + Rnd() * (halfmx - ax)
    Else
        x1 = halfmx + Rnd() * (bx - halfmx)
    End If
    For index = 1 To n
        If half Then
            x2 = ax + Rnd() * (halfmx - ax)
        Else
            x2 = halfmx + Rnd() * (bx - halfmx)
        End If
        If aux Then
            GraphicRandomColor(x1, y1, x2, y2, "line" )
        Else
            GraphicRandomColor(x1, y2, x2, y1, "line" )
        End If
        aux = Not aux
        x1 = x2
        For j = 1 To timing
        Next
    Next
End Sub 

 ' Llamada de la funcion
Private Sub CualquierEvento_Click(sender As Object , e As EventArgs) Handles CualquierEvento.Click
    ' Esta llamada pinta el grafico en una mitad del marco
    RandomLines9(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, True )
    ' Esta llamada pinta el grafico en la otra mitad del marco
    RandomLines9(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, False )
End Sub 

Übung 10

Siehe Code

 ' * 10 Exercice random graphics
Public Sub RandomLines10(ax As Single , bx As Single , ay As Single , by As Single , n As UInt32, half As Boolean )
    Dim x1, x2, y1, y2, my, halfmx As Single
    Dim index, j As UInt32
    my = by - ay : halfmx = (ax + bx) / 2
    CreateRectangleWithHalf(ax, bx, ay, by, "vertical" ) 'Vertical
    If half Then
        x1 = ax + Rnd() * (halfmx - ax) : y1 = ay + Rnd() * my
    Else
        x1 = halfmx + Rnd() * (bx - halfmx) : y1 = ay + Rnd() * my
    End If
    For index = 1 To n
        If half Then
            x2 = ax + Rnd() * (halfmx - ax) : y2 = ay + Rnd() * my
        Else
            x2 = halfmx + Rnd() * (bx - halfmx) : y2 = ay + Rnd() * my
        End If
        GraphicRandomColor(x1, y1, x2, y2, "line" )
        x1 = x2 : y1 = y2
        For j = 1 To timing
        Next
    Next
End Sub 

 ' Llamada de la funcion
Private Sub CualquierEvento_Click(sender As Object , e As EventArgs) Handles CualquierEvento.Click
    ' Esta llamada pinta el grafico en una mitad del marco
    RandomLines10(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, True )
    ' Esta llamada pinta el grafico en la otra mitad del marco
    RandomLines10(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, False )
End Sub