oleh :
arif zainurrohman
danni setiadi
sepdia mautia putri
Else
Begin
Clrscr;
title;
BukaFile;
Ada:=False;
x:=31;y:=6;
Gotoxy(x+1,y+1);Write('-----------------');
Gotoxy(x,y+2);Write('Atas Nama : ');Readln(NOCR);
if
NOCR = '' then
goto
dulas;
While (Ada=False) And (i<>Filesize(Filekaraoke)) Do
Begin
Seek(Filekaraoke,i);
Read(Filekaraoke,Data);
If Data.nama=NOCR Then
Ada:=True
Else
Inc(i);
End;
If (Ada=True) Then
Begin
clrscr;
title;
Gotoxy(x-5,y+7);Write(' Anda Member! ');
Gotoxy(x-5,y+8);write('Nama :
',NOCR);
repeat
Gotoxy(x-5,y+9);Write('Jam Masuk
: ');readln(j[1].jam);
if j[1].jam > 24 then
until j[1].jam <25;
tilas:
Gotoxy(x-5,y+10);Write('Jam Keluar : ');readln(j[2].jam);
if
(j[2].jam > 24) or (j[2].jam < j[1].jam) then
goto tilas;
j[3].jam:=j[2].jam-j[1].jam;
luh:
Gotoxy(x-5,y+11);Write('Jenis Ruangan : ');readln(jenru) ;
if
(jenru='') then
goto luh;
clrscr;
Gotoxy(28,2);writeln(teks2);
Gotoxy(1,y-2);Writeln(garspas);
Gotoxy(x-5,5);Writeln(' Nama
: ',NOCR);
Gotoxy(x-5,6);Writeln(' Waktu Masuk
: ',j[1].jam);
Gotoxy(x-5,7);Writeln(' Waktu Keluar : ',j[2].jam);
Gotoxy(1,8);Writeln(garspas);
lan:
Gotoxy(x-5,10);Writeln(' Jenis Ruangan : ',jenru);
if (jenru='') then
goto lan;
harga1:=j[3].jam*200000;
harga2:=j[3].jam*100000;
pajak:=10000;
if (jenru = 'VVIP') or (jenru = 'vvip') then
begin
Gotoxy(x-5,11);write (' Harga
: Rp. ',harga1:10:2);
potongan:=0.1*harga1;
total:=harga1+pajak-potongan;
end else
if (jenru = 'VIP') or (jenru = 'vip') then
begin
Gotoxy(x-5,12);write (' Harga
: Rp. ',harga2:10:2);
potongan:=0.1*harga2;
total:=harga2+pajak-potongan;
end;
Gotoxy(x-5,13);Writeln(' Pajak : Rp. ',pajak:10:2);
Gotoxy(x-5,14);Writeln(' Potongan
: Rp. ',potongan:10:2);
Gotoxy(x-5,15);Writeln(' Total : Rp. ',total:10:2);
Gotoxy(1,16);Writeln(garspas);
malas:
gotoxy(x-5,17);write(' Uang dibayar
: Rp. ');
gotoxy(x+21,17);readln(ubay);
if ubay < total then
goto malas;
gotoxy(x+20,17);writeln(ubay:10:2);
ukem:=ubay - total;
Gotoxy(x-5,18);Writeln(' Uang Kembali : Rp. ',ukem:10:2);
Gotoxy(1,19);Writeln(garspas);
Gotoxy(1,y+14);Writeln(' ARDASEP PALEMBANG ');
Gotoxy(1,y+15);Writeln(' JL. IMPIAN BLOK X NO Y ');
Gotoxy(1,y+16);Writeln(' PALEMBANG ');
Gotoxy(35,y+15);Writeln(' Phone
: (0711) 1234567 ');
End
Else
Begin
Gotoxy(x-5,y+7);Write(' Anda Bukan Member! ');
Gotoxy(x-5,y+8);write('Nama :
',NOCR);
repeat
Gotoxy(x-5,y+9);Write('Jam Masuk
: ');readln(j[1].jam);
if j[1].jam > 24 then
until j[1].jam <25;
patlas:
Gotoxy(x-5,y+10);Write('Jam Keluar : ');readln(j[2].jam);
if (j[2].jam > 24) or (j[2].jam < j[1].jam) then
goto patlas;
j[3].jam:=j[2].jam-j[1].jam;
ju:
Gotoxy(x-5,y+11);Write('Jenis Ruangan : ');readln(jenru) ;
if (jenru='') then
goto ju;
clrscr;
Gotoxy(28,2);writeln(teks2);
Gotoxy(1,y-2);Writeln(garspas);
Gotoxy(x-5,5);Writeln('
Nama : ',NOCR);
Gotoxy(x-5,6);Writeln(' Waktu Masuk : ',j[1].jam);
Gotoxy(x-5,7);Writeln('
Waktu Keluar : ',j[2].jam);
Gotoxy(1,8);Writeln(garspas);
nam:
Gotoxy(x-5,10);Writeln('
Jenis Ruangan : ',jenru);
if (jenru='') then
goto nam;
harga1:=j[3].jam*200000;
harga2:=j[3].jam*100000;
pajak:=10000;
if (jenru = 'VVIP') or
(jenru = 'vvip') then
begin
Gotoxy(x-5,11);write (' Harga
: Rp. ',harga1:10:2);
potongan:=0;
total:=harga1+pajak-potongan;
end else
if (jenru = 'VIP') or
(jenru = 'vip') then
begin
Gotoxy(x-5,12);write
(' Harga : Rp.
',harga2:10:2);
potongan:=0;
total:=harga2+pajak-potongan;
end;
Gotoxy(x-5,13);Writeln(' Pajak : Rp. ',pajak:10:2);
Gotoxy(x-5,14);Writeln(' Potongan : Rp. ',potongan:10:2);
Gotoxy(x-5,15);Writeln(' Total : Rp. ',total:10:2);
Gotoxy(1,16);Writeln(garspas);
namlas:
gotoxy(x-5,17);write(' Uang dibayar
: Rp. ');
gotoxy(x+21,17);readln(ubay);
if ubay < total then
goto namlas;
gotoxy(x+20,17);writeln(ubay:10:2);
ukem:=ubay - total;
Gotoxy(x-5,18);Writeln(' Uang Kembali : Rp. ',ukem:10:2);
Gotoxy(1,19);Writeln(garspas);
Gotoxy(1,y+14);Writeln(' ARDASEP PALEMBANG ');
Gotoxy(1,y+15);Writeln(' JL. IMPIAN BLOK X NO Y ');
Gotoxy(1,y+16);Writeln(' PALEMBANG ');
Gotoxy(35,y+15);Writeln(' Phone :
(0711) 1234567 ');
End;
Gotoxy(x-3,y+19);Write('Mau Data Lain [Y/T]: ');Lagi:=Upcase(Readkey);
End;
Until
Lagi<>'Y';
End;
Procedure arif;
begin
end;
Procedure Anggota;
var
pal:char;
Begin
Clrscr;
title;
x:=30;
y:=6;
Gotoxy(35,y);Write('MENU PENGURUSAN ANGGOTA');
Gotoxy(34,y+1);Write('============');
Gotoxy(x,y+2);Write('1. TAMBAH ANGGOTA');;
Gotoxy(x,y+3);Write('2. TAMPILKAN DATA ANGGOTA');
Gotoxy(x,y+4);Write('3. HAPUS DATA ANGGOTA');
Gotoxy(32,y+5);Write('Pilihan [1..3]: ');Pal:=Readkey;
Case pal of
'1'
:Tambah;
'2'
:Tampil;
'3'
:Hapus;
end;
End;
Procedure Ruangan;
var
pel:char;
Begin
Clrscr;
title;
x:=30;
y:=6;
Gotoxy(35,y);Write('MENU PENGURUSAN RUANGAN');
Gotoxy(34,y+1);Write('============');
Gotoxy(x,y+2);Write('1. TAMBAH DATA RUANGAN');
Gotoxy(x,y+3);Write('2. TAMPILKAN DATA RUANGAN');
Gotoxy(x,y+4);Write('3. UBAH STATUS RUANGAN');
Gotoxy(x,y+5);Write('4. HAPUS DATA RUANGAN');
Gotoxy(32,y+6);Write('Pilihan [1..4]: ');Pel:=Readkey;
Case pel of
'1'
:Tambah1;
'2'
:Tampil1;
'3' :Edit;
'4' :Hapus1;
end;
End;
Begin
Repeat
Menu;
Case Pil Of
'1' : Anggota;
'2' : Ruangan;
'3' : Pelanggan;
'4' : Akhir;
end;
Until (Pil='4');
End.
Ibu kota , 10 Oktober 2013
akhukum fillah arif zainurrohman
Ibu kota , 10 Oktober 2013
akhukum fillah arif zainurrohman
0 komentar:
Posting Komentar