LAPORAN PROJECT PEMROGRAMAN SHELL
PEMESANAN KAMAR KOS
SOURCE CODE:
#!/bin/bash
tgl=`date`
#MAIN MENU
main()
{
mu=`zenity --list --width 500 --height 250 --title "KERTAJAYA KOS" --text "\t\tSilahkan" --
column "Pilihan" "Owner" "Visitors" "Daftar harga sewa bulanan" "Informasi Keuangan"
"Exit"`
if [ "$mu" == "Owner" ];
then
admin
elif [ "$mu" == "Visitors" ];
then
Visitors
elif [ "$mu" == "Daftar harga sewa bulanan" ];
then
daftar
elif [ "$mu" == "Informasi Keuangan" ];
then
cari
elif [ "$mu" == "Exit" ] || [ "$?" == "1" ];
then
clear;
zenity --title "KERTAJAYA KOS" --info --text "Terimakasih" --timeout 10
exit 0;
fi
}
printf " %s\n "$2
#Pemilik
admin()
{
p=`zenity --entry --title "KERTAJAYA KOS" --text="Password" --hide-text`
if [ "$p" == "12345" ];
then
menu;
else
zenity --warning \
--text="Please enter username and password correctly";
fi
main
}
#Menu Pemilik
menu()
{
me=`zenity --list --width 350 --height 230 --title "KERTAJAYA KOS" --text "Selamat Datang
Bos" --column "Pilihan" "Edit Pembayaran" "Edit Kamar Cowok" "Edit Kamar Cewek" "Lihat
Calon Penghuni" "Exit"`
if [ "$me" == "Edit Pembayaran" ];
then
ubah
elif [ "$me" == "Edit Kamar Cowok" ];
then
ubahkco
elif [ "$me" == "Edit Kamar Cewek" ];
then
ubahkce
elif [ "$me" == "Lihat Calon Penghuni" ];
then
awk
'{{printf"%s\n",$1;printf"%s\n",$2;printf"%s\n",$3;printf"%s\n",$4;printf"%s\n",$5;printf"%d\n
",$8;printf"%s\n",$7;}}' draft | zenity --list --title="Menu Pemilik" --text="Daftar" --column
"Nama" --column="No Telp" --column="Kamar" --column="Fasilitas " --column="Bulan Ini" --
column="Tanggal" --column="Bulan" --width 700 --height 500;
elif [ "$mu" == "Exit" ] || [ "$?" == "1" ];
then
main
clear;
zenity --title "KERTAJAYA KOS" --info --text "Terimakasih" --timeout 10
exit 0;
fi
menu
}
#Menu pengunjung
Visitors()
{
vi=`zenity --list --width 500 --height 250 --title "KERTAJAYA KOS" --text "\t\tSilahkan" --
column "Menu Pilihan" "Pesan Kamar" "Informasi" "Exit"`
if [ "$vi" == "Pesan Kamar" ];
then
pesan
elif [ "$vi" == "Informasi" ];
then
eog [Link]
elif [ "$mu" == "Exit" ] || [ "$?" == "1" ];
then
exit 0;
fi
Visitors
}
#pesan kamar
pesan()
{
nama=$(zenity --entry --title "KERTAJAYA KOS" --text="Nama Panggilan");
no=$(zenity --entry --title "KERTAJAYA KOS" --text="Nomor Telp");
zenity --title "KERTAJAYA KOS" --list --text "
Silahkan $nama" --radiolist --column "Pilih" --column "Jenis Kelamin" TRUE Laki-laki FALSE
Perempuan> pilihan
pil=`cat pilihan`
if [ $pil == Laki-laki ]; then
kamarcow;
fi
if [ $pil == Perempuan ]; then
kamarcew;
fi
kam=$(zenity --entry --title "KERTAJAYA KOS" --text="Pilihan Kamar");
zenity --width 300 --height 200 --title "KERTAJAYA KOS" --list --text "Tambah TV?" --
radiolist --column "Pilih" --column "Tambahkan?" FALSE "Ya" FALSE "Tidak"> Fasilitas
tv=`cat Fasilitas`
if [ $tv == Ya ]; then
t=25000;
b=TV;
else
t=0;
fi
zenity --width 300 --height 200 --title "KERTAJAYA KOS" --list --text "Tambah AC?" --
radiolist --column "Pilih" --column "Tambahkan?" FALSE "Ya" FALSE "Tidak"> Fasilitas
ac=`cat Fasilitas`
if [ $ac == Ya ]; then
a=40000;
c=AC;
else
a=0;
fi
zenity --width 300 --height 200 --title "KERTAJAYA KOS" --list --text "Tambah Kamar Mandi
Dalam?" --radiolist --column "Pilih" --column "Tambahkan?" FALSE "Ya" FALSE "Tidak">
Fasilitas
km=`cat Fasilitas`
if [ $km == Ya ]; then
k=30000;
d=[Link];
else
k=0;
fi
zenity --width 300 --height 200 --title "KERTAJAYA KOS" --list --text "Tambah Kulkas?" --
radiolist --column "Pilih" --column "Tambahkan?" FALSE "Ya" FALSE "Tidak"> Fasilitas
kas=`cat Fasilitas`
if [ $kas == Ya ]; then
kul=20000;
e=Kulkas;
else
kul=0;
fi
(
echo "68" ; sleep 1
echo "# Menyimpan" ; sleep 1
echo "100" ; sleep 1
) |zenity --progress \
--title="Menyimpan" \
--text="Simpan...." \
--percentage=0
if [ "$?" = 0 ] ; then
let total=$t+$a+$k+$kul+400000;
echo $nama $no $kam $b$c$d$e $total $tgl | cat >> draft
else
zenity --info --text "Penyimpanan Gagal"
fi
(zenity --list --title="KERTAJAYA KOS" --text="Sewa Bulanan" --column="Nama" "$nama"
"$no" "$kam" "$b $c $d $e" "$total" --column="No Telp" --column="Kamar" --
column="Fasilitas" --column="Sewa per Bulan" --width 550 --height 100);
zenity --info --text "
Nama : $nama
Pada : $tgl
Kamar : $kam
Fasilitas : $b $c $d $e
Tarif Sewa: Rp$total"
zenity --title "KERTAJAYA KOS" --info --text "Konfirmasi Maksimal 1 bulan setelah
pemesanan, jika tidak maka dianggap batal (Konfirmasi hub 085649185048)." --timeout 10
zenity --title "KERTAJAYA KOS" --info --text "Selamat Bergabung $nama" --timeout 10
main
}
#Daftar Harga
daftar()
{
zenity --list --width 300 --height 250 --text "Daftar Fasilitas" \
--title="KERTAJAYA KOS" \
--column="Daftar Barang" "Kamar" "@Rp 400.000" "TV" "@Rp 25.000" "AC" "@Rp
40.000" "Kamar Mandi Dalam" "@Rp 30.000" "Kulkas" "@Rp 20.000"\
--column="Daftar harga"
main
#Kamar Laki
kamarcow ()
{
kco=$(awk '{{printf"%s\n",$1;}}' Co | zenity --list --width 300 --height 250 --text "Jenis Dan
Gambar Kamar" \
--title="KERTAJAYA KOS" \
--column="Nama Kamar";)
if [ "$kco" == "tipe1" ];
then
eog [Link]
elif [ "$kco" == "tipe2" ];
then
eog [Link]
elif [ "$kco" == "tipe3" ];
then
eog [Link]
elif [ "$kco" == "tipe4" ];
then
eog [Link]
elif [ "$kco" == "tipe5" ];
then
eog [Link]
fi
}
#Kamar Perempuan
kamarcew ()
{
kc=$(awk '{{printf"%s\n",$1;}}' Ce | zenity --list --width 300 --height 250 --text "Jenis Dan
Gambar Kamar" \
--title="KERTAJAYA KOS" \
--column="Daftar Kamar";)
if [ "$kc" == "tipe1" ];
then
eog [Link]
elif [ "$kc" == "tipe2" ];
then
eog [Link]
elif [ "$kc" == "tipe3" ];
then
eog [Link]
elif [ "$kc" == "tipe4" ];
then
eog [Link]
elif [ "$kc" == "tipe5" ];
then
eog [Link]
fi
}
#Mencari
cari (){
nm=`zenity --title "Cek Penghuni" --width 50 --entry --text "Nama Panggilan : "`
z=`awk '/'$nm'/{{print $1}}' draft`
if [ "$?" == "1" ];
then
pesan
elif [ -z "$z" ];
then
zenity --warning \
--text="Tidak Ditemukan !!!";
main
fi
awk
'/'$nm'/{{printf"%s\n",$1;printf"%s\n",$2;printf"%s\n",$3;printf"%s\n",$4;printf"%s\n",$5;}}'
draft | zenity --list --title="Buat Penghuni" --text="Daftar Penghuni" --column "Nama" --
column="No Telp" --column="Kamar" --column="Fasilitas" --column="Sewa Bulan Ini" --width
500 --height 200;
main
}
#ubah
ubah()
{
cnme=$(awk '{{printf"%s\n",$1;printf"%s\n",$5;}}' draft | zenity --list --title="KERTAJAYA
KOS" --text="Keterangan" --column "Nama" --column="Pembayaran Bulan ini" --width 250 --
height 300; )
hawl=`awk '/'$cnme'/ {{print $5}}' draft`
zenity --info --text="Keterangan awal = $hawl"
hakr=`zenity --title "Ubah Keterangan" --width 400 --entry --text "Ubah :"`
sed -e /$cnme/s/$hawl/$hakr/ draft > draft0
cat draft0 > draft
awk '{{printf"%s\n",$1;printf"%s\n",$5;}}' draft | zenity --list --title="KERTAJAYA KOS" --
text="Keterangan" --column "Name" --column="Pembayaran Bulan ini" --width 250 --height
300;
}
#ubah Kamar Cow
ubahkco()
{
eman=$(awk '{{printf"%s\n",$1;}}' Co | zenity --list --title="KERTAJAYA KOS" --
text="Keterangan" --column "Kamar" --width 250 --height 300; )
hayo=`awk '/'$eman'/ {{print $1}}' Co`
zenity --info --text="Keterangan awal = $hayo"
haki=`zenity --title "Ubah Keterangan" --width 400 --entry --text "Ubah :"`
sed -e /$eman/s/$hayo/$haki/ Co > Co0
cat Co0 > Co
awk '{{printf"%s\n",$1}}' Co | zenity --list --title="KERTAJAYA KOS" --text="Keterangan" --
column "Kamar" --width 250 --height 300;
}
#ubah Kamar Cew
ubahkce()
{
emon=$(awk '{{printf"%s\n",$1;}}' Ce | zenity --list --title="KERTAJAYA KOS" --
text="Keterangan" --column "Kamar" --width 250 --height 300; )
haye=`awk '/'$emon'/ {{print $1}}' Ce`
zenity --info --text="Keterangan awal = $haye"
hako=`zenity --title "Ubah Keterangan" --width 400 --entry --text "Ubah :"`
sed -e /$emon/s/$haye/$hako/ Ce > Ce0
cat Ce0 > Ce
awk '{{printf"%s\n",$1}}' Ce | zenity --list --title="KERTAJAYA KOS" --text="Keterangan" --
column "Kamar" --width 250 --height 300;
}
#Awal
zenity --title "KERTAJAYA KOS" --info --text="Selamat datang calon penghuni KERTAJAYA
KOS."
masuk=`zenity --question --text "Apakah anda ingin masuk ?" --ok-label="Yes" --cancel-
label="No"`
if [ "$?" = 1 ];
then
clear
exit 0;
fi
main
OUTPUT:
Tampilan awal :
Saat Pilihan Owner di Klik :
Saat password yang dimasukkan salah
Saat Edit pembayaran diklik
Saat pilihan edit kamar cowok diklik
Saat pilihan edit kamar cewek diklik
Saat Pilihan Visitors di Klik :
Saat Pilihan Pesan Kamar diklik
Ketika salah satu tipe diklik maka akan muncul gambar
Maka saat tombol close gambar diklik maka akan muncul kotak
dialog seperti berikut,lalu isikan tipe kamar yang dipilih
Saat pilihan Informasi diklik
Saat harga sewa bulanan diklik:
Saat informasi keuangan diklik
Saat pilihan exit diklik