ArrayList de puntos Curso de Programación Visual Basic

Lección:

Gestión Dinámica de Memoria


Ejercicio:

ArrayList de puntos 6


Objetivo:

Cree una estructura "Point3D", para representar un punto en el espacio 3-D, con coordenadas X, Y y Z.

Cree un programa con un menú, en el que el usuario pueda elegir:
- Agregar datos para un punto
- Mostrar todos los puntos ingresados
- Salir del programa

DEBE usar ArrayList, en lugar de matrices.


Código:

Imports System
Imports System.Collections
Namespace Point3D
    Class Program
        Structure Point3D
            Private x, y, z  As Double
        End Structure

        Private Shared Sub Main(ByVal args As String())
            Dim [exit] As Boolean = False
            Dim list As ArrayList = New ArrayList()
            Dim points As Point3D = New Point3D()
            Dim answer As String

            Do
                Console.WriteLine("1. Add data for one point")
                Console.WriteLine("2. Display all the entered points")
                Console.WriteLine("x. Display all the entered points")
                Console.WriteLine()
                Console.Write("Enter a option: ")
                answer = Console.ReadLine()

                If answer.ToLower() = "x" Then
                    [exit] = True
                ElseIf answer = "1" Then
                    Console.Write("Point x: ")
                    list.Add(Convert.ToInt32(Console.ReadLine()))
                    Console.Write("Point y: ")
                    list.Add(Convert.ToInt32(Console.ReadLine()))
                    Console.Write("Point z: ")
                    list.Add(Convert.ToInt32(Console.ReadLine()))
                End If
            Loop While Not [exit]
        End Sub
    End Class
End Namespace