Primer Programa del Menu Agenda.bas QBasic

'

'  © PROGRAMA HECHO PARA PARTE INSTRUCTIVA

'

'

'  Procedente de...        UNIVERSIDAD O&M DOMINICANA

'

'______________________________________________________________________

'         

DECLARE SUB Compacta ()

DECLARE SUB AbreArchivo (archivo$)

DECLARE SUB Modifica ()

DECLARE SUB Listado ()

DECLARE SUB BuscaDireccion ()

DECLARE SUB BuscaTelefono ()

DECLARE SUB BuscaEdad ()

DECLARE SUB Borra ()

DECLARE SUB Nuevo ()

DECLARE SUB BuscaNombre ()

DECLARE SUB PintaMenu ()

TYPE tipopersona

   nombre AS STRING * 20

   direccion AS STRING * 30

   telefono AS STRING * 9

   edad AS INTEGER

END TYPE

AbreArchivo "Agenda.dat"

DO

   PintaMenu

   WHILE INKEY$ <> "": WEND 'Para limpiar INKEY$

   DO

      tecla$ = UCASE$(INKEY$)'Transforma a may£sculas para evitar confusiones

   LOOP WHILE tecla$ = ""    'Espera activa mientras no pulsemos una tecla

   SELECT CASE tecla$

      CASE "A": Nuevo

      CASE "B": Borra

      CASE "M": Modifica

      CASE "N": BuscaNombre

      CASE "D": BuscaDireccion

      CASE "T": BuscaTelefono

      CASE "E": BuscaEdad

      CASE "L": Listado

      CASE "C": Compacta

      CASE "S"  'Aqui no hacemos nada poque ya vamos a salir del bucle

      CASE ELSE: BEEP 'Toque de timbre si puls¢ tecla no v lida

   END SELECT

LOOP UNTIL tecla$ = "S"

CLOSE #1