Segundo Parcial

Hacer un programa que Maneje lo Siguiente:

1. Un Menu dinamico que permita escoger para dar alta, baja, modiicar, eliminar, buscar cualquier estudiante del curso.

1. que me permita introducir las calificaciones, y pueda modificar, eliminar.

que me permita una consulta por estudiante, ademas de un reporte de todos los estudiantes de la materia

que me permita imprimir el record de cada estudiante.

Empleado.bas

' Section 1
CLS
TYPE employeeType
firstname AS STRING * 30
lastname AS STRING * 30
age AS INTEGER
wage AS SINGLE
END TYPE
DIM employee AS employeeType

' Section 2
PRINT "1.) Create new recordset"
PRINT "2.) View existing recordset"
INPUT "Which option? ", selection%

' Section 3
IF selection% = 1 THEN
INPUT "How many employees are in the company? ", numRecords%
recordLen# = LEN(employee)
OPEN "database.dat" FOR RANDOM AS #1 LEN = recordLen#
FOR i% = 1 TO numRecords%
CLS
INPUT "First name: ", employee.firstname
INPUT "Last name: ", employee.lastname
INPUT "Age: ", employee.age
INPUT "Wage: ", employee.wage
PUT #1, , employee
NEXT i%
CLS
CLOSE #1
PRINT "Recordset creation complete"
END
END IF

' Section 4
IF selection% = 2 THEN
recordLen# = LEN(employee)
OPEN "database.dat" FOR RANDOM AS #1 LEN = recordLen#
format$ = "\ \,\ \ ### $$##.##"
PRINT "Last name First name Age Wage "
PRINT "------------------ ------------------ --- -------"
DO WHILE NOT EOF(1)
GET #1, , employee 'Sorry about the length of this line!!!
PRINT USING format$; employee.lastname; employee.firstname; employee.age; employee.wage
LOOP
CLOSE #1
END
END IF

pantalla.bas

PALETTE 0, 32

PALETTE 3, 11

PALETTE 4, 8

PALETTE 5, 17

PALETTE 7, 63

PALETTE 10, 4

PALETTE 11, 52

PALETTE 12, 36

PALETTE 13, 38

PALETTE 14, 54

COLOR 15, 3

CLS

COLOR 15, 4

LOCATE 2, 11: PRINT "É"; STRING$(57, "Í"); "»"

LOCATE 3, 11: PRINT "º"; SPACE$(57); "º"

LOCATE 4, 11: PRINT "È"; STRING$(57, "Í"); "¼"

COLOR 14, 4: LOCATE 3, 14

PRINT "A  G  E  N  D  A    S  U  P  E  R    B  A  R  A  T  A"

COLOR 1, 7

LOCATE 7, 20:  PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"

LOCATE 8, 20:  PRINT "³  A ... A¤adir nueva persona           ³"

LOCATE 9, 20:  PRINT "³  B ... Borrar persona                 ³"

LOCATE 10, 20: PRINT "³  M ... Modificar persona              ³"

LOCATE 11, 20: PRINT "ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"

LOCATE 12, 20: PRINT "³  N ... Buscar persona por nombre      ³"

LOCATE 13, 20: PRINT "³  D ... Buscar persona por direcci¢n   ³"

LOCATE 14, 20: PRINT "³  T ... Buscar persona por tel‚fono    ³"

LOCATE 15, 20: PRINT "³  E ... Buscar persona por edad        ³"

LOCATE 16, 20: PRINT "ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"

LOCATE 17, 20: PRINT "³  L ... Ver listado de personas        ³"

LOCATE 18, 20: PRINT "ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"

LOCATE 19, 20: PRINT "³  C ... Compactar base de datos        ³"

LOCATE 20, 20: PRINT "ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"

LOCATE 21, 20: PRINT "³  S ... Salir                          ³"

LOCATE 22, 20: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"

COLOR 0, 7

LOCATE 8, 29:   PRINT "A¤adir nueva persona"

LOCATE 9, 29:   PRINT "Borrar persona"

LOCATE 10, 29: PRINT "Modificar persona"

COLOR 10

LOCATE 12, 29: PRINT "Buscar persona por nombre"

LOCATE 13, 29: PRINT "Buscar persona por direcci¢n"

LOCATE 14, 29: PRINT "Buscar persona por tel‚fono"

LOCATE 15, 29: PRINT "Buscar persona por edad"

COLOR 12: LOCATE 17, 29: PRINT "Ver listado de personas"

COLOR 11: LOCATE 19, 29: PRINT "Compactar base de datos"

COLOR 13: LOCATE 21, 29: PRINT "Salir"

COLOR 14, 5: LOCATE 25, 1: PRINT SPACE$(80);

LOCATE 25, 10: PRINT "Curso de Programaci¢n";

COLOR 13: LOCATE 25, 46: PRINT "J.M.G.B.   HECHO EN RONDA";

SLEEP