Aumento de Velocida - Ley de Amdhal
Acel09Informe22 de Agosto de 2018
4.656 Palabras (19 Páginas)134 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) & ": ")
Primer_Periodo(Est1, R1) = Console.ReadLine()
Console.WriteLine()
Do While Primer_Periodo(Est1, R1) > 100
If Primer_Periodo(Est1, R1) > 100 Then
Console.WriteLine("La nota de puede ser mayor a 100")
Console.WriteLine()
Console.Write("E" & Est1 + 1 & "- " & Asignaturas(R1) & ": ")
Primer_Periodo(Est1, R1) = Console.ReadLine()
End If
Loop
Next
Console.Clear()
Next
Console.WriteLine("Presione enter para volver al menu")
Console.ReadKey()
Console.Clear()
Return (Est1)
End Function
Sub AsignaturaND(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) = "Educación para el hogar"
End Sub
Function Second(ByVal Segundo_Periodo, ByVal Asignaturas, Est2) As Integer
Console.Clear()
AsignaturaND(Asignaturas)
Dim R2 As Integer
R2 = 0
For Est2 = 0 To Est2 - 1
Console.WriteLine()
Console.WriteLine(" Estudiante " & Est2 + 1)
Console.WriteLine("___________________________________________________________")
Console.WriteLine()
Console.WriteLine("Digite las calificaciones solicitadas: ")
...