Programas informáticos Curso de Programación Visual Basic

Lección:

Matrices, Estructuras y Cadenas


Ejercicio:

Programas informáticos 13


Objetivo:

Cree un programa de Visual Basic que pueda almacenar hasta 1000 registros de programas informáticos. Para cada programa, debe conservar los siguientes datos:

* Nombre
* Categoría
* Descripción
* Versión (es un conjunto de 3 datos: número de versión -texto-, mes de lanzamiento -byte- y año de lanzamiento -corto sin firmar-)

El programa debe permitir al usuario las siguientes operaciones:

1 - Agregue datos de un nuevo programa (el nombre no debe estar vacío, la categoría no debe tener más de 30 letras (o debe volver a ingresarse), y para la descripción, aceptará solo las primeras 100 letras ingresadas y omitirá el resto; la versión no necesita validación).
2 - Mostrar los nombres de todos los programas almacenados. Cada nombre debe aparecer en una línea. Si hay más de 20 programas, debe hacer una pausa después de mostrar cada bloque de 20 programas y esperar a que el usuario presione Entrar antes de continuar. El usuario debe ser notificado si no hay datos.
3 - Ver todos los datos de un determinado programa (de parte de su nombre, categoría o descripción, distingue entre mayúsculas y minúsculas). Si hay varios programas que contienen ese texto, el programa mostrará todos ellos, separados por una línea en blanco. Se debe notificar al usuario si no se encuentran coincidencias.
4 - Actualizar un registro (solicitando al usuario el número, el programa mostrará el valor anterior de cada campo, y el usuario puede presionar Enter para no modificar ninguno de los datos). Se le debe advertir (pero no volver a preguntarle) si ingresa un número de registro incorrecto. No es necesario validar ninguno de los campos.
5 - Eliminar un registro, cuyo número será indicado por el usuario. Se le debe advertir (pero no volver a preguntarle) si ingresa un número incorrecto.
6 - Ordenar los datos alfabéticamente por nombre.
7 - Fijar espacios redundantes (convertir todas las secuencias de dos o más espacios en un solo espacio, solo en el nombre, para todos los registros existentes).
X - Salir de la aplicación (como no almacenamos la información, los datos se perderán).


Código:

