program rental;
uses crt;
const A='--------------------------------------------------------------------------------';
kode='admin';
var
np : string[9];
NPM, Nama, teks, kata, kalimat, kata1, kata2 : string;
total, hg : real;
nk, i, j, lm, jm, jk, pil : integer;
kode_masuk : string[5];
ulang, cek : char;
u, x, r : byte;
begin
clrscr;
writeln('********************************************************************************');
GoToXY(20,2); writeln('==========PROGRAM RENTAL KOMPUTER===========');
GoToXY(20,3); writeln('======ANONYM CYBER COMPUTER ( A C C )=======');
writeln('********************************************************************************');
writeln('--------------------------------------------------------------------------------');
GoToXY(26,6); writeln('S1E TEKNIK INFORMATIKA UNINDRA');
repeat
write('User ID : ');readln(kode_masuk);
write('Password : ');readln(kode_masuk);
write(A);
if(kode_masuk = 'admin') then
begin
cek := 'y';
end
else
begin
writeln('User ID dan Password yang Anda Gunakan Salah');
end;
u := u + 1;
until(u>=3) or (cek='y');
if(u>=3) then
begin
writeln('Anda Sudah 3 kali Melakukan Kesalahan, Program Akan Keluar');readln;
exit;
end
else
begin
ulang :='Y';
while(ulang='y') or (ulang='Y') do begin
clrscr;
write(A);
gotoxy(20,2); writeln('==========PROGRAM RENTAL KOMPUTER===========');
gotoxy(20,3); writeln('=======S1E TEKNIK INFORMATIKA UNINDRA=======');
write(A);
teks := '###--- MENU UTAMA ---###';
x := round((80-length(teks))/2);
gotoxy(x,6); write(teks);
gotoxy(x,7); write('| 1. Masuk Program |');
gotoxy(x,8); write('| 2. Tentang Program |');
gotoxy(x,9); write('| 3. Keluar Program |');
gotoxy(x,10); write('========================');
gotoxy(26,13); write('Silahkan Masukkan Pilihan Anda : ');readln(pil);
case pil of
1 : begin
Clrscr;
TextColor(12); write(A);
gotoxy(20,2); writeln('=========PROGRAM RENTAL KOMPUTER==========');
gotoxy(20,3); writeln('======S1E TEKNIK INFORMATIKA UNINDRA======');
write(A);
write('No. Komputer : ');readln(nk);
write('Nama User : ');readln(np);
write('Harga Per Jam : ');readln(hg);
write('Jam Masuk : ');readln(jm);
write('Jam Keluar : ');readln(jk);
clrscr;
lm := (jk-jm);
gotoxy(30,6); writeln('ANONYM CYBER COMPUTER');
gotoxy(3,7); writeln('---------------------------------------------------------------------------');
gotoxy(3,8); writeln('| No. Komputer |'); gotoxy(3,9); writeln('---------------------------------------------------------------------------');
gotoxy(3,10); writeln('| ',nk);
gotoxy(23,8); writeln('Nama User |'); gotoxy(15,10); writeln(' | ',np);
gotoxy(37,8); writeln(' Harga Per Jam |'); gotoxy(35,10); writeln(' | Rp. ',hg:2:2,' ','|');
gotoxy(53,8); writeln(' Jam Masuk |'); gotoxy(53,10); writeln(' Pukul ',jm,' ','|');
gotoxy(65,8); writeln(' Jam Keluar |'); gotoxy(65,10); writeln(' Pukul ',jk,' ','|');
gotoxy(3,11); writeln('---------------------------------------------------------------------------');
gotoxy(3,15); writeln('|-------------------------------|');
gotoxy(3,16); writeln('| Lama Main : ',lm,' jam',' ','|'); total:=lm*hg;
gotoxy(3,17); writeln('|-------------------------------|');
gotoxy(3,18); writeln('| TOTAL BAYAR : Rp. ',total:2:2,' ','|');
gotoxy(3,19); writeln('|===============================|');
gotoxy(3,20); writeln('|******** TERIMA KASIH *********|');
gotoxy(3,21); writeln('|===============================|');
readln;
end;
2 : begin
clrscr;
j := i-1;
write(A);
gotoxy(20,2); writeln('==========PROGRAM RENTAL KOMPUTER===========');
gotoxy(20,3); writeln('===============DATA KELOMPOK================');
gotoxy(20,4); writeln('=======S1E TEKNIK INFORMATIKA UNINDRA=======');
write(A);
gotoxy(20,8); Textcolor(9); writeln('--------------------------------------------');
gotoxy(20,9); writeln('| NPM | NAMA MAHASISWA |');
gotoxy(20,10); writeln('--------------------------------------------');
gotoxy(20,11); Textcolor(14); writeln('| 201343500534 | NANO SETIANA |');
gotoxy(20,12); writeln('| 201343500493 | DESRYAN IQBAL |');
gotoxy(20,13); writeln('| 201343500476 | FAISAL ILHAM MALIK |');
gotoxy(20,14); writeln('| 201343500509 | HERLINA WIDYASTY |');
gotoxy(20,15); writeln('| 201343500441 | RIZKA APRILIA |');
gotoxy(20,16); writeln('--------------------------------------------');
readln;
end;
3 : begin
clrscr;
TextColor(14);
gotoxy(35,1); write(#1, #0, #1, #0, #2, #0, #2); TextColor(10);
kalimat:='Terima Kasih Sudah Menggunakan Program Kami. Press ENTER for EXIT ';
repeat
kata1 := copy(kalimat,2,length(kalimat));
kata2 := copy(kalimat,1,1);
kalimat := concat(kata1,kata2);
gotoxy(1,10); write(kalimat); delay(150);
until keypressed;
readln;
exit;
end;
end;
gotoxy(x,29); write('Ulang Lagi (Y/T) ? ');readln(ulang);
end;
end;
readln;
end.