Para cualquier cosa escribe a través del foro aquí intentamos ayudarnos entre todos 
Buenas otra vez, aquí está un programa en el que he estado trabajando y espero me ayudes, es como un cuadro, que almacena, consulta, modifica , elimina y lista los datos eliminados. Pero no me funciona mucho te dejo el Codigo Aqui
MENU:
A=0
WHILE A<>6
CLS
GOSUB PANTALLA
LOCATE 2,3:PRINT "IUTIRLA LA YAGUARA CCS","Fecha:"DATE$,"Hora:"TIME$
LOCATE 7,38:PRINT "1-INCLUIR"
LOCATE 9,38:PRINT "2-CONSULTAR"
LOCATE 11,38:PRINT "3-MODIFICAR"
LOCATE 13,38:PRINT "4-ELIMINAR"
LOCATE 15,38:PRINT "5-LISTAR"
LOCATE 17,38:PRINT "6-SALIR"
LOCATE 22,30:INPUT "Por Favor Seleccione Su Opcion:",A
IF A = 1 THEN
GOSUB INCLUIR
END IF
IF A = 2 THEN
GOSUB CONSULTAR
END IF
IF A = 3 THEN
GOSUB MODIFICAR
END IF
IF A = 4 THEN
GOSUB ELIMINAR
END IF
IF A = 5 THEN
REM GOSUB LISTAR
END IF
IF A = 6 THEN
END IF
WEND
END
PANTALLA:
COLOR 15,8
locate 1,2: print"É"
locate 1,79: print"»"
locate 4,2: print"È"
locate 4,79: print"¼"
locate 6,2: print"É"
locate 6,79: print"»"
locate 19,2: print"È"
locate 19,79: print"¼"
locate 21,2: print"É"
locate 21,79: print"»"
locate 23,2: print"È"
locate 23,79: print"¼"
for I= 3 to 78
locate 1,I: print"Í"
next I
for I= 3 to 78
locate 4,I: print"Í"
next I
for I= 2 to 3
locate I,2: print"º"
next I
for I= 2 to 3
locate I,79: print"º"
next I
for I=3 to 78
locate 6,I: print"Í"
next I
for I=7 to 18
locate I,2: print"º"
next I
for I=7 to 18
locate I,79: print"º"
next I
for I=3 to 78
locate 19,I: print"Í"
next I
for I=3 to 78
locate 21,I: print"Í"
next I
for I= 22 to 22
locate I,2: print"º"
next I
for I=22 to 22
locate I,79: print"º"
next I
for I=3 to 78
locate 23,I: print"Í"
next I
RETURN
INCLUIR:
CLS
GOSUB PANTALLA
CEDU=0
LOCATE 7,30:INPUT "CEDULA:",CEDU
LOCATE 9,30:INPUT "NOMBRE:",NOMBRE$
LOCATE 11,30:INPUT "APELLIDO:",APELLIDO$
LOCATE 13,30:INPUT "EDAD:",EDAD
CLOSE#1
OPEN "PRUEBA.TXT" FOR APPEND AS#1
WRITE #1,CEDU,NOMBRE$,APELLIDO$,EDAD
B$="S"
LOCATE 22,30:INPUT "¨Desea Seguir Introduciendo Datos? S/N:",B$
IF B$="S" OR B$="s" THEN
GOSUB INCLUIR
END IF
RETURN
CLOSE#1
CONSULTAR:
CEDU=0
CLS
GOSUB PANTALLA
CLOSE#1
LOCATE 8,30:INPUT "CEDULA:",CEDU
OPEN "PRUEBA.TXT" FOR INPUT AS#1
WHILE (NOT EOF(1))
INPUT#1,CEDULA,NOMBRE$,APELLIDO$,EDAD
IF CEDULA=CEDU THEN
LOCATE 08,30:PRINT "CEDULA:",CEDU
LOCATE 10,30:PRINT "NOMBRE:",NOMBRE$
LOCATE 12,30:PRINT "APELLIDO:",APELLIDO$
LOCATE 14,30:PRINT "EDAD:",EDAD
END IF
WEND
LOCATE 22,30:INPUT "Desea Seguir Consultando:S/N:",B$
IF B$="S" OR B$="s" THEN
GOSUB CONSULTAR
END IF
RETURN
CLOSE#1
MODIFICAR:
CLS
GOSUB PANTALLA
CEDU=0
CLOSE#1
CLOSE#1
CLOSE#2
CLOSE#2
OPEN "PRUEBA.TXT" FOR INPUT AS#1
OPEN "PRUEBA1.TXT"FOR APPEND AS#2
LOCATE 08,30:INPUT "Cedula:",CEDU
WHILE (NOT EOF(1))
INPUT#1,CEDULA,NOMBRE$,APELLIDO$,EDAD
IF CEDULA=CEDU THEN
LOCATE 08,30:PRINT "Cedula:",CEDU
LOCATE 10,30:PRINT "Nombre:",NOMBRE$
LOCATE 12,30:PRINT "Apellido:",Apellido$
LOCATE 14,30:PRINT "Edad:",Edad
LOCATE 22,30:INPUT "Desea Modificar S/N:",B$
IF B$="S" OR B$="s" THEN
LOCATE 08,30:INPUT "Cedula:",CEDU
LOCATE 10,30:INPUT "Nombre:",Nombre$
LOCATE 12,30:INPUT "Apellido:",Apellido$
LOCATE 14,30:INPUT "Edad:",Edad
LOCATE 22,30:INPUT "Desea Seguir Modificando Datos S/N:",B$
IF B$="S" OR B$="s" THEN
REM WRITE #1,CEDULA,NOMBRE$,APELLIDO$,EDAD
END IF
END IF
END IF
WEND
CLOSE#1
CLOSE#2
RETURN
KILL "PRUEBA.TXT "
NAME "PRUEBA1.TXT" AS "PRUEBA.TXT"
ELIMINAR:
CLS
GOSUB PANTALLA
CEDU=0
B$="S"
CLOSE#1
CLOSE#2
OPEN "PRUEBA.TXT"FOR INPUT AS#1
OPEN "PRUEBA1.TXT"FOR APPEND AS#2
LOCATE 08,30:INPUT "Cedula:",CEDU
WHILE (NOT EOF (1))
INPUT#1,CEDULA,NOMBRE$,APELLIDO$,EDAD
IF CEDULA=CEDU THEN
LOCATE 08,30:PRINT "CEDULA:",CEDU
LOCATE 10,30:PRINT "NOMBRE:",NOMBRE$
LOCATE 12,30:PRINT "APELLIDO:",APELLIDO$
LOCATE 14,30:PRINT "EDAD:",EDAD
LOCATE 22,30:INPUT "¨Desea Eliminar S/N?:",B$
IF B$="S" or B$="s" THEN
KILL CEDULA
LOCATE 22,30:PRINT CEDULA "HA SIDO ELIMINADA SATISFACTORIAMENTE"
END IF
END IF
WEND
Tema: Ayuda tutorial Turbo Basic por favor soy nuevo en esto!!. (Leído 26972 veces)
RSS -
WAP2