Módulo divertido en Visual Basic 2010 Express


a1

Para crear este juego, utilize GraphicsWindows para crear la interfaz de usuario. Utilize el objeto Controls para agregar un botón y un cuadro de texto y establecer el tamaño de los botones. Utilize el objeto Shapes para agregar diferentes formas. También utilize el objeto Shapes para mostrar, mover, y ocultar formas. Use el objeto Turtle para establecer su ángulo, velocidad y posición. Utilize varias condiciones para diferentes acciones.

Importado  de MS Small Basic

Module UntitledModule

    Dim anVent, alVent, botónPresionado, x, cuadroTextoLados, botónDibujar, botónBorrar, lados, color, i, colorPaleta, largo, ángulo, j, y, índicePaleta As Primitive

    Sub Main()

        ‘ Copyright (c) Microsoft Corporation.  Todos los derechos reservados.

 

        GraphicsWindow.Hide()

        anVent = 600

        alVent = 450

 

        GraphicsWindow.CanResize = “Falso”

        GraphicsWindow.Top = (Desktop.Height – alVent) / 2

        GraphicsWindow.Left = (Desktop.Width – anVent) / 2

        GraphicsWindow.Title = “Dibujar gráficos con la tortuga”

        GraphicsWindow.Width = anVent

        GraphicsWindow.Height = alVent

        GraphicsWindow.Show()

 

        CrearInterfaz()

 

        AddHandler Controls.ButtonClicked, AddressOf ClicBotón

        AddHandler GraphicsWindow.MouseDown, AddressOf ClicMouse

 

 

 

 

 

    End Sub

    Sub CrearInterfaz()

        GraphicsWindow.BrushColor = “Black”

        GraphicsWindow.DrawText(70, 25, “Introduzca los lados: “)

 

        cuadroTextoLados = Controls.AddTextBox(200, 20)

        Controls.SetSize(cuadroTextoLados, 50, 30)

 

        botónDibujar = Controls.AddButton(“Dibujar imagen”, 270, 20)

        Controls.SetSize(botónDibujar, 110, 30)

 

        botónBorrar = Controls.AddButton(“Borrar”, 390, 20)

        Controls.SetSize(botónBorrar, 100, 30)

 

        GraphicsWindow.PenColor = “Black”

        GraphicsWindow.DrawRectangle(55, 55, 490, 380)

 

        DibujarPaleta()

    End Sub

    Sub ClicBotón()

        botónPresionado = Controls.LastClickedButton

        If botónPresionado = botónDibujar Then

            lados = Controls.GetTextBoxText(cuadroTextoLados)

            If (lados < 3) or (lados > 35) Then

                Controls.SetTextBoxText(cuadroTextoLados, “”)

            Else

                DrawShape()

            End If

        ElseIf botónPresionado = botónBorrar Then

            Controls.SetTextBoxText(cuadroTextoLados, “”)

            GraphicsWindow.BrushColor = “White”

            GraphicsWindow.FillRectangle(55, 55, 490, 380)

            GraphicsWindow.PenColor = “Black”

            GraphicsWindow.DrawRectangle(55, 55, 490, 380)

        End If

    End Sub

    Sub DibujarPaleta()

        color(1) = “Red”

        color(2) = “DeepPink”

        color(3) = “Magenta”

        color(4) = “BlueViolet”

        color(5) = “MediumSlateBlue”

        color(6) = “LimeGreen”

        color(7) = “DeepSkyBlue”

        color(8) = “Blue”

        color(9) = “DarkGreen”

 

        color(10) = “Aqua”

        color(11) = “Green”

        color(12) = “SpringGreen”

        color(13) = “Yellow”

        color(14) = “YellowGreen”

        color(15) = “SteelBlue”

        color(16) = “DarkSlateBlue”

        color(17) = “Black”

        color(18) = “Orange”

 

        GraphicsWindow.PenColor = “Black”

        For i = 1 To 9

            GraphicsWindow.Brushcolor = color(i)

            colorPaleta = Shapes.AddRectangle(40, 40)

            Shapes.Move(colorPaleta, 4, (i * 44) + 6)

        Next

 

        For i = 1 To 9

            GraphicsWindow.Brushcolor = color(i + 9)

            colorPaleta = Shapes.AddRectangle(40, 40)

            Shapes.Move(colorPaleta, 554, (i * 44) + 6)

        Next

    End Sub

    Sub DrawShape()

        GraphicsWindow.DrawRectangle(55, 55, 490, 380)

        Turtle.Show()

        Program.Delay(500)

 

        largo = 500 / lados

        ángulo = 360 / lados

 

        Turtle.Speed = 10

        Turtle.X = 300

        Turtle.Y = 240

 

        For j = 1 To 10

            For i = 1 To lados

                Turtle.Move(largo)

                Turtle.Turn(ángulo)

            Next

            Turtle.Turn(36)

        Next

    End Sub

    Sub ClicMouse()

        x = GraphicsWindow.MouseX

        y = GraphicsWindow.MouseY

 

        If (y > 50) And (y < 446) Then

            If Microsoft.SmallBasic.Library.Math.Remainder(y – 6, 44) <= 40 Then

                índicePaleta = Microsoft.SmallBasic.Library.Math.Floor((y – 6) / 44)

 

                If (x > 4) And (x < 44) Then

                    ‘ Paleta izquierda

                    GraphicsWindow.PenColor = color(índicePaleta)

                    Controls.SetTextBoxText(cuadroTextoLados, “”)

                ElseIf (x > 554) And (x < 594) Then

                    ‘ Paleta derecha

                    GraphicsWindow.PenColor = color(índicePaleta + 9)

                    Controls.SetTextBoxText(cuadroTextoLados, “”)

                End If

 

                GraphicsWindow.DrawRectangle(55, 55, 490, 380)

            End If

        End If

    End Sub

End Module

 

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s