Page 124 - MODUL PDKP'21

Modul 4 – Interface, File dan Kursor 2021

if n=2 then FormPembelian;
if n=3 then NotaPembelian;
until n=4;
clrscr
end;

procedure login;
Begin
repeat
clrscr;
writeln('Hari/Tanggal:',datetimetostr(now));
writeln('================================');
writeln(' Administrasi Restaurant ');
writeln('================================');
writeln;
writeln('LOG IN');
write('ID :');readln(username);
write('PASS :');readln(password);
until (username='divisi') and (password='kasir');
writeln;
daftarmenu;
readln
end;
begin
textcolor(black);
textbackground(7);
clrscr;
begin
repeat
gotoxy(16,2);writeln('Hari/Tanggal:',datetimetostr(now));
gotoxy(20,3);writeln(UTF8ToCP866('╔════════════════╗'));
gotoxy(20,4);writeln(UTF8ToCP866('║ SILAHKAN PILIH ║'));
gotoxy(20,5);writeln(UTF8ToCP866('╠════════════════╣'));
gotoxy(20,6);writeln(UTF8ToCP866('║1. LOG IN ║'));
gotoxy(20,7);writeln(UTF8ToCP866('║2. LOG OUT ║'));
gotoxy(20,8);writeln(UTF8ToCP866('╚════════════════╝'));
kursor(18,5,2,B);
if B=1 then login;
until B=2
end;
end.

Praktikum Dasar Komputer dan Pemrograman 2021 IV-113