Ingenieria En Informatica
Public Class Menu
Private Function Continuar() As Boolean
Console.WriteLine("Desea calcular una nueva reserva (S/N):")
Dim result As ConsoleKeyInfo = Console.ReadKey()Return (result.Key = ConsoleKey.S)
End Function
Public Sub Menu()
Dim dato As String
Dim valor As Integer
Dim dias As Integer
Dim pasajeros AsInteger
Do
Dim instCalc As Calculos = New Calculos()
Console.Clear()
Console.WriteLine("=============================")
Console.WriteLine("Reserva Hotelera")
Console.WriteLine("=============================")
Console.WriteLine("")
Console.WriteLine("1.- Habitacion Single")Console.WriteLine("2.- Habitacion Familiar")
Console.WriteLine("")
Console.WriteLine("Seleccione tipo de habitacion: ")
Dim opcion As ConsoleKeyInfo = Console.ReadKey()If (opcion.Key = ConsoleKey.D1) Then
Console.Clear()
Console.WriteLine("====================================")Console.WriteLine("Reserva hotelera - Habitacion simple")
Console.WriteLine("====================================")
Console.WriteLine("")
Console.WriteLine("Ingrese valorde la habitacion: ")
Try
dato = Console.ReadLine()
valor = Int32.Parse(dato)
Catch e As ExceptionConsole.WriteLine("INTENTE DE NUEVO. El valor ingresado no es correcto - " + e.Message)
dato = Console.ReadLine()
valor = Int32.Parse(dato)End Try
Console.WriteLine("Ingrese dias de alojamiento (maximo 15 dias): ")
Try
Do
dato = Console.ReadLine()...
Regístrate para leer el documento completo.