i keep gettin runtime error 2 in this code. HELP PLEASE - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

i keep gettin runtime error 2 in this code. HELP PLEASE

peppy_jewelpeppy_jewel Posts: 4Member
PROGRAM AutomaticCheckin(INPUT,OUTPUT);

uses WinDos, WinCrt;

CONST
MaxChar=20;

TYPE
TextString=PACKED ARRAY [0..MaxChar-1] OF CHAR;
StaffDetails= RECORD

Name:TextString;
Username:TextString;
Password:TextString;

END;
StaffFile= FILE OF StaffDetails;


VAR

password1: STRING;
password2: STRING;
U_name: STRING;
P_word: STRING;
Name: STRING;
Username: STRING;


StaffRecord: StaffDetails;
staff,temporary:staffFile;

choice1: CHAR;




{******************************************************************************}

PROCEDURE registration;
VAR
reply:CHAR;
found:BOOLEAN;
BEGIN

WRITELN('Regristration.');
WRITELN (' Input the following details inorder to register.');Writeln;
REPEAT
WITH StaffRecord DO
WRITELN('Enter your name:');
READLN (name);
WRITELN('Enter your username:');
READLN (username);
WRITELN('Enter your password:');
READLN (**********);
WRITELN('Please retype your password:');
READLN (**********);
WRITELN( 'This is your,staffRecord.');
WRITELN('repeat? Y(es) or N(o)');
READLN (reply);
UNTIL reply='N';
ASSIGN(staff,'c:staff');
{REWRITE(staff);}


RESET(staff);
RAED
WHILE NOT EOF(staff) OR Found = false DO
BEGIN
WITH staffrecord DO

BEGIN
Read(staff,staffrecord);
If username = username Then
FOUND := true;
WRITELN('Your registration was successful!');
END;
END;
WHILE EOF DO CLRSCR
END;

{******************************************************************************}
PROCEDURE TextInput (VAR item: TextString);
CONST
space=CHAR(32);
VAR
index: INTEGER;
BEGIN
FOR index:=0 TO MaxChar-1 DO
IF EOLN THEN
item [index]:= space
ELSE
Read (item[index]);
{end if}
{end for}
READLN;
END;{TextInput}





{**********************************************************************************}

PROCEDURE FieldInput (VAR staff:StaffFile);
VAR temporary:Stafffile;
CONST
No='N';
VAR
reply:CHAR;
BEGIN
Writeln('input the following details');Writeln;
WITH StaffRecord DO
BEGIN
REPEAT
WRITELN('BISHOPS HIGH SCHOOL TOBAGO.');
WRITELN('Automatic-Checkin ');
Write('name =>');TextInput(Name);
Write('username =>');TextInput(username);
Write('password =>');TextInput(password);
ASSIGN(staff,'C:staff');
ASSIGN(temporary,'c:temporary');
RESET(staff);
Rewrite(temporary);
WHILE NOT EOF (staff) DO
BEGIN
Read(staff, Staffrecord);
Write(temporary,StaffRecord)
END;
Write('continue?Y(es) or N(o)');Readln(reply);
UNTIL reply=No;
END;{with}
END;{FieldINput}

{************************************************************************************}




PROCEDURE mainscreen; }



BEGIN {mainscreen}
Gotoxy(28,1);
WRITELN('Welcome to BISHOPS HIGH SCHOOL.');

WRITELN('Are you registering for the first time? Y(es) or N(o)');
READLN (choice1);
IF Choice1 = 'Y' THEN
registration
ELSE IF choice1 = 'N' THEN
FieldInput ( staff);
WRITELN ('Goodbye,have a nice day.');
WHILE EOF DO CLRSCR
END.

{******************************************************************************* }



