Aumento de Velocida - Ley de Amdhal
Enviado por Acel09 • 22 de Agosto de 2018 • Informes • 4.656 Palabras (19 Páginas) • 101 Visitas
Module Module1
Sub Main()
Dim Indice As Integer
Dim opcion As Integer
Dim estatus As Integer
Dim Variable As Integer
Dim Asignaturas(7) As String
Console.WriteLine()
Console.WriteLine(" SISTEMA GPF")
Console.WriteLine("______________________________________________________________________________")
Console.WriteLine()
Console.Write("Digite el numero de estudiantes: ")
Indice = Console.ReadLine
Console.Clear()
Dim Datos_Personales(Indice, 6) As String
Dim Primer_Periodo(Indice, 7) As Integer
Dim Segundo_Periodo(Indice, 7) As Integer
Dim Tercer_Periodo(Indice, 6) As Integer
Dim Promedios(Indice, 5) As Integer
Variable = Indice - 1
estatus = 1
While estatus = 1
Console.WriteLine()
Console.WriteLine(" MENU ")
Console.WriteLine("______________________________________________________________")
Console.WriteLine()
Console.WriteLine(" 1- Datos personales")
Console.WriteLine()
Console.WriteLine(" 2- Materias del primer periodo")
Console.WriteLine()
Console.WriteLine(" 3- Materias del segundo periodo")
Console.WriteLine()
Console.WriteLine(" 4- Materias del tercer periodo")
Console.WriteLine()
Console.WriteLine(" 5-Vista Previa")
Console.WriteLine()
Console.WriteLine("______________________________________________________________")
Console.WriteLine("Digite la opcion a la que desea ingresar")
opcion = Console.ReadLine
Select Case opcion
Case 1
Zero(Datos_Personales, Variable)
Case 2
First(Primer_Periodo, Asignaturas, Indice)
Case 3
Second(Segundo_Periodo, Asignaturas, Indice)
Case 4
Third(Tercer_Periodo, Asignaturas, Indice)
Case 5
Fourth(Promedios, Primer_Periodo, Segundo_Periodo, Tercer_Periodo, Indice)
VistaPrevia(Promedios, Primer_Periodo, Segundo_Periodo, Tercer_Periodo, Datos_Personales, Indice)
End Select
End While
End Sub
Sub Zero(ByVal Datos_Personales, numero)
Dim Estudiante As Integer
Console.Clear()
Estudiante = 1
For numero = 0 To numero
Console.WriteLine()
Console.WriteLine(" Datos Personales Estudiante " & Estudiante)
Console.WriteLine("________________________________________________________________")
Console.WriteLine()
Console.Write("Nombre: ")
Datos_Personales(numero, 0) = Console.ReadLine
Console.WriteLine()
Console.Write("Primer Apellido: ")
Datos_Personales(numero, 1) = Console.ReadLine
Console.WriteLine()
Console.Write("Segundo Apellido: ")
Datos_Personales(numero, 2) = Console.ReadLine
Console.WriteLine()
Console.Write("Fecha de Nacimiento:")
Datos_Personales(numero, 3) = Console.ReadLine()
Console.WriteLine()
Console.Write("Nivel Cursado: ")
Datos_Personales(numero, 4) = Console.ReadLine()
Console.WriteLine()
Console.Write("Fecha: ")
Datos_Personales(numero, 5) = Console.ReadLine
Console.WriteLine()
Estudiante = Estudiante + 1
Console.Clear()
Next
End Sub
Sub AsignaturaST(ByVal Asignaturas)
Asignaturas(0) = "Español"
Asignaturas(1) = "Matematicas"
Asignaturas(2) = "Ciencias"
Asignaturas(3) = "Estudios Sociales"
Asignaturas(4) = "Ingles"
Asignaturas(5) = "Artes Plasticas"
Asignaturas(6) = "Artes Industriales"
End Sub
Function First(ByVal Primer_Periodo, ByVal Asignaturas, Est1) As Integer
Console.Clear()
AsignaturaST(Asignaturas)
Dim R1 As Integer
R1 = 0
For Est1 = 0 To Est1 - 1
Console.WriteLine()
Console.WriteLine(" Estudiante " & Est1 + 1)
Console.WriteLine("___________________________________________________________")
Console.WriteLine()
Console.WriteLine("Digite las calificaciones solicitadas: ")
Console.WriteLine()
For R1 = 0 To 6
Console.Write("E" & Est1 + 1 & "- " & Asignaturas(R1) & ": ")
...