Ejercicio
Programas informáticos
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