Paso 1: código de
AJUSTES INICIALES DE REM
DE
INICIO DE SESIÓN DE TÍTULO
COLOR 0e
CD INFO
CLS
CONTROL REM PARA UN USUARIO
SI NO EXISTE USUARIO. TXT GOTO CREATE_USER
GOTO INICIO DE SESIÓN
REM CREAR UN USUARIO
: CREATE_USER
TÍTULO BIENVENIDO
CLS
ECHO ESTO PARECE SER LA PRIMERA VEZ QUE USO ESTE PROGRAMA
ECHO.
ECO QUE TE NECESITAMOS PARA HACER SU PERFIL
ECHO.
ECHO POR FAVOR TENGA EN CUENTA QUE SUS DATOS PERSONALES SÓLO SERÁ ACCESIBLE A TRAVÉS DE SU COMPUTADORA
ECHO.
SET /P USUARIO = TIPO DE NOMBRE DE USUARIO PREFERIDO AQUÍ:
SET /P NOMBRE = ESCRIBA SU NOMBRE REAL AQUÍ:
ECHO.
SET /P PASS = TIPO CONTRASEÑA PREFERIDA AQUÍ:
SET /P CONTRASENYA2 = INGRESE NUEVAMENTE SU CONTRASEÑA AQUÍ:
REM, ASEGURÁNDOSE DE QUE LAS DOS CONTRASEÑAS ES LAS MISMAS
SI PASO DE % % NEQ % CONTRASENYA2% GOTO DIFF
GOTO CONFIRMAR
ESCENARIO DE REM CUANDO ENTRES DOS CONTRASEÑAS DIFERENTES
: DIFF
CLS
ECHO LAS CONTRASEÑAS INGRESADAS NO COINCIDEN
ECHO.
ECHO PRESIONE CUALQUIER TECLA PARA VOLVER A LA PANTALLA DE CREACIÓN DE USUARIO
PAUSE > NUL
GOTO CREATE_USER
REM CONFIRMANDO SUS DATOS
: CONFIRMAR
CLS
ECHO POR FAVOR CONFIRMAR LA CONFIGURACIÓN DE USUARIO
ECO USERNAME = USUARIO %
ECHO NOMBRE = % NOMBRE %
ECHO CONTRASEÑA = % DE PASO
ECHO.
ECHO.
¿ECO DESEA MANTENER ESTAS CONFIGURACIONES? (S/N)
CHOICE /C YN/N
IF % ERRORLEVEL % EQU 1 GOTO CREATE_FILES
GOTO CREATE_USER
REM CREAR LOS ARCHIVOS PARA MANTENER EL PROGRAMA
: CREATE_FILES
IF EXISTE INFORMACIÓN RMDIR INFO
INFORMACIÓN DE MD
CD INFO
Eco:: > "al usuario. TXT"
ECHO que este documento de texto es verificar que usted tiene un perfil de usuario, si se borra, perderá todos sus datos. >> "El usuario. TXT"
Eco:: > "datos. BAT"
Eco SET PASSWORD = PASS % >> "datos. BAT"
NOMBRE del conjunto de eco = % nombre % >> "datos. BAT"
Eco SET usuario = % usuario % >> "datos. BAT"
ATTRIB + R USUARIO. TXT
GOTO BIENVENIDA
INICIO DE SESIÓN DE REM
: INICIO DE SESIÓN
CD INFO
LLAMADA DE DATOS. MURCIÉLAGO
CLS
ECHO INTRODUCE TU NOMBRE DE USUARIO
SET /P USERNAME =
IF % USERNAME % NEQ % USUARIO % GOTO DIF
CLS
ECHO INGRESE SU CONTRASEÑA
SET /P PASS =
SI PASO DE % % NEQ % CONTRASEÑA % GOTO DIF
GOTO BIENVENIDA
REM EL ESCENARIO CUANDO LA CONTRASEÑA ES INCORRECTA
: DIF
CLS
ECO PARECE SU CONTRASEÑA O NOMBRE DE USUARIO ERA INCORRECTO
ECHO.
ECHO PULSE CUALQUIER TECLA PARA INTENTARLO DE NUEVO
PAUSE > NUL
GOTO INICIO DE SESIÓN
BIENVENIDA AL PROGRAMA DE REM
: BIENVENIDA
CLS
ECHO BIENVENIDO % NOMBRE %
ECHO.
ECHO CARGANDO SU CONFIGURACIÓN PERSONAL [10%
LOCALHOST PING -n 2 > NUL
CLS
ECHO BIENVENIDO % NOMBRE %
ECHO.
ECHO CARGANDO SU CONFIGURACIÓN PERSONAL [DE] [30%
LOCALHOST PING -n 2 > NUL
CLS
ECHO BIENVENIDO % NOMBRE %
ECHO.
ECHO CARGANDO SU CONFIGURACIÓN PERSONAL [] [] [50%
LOCALHOST PING -n 2 > NUL
CLS
ECHO BIENVENIDO % NOMBRE %
ECHO.
ECHO CARGANDO SU CONFIGURACIÓN PERSONAL [] [] [] [70%
LOCALHOST PING -n 2 > NUL
CLS
ECHO BIENVENIDO % NOMBRE %
ECHO.
ECHO CARGANDO SU CONFIGURACIÓN PERSONAL [DE] [] [] [] 80%
LOCALHOST PING -n 2 > NUL
CLS
ECHO CARGANDO SU CONFIGURACIÓN PERSONAL [DE] [] [] [] [] 100%
PING LOCALHOST -n 3 > NUL
CLS
ECHO HECHO!
PING LOCALHOST -n 3 > NUL
GOTO PRINCIPAL
REM DONDE SUCEDE LA MAGIA
: PRINCIPAL
TÍTULO V DE LIBRO DE DIRECCIÓN 1
CLS
ECO ¿QUÉ QUIERES HACER?
ECHO.
ECHO 1) AGREGAR UN CONTACTO
ECHO 2) BORRAR UN CONTACTO
ECHO 3) BÚSQUEDA DE UN CONTACTO
MENÚ SET /P =
SI MENÚ % EQU 1 GOTO AÑADE
IF % MENÚ % EQU 2 GOTO DEL
SI VE EL MENÚ % EQU 3 GOTO
GOTO ERROR
REM DONDE AGREGAR UN CONTACTO
: AÑADIR
SET OTHERA = 0
SET SK1 = 0
SISTEMA SK2 = 0
SK3 SET = 0
SK4 SET = 0
SISTEMA SK5 = 0
SK6 PULSERA SET = 0
SET SK7 = 0
SK8 SET = 0
SK9 SET = 0
CLS
ECHO NO UTILICE ESPACIOS. USO SUBRAYA (_) EN LUGAR DE OTRO!
ECHO HA OPTADO POR AÑADIR UN CONTACTO
ECHO.
ECHO TIPO SKIP SI NO QUIERES QUE UN DETERMINADO ASPECTO PARA SER GRABADA. ARTÍCULOS MARCADOS CON UN
ECHO * SON OBLIGATORIOS
SET /P FNAME = NOMBRE *:
SI % FNAME % EQU SALTO CONJUNTO SK1 = 1
SET /P LNAME = ÚLTIMO NOMBRE *:
SI % LNAME % EQU SALTO CONJUNTO SK2 = 1
SET /P HNUM = NÚMERO DE CASA:
SI % HNUM % EQU SALTO CONJUNTO SK3 = 1
SET /P MNUM = NÚMERO DE TELÉFONO MÓVIL:
SI % MNUM % EQU SALTO CONJUNTO SK4 = 1
SET /P = INICIO DOMICILIO:
SI % HOGAR % EQU SALTO SISTEMA SK5 = 1
SET /P OTHERA = OTRA DIRECCIÓN:
SI % OTHERA % EQU SALTO CONJUNTO SK6 PULSERA = 1
SI OTHERA % NEQ 0 SET /P SPECA = POR FAVOR ESPECIFIQUE *: (USAR GUIONES BAJOS (_) PARA LOS ESPACIOS)
SI % SPECA % EQU SALTO CONJUNTO SK7 = 1
SET /P EMAIL = EMAIL:
SI % EMAIL % EQU SALTO CONJUNTO SK8 = 1
SET /P BDAY = CUMPLEAÑOS:
SI % CUMPLE % EQU SALTO CONJUNTO SK9 = 1
GOTO ADD2
SE CREA ARCHIVO DE REM CONTACTO
: ADD2
CD INFO
CLS
Eco:: > "% % LNAME, FNAME %. BAT"
ECO sistema FNAME = FNAME % >> % LNAME, FNAME %. BAT"
ECO sistema LNAME = LNAME % >> % LNAME, FNAME %. BAT"
Si % SK3% EQU 0 eco establece HNUM HNUM % = >> % LNAME, FNAME %. BAT"
Si % SK4% EQU 0 eco establece MNUM MNUM % = >> % LNAME, FNAME %. BAT"
Si % SK5% EQU 0 eco SET Inicio = Inicio % >> % LNAME, FNAME %. BAT"
Si % SK6 pulsera % EQU 0 eco establece OTHERA OTHERA % = >> % LNAME, FNAME %. BAT"
Si % SK7% EQU 0 eco establece SPECA SPECA % = >> % LNAME, FNAME %. BAT"
Si % SK8% EQU 0 SET EMAIL = EMAIL % >> % LNAME, FNAME %. BAT"
Si establece SK9% EQU 0 BDAY = % día % >> % LNAME, FNAME %. BAT"
GOTO SUC1
ÚLTIMA REVISIÓN DE REM
: SUC1
CLS
ECHO COMPRUEBE LOS DETALLES
LLAME A % LNAME, FNAME %. MURCIÉLAGO
ECHO.
ECHO.
ECHO PRIMER NOMBRE: % % FNAME
ECHO NOMBRE: % PASADO LNAME %
SI % SK3% EQU 0 ECHO INICIO HNUM NÚMERO: % %
IF % SK4% EQU 0 ECO MÓVIL NÚMERO: % MNUM %
SI % SK5% EQU 0 ECO HOGAR HOGAR DIRECCIÓN: %
SI SK6 PULSERA % EQU 0 ECHO OTRO DIRECCIÓN: % % OTHERA (SPECA %)
SI % SK8% EQU 0 ECHO CORREO ELECTRÓNICO CORREO ELECTRÓNICO DIRECCIÓN: % %
IF % SK9% EQU 0 ECHO CUMPLEAÑOS: % DÍA %
ECHO.
ECHO.
ECHO PRESIONE CUALQUIER TECLA PARA VOLVER A PRINCIPAL
PAUSE > NUL
GOTO PRINCIPAL
REM LA BÚSQUEDA PARA UN CONTACTO A ELIMINAR
: DEL
CD INFO
CLS
ECHO USTED HA DECIDIDO ELIMINAR UN CONTACTO
ECHO PRESIONA E SALIDA (RECORDAR CAPITALES)
ECHO.
ECHO.
SET /P = PRIMER NOMBRE:
SET /P LAST = APELLIDO:
IF EXISTEN "ÚLTIMO %, % PRIMERA. BAT"GOTO DEL
CLS
ECHO NO SE ENCONTRÓ NINGÚN CONTACTO DE ESE NOMBRE, REVISE SU ORTOGRAFÍA.
ECHO PRESIONE CUALQUIER TECLA PARA REGRESAR
PAUSE > NUL
GOTO DEL
REM DONDE SE ELIMINA EL CONTACTO
CLS
¿ECHO ES USTED SEGURO QUE DESEA ELIMINAR % PRIMERO % % CONTACTO DE % ÚLTIMO? (S/N)
CHOICE /C YN/N
IF % ERRORLEVEL % EQU 1 DEL "ÚLTIMO %, % PRIMERA. BAT"
ECHO PRESIONE CUALQUIER TECLA PARA REGRESAR
PAUSE > NUL
GOTO DEL
REM DONDE VISUALIZAR DETALLES DE UN CONTACTO
: VER
LNAME SET =
SET FNAME =
HNUM SET =
MNUM SET =
CORREO ELECTRÓNICO SET =
CASA DE CONJUNTO =
SET CUMPLE =
OTHERA SET =
SPECA SET =
CD INFO
CLS
ECHO USTED HA ELEGIDO PARA VER LOS DETALLES DE UN CONTACTO
ECHO TIPO E PARA VOLVER A PRINCIPAL
ECHO.
ECHO.
SET /P = PRIMER NOMBRE:
IF % PRIMERA % EQU E GOTO PRINCIPAL
SET /P LAST = APELLIDO:
IF EXISTEN "ÚLTIMO %, % PRIMERA. BAT"GOTO EXISTEN
CLS
ECHO QUE CONTACTOS NO FUERON ENCONTRADOS DEBAJO DE ESO NOMBRE, LO SIENTO
ECHO.
ECHO PRESIONE CUALQUIER TECLA PARA BUSCAR OTRA VEZ
PAUSE > NUL
VISTA DE GOTO
REM DONDE VAYAS SI EL CONTACTO EXISTE
: EXISTEN
LLAMADA "ÚLTIMA %, % PRIMERA. BAT"
CLS
ECO LNAME DE .%FNAME% %
ECO .%HNUM%
ECO .%MNUM%
ECO .%HOME%
ECHO .%O THERA CONDITION SPECA %
ECO .%EMAIL%
ECO .%BDAY%
ECHO.
ECHO PRESIONE CUALQUIER TECLA PARA REGRESAR
PAUSE > NUL
GOTO PRINCIPAL
: ERROR
CLS
ECHO QUE ERROR HA SIDO REPORTADO
ECHO.
ECHO PRESIONE CUALQUIER TECLA PARA IR A LA PANTALLA PRINCIPAL
PAUSE > NUL
GOTO PRINCIPAL
Como puede ver, he intentado describir lo que hace cada sección mediante el comando "REM".
Desarrolladores podrían encontrar esto útil cuando el programa de edición.