Imports System
Public Class exercise94
    Structure versionType
        Public number As String
        Public month As Byte
        Public year As UShort
    End Structure

    Structure program
        Public name As String
        Public category As String
        Public description As String
        Public version As versionType
    End Structure

    Public Shared Sub Main()
        Dim capacity As Integer = 1000
        Dim data As program() = New program(capacity - 1) {}
        Dim repeat As Boolean = True
        Dim [option] As String
        Dim counter As Integer = 0

        Do
            Console.WriteLine()
            Console.WriteLine("Computer programas database")
            Console.WriteLine()
            Console.WriteLine("1.- Add data.")
            Console.WriteLine("2.- View names of the programs.")
            Console.WriteLine("3.- Search programs.")
            Console.WriteLine("4.- Modify program.")
            Console.WriteLine("5.- Delete Program.")
            Console.WriteLine("6.- Sort alphabetically")
            Console.WriteLine("7.- Fix redundant spaces")
            Console.WriteLine("0.-Exit.")
            Console.Write("Option: ")
            [option] = Console.ReadLine()

            Select Case [option]
                Case "1"

                    If counter > capacity - 1 Then
                        Console.WriteLine("Database full!")
                        Exit Select
                    End If

                    Do
                        Console.Write("Enter Name: ")
                        data(counter).name = Console.ReadLine()
                        If data(counter).name.Length = 0 Then Console.Write("Cannot be empty")
                    Loop While data(counter).name.Length = 0

                    Do
                        Console.Write("Enter category: ")
                        data(counter).category = Console.ReadLine()
                        If data(counter).category.Length > 30 Then Console.Write("Too long. 30 letters max, please")
                    Loop While data(counter).category.Length > 30

                    Console.Write("Enter Description: ")
                    data(counter).description = Console.ReadLine()
                    If data(counter).description.Length > 100 Then data(counter).description = data(counter).description.Substring(0, 100)
                    Console.Write("Enter the version number: ")
                    data(counter).version.number = Console.ReadLine()
                    Console.Write("Enter the version month: ")
                    data(counter).version.month = Convert.ToByte(Console.ReadLine())
                    Console.Write("Enter the version year: ")
                    data(counter).version.year = Convert.ToUInt16(Console.ReadLine())
                    counter += 1
                Case "2"

                    If counter = 0 Then
                        Console.WriteLine("No data!")
                    Else

                        For i As Integer = 0 To counter - 1
                            Console.WriteLine("{0}: {1}", i + 1, data(i).name)

                            If i Mod 20 = 19 Then
                                Console.Write("Press Enter...")
                                Console.ReadLine()
                            End If
                        Next
                    End If

                Case "3"
                    Console.Write("Enter part of the name, description, etc... (case sensitive): ")
                    Dim search As String = Console.ReadLine()
                    Dim found As Boolean = False

                    For i As Integer = 0 To counter - 1

                        If data(i).name.Contains(search) OrElse data(i).description.Contains(search) OrElse data(i).category.Contains(search) Then
                            Console.WriteLine("{0}: {1}", i + 1, data(i).name)
                            found = True
                        End If
                    Next

                    If Not found Then Console.WriteLine("Not found!")
                Case "4"
                    Console.Write("Enter the program number: ")
                    Dim progNumber As Integer = Convert.ToInt32(Console.ReadLine()) - 1

                    If (progNumber > counter) OrElse (progNumber < 0) Then
                        Console.Write("Out of range!")
                        Exit Select
                    End If

                    Console.Write("Program name (was {0}; hit ENTER to leave as is): ", data(progNumber).name)
                    Dim newText As String = Console.ReadLine()
                    If newText <> "" Then data(progNumber).name = newText
                    Console.Write("Program category (was {0}; hit ENTER to leave as is): ", data(progNumber).category)
                    newText = Console.ReadLine()
                    If newText <> "" Then data(progNumber).category = newText
                    Console.Write("Program description (was {0}; hit ENTER to leave as is): ", data(progNumber).description)
                    newText = Console.ReadLine()
                    If newText <> "" Then data(progNumber).description = newText
                    Console.Write("Program version (number) (was {0}; hit ENTER to leave as is): ", data(progNumber).version.number)
                    newText = Console.ReadLine()
                    If newText <> "" Then data(progNumber).version.number = newText
                    Console.Write("Program version (month) (was {0}; hit ENTER to leave as is): ", data(progNumber).version.month)
                    newText = Console.ReadLine()
                    If newText <> "" Then data(progNumber).version.month = Convert.ToByte(newText)
                    Console.Write("Program version (year) (was {0}; hit ENTER to leave as is): ", data(progNumber).version.year)
                    newText = Console.ReadLine()
                    If newText <> "" Then data(progNumber).version.year = Convert.ToUInt16(newText)
                Case "5"
                    Dim position As Integer = 0
                    Console.Write("Enter the position number to delete: ")
                    position = Convert.ToInt32(Console.ReadLine()) - 1

                    If position > counter Then
                        Console.WriteLine("Error: out of range")
                    Else

                        For i As Integer = position To counter - 1
                            data(i) = data(i + 1)
                        Next

                        counter -= 1
                    End If

                Case "6"
                    Dim aux As program

                    For i As Integer = 0 To counter - 1 - 1

                        For j As Integer = i + 1 To counter - 1

                            If data(i).name.CompareTo(data(j).name) > 0 Then
                                aux = data(i)
                                data(i) = data(j)
                                data(j) = aux
                            End If
                        Next
                    Next

                Case "7"

                    For i As Integer = 0 To counter - 1

                        While data(i).name.Contains("  ")
                            data(i).name = data(i).name.Replace("  ", " ")
                        End While
                    Next

                Case "0"
                    repeat = False
                Case Else
                    Console.WriteLine("Wrong option!")
            End Select
        Loop While repeat <> False
    End Sub
End Class