Turbo Aplikasi Penginapan Menggunakan Pascal

Kamis, Mei 14, 2015 |

Nama Kelompok:

1. AFIF MUSTIKAWATI (10114386)

2. MARFU’AH AL-QASHASHI (16114371)

3. REKAM SARI (19114016)

KELAS: 1KA24

UNIVERSITAS GUNADARMA

FAKULTAS ILMU KOMPUTER & TEKNOLOGI INFORMASI

JURUSAN S1- SISTEM INFORMASI

Abstract- Di era modern ini komputer memiliki peran penting dalam kehidupan manusia, karena komputer dapat membantu meringankan tugas manusia melalui aplikasi - aplikasi yang tersedia sesuai dengan kebutuhan mereka, sehingga banyak tempat-tempat usaha menggunakan computer aplikasi atau sistem komputerisasi untuk mendukung kegiatan usahanya.Sebagian besar perus melakukan kegiatan bisnis mereka lebih efisien komputerisasi untuk alasan waktu, tidak banyak risiko dan keputusan lebih cepat. Dengan alasan di atas, kelompok kami mencoba membuat aplikasi penginapan,apa yang bisa melakukan . Aplikasi penginapan dirancang dengan menggunakan perangkat lunak Turbo Pascal. Pada akhirnya, aplikasi penginapan “Travel”dapat membantu pemilik penginapan dalam membuat administrasi dari semua bisnis transaksi.

Perintah yang digunakan pada aplikasi penginapan “TRAVEL”

"IF …THEN"

digunakan untuk memilih kondisi dan memberikan nilai pada kondisi tersebut bila benar dan bila salah.

Cara pembuatan aplikasi dengan Pascal bisa di copy disini :

program kasir_penginapan;
uses
crt;
label awal,akhir;
var
no:integer;
total,cash,harga,hsewa,kembalian:longint;
lm_nginap:integer;
jns_penginapan:string;
nama: string;
kalimat, kata1, kata2 :string;
yesno: char;
begin
akhir: clrscr;
textcolor(110);
gotoxy(30,2);
writeln('Penginapan Traveloka');
textcolor(white);
gotoxy(1,3); writeln('................................................................................'); textcolor(10);
gotoxy(2,4);
writeln('Fasilitas Penginapan:');
textcolor(15);
writeln('1. Full AC');
writeln('2. Jaringan WIFI');
writeln('3. Pelayanan Penginapan 24 jam');
textcolor(14); writeln(' ******************************************************************');
writeln(' *NO* Jenis Penginapan * Harga Sewa * Fasilitas Tambahan *');
writeln(' ******************************************************************');
writeln(' * 1* Precidential Room * 1.000.000 * 1. TV LCD *'); writeln(' * * * * 2. Ruang Makan *');
writeln(' * * * * 3. 1 Single & 1 Double Bad *');
writeln(' ******************************************************************');
writeln(' * 2* Deluxe Room * 650.000 * 1. TV 14 in *');
writeln(' * * * * 2. 1 Single & 1 Double Bad *');
writeln(' ******************************************************************');
writeln(' * 3* Standard Room * 300.000 * 1. TV 14 in *'); writeln(' * * * * 2. 1 Single Bad *');
writeln(' ******************************************************************');
writeln; readln;
begin
clrscr;
writeln;
textcolor(15);
write(' Nama Pengunjung = ');
readln (nama);
write(' Jenis Penginapan = ');
readln (no);
if no= 1 then harga:=1000000;
if no= 2 then harga:=650000;
if no= 3 then harga:=300000;
writeln(' Harga =');
gotoxy(21,4);
writeln(harga);
write(' Lama Menginap = ');
readln(lm_nginap);
writeln; textcolor(12);
writeln(' STRUK PENGINAPAN ');
writeln(' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
writeln(' Nama Pengunjung =');
gotoxy(19,9);
writeln(nama);
writeln(' ******************************************************************');
writeln(' *NO* Jenis Penginapan * Harga Sewa * Lama Sewa * Total *');
writeln(' ******************************************************************');
writeln(' * * * * * *');
writeln(' ******************************************************************');
gotoxy(4,13);
writeln(no);
if no= 1 then jns_penginapan:='Presidential Room';
if no= 2 then jns_penginapan:='Deluxe Room';
if no= 3 then jns_penginapan:='Standrad Room';
gotoxy(8,13);
writeln(jns_penginapan);
if no= 1 then harga:=1000000;
if no= 2 then harga:=650000;
if no= 3 then harga:=300000;
gotoxy(28,13);writeln(harga);
gotoxy(44,13);writeln(lm_nginap);
total:= harga*lm_nginap;
gotoxy(56,13);
writeln(total);
writeln; write(' Cash = ') ;
readln (cash);
kembalian:= cash-total;
writeln(' Kembalian =');
gotoxy(14,16);
writeln(kembalian);
writeln; textcolor(15);
writeln;
writeln;
write(' Jika setuju klik ( Y ), jika tidak ( N ) = '); readln(yesno);
if yesno='Y' then goto awal;
if yesno='N' then goto akhir;
readln;
end;
begin awal:
clrscr;
TEXTCOLOR(10);
kalimat := ' :* TERIMAKASIH ATAS KUNJUNGAN ANDA *: ';
REPEAT kata1 := COPY(kalimat,2,LENGTH(kalimat));
kata2 := COPY(kalimat,1,1);
kalimat:= CONCAT(kata1,kata2);
GOTOXY(16,10);
WRITE(kalimat);
DELAY(3290);
UNTIL KEYPRESSED;
readln;
end;
end.

Keterangan:

- Repeat: perulangan suatu statement

-Concat: untuk menggabungkan 2 atau beberapa variable string.

Sintaks: CONCAT(s1 *,s2,…,sn+: string) : STRING; Contoh : CONCAT(kata1, kata2);

-Delay: untuk menghentikan sejenak proses program. Contoh: DELAY(3290);

KET: 3290 = ukuran waktu dalam milisecond -Until Keypressed : akan menunggu sampai ditekan sebarang tombol.

Cara penggunaan aplikasi kasir penginapan:

Program aplikasi Kasir Penginapan ini bertujuan untuk mempermudah para pekerja dalam menghitung pemesanan consumer lebih efsien dibanding menghitung secara manual. Dalam penggunaan aplikasi ini pertama yang akan di tampilkan yaitu fasilitas penginapan dan jenis penginapan yang telah disediakan oleh tempat penginapan. Setelah para consumer memilih jenis penginapan yang di pilih . Kasir akan mengisi data consumer sesuai nama consumer, jenis penginapan dan lama menginap. Setalah data selesai akan muncul struk penginapan yang harus di bayar oleh consumer. Jika consumer setuju ketik “Y” maka program akan berjalan ke proses berikutnya , dan jika “N” tidak setuju ketik maka program akan kembali ke tampilan awal.

Gambar Output:

Kesimpulan:

Penulisan ini berisi pembuatan penginapan “Travel” menggunakan Turbo Pascal dari isi aplikasi berupa pengimputan data consumer, pemesanan consumer, dan outputan struk yang harus di bayar oleh consumer

Semoga setelah menggunakan aplikasi ini pemilik penginapan dan consumer dapat melakukan pemesanan dengan benar, cepat, tepat dan akurat.

Sekian penulisan dari saya dan kelompok saya semoga bermanfaat :)