Ejercicio
Estructura
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