Comments

  • zibadianzibadian Posts: 6,349Member
    : PROGRAM AutomaticCheckin(INPUT,OUTPUT);
    :
    : uses WinDos, WinCrt;
    :
    : CONST
    : MaxChar=20;
    :
    : TYPE
    : TextString=PACKED ARRAY [0..MaxChar-1] OF CHAR;
    : StaffDetails= RECORD
    :
    : Name:TextString;
    : Username:TextString;
    : Password:TextString;
    :
    : END;
    : StaffFile= FILE OF StaffDetails;
    :
    :
    : VAR
    :
    : password1: STRING;
    : password2: STRING;
    : U_name: STRING;
    : P_word: STRING;
    : Name: STRING;
    : Username: STRING;
    :
    :
    : StaffRecord: StaffDetails;
    : staff,temporary:staffFile;
    :
    : choice1: CHAR;
    :
    :
    :
    :
    : {******************************************************************************}
    :
    : PROCEDURE registration;
    : VAR
    : reply:CHAR;
    : found:BOOLEAN;
    : BEGIN
    :
    : WRITELN('Regristration.');
    : WRITELN (' Input the following details inorder to register.');Writeln;
    : REPEAT
    : WITH StaffRecord DO
    : WRITELN('Enter your name:');
    : READLN (name);
    : WRITELN('Enter your username:');
    : READLN (username);
    : WRITELN('Enter your password:');
    : READLN (**********);
    : WRITELN('Please retype your password:');
    : READLN (**********);
    : WRITELN( 'This is your,staffRecord.');
    : WRITELN('repeat? Y(es) or N(o)');
    : READLN (reply);
    : UNTIL reply='N';
    : ASSIGN(staff,'c:staff');
    : {REWRITE(staff);}
    :
    :
    : RESET(staff);
    : RAED
    : WHILE NOT EOF(staff) OR Found = false DO
    : BEGIN
    : WITH staffrecord DO
    :
    : BEGIN
    : Read(staff,staffrecord);
    : If username = username Then
    : FOUND := true;
    : WRITELN('Your registration was successful!');
    : END;
    : END;
    : WHILE EOF DO CLRSCR
    : END;
    :
    : {******************************************************************************}
    : PROCEDURE TextInput (VAR item: TextString);
    : CONST
    : space=CHAR(32);
    : VAR
    : index: INTEGER;
    : BEGIN
    : FOR index:=0 TO MaxChar-1 DO
    : IF EOLN THEN
    : item [index]:= space
    : ELSE
    : Read (item[index]);
    : {end if}
    : {end for}
    : READLN;
    : END;{TextInput}
    :
    :
    :
    :
    :
    : {**********************************************************************************}
    :
    : PROCEDURE FieldInput (VAR staff:StaffFile);
    : VAR temporary:Stafffile;
    : CONST
    : No='N';
    : VAR
    : reply:CHAR;
    : BEGIN
    : Writeln('input the following details');Writeln;
    : WITH StaffRecord DO
    : BEGIN
    : REPEAT
    : WRITELN('BISHOPS HIGH SCHOOL TOBAGO.');
    : WRITELN('Automatic-Checkin ');
    : Write('name =>');TextInput(Name);
    : Write('username =>');TextInput(username);
    : Write('password =>');TextInput(password);
    : ASSIGN(staff,'C:staff');
    : ASSIGN(temporary,'c:temporary');
    : RESET(staff);
    : Rewrite(temporary);
    : WHILE NOT EOF (staff) DO
    : BEGIN
    : Read(staff, Staffrecord);
    : Write(temporary,StaffRecord)
    : END;
    : Write('continue?Y(es) or N(o)');Readln(reply);
    : UNTIL reply=No;
    : END;{with}
    : END;{FieldINput}
    :
    : {************************************************************************************}
    :
    :
    :
    :
    : PROCEDURE mainscreen; }
    :
    :
    :
    : BEGIN {mainscreen}
    : Gotoxy(28,1);
    : WRITELN('Welcome to BISHOPS HIGH SCHOOL.');
    :
    : WRITELN('Are you registering for the first time? Y(es) or N(o)');
    : READLN (choice1);
    : IF Choice1 = 'Y' THEN
    : registration
    : ELSE IF choice1 = 'N' THEN
    : FieldInput ( staff);
    : WRITELN ('Goodbye,have a nice day.');
    : [red]WHILE EOF DO CLRSCR[/red]
    : END.
    :
    : {******************************************************************************* }
    :
    :
    :
    :
    Run-time error 2 is a "File not found" error. This is called upon a Reset() or Append(), if the filename doesn't exist. Next time, please look up the error code in the help files.
    Also there is at least 1 potentially terrible error in the code. I've marked it in red. This will create an infinite loop.
  • GaashiusGaashius Posts: 349Member
    Hi.

    You have not given a real filename at the ASSIGN procedure.
    It should look like: ASSIGN(file,'c:somethin.txt');
    This is just an example, but if you want to open a file you need to give an existing file's name.

    ASSIGN({filehandler},{filename});

    I hope this helps you out.

    GAASHIUS
  • peppy_jewelpeppy_jewel Posts: 4Member
    Hello,
    io have modified my code but however my search procedure is not working, hence i am gettin run time error 2. Could you help me please.

    PROGRAM AutomaticCheckin(INPUT,OUTPUT);
    USES WinDos, WinCrt;

    CONST
    MaxChar=20;

    TYPE
    TextString=PACKED ARRAY [0..MaxChar-1] OF CHAR;

    dates = RECORD
    day :word;
    month :word;
    year :word;
    END;

    times = RECORD
    hrs:word;
    min:word;
    END;

    StaffDetails= RECORD
    Name :TextString;
    Username :TextString;
    Password :TextString;
    time :times;
    date :dates;

    END;
    StaffFile = FILE OF StaffDetails;


    VAR

    time : STRING;
    Name : STRING;
    Username : STRING;
    TeachTime : times;
    TeacherDate : dates;
    y, m, d, dow : Word;

    h, min, sec, hund : Word;

    StaffRecord : StaffDetails;
    staff,temporary : staffFile;

    choice1 : CHAR;
    reply : CHAR;
    Found : boolean;
    location : INTEGER;

    FUNCTION LeadingZero(w : Word) : STRING;

    VAR
    s : STRING;

    CONST
    days : ARRAY [0..6] OF STRING[9] =
    ('Sunday','Monday','Tuesday',
    'Wednesday','Thursday','Friday',
    'Saturday');

    BEGIN
    Str(w:0,s);

    IF Length(s) = 1 THEN
    s := '0' + s;
    LeadingZero := s;
    END;


    {*****************************************************************************************}
    PROCEDURE dat(VAR y, m, d, dow : Word );

    BEGIN
    GetDate(y,m,d,dow);
    Writeln('Today is ' ,
    m:0, '/', d:0, '/', y:0);
    GOTOXY(15,9);
    WRITELN('Your sign in was successful!');
    END;


    {*****************************************************************************************}
    PROCEDURE tim(VAR h:word;VAR min:word);

    BEGIN


    BEGIN
    GetTime(h,min,sec,hund);
    Writeln('It is now ',LeadingZero(h),':',
    LeadingZero(min),':',LeadingZero(sec),
    '.',LeadingZero(hund));
    END;

    END;






    {**********************************************************************************************************}
    PROCEDURE tell;


    BEGIN

    clrscr;

    WRITELN('Enter Your name');
    WRITELN('Enter your');
    WRITELN('Enter you password');
    WRITELN('Please re-type your password');


    gotoxy(39,3);
    READLN (name);

    WRITELN;
    gotoxy(43,5);
    READLN (username);

    WRITELN;
    gotoxy(43,7);
    READLN (**********);

    WRITELN;
    gotoxy(51,9);
    READLN (**********);

    WRITELN;

    WRITELN;
    gotoxy(53,14);
    READLN (reply);
    clrscr;

    END;


    {*******************************************************************************************}
    PROCEDURE Search(Username:STRING;VAR found:Boolean;VAR location:INTEGER);
    VAR index : INTEGER;

    BEGIN
    RESET(staff);
    WHILE NOT EOF (staff) OR Found = true DO
    BEGIN
    RESET(staff);
    index:=1;
    IF Username = Username [index] THEN
    BEGIN
    Found:= True;
    location := index
    END
    ELSE
    IF Username<>Username[index] THEN
    BEGIN
    found:= false;
    index:= index+1
    END;
    END;
    IF found= true THEN
    WRITELN('Your File was found!')
    ELSE If found= false THEN
    WRITELN('Your file was not found.Please try again!');
    END;
    {***************************************************************************************************}
    PROCEDURE morningam (VAR TeachDate:dates; TeachTime:times);
    BEGIN
    IF h > 8 THEN
    BEGIN

    WRITELN('Why are you so late today?');
    WRITELN;
    WRITELN;
    END


    ELSE IF h < 8 THEN
    BEGIN

    WRITELN ('Congradulations you are early today!');
    END
    ELSE
    CLRSCR;
    END;
    {*******************************************************************************************************************}
    PROCEDURE Eveningpm (VAR TeachDate:dates; TeachTime:times);

    BEGIN
    IF h >1 THEN
    BEGIN
    WRITELN ('You are late!');
    WRITELN;
    END
    ELSE IF h >1 THEN
    BEGIN

    WRITELN('Wonderful, you early this afternoon');
    END
    ELSE
    CLRSCR;
    END;


    {*******************************************************************************************************************}
    PROCEDURE registration(VAR staff:StaffFile; StaffRecord:StaffDetails; TeachDate:dates; TeachTime:times);


    BEGIN


    WRITELN('Regristration.');
    WRITELN (' Input the following details inorder to register.');

    WRITELN;

    WITH StaffRecord DO
    BEGIN
    tell;

    END;

    IF
    reply = 'Y' THEN

    BEGIN
    CLRSCR;
    tell;
    END



    ELSE IF reply= 'y' THEN
    BEGIN
    CLRSCR;
    tell;
    END;


    IF reply= 'N' THEN


    BEGIN
    WRITELN ('&**&*&*&*&**&*&*&*&*&*&&&*&*&*&&&*&*&*&*&*& ');
    WRITELN ('This is your staffrecord * ');
    WRITELN ('Your registration was successful at * ');

    READLN;
    Gotoxy(15,7);
    tim(h,min);

    BEGIN
    Gotoxy(20,8);
    dat( y, m, d, dow );
    END;
    END
    ELSE IF reply='n'THEN
    BEGIN
    WRITELN ('&**&*&*&*&**&*&*&*&*&*&&&*&*&*&&&*&*&*&*&*& ');
    WRITELN ('This is youstaffrecord');
    WRITELN ('Yourregistration was successful ');

    Gotoxy(15,7);

    WRITELN;
    tim(h,min);
    WRITELN;
    BEGIN
    Gotoxy(20,8);
    WRITELN;
    dat( y, m, d, dow );;
    END;
    END ;
    RESET(staff);

    {END;}
    END;
    {******************************************************************************}
    PROCEDURE TextInput (VAR item: TextString);
    CONST
    space=CHAR(32);
    VAR
    index: INTEGER;
    BEGIN
    FOR index:=0 TO MaxChar-1 DO
    IF EOLN THEN
    item [index]:= space
    ELSE
    Read (item[index]);

    READLN;
    END;





    {**********************************************************************************}

    PROCEDURE FieldInputa (VAR staff:StaffFile; StaffRecord:StaffDetails; TeachDate:dates; TeachTime:times);
    CONST
    No='N';
    VAR temporary:Stafffile;
    found:BOOLEAN;
    reply:CHAR;
    BEGIN
    Gotoxy(28,1);
    WRITELN('input the following details');
    Gotoxy(28,3);
    WRITELN;
    WITH StaffRecord DO
    BEGIN
    CLRSCR;
    WRITELN('&**&&**&&**&&**&&*&&** ');
    WRITELN('BISHOPS High School');
    WRITELN('Automatic Checkin');& ');
    WRITELN(' name=> ');
    WRITELN('username=>');
    WRITELN('password=>');
    gotoxy(33,7);
    Write;TextInput(Name);
    gotoxy(38,9);
    Write;TextInput(username);
    gotoxy(38,11);
    Write; TextInput(password);
    { search(Username,found,location); }
    END;
    CLRSCR;
    END;
    {*************************************************************************}


    PROCEDURE FieldInputb (VAR staff:StaffFile; StaffRecord:StaffDetails; TeachDate:dates; TeachTime:times);
    VAR temporary:Stafffile;
    VAR y, m, d, dow : Word ;
    found:BOOLEAN;
    letter:INTEGER;
    CONST
    No='N';


    BEGIN
    REPEAT
    FieldInputa ( staff ,StaffRecord, TeachDate, TeachTime);
    CLRSCR;
    WRITELN('*/*/*/*////*/*/*/*//*/*/*/*/*/*/*/*/**/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/**/*/*/*/');
    WRITELN('* *');
    WRITE ('* Did you make an error?Would you like to re-enter your data?Y(es) or N(o) *');
    Gotoxy(33,5);
    READLN(reply);
    IF reply = 'y' THEN
    FieldInputa(staff, StaffRecord, TeachDate,TeachTime)
    ELSE IF
    reply= 'Y' THEN
    FieldInputa(staff, StaffRecord, TeachDate, TeachTime)

    ELSE IF reply = 'N' THEN
    WRITE('/*/*/*/*/*/Your sign in was successful!/*/*/*/*/*');
    WRITELN;
    WRITELN;
    BEGIN
    GetDate(y,m,d,dow);
    Writeln('Today is ' ,
    m:0, '/', d:0, '/', y:0);

    END;
    BEGIN
    GetTime(h,min,sec,hund);
    Writeln('It is now ',LeadingZero(h),':',
    LeadingZero(min),':',LeadingZero(sec),
    '.',LeadingZero(hund));

    END;

    REPEAT

    WRITELN;
    WRITELN('If it is morning, enter 1 or if it is afternoon enter 2');
    READLN(letter);
    If letter = 1 THEN
    morningam( TeachDate, TeachTime)

    ELSE IF letter = 2 THEN
    BEGIN

    WRITELN;
    eveningpm( TeachDate, TeachTime);
    WRITELN('Press Enter');
    END
    ELSE
    WRITELN('ERROR');
    READLN;
    UNTIL letter < 3;
    UNTIL reply= 'N';



    END;

    {******************************************************************************************}






    BEGIN {mainscreen}
    ASSIGN(staff,'a:staff');
    ASSIGN(temporary,'a:temporary');
    Gotoxy(28,1);

    { //| ,|
    //,/ -~ |
    // / | _-~ / ,
    /'/ / / _-~ _/_-~ |
    ( ( / /' _ -~ _-~ ,/'
    ~/'/| __--~~__-- _-~ _/,
    ,,)))))));, /~-_ __--~~ --~~ __/~ _-~ /
    __))))))))))))));,>/ / __--~~ -~~ _-~
    -(((((''''(((((((( >~/ --~~ __--~' _-~ ~|
    --==//////(('' . `)))))), / ___---~~ ~~~~__--~
    ))| @ ;-. (((((/ __--~~~'~~/
    ( `| / ) )))/ ~~~~~____---~~__--~~--_
    | | | (/ ---~~~/__-----~~ ,;::' ,
    o_); ; / ----~~/ ,-~~~ | /|
    ; ( ---~~/ `:::| |;| < >
    | _ `----~~~~' / `:| ;_____//
    ______//~ | / / ~------~
    /~;;.____/;;' / ___----( `;;;/
    / // _;______;'------~~~~~ |;;/ /
    // | | / | ;;,
    (<_ | ; /',/-----' _>
    _| ||_ //~;~~~~~~~~~
    `_| (,~~
    ~
    ~~ }

    WRITELN('Welcome to BISHOPS HIGH SCHOOL.');

    WRITELN('Are you registering for the first time? Y(es) or N(o)');
    READLN (choice1);
    IF Choice1 = 'Y' THEN
    registration(staff, StaffRecord, TeacherDate, TeachTime)
    ELSE IF Choice1= 'y' THEN
    registration (staff, StaffRecord,TeacherDate, TeachTime)
    ELSE IF choice1 = 'N' THEN
    BEGIN
    FieldInputb ( staff,StaffRecord,TeacherDate,TeachTime);
    WRITELN ('Goodbye,have a nice day.');

    DONEWINCRT;
    END
    ELSE IF choice1='n' THEN
    FieldInputb ( staff,StaffRecord,TeacherDate,TeachTime);
    WRITELN ('Goodbye,have a nice day.');


    DONEWINCRT;


    END.





  • peppy_jewelpeppy_jewel Posts: 4Member
    Hello,
    io have modified my code but however my search procedure is not working, hence i am gettin run time error 2. Could you help me please.

    PROGRAM AutomaticCheckin(INPUT,OUTPUT);
    USES WinDos, WinCrt;

    CONST
    MaxChar=20;

    TYPE
    TextString=PACKED ARRAY [0..MaxChar-1] OF CHAR;

    dates = RECORD
    day :word;
    month :word;
    year :word;
    END;

    times = RECORD
    hrs:word;
    min:word;
    END;

    StaffDetails= RECORD
    Name :TextString;
    Username :TextString;
    Password :TextString;
    time :times;
    date :dates;

    END;
    StaffFile = FILE OF StaffDetails;


    VAR

    time : STRING;
    Name : STRING;
    Username : STRING;
    TeachTime : times;
    TeacherDate : dates;
    y, m, d, dow : Word;

    h, min, sec, hund : Word;

    StaffRecord : StaffDetails;
    staff,temporary : staffFile;

    choice1 : CHAR;
    reply : CHAR;
    Found : boolean;
    location : INTEGER;

    FUNCTION LeadingZero(w : Word) : STRING;

    VAR
    s : STRING;

    CONST
    days : ARRAY [0..6] OF STRING[9] =
    ('Sunday','Monday','Tuesday',
    'Wednesday','Thursday','Friday',
    'Saturday');

    BEGIN
    Str(w:0,s);

    IF Length(s) = 1 THEN
    s := '0' + s;
    LeadingZero := s;
    END;


    {*****************************************************************************************}
    PROCEDURE dat(VAR y, m, d, dow : Word );

    BEGIN
    GetDate(y,m,d,dow);
    Writeln('Today is ' ,
    m:0, '/', d:0, '/', y:0);
    GOTOXY(15,9);
    WRITELN('Your sign in was successful!');
    END;


    {*****************************************************************************************}
    PROCEDURE tim(VAR h:word;VAR min:word);

    BEGIN


    BEGIN
    GetTime(h,min,sec,hund);
    Writeln('It is now ',LeadingZero(h),':',
    LeadingZero(min),':',LeadingZero(sec),
    '.',LeadingZero(hund));
    END;

    END;






    {**********************************************************************************************************}
    PROCEDURE tell;


    BEGIN

    clrscr;

    WRITELN('Enter Your name');
    WRITELN('Enter your');
    WRITELN('Enter you password');
    WRITELN('Please re-type your password');


    gotoxy(39,3);
    READLN (name);

    WRITELN;
    gotoxy(43,5);
    READLN (username);

    WRITELN;
    gotoxy(43,7);
    READLN (**********);

    WRITELN;
    gotoxy(51,9);
    READLN (**********);

    WRITELN;

    WRITELN;
    gotoxy(53,14);
    READLN (reply);
    clrscr;

    END;


    {*******************************************************************************************}
    PROCEDURE Search(Username:STRING;VAR found:Boolean;VAR location:INTEGER);
    VAR index : INTEGER;

    BEGIN
    RESET(staff);
    WHILE NOT EOF (staff) OR Found = true DO
    BEGIN
    RESET(staff);
    index:=1;
    IF Username = Username [index] THEN
    BEGIN
    Found:= True;
    location := index
    END
    ELSE
    IF Username<>Username[index] THEN
    BEGIN
    found:= false;
    index:= index+1
    END;
    END;
    IF found= true THEN
    WRITELN('Your File was found!')
    ELSE If found= false THEN
    WRITELN('Your file was not found.Please try again!');
    END;
    {***************************************************************************************************}
    PROCEDURE morningam (VAR TeachDate:dates; TeachTime:times);
    BEGIN
    IF h > 8 THEN
    BEGIN

    WRITELN('Why are you so late today?');
    WRITELN;
    WRITELN;
    END


    ELSE IF h < 8 THEN
    BEGIN

    WRITELN ('Congradulations you are early today!');
    END
    ELSE
    CLRSCR;
    END;
    {*******************************************************************************************************************}
    PROCEDURE Eveningpm (VAR TeachDate:dates; TeachTime:times);

    BEGIN
    IF h >1 THEN
    BEGIN
    WRITELN ('You are late!');
    WRITELN;
    END
    ELSE IF h >1 THEN
    BEGIN

    WRITELN('Wonderful, you early this afternoon');
    END
    ELSE
    CLRSCR;
    END;


    {*******************************************************************************************************************}
    PROCEDURE registration(VAR staff:StaffFile; StaffRecord:StaffDetails; TeachDate:dates; TeachTime:times);


    BEGIN


    WRITELN('Regristration.');
    WRITELN (' Input the following details inorder to register.');

    WRITELN;

    WITH StaffRecord DO
    BEGIN
    tell;

    END;

    IF
    reply = 'Y' THEN

    BEGIN
    CLRSCR;
    tell;
    END



    ELSE IF reply= 'y' THEN
    BEGIN
    CLRSCR;
    tell;
    END;


    IF reply= 'N' THEN


    BEGIN
    WRITELN ('&**&*&*&*&**&*&*&*&*&*&&&*&*&*&&&*&*&*&*&*& ');
    WRITELN ('This is your staffrecord * ');
    WRITELN ('Your registration was successful at * ');

    READLN;
    Gotoxy(15,7);
    tim(h,min);

    BEGIN
    Gotoxy(20,8);
    dat( y, m, d, dow );
    END;
    END
    ELSE IF reply='n'THEN
    BEGIN
    WRITELN ('&**&*&*&*&**&*&*&*&*&*&&&*&*&*&&&*&*&*&*&*& ');
    WRITELN ('This is youstaffrecord');
    WRITELN ('Yourregistration was successful ');

    Gotoxy(15,7);

    WRITELN;
    tim(h,min);
    WRITELN;
    BEGIN
    Gotoxy(20,8);
    WRITELN;
    dat( y, m, d, dow );;
    END;
    END ;
    RESET(staff);

    {END;}
    END;
    {******************************************************************************}
    PROCEDURE TextInput (VAR item: TextString);
    CONST
    space=CHAR(32);
    VAR
    index: INTEGER;
    BEGIN
    FOR index:=0 TO MaxChar-1 DO
    IF EOLN THEN
    item [index]:= space
    ELSE
    Read (item[index]);

    READLN;
    END;





    {**********************************************************************************}

    PROCEDURE FieldInputa (VAR staff:StaffFile; StaffRecord:StaffDetails; TeachDate:dates; TeachTime:times);
    CONST
    No='N';
    VAR temporary:Stafffile;
    found:BOOLEAN;
    reply:CHAR;
    BEGIN
    Gotoxy(28,1);
    WRITELN('input the following details');
    Gotoxy(28,3);
    WRITELN;
    WITH StaffRecord DO
    BEGIN
    CLRSCR;
    WRITELN('&**&&**&&**&&**&&*&&** ');
    WRITELN('BISHOPS High School');
    WRITELN('Automatic Checkin');& ');
    WRITELN(' name=> ');
    WRITELN('username=>');
    WRITELN('password=>');
    gotoxy(33,7);
    Write;TextInput(Name);
    gotoxy(38,9);
    Write;TextInput(username);
    gotoxy(38,11);
    Write; TextInput(password);
    { search(Username,found,location); }
    END;
    CLRSCR;
    END;
    {*************************************************************************}


    PROCEDURE FieldInputb (VAR staff:StaffFile; StaffRecord:StaffDetails; TeachDate:dates; TeachTime:times);
    VAR temporary:Stafffile;
    VAR y, m, d, dow : Word ;
    found:BOOLEAN;
    letter:INTEGER;
    CONST
    No='N';


    BEGIN
    REPEAT
    FieldInputa ( staff ,StaffRecord, TeachDate, TeachTime);
    CLRSCR;
    WRITELN('*/*/*/*////*/*/*/*//*/*/*/*/*/*/*/*/**/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/**/*/*/*/');
    WRITELN('* *');
    WRITE ('* Did you make an error?Would you like to re-enter your data?Y(es) or N(o) *');
    Gotoxy(33,5);
    READLN(reply);
    IF reply = 'y' THEN
    FieldInputa(staff, StaffRecord, TeachDate,TeachTime)
    ELSE IF
    reply= 'Y' THEN
    FieldInputa(staff, StaffRecord, TeachDate, TeachTime)

    ELSE IF reply = 'N' THEN
    WRITE('/*/*/*/*/*/Your sign in was successful!/*/*/*/*/*');
    WRITELN;
    WRITELN;
    BEGIN
    GetDate(y,m,d,dow);
    Writeln('Today is ' ,
    m:0, '/', d:0, '/', y:0);

    END;
    BEGIN
    GetTime(h,min,sec,hund);
    Writeln('It is now ',LeadingZero(h),':',
    LeadingZero(min),':',LeadingZero(sec),
    '.',LeadingZero(hund));

    END;

    REPEAT

    WRITELN;
    WRITELN('If it is morning, enter 1 or if it is afternoon enter 2');
    READLN(letter);
    If letter = 1 THEN
    morningam( TeachDate, TeachTime)

    ELSE IF letter = 2 THEN
    BEGIN

    WRITELN;
    eveningpm( TeachDate, TeachTime);
    WRITELN('Press Enter');
    END
    ELSE
    WRITELN('ERROR');
    READLN;
    UNTIL letter < 3;
    UNTIL reply= 'N';



    END;

    {******************************************************************************************}






    BEGIN {mainscreen}
    ASSIGN(staff,'a:staff');
    ASSIGN(temporary,'a:temporary');
    Gotoxy(28,1);

    { //| ,|
    //,/ -~ |
    // / | _-~ / ,
    /'/ / / _-~ _/_-~ |
    ( ( / /' _ -~ _-~ ,/'
    ~/'/| __--~~__-- _-~ _/,
    ,,)))))));, /~-_ __--~~ --~~ __/~ _-~ /
    __))))))))))))));,>/ / __--~~ -~~ _-~
    -(((((''''(((((((( >~/ --~~ __--~' _-~ ~|
    --==//////(('' . `)))))), / ___---~~ ~~~~__--~
    ))| @ ;-. (((((/ __--~~~'~~/
    ( `| / ) )))/ ~~~~~____---~~__--~~--_
    | | | (/ ---~~~/__-----~~ ,;::' ,
    o_); ; / ----~~/ ,-~~~ | /|
    ; ( ---~~/ `:::| |;| < >
    | _ `----~~~~' / `:| ;_____//
    ______//~ | / / ~------~
    /~;;.____/;;' / ___----( `;;;/
    / // _;______;'------~~~~~ |;;/ /
    // | | / | ;;,
    (<_ | ; /',/-----' _>
    _| ||_ //~;~~~~~~~~~
    `_| (,~~
    ~
    ~~ }

    WRITELN('Welcome to BISHOPS HIGH SCHOOL.');

    WRITELN('Are you registering for the first time? Y(es) or N(o)');
    READLN (choice1);
    IF Choice1 = 'Y' THEN
    registration(staff, StaffRecord, TeacherDate, TeachTime)
    ELSE IF Choice1= 'y' THEN
    registration (staff, StaffRecord,TeacherDate, TeachTime)
    ELSE IF choice1 = 'N' THEN
    BEGIN
    FieldInputb ( staff,StaffRecord,TeacherDate,TeachTime);
    WRITELN ('Goodbye,have a nice day.');

    DONEWINCRT;
    END
    ELSE IF choice1='n' THEN
    FieldInputb ( staff,StaffRecord,TeacherDate,TeachTime);
    WRITELN ('Goodbye,have a nice day.');


    DONEWINCRT;


    END.





  • peppy_jewelpeppy_jewel Posts: 4Member
    :thank you for your help!

Sign In or Register to comment.