Estructura Curso de Programación Visual Basic

Lección:

Matrices, Estructuras y Cadenas


Ejercicio:

Estructura 9


Objetivo:

Crea una "estructura" para almacenar datos de puntos 2D. Los campos para cada punto serán:

coordenada x (corta)
y coordenada (corta)
r (color rojo, byte)
g (color verde, byte)
b (color azul, byte)

Escriba un programa en Visual Basic que cree dos "puntos", pida al usuario sus datos y luego muestre su contenido.


Código:

Imports System
Public Class exercise79
    Structure point
        Public x As Short
        Public y As Short
        Public r As Byte
        Public g As Byte
        Public b As Byte
    End Structure

    Public Shared Sub Main()
        Dim p1, p2 As point
        Console.Write("Enter X for first point: ")
        p1.x = Convert.ToInt16(Console.ReadLine())
        Console.Write("Enter Y for first point: ")
        p1.y = Convert.ToInt16(Console.ReadLine())
        Console.Write("Enter Red for first point: ")
        p1.r = Convert.ToByte(Console.ReadLine())
        Console.Write("Enter Green for first point: ")
        p1.g = Convert.ToByte(Console.ReadLine())
        Console.Write("Enter Blue for first point: ")
        p1.b = Convert.ToByte(Console.ReadLine())
        Console.Write("Enter X for second point: ")
        p2.x = Convert.ToInt16(Console.ReadLine())
        Console.Write("Enter Y for second point: ")
        p2.y = Convert.ToInt16(Console.ReadLine())
        Console.Write("Enter Red for second point: ")
        p2.r = Convert.ToByte(Console.ReadLine())
        Console.Write("Enter Green for second point: ")
        p2.g = Convert.ToByte(Console.ReadLine())
        Console.Write("Enter Blue for second point: ")
        p2.b = Convert.ToByte(Console.ReadLine())
        Console.WriteLine("P1 is located in ({0},{1}), colour ({2},{3},{4})", p1.x, p1.y, p1.r, p1.g, p1.b)
        Console.WriteLine("P2 is located in ({0},{1}), colour ({2},{3},{4})", p2.x, p2.y, p2.r, p2.g, p2.b)
    End Sub
End Class