Stap 1: Code
REM BEGININSTELLINGEN
UITSCHAKELEN
TITEL LOGIN
KLEUR 0e
CD INFO
CLS
REM CHECK VOOR EEN GEBRUIKER
IF NOT EXIST GEBRUIKER. TXT GOTO CREATE_USER
GA NAAR LOGIN
REM EEN GEBRUIKER MAKEN
: CREATE_USER
TITEL WELKOM
CLS
ECHO DIT LIJKT UW EERSTE KEER MET BEHULP VAN DIT PROGRAMMA
ECHO.
ECHO MOET U UW PROFIEL MAKEN
ECHO.
ECHO HOUD IN GEDACHTEN DAT UW PERSOONLIJKE GEGEVENS ZULLEN ALLEEN TOEGANKELIJK VIA UW COMPUTER
ECHO.
SET /P GEBRUIKER = TYPE PREFFERED GEBRUIKERSNAAM HIER:
SET /P NAAM = TYPE UW ECHTE NAAM HIER:
ECHO.
SET /P PASS = TYPE HIER UW PREFFERED WACHTWOORD:
SET /P PASS2 = NOGMAALS UW WACHTWOORD HIER:
REM ERVOOR TE ZORGEN DAT DE TWEE WACHTWOORDEN ZIJN HETZELFDE
ALS % PASS % NEQ % PASS2% GOTO DIFF
GOTO BEVESTIGEN
REM SCENARIO WANNEER U TWEE VERSCHILLENDE WACHTWOORDEN
: DIFF
CLS
ECHO DE WACHTWOORDEN DIE U HEBT INGEVOERD KOMEN NIET OVEREEN
ECHO.
ECHO PRESS ANY KEY TO GA TERUG NAAR HET SCHERM VAN DE OPRICHTING VAN DE GEBRUIKER
PAUZE > NUL
GOTO CREATE_USER
REM BEVESTIGING VAN UW GEGEVENS
: BEVESTIGEN
CLS
ECHO BEVESTIG UW GEBRUIKERSINSTELLINGEN
ECHO GEBRUIKERSNAAM = % GEBRUIKER %
ECHO NAAM = % NAME %
ECHO WACHTWOORD = PASS %
ECHO.
ECHO.
ECHO U WILT DEZE INSTELLINGEN BEHOUDEN? (J/N)
CHOICE /C YN /N
IF % ERRORLEVEL % EQU 1 GOTO CREATE_FILES
GOTO CREATE_USER
REM CREËREN VAN DE BESTANDEN OM TE HOUDEN VAN HET PROGRAMMA
: CREATE_FILES
ALS ER INFO RMDIR INFO
MD INFO
CD INFO
ECHO:: > 'gebruiker. TXT"
ECHO dit tekstdocument is om te verifiëren dat u een gebruikersprofiel hebt, als u deze verwijdert u elk van uw gegevens zal verliezen. >> "Gebruiker. TXT"
ECHO:: > "DATA. BAT"
ECHO ingestelde wachtwoord = PASS % >> "DATA. BAT"
NAAM van de ECHO = % NAME % >> "DATA. BAT"
ECHO gebruiker instellen = % gebruiker % >> "DATA. BAT"
ATTRIB + R GEBRUIKER. TXT
GOTO-WELKOM
REM LOGIN
: LOGIN
CD INFO
AANROEPGEGEVENS. VLEERMUIS
CLS
VOER UW GEBRUIKERSNAAM ECHO
SET /P GEBRUIKERSNAAM =
ALS % GEBRUIKERSNAAM % NEQ % GEBRUIKER % GOTO DIF
CLS
ECHO VOER UW WACHTWOORD
SET /P PASS =
ALS % PASS % NEQ % WACHTWOORD % GOTO DIF
GOTO-WELKOM
REM HET SCENARIO WANNEER UW GEBRUIKERSNAAM/WACHTWOORD ONJUIST IS
: DIF
CLS
ECHO LIJKT UW WACHTWOORD OF GEBRUIKERSNAAM WAS ONJUIST
ECHO.
ECHO DRUK OP EEN TOETS OM OPNIEUW TE PROBEREN
PAUZE > NUL
GA NAAR LOGIN
REM GASTVRIJE AAN HET PROGRAMMA
: WELKOM
CLS
ECHO WELKOM % NAME %
ECHO.
ECHO LADEN VAN UW PERSOONLIJKE INSTELLINGEN [10%
PING LOCALHOST -n 2 > NUL
CLS
ECHO WELKOM % NAME %
ECHO.
ECHO LADEN VAN UW PERSOONLIJKE INSTELLINGEN [] [30%
PING LOCALHOST -n 2 > NUL
CLS
ECHO WELKOM % NAME %
ECHO.
ECHO LADEN VAN UW PERSOONLIJKE INSTELLINGEN [] [] [50%
PING LOCALHOST -n 2 > NUL
CLS
ECHO WELKOM % NAME %
ECHO.
ECHO LADEN VAN UW PERSOONLIJKE INSTELLINGEN [] [] [] [70%
PING LOCALHOST -n 2 > NUL
CLS
ECHO WELKOM % NAME %
ECHO.
ECHO LADEN UW PERSOONLIJKE INSTELLINGEN [] [] [] [] 80%
PING LOCALHOST -n 2 > NUL
CLS
ECHO UW PERSOONLIJKE INSTELLINGEN [] [] [] [] [] 100% LADEN
PING LOCALHOST -n 3 > NUL
CLS
ECHO GEDAAN!
PING LOCALHOST -n 3 > NUL
GOTO MAIN
REM WAAR DE MAGIE GEBEURT
: MAIN
TITEL ADRES BOEK V 1
CLS
SLUIT MIJ AAN BIJ WAT WILT U DOEN?
ECHO.
ECHO 1) EEN CONTACTPERSOON TOEVOEGEN
ECHO 2) EEN CONTACTPERSOON VERWIJDEREN
ECHO 3) ZOEK EEN CONTACT
SET /P MENU =
ALS HET MENU % EQU 1 GOTO TOEVOEGEN
IF % MENU % EQU 2 GOTO DEL
ALS HET MENU % EQU 3 GOTO BEKIJKEN
GOTO FOUT
REM WAARIN U EEN CONTACTPERSOON TOEVOEGEN
: TOEVOEGEN
SET OTHERA = 0
SET SK1 = 0
SET SK2 = 0
SET SK3 = 0
SET SK4 = 0
SET SK5 = 0
SET SK6 = 0
SET SK7 = 0
SET SK8 = 0
SET SK9 = 0
CLS
ECHO GEBRUIK GEEN SPATIES! GEBRUIK ONDERSTREPINGSTEKENS (_) IN PLAATS DAARVAN!
ECHO U HEBT AANGEGEVEN DAT EEN CONTACTPERSOON TOEVOEGEN
ECHO.
ECHO TYPE OVERSLAAN ALS U NIET WILT DAT EEN BEPAALD ASPECT WORDEN GEREGISTREERD. ITEMS GEMARKEERD MET EEN
ECHO * ZIJN VERPLICHT
SET /P FNAME = VOORNAAM *:
ALS % FNAME % EQU SKIP SK1 = 1
SET /P LNAME = LAATSTE NAAM *:
ALS % LNAME % EQU SKIP SK2 = 1
SET /P HNUM = HUIS NUMMER:
ALS % HNUM % EQU SKIP SK3 = 1
SET /P MNUM = MOBIEL NUMMER:
ALS % MNUM % EQU SKIP SK4 = 1
SET /P HOME = THUIS ADRES:
ALS % HUIS % EQU SKIP SK5 = 1
SET /P OTHERA = ANDERE ADRES:
ALS % OTHERA % EQU SKIP SK6 = 1
ALS % OTHERA % NEQ 0 INGESTELD /P SPECA = SPECIFICEER *: (GEBRUIK ONDERSTREPINGSTEKENS (_) VOOR RUIMTEN)
ALS % SPECA % EQU SKIP SK7 = 1
SET /P E = E-MAIL:
ALS % EMAIL % EQU SKIP SK8 = 1
SET /P BDAY = VERJAARDAG:
ALS % BDAY % EQU SKIP SK9 = 1
GOTO ADD2
VAN DE CONTACTPERSOON VAN DE REM BESTAND WORDT GEMAAKT
: ADD2
CD INFO
CLS
ECHO:: > "LNAME %, FNAME %. BAT"
ECHO instellen FNAME = FNAME % >> "% LNAME, FNAME %. BAT"
ECHO instellen LNAME = LNAME % >> "% LNAME, FNAME %. BAT"
Als % SK3 ECHO EQU 0% HNUM = % HNUM % >> "% LNAME, FNAME %. BAT"
Als % SK4 ECHO EQU 0% MNUM = % MNUM % >> "% LNAME, FNAME %. BAT"
Als % SK5% EQU 0 ECHO HOME = thuis % >> "% LNAME, FNAME %. BAT"
Als % SK6 ECHO EQU 0% OTHERA = % OTHERA % >> "% LNAME, FNAME %. BAT"
Als % SK7% EQU 0 ECHO SPECA = % SPECA % >> "% LNAME, FNAME %. BAT"
Als % SK8% EQU 0 SET E-mail = % EMAIL % >> "% LNAME, FNAME %. BAT"
Als SK9% EQU 0 ingesteld BDAY = BDAY % >> "% LNAME, FNAME %. BAT"
GOTO SUC1
LAATSTE CONTROLE VAN DE REM
: SUC1
CLS
ECHO CONTROLEER OVER DE DETAILS
OPROEP % LNAME, FNAME %. VLEERMUIS
ECHO.
ECHO.
ECHO EERSTE NAAM: % FNAME %
ECHO LAATSTE NAAM: % LNAME %
ALS % SK3% EQU 0 ECHO HOME NUMMER: % HNUM %
IF % SK4% EQU 0 ECHO MOBIELE NUMMER: % MNUM %
ALS % SK5% EQU 0 ECHO % ADRES: HOME HOME
ALS SK6% EQU 0 ECHO ANDERE ADRES: % OTHERA % (SPECA %)
ALS % SK8% EQU 0 ECHO E-MAIL ADRES: % EMAIL %
IF % SK9% EQU 0 ECHO VERJAARDAG: % BDAY %
ECHO.
ECHO.
ECHO PRESS ANY KEY TO RETURN TO MAIN
PAUZE > NUL
GOTO MAIN
REM ZOEKEN NAAR EEN CONTACTPERSOON VERWIJDEREN
: DEL
CD INFO
CLS
ECHO U HEBT GEKOZEN OM EEN CONTACT TE VERWIJDEREN
ECHO PERS E NAAR UITGANG (ONTHOUD HOOFDSTEDEN)
ECHO.
ECHO.
SET /P EERST = VOORNAAM:
SET /P LAATST = ACHTERNAAM:
ALS HET BESTAAN VAN "LAATSTE %, EERSTE %. BAT"GOTO DEL
CLS
ECHO GEEN CONTACT MET DIE NAAM WERD GEVONDEN, CONTROLEER DE SPELLING.
ECHO DRUK OP EEN WILLEKEURIGE TOETS OM TERUG TE GAAN
PAUZE > NUL
GOTO DEL
REM WAAR U DE CONTACTPERSOON VERWIJDEREN
CLS
ECHO ARE YOU SURE YOU WANT TO DELETE % EERST % LAATSTE % CONTACT? (J/N)
CHOICE /C YN /N
IF % ERRORLEVEL % EQU 1 DEL "LAATSTE %, EERSTE %. BAT"
ECHO PRESS ANY KEY TO RETURN
PAUZE > NUL
GOTO DEL
REM WAAR U DE DETAILS VAN EEN CONTACTPERSOON BEKIJKEN
: BEKIJK
SET LNAME =
SET FNAME =
SET HNUM =
SET MNUM =
INSTELLEN E-MAIL =
SET HOME =
SET BDAY =
SET OTHERA =
SET SPECA =
CD INFO
CLS
ECHO U HEBT GEKOZEN OM DE DETAILS VAN EEN CONTACTPERSOON TE BEKIJKEN
ECHO TYPE E GA TERUG NAAR MAIN
ECHO.
ECHO.
SET /P EERST = VOORNAAM:
IF % EERSTE % EQU E GOTO MAIN
SET /P LAATST = ACHTERNAAM:
ALS HET BESTAAN VAN "LAATSTE %, EERSTE %. BAT"GOTO BESTAAN
CLS
ECHO DAT MAAKCONTACTEN BLEKEN ONDER DIE NAAM, SORRY
ECHO.
ECHO PRESS ANY KEY TO SEARCH OPNIEUW
PAUZE > NUL
GA NAAR WEERGAVE
REM WAAR U HEEN GAAT ALS DE CONTACTPERSOON BESTAAT
: BESTAAN
OPROEP "LAATSTE %, EERSTE %. BAT"
CLS
ECHO .%FNAME% LNAME %
ECHO .%HNUM%
ECHO .%MNUM%
ECHO .%HOME%
ECHO .%O THERA % SPECA %
ECHO .%EMAIL%
ECHO .%BDAY%
ECHO.
ECHO PRESS ANY KEY TO RETURN
PAUZE > NUL
GOTO MAIN
: FOUT
CLS
ECHO DAT HEEFT EEN FOUT GEMELD
ECHO.
ECHO PRESS ANY KEY TO GA NAAR HET BASISSCHERM
PAUZE > NUL
GOTO MAIN
Zoals u kunnen zien wellicht, heb ik geprobeerd om te beschrijven wat elke sectie doet door middel van de opdracht 'REM'.
Ontwikkelaars kunnen vinden dit nuttig bij het bewerken van het programma.
