Lenguajes de Programación
Si buscas
hosting web,
dominios web,
correos empresariales o
crear páginas web gratis,
ingresa a
PaginaMX
Por otro lado, si buscas crear códigos qr online ingresa al Creador de Códigos QR más potente que existe
[BASES DE DATOS Y PROGRAMA SE DEBEN DE LOCALIZAR EN LA MISMA CARPETA PARA SU EJECUCION] <RECUERDA QUE POR CADA UN IF DEBE TENER UN ENDIF>
CLEAR
SET STATUS OFF
SET TALK ON
SET SCOREBOARD ON
DO WHILE .T.
TNOM=SPACE(15)
TAPELPAT=SPACE(15)
TAPELMAT=SPACE(15)
RESP=SPACE(1)
RESP=" "
@7,60 SAY "NOMBRE" GET TNOM
@9,60 SAY "APELLIDO PATERNO" GET TAPELPAT
@11,60 SAY "APELLIDO MATERNO" GET TAPELMAT
READ
@34,2 SAY "¿DATOS CORRECTOS <S/N>?" GET RESP
READ
IF RESP="S"
@34,40 SAY "¿GUARDAR <S/N>?" GET RESP
READ
IF RESP="S"
USE AGENDA INDEX INAGEN
APPEND BLANK
REPLACE NOM WITH TNOM
REPLACE APELPAT WITH TAPELPAT
REPLACE APELMAT WITH TAPELMAT
CLOSE ALL
@34,65SAY "¿GUARDAR OTRO REGISTRO <S/N>?" GET RESP
READ
IF RESP="S"
ENDDO
ELSE
IF RESP="N"
EXIT
ENDIF
ENDIF
ENDIF
ELSE
IF RESP="N"
ENDIF
ENDIF
ENDDO
Tu Sitio Web Gratis
© 2025 Lenguajes de Programación10777
Agregar un comentario