Menú de Opciones por Carolina Lordi | C# Online Compiler

Menú de Opciones por Carolina Lordi by Anonymous

Imports System
Public Module Module1
	dim opcion as integer
	dim cliente as integer
	dim opcion1 as integer
	dim nrotarjeta as string
	dim vtotarjeta as integer
	dim codigoseguridad as integer
			
	Public Sub Main()
		Console.WriteLine("¡Bienvenido al proveedor de internet!")

		Do
		Console.WriteLine("Ingrese la opción que desea: ")
			Console.WriteLine("1: Comunicarse con soporte técnico - 2: Pedir una copia de la factura - 3: Pagar la factura - 4: Colgar")
		opcion = console.ReadLine()
		
		Select case opcion
		Case 1
				Console.WriteLine("Ingrese el número de cliente")
				cliente = console.ReadLine()
				Console.WriteLine("El número de cliente ingresado es: " & cliente)
				Console.WriteLine("Ingrese 1 si es correcto o 2 si desea corregir")
				opcion1 = console.ReadLine()
				IF opcion1 = 1 then
					Console.WriteLine("Su llamado sera derivado a un operador")
				else
					Console.WriteLine("Ingrese nuevamente el numero de cliente")
					cliente=Console.ReadLine()
					Console.WriteLine("El número de cliente ingresado es: " & cliente)
					Console.WriteLine("Aguarde un instante en línea, por favor. Su llamado sera derivado a un operador")
				end if		
				
		Case 2
				Console.WriteLine("Ingrese su correo electrónico")
				cliente = console.ReadLine()
				Console.WriteLine("El correo electrónico ingresado es: " & cliente)
				Console.WriteLine("Ingrese 1 si es correcto o 2 si desea corregir")
				opcion1 = console.ReadLine()
				IF opcion1 = 1 then
					Console.WriteLine("Una copia de su factura será enviada")
				else
					Console.WriteLine("Ingrese nuevamente el correo electrónico")
					cliente=Console.ReadLine()
					Console.WriteLine("El correo electrónico ingresado es: " & cliente)
					Console.WriteLine("Una copia de su factura será enviada")
				end if
		Case 3
				Console.WriteLine("Ingrese por favor su número de cliente")
				cliente = console.ReadLine()
				Console.WriteLine("El número de cliente ingresado es: " & cliente)
				Console.WriteLine("Ingrese 1 si es correcto o 2 si desea corregir")
				opcion1 = console.ReadLine()
				IF opcion1 = 1 then
					Console.WriteLine("Ingrese por favor su número de tarjeta")
					nrotarjeta = console.ReadLine()		
					Console.WriteLine("Ingrese por favor el vencimiento de su tarjeta")
					vtotarjeta = console.ReadLine()	
					Console.WriteLine("Ingrese por favor el código de seguridad de su tarjeta")
					codigoseguridad = console.ReadLine()
					Console.WriteLine("Su número de tarjeta es: " & nrotarjeta)
					Console.WriteLine("El vencimiento de la tarjeta es: " & vtotarjeta)
					Console.WriteLine("El código de seguridad de su tarjeta es: " & codigoseguridad)
					Console.WriteLine("Ingrese 1 si es correcto o 2 si desea corregir")
					opcion1 = console.ReadLine()					
					IF opcion1 = 1 then
						Console.WriteLine("Su pago aceptado")
					else
						Console.WriteLine("Alguno de los datos es incorrecto. Ud. será derivado al menú principal.")
					end if
				else
					Console.WriteLine("Código de cliente inválido. Ud. será derivado al menú principal.")
				end if						
		Case 4
				Console.WriteLine("Muchas gracias por comunicarse")
		Case else
			Console.WriteLine("El número ingresado es incorrecto")
		End Select
		Loop until opcion=4
	End Sub
End Module

​x
 
Imports System
Public Module Module1
    dim opcion as integer
    dim cliente as integer
    dim opcion1 as integer
    dim nrotarjeta as string
    dim vtotarjeta as integer
    dim codigoseguridad as integer
            
    Public Sub Main()
        Console.WriteLine("¡Bienvenido al proveedor de internet!")
​
        Do
        Console.WriteLine("Ingrese la opción que desea: ")
            Console.WriteLine("1: Comunicarse con soporte técnico - 2: Pedir una copia de la factura - 3: Pagar la factura - 4: Colgar")
        opcion = console.ReadLine()
        
        Select case opcion
        Case 1
                Console.WriteLine("Ingrese el número de cliente")
                cliente = console.ReadLine()
                Console.WriteLine("El número de cliente ingresado es: " & cliente)
                Console.WriteLine("Ingrese 1 si es correcto o 2 si desea corregir")
                opcion1 = console.ReadLine()
                IF opcion1 = 1 then
                    Console.WriteLine("Su llamado sera derivado a un operador")
                else
                    Console.WriteLine("Ingrese nuevamente el numero de cliente")
                    cliente=Console.ReadLine()
                    Console.WriteLine("El número de cliente ingresado es: " & cliente)
                    Console.WriteLine("Aguarde un instante en línea, por favor. Su llamado sera derivado a un operador")
                end if      
                
        Case 2
                Console.WriteLine("Ingrese su correo electrónico")
                cliente = console.ReadLine()
                Console.WriteLine("El correo electrónico ingresado es: " & cliente)
                Console.WriteLine("Ingrese 1 si es correcto o 2 si desea corregir")
                opcion1 = console.ReadLine()
                IF opcion1 = 1 then
                    Console.WriteLine("Una copia de su factura será enviada")
                else
                    Console.WriteLine("Ingrese nuevamente el correo electrónico")
                    cliente=Console.ReadLine()
                    Console.WriteLine("El correo electrónico ingresado es: " & cliente)
                    Console.WriteLine("Una copia de su factura será enviada")
                end if
        Case 3
                Console.WriteLine("Ingrese por favor su número de cliente")
                cliente = console.ReadLine()
                Console.WriteLine("El número de cliente ingresado es: " & cliente)
                Console.WriteLine("Ingrese 1 si es correcto o 2 si desea corregir")
                opcion1 = console.ReadLine()
                IF opcion1 = 1 then
                    Console.WriteLine("Ingrese por favor su número de tarjeta")
                    nrotarjeta = console.ReadLine()     
                    Console.WriteLine("Ingrese por favor el vencimiento de su tarjeta")
                    vtotarjeta = console.ReadLine() 
                    Console.WriteLine("Ingrese por favor el código de seguridad de su tarjeta")
                    codigoseguridad = console.ReadLine()
                    Console.WriteLine("Su número de tarjeta es: " & nrotarjeta)
                    Console.WriteLine("El vencimiento de la tarjeta es: " & vtotarjeta)
                    Console.WriteLine("El código de seguridad de su tarjeta es: " & codigoseguridad)
                    Console.WriteLine("Ingrese 1 si es correcto o 2 si desea corregir")
                    opcion1 = console.ReadLine()                    
                    IF opcion1 = 1 then
                        Console.WriteLine("Su pago aceptado")
                    else
                        Console.WriteLine("Alguno de los datos es incorrecto. Ud. será derivado al menú principal.")
                    end if
                else
                    Console.WriteLine("Código de cliente inválido. Ud. será derivado al menú principal.")
                end if                      
        Case 4
                Console.WriteLine("Muchas gracias por comunicarse")
        Case else
            Console.WriteLine("El número ingresado es incorrecto")
        End Select
        Loop until opcion=4
    End Sub
End Module

View IL Code