Transcript Funciones especiales y Select case Visual basic consola Ejercicio Aplicando, select case y funciones especiales O Elaborar un programa que muestre un menú de opciones correspondiente.

Funciones especiales y
Select case
Visual basic consola
Ejercicio Aplicando, select case
y funciones especiales
O Elaborar un programa que muestre un menú de opciones
correspondiente a los grupos de decimo 2014, el
programa debe pedir el nombre de una estudiante del
colegio de la UPB y esta debe ingresar el numero del menú
correspondiente al grupo al cual pertenece.
O El programa debe emitir un sonido cuando esté pidiendo
se ingrese un dato.
O Debe mostrar el nombre de la estudiante y decir a que
decimo pertenece.
O La ventana que se muestre, debe ser de un color diferente
al que viene por defecto. Y el color de la letra que haga
contraste con el fondo
Análisis Fase 1
• Datos de entrada: Nombre, y un numero
• Proceso: elaborar un menú con los grupos del grado
decimo indicando la posición donde se desea
aparezca, cambiar el color del cuadro de la consola, el
programa debe emitir un sonido cuando este pidiendo
información
• Datos de salida: mostrar el nombre ingresado y un
mensaje indicando a qué grupo corresponde.
FASE 2
CODIFICACIÓN EN VISUAL
BASIC CONSOLA
Module Module1
Sub Main()
Dim x As String
Dim nombre As String
Dim opc As Byte
x = "Bienvenidas estudiantes grado decimo "
Console.Title = x
Console.BackgroundColor =
ConsoleColor.DarkMagenta
Console.Clear()
Console.ForegroundColor = ConsoleColor.White
Console.SetCursorPosition(17, 5)
Console.WriteLine("GRUPOS DECIMO 2014 COLEGIO DE
LA UPB")
Console.SetCursorPosition(14, 7)
Console.WriteLine("1. Grupo 1011")
Console.SetCursorPosition(14, 8)
Console.WriteLine("2. Grupo 1012")
Console.SetCursorPosition(14, 9)
Console.WriteLine("3. Grupo 1013")
Console.SetCursorPosition(14, 10)
Console.WriteLine("4. Grupo 1014")
Console.SetCursorPosition(14, 11)
Console.WriteLine("5. Grupo 1015")
Console.SetCursorPosition(1, 13)
Console.Write("digite su nombre por favor ")
Console.Beep()
nombre = Console.ReadLine
Console.SetCursorPosition(1, 15)
Console.Write("digite el numero del grupo al cual
pertenece, asi: para 1011 corresponde el 1 y así
sucesivamente ")
Console.Beep()
opc = Console.ReadLine
Select Case opc
Case 1
Console.SetCursorPosition(14, 18)
Console.WriteLine(nombre & " Usted
Console.ReadLine()
Case 2
Console.SetCursorPosition(14, 18)
Console.WriteLine(nombre & " Usted
Console.ReadLine()
Case 3
Console.SetCursorPosition(14, 18)
Console.WriteLine(nombre & " Usted
Console.ReadLine()
Case 4
Console.SetCursorPosition(14, 18)
Console.WriteLine(nombre & " Usted
Console.ReadLine()
Case Else
Console.SetCursorPosition(14, 18)
Console.WriteLine(nombre & " Usted
Console.ReadLine()
End Select
End Sub
End Module
pertenece a 1011")
pertenece a 1012")
pertenece a 1013")
pertenece a 1014")
pertenece a 1015")