Rekam Sari

Sejarah -  Awal masuk islam di Negara cina di karnakan adanya Interaksi antara Cina dan Arab sebenarnya sudah terjadi jauh sebelum Islam ada di dunia, sekitar abad ke-1 dan ke-2, Arab termasuk tempat persinggahan para pedagang jalur sutera (silk road) untuk berjual beli. Jalur sutera ini terbentang dari Cina sampai ke Konstantinopel. Karena itulah muncul ungkapan arab “tuntutlah ilmu sampai ke negeri Cina”, karena pada waktu itu Cina menjadi tempat yang sangat terkenal karena termasuk negeri yang sangat maju peradabannya. Kedatangan Islam ke Cina tercatat dalam kitab sejarah Chiu T’hang Shu yang menyebutkan bahwa Cina pernah menerima kunjungan diplomatik dari orang-orang Ta Shih (Arab) yang diutus oleh Tan mi mo ni’ (Amirul Mukminin), yakni Khalifah Utsman bin Affan.  Utsman menugaskan Sa'ad bin Abi Waqqas untuk membawa ajaran Illahi ke daratan Cina. 

      Utusan khalifah itu diterima secara terbuka oleh Kaisar Yung Wei dari Dinasti Tang. Kaisar lalu memerintahkan pembangunan Masjid Huaisheng atau masjid Memorial di Canton, masjid pertama di daratan Cina. Pada masa Dinasti Tang, Cina tengah mencapai masa keemasan dan menjadi kosmopolitan budaya, sehingga dengan mudah ajaran Islam tersebar dan dikenal masyarakat Tiongkok. Orang Cina mengenal Islam dengan sebutan Yisilan Jiao yang berarti 'agama yang murni' dan menyebut Makkah sebagai tempat kelahiran Buddha Ma-hia-wu (Nabi Muhammad SAW).

           

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 

"IF …THEN"

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.

         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.

      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.

PERANCANGAN PEMBUATAN APLIKASI

Cara pembuatan Aplikasi Kalkulator Perhitungan Zakat Dengan Menggunakan Qbasic:

Tulis code pada Qbasic:

0 CLS

PRINT

COLOR 14

PRINT TAB(25); "KALKULATOR PERHITUNGAN ZAKAT"

PRINT

COLOR 12

PRINT "KET: LAKUKAN DENGAN MENEKAN ENTER SETELAH MENGISI DATA"

PRINT

COLOR 15

INPUT "NAMA PEMBAYAR ZAKAT                =", NM$

INPUT "HARGA BERAS PERLITER               =", BERAS

INPUT "HARGA EMAS/PERAK PERGRAM           =", EMAS

INPUT "JUMLAH TABUNGAN/ INVESTASI 1 TAHUN =", TB

PRINT

COLOR 10

PRINT "NO OPERASI PERHITUNGAN ZAKAT:"

COLOR 15

PRINT "1. ZAKAT FITRA"

PRINT "2. ZAKAT MAL"

PRINT

COLOR 10

INPUT "PILIH OPERASI PERHITUNGAN ZAKAT DENGAN MENGETIK NOMOR DIATAS =", NO$

IF NO$ = "1" THEN GOTO 10

IF NO$ = "2" THEN GOTO 30

10

ZAKAT# = 3.5 * BERAS

GOTO 40

30

NISAB = 85 * EMAS

IF TB > NISAB THEN ZAKAT# = TB * .025

IF TB < NISAB THEN ZAKAT# = 0 * TB

GOTO 40

40 PRINT " TOTAL =", ZAKAT#

PRINT

PRINT

CLS

PRINT

COLOR 14

PRINT TAB(25); "KALKULATOR PERHITUNGAN ZAKAT"

PRINT

COLOR 15

PRINT TAB(4); "NAMA"; TAB(20); "ZAKAT YANG DIBAYAR"

PRINT TAB(4); "___________________________________"

PRINT

PRINT TAB(4); NM$; TAB(19);

PRINT USING "#############"; ZAKAT#

PRINT

COLOR 12

PRINT "KETERAGAN:"

PRINT

COLOR 10

PRINT "JIKA HASIL ZAKAT = 0, MAKA ANDA HANYA MEMBAYAR SODAQOH "

PRINT "DIKARNAKAN HARTA YANG ANDA MILIKI BELUM MENCAPAI NISAB YANG DITENTUKAN"

PRINT

COLOR 14

INPUT "JIKA SELESAI TEKAN (Y), JIKA MENGULANG TEKAN (T) LALU ENTER:", SELESAI$

IF SELESAI$ = "Y" GOTO 100

IF SELESAI$ = "T" GOTO 0

IF SELESAI$ = "y" GOTO 100

IF SELESAI$ = "t" GOTO 0

Sekian cara pembuatan aplikasi perhitungan zakat sederhana dengan Qbasic

semoga bermanfaat :)