Tarea 2 Modulo

Module Module1

Sub Main()
Dim Doc As docente
Doc = New docente

Dim Alu As alumno
Alu = New alumno

Dim Adm As Administrativo
Adm = New Administrativo

Dim x As Integer
Dim opc As Integer
Dim bec As String
Dim nmaterias As Integer

Do
Console.WriteLine("1.- Captura de Alumno")
Console.WriteLine("2.- Captura de Docente")
Console.WriteLine("3.- Captura de Administrativo")
Console.WriteLine("4.- Mostrar todos los datos")
Console.WriteLine("5.- Salir")
opc = Console.ReadLine()
Select Case (opc)
Case 1
Console.WriteLine("Matricula: ")
Alu.Matricula = Console.ReadLine()
'solo para restringir con una 's' o un 'n' en la captura
Do
Console.WriteLine("Becado s/n")
bec = Console.ReadLine()
If bec = "s" Then
Alu.Becado = True
ElseIf bec = "n" Then
Alu.Becado = False
End If
If bec <> "s" And bec <> "n" Then
Console.WriteLine("Tienes que teclear la letra s o la letra n minusculas")
End If
Loop While bec <> "s" And bec <> "n"
Console.WriteLine("Turno M / V ")
Alu.Turno = Console.ReadLine()


CapDatP(Alu)
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("Mostrando todos los datos capturados: ")
MostDatP(Alu)
Console.WriteLine("Matricula {0}", Alu.Matricula)
Console.WriteLine("Becado s/n {0}", Alu.Becado)
Console.WriteLine("Turno {0}", Alu.Turno)
Console.ReadLine()


Case 2
Console.WriteLine("No. de Empleado")
Doc.NoEmpleado = Console.ReadLine
Console.WriteLine("Sueldo:")
Doc.Sueldo = Console.ReadLine
CapDatP(Doc)

'El sueldo total es = al numero de materias * sueldo
Do
Console.WriteLine("¿Cuantas materias imparte? < 12")
nmaterias = Console.ReadLine
Loop While nmaterias > 12
For x = 0 To nmaterias - 1
Console.WriteLine("Materia {0}:", x + 1)
Doc.Materias(x) = Console.ReadLine
Next
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("Mostrando todos los datos capturados del Docente: ")
Console.WriteLine("No. de empleado {0}", Doc.NoEmpleado)

MostDatP(Doc)
Console.WriteLine("Sueldo {0}", Doc.Sueldo)
Console.WriteLine("Materias:")
For x = 0 To nmaterias - 1
Console.WriteLine("{0}.- {1}", x + 1, Doc.Materias(x))
Next
Console.ReadLine()

Case 3
Console.WriteLine("No. de empleado:")
Adm.NoEmpleado = Console.ReadLine
Console.WriteLine("Sueldo: ")
Adm.Sueldo = Console.ReadLine
Console.WriteLine("Puesto: ")
Adm.puesto = Console.ReadLine

CapDatP(Adm)

Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("Mostrando todos los datos capturados del Administrativo: ")
Console.WriteLine(" No. de empleado {0}", Adm.NoEmpleado)
MostDatP(Adm)

Console.WriteLine("Puesto {0} ", Adm.puesto)
Console.WriteLine("Sueldo {0}", Adm.Sueldo)
Console.ReadLine()
Case 4
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("Mostrando todos los datos capturados Alumno: ")

Console.WriteLine(Alu.Matricula)
MostDatP(Alu)
Console.WriteLine("Becado s/n {0}", Alu.Becado)
Console.WriteLine("Turno {0}", Alu.Turno)

Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("Mostrando todos los datos capturados Académico: ")
Console.WriteLine(" No. de empleado {0}", Doc.NoEmpleado)
MostDatP(Doc)

Console.WriteLine("Sueldo {0}", Doc.Sueldo)
Console.WriteLine("Materias:")
For x = 0 To nmaterias - 1
Console.WriteLine("{0}.- {1}", x + 1, Doc.Materias(x))
Next

Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("Mostrando todos los datos capturados Administrativo : ")
Console.WriteLine(" No. de empleado {0}", Adm.NoEmpleado)
MostDatP(Adm)

Console.WriteLine("Sueldo {0}", Adm.Sueldo)
Console.WriteLine("Puesto {0} ", Adm.puesto)
Console.ReadLine()
End Select
Loop While opc <> 5
End Sub
Function CapDatP(ByRef tpersona As Object)
Console.WriteLine("Nombre:")
tpersona.Nombre = Console.ReadLine()
Console.WriteLine("Domicilio: ")
tpersona.domicilio = Console.ReadLine()
Console.WriteLine("Telefono: ")
tpersona.Telefono = Console.ReadLine()
Console.WriteLine("Fecha de Nacimiento: ")
tpersona.FechaNac = Console.ReadLine()
End Function

Function MostDatP(ByVal tpersona As Object)
Console.WriteLine("Nombre: {0}", tpersona.nombre)
Console.WriteLine("Domicilio: {0}", tpersona.domicilio)
Console.WriteLine("Telefono: {0}", tpersona.Telefono)
Console.WriteLine("Fecha de Nacimiento: {0}", tpersona.FechaNac)
End Function
End Module