Selasa, 08 Mei 2012

MS EXCEL

Modul Ms Excel 97

Posted by labkom on 21 Januari 2009
Modul Ms Excel 97
Ms Excel merupakan program spreadsheet yang dapat digunakan untuk membuat hitungan-hitungan, daftar, diagram, laporan keuangan, dan sebagainya.
Materi modul ini

Bagian 1

1. Memulai dan mengenal Excel
2. Memulai bekerja dengan worksheet
3. Menyimpan worksheet
4. Menutup worksheet
5. Membuka worksheet
6. Menentukan format angka
7. Membuat rumus
8. Toolbar standard dan format
9. Toolbar lain
10. Mencetak worksheet

Bagian 2

1. Formula dasar (SUM, AVERAGE, MIN, MAX, COUNT)
2. Alamat sel
3. Formula lanjut (IF, VLOOKUP, HLOOKUP)

Bagian 3

1. Grafik

Memulai dan Mengenal Excel

1. Jalankan Ms Excel melalui menu StartàProgramàMicrosoft Excel
2. Perhatikan window Ms Excel yang muncul seperti berikut ini


Ada beberapa hal yang harus anda ketahui pada window Excel di atas yaitu:
1. Menu Utama: merupakan menu untuk mengakses seluruh perintah yang ada pada Ms Excel.
2. Toolbar Standard: berisi kumpulan tombol-tombol perintah standard seperti pembukaan, pembuatan, pencetakan, pengeditan, dan sebagainya.
3. Toolbar Format: berisi kumpulan tombol-tombol perintah pemformatan standard seperti jenis, ukuran, dan warna huruf, format angka, warna sel, dan sebagainya.
4. Formula bar: merupakan kolom isian untuk membuat formula.
5. Kolom: identifikasi kolom.
6. Baris: identifikasi baris.
7. Pointer: penunjuk sel yang sedang aktif.
8. Scrollbar horizontal: digunakan untuk menggeser-geserkan worksheet ke kiri dan ke kanan.
9. Scrollbar vertikal: digunakan untuk menggeser-geserkan worksheet ke atas dan ke bawah.
10. Pilihan Worksheet: digunakan untuk memilih worksheet yang anda miliki.
11. Status bar: untuk memperlihatkan status pekerjaan anda.
Dalam bekerja dengan Excel, anda harus terlebih dahulu mengerti istilah-istilah berikut:
1. Worksheet: adalah dokumen tempat anda bekerja. Dalam satu file Ms Excel (yang berekstensi XLS) mungkin terdapat beberapa buah worksheet, yang masing-masing memiliki nama tersendiri. Workseet terdiri dari baris-baris dan kolom-kolom. Misalnya anda memiliki file Excel dengan nama LAPORAN.XLS, di dalamnya mungkin terdapat worksheet Januari, Februari, Maret, April, dan sebagainya.
2. Baris: adalah baris-baris yang ada dalam worksheet. Dalam Excel baris ini dinamai dengan 1,2,3, … sampai dengan 16192.
3. Kolom: adalah kolom-kolom yang ada dalam worksheet. Dalam Excel baris ini dinamai dengan A, B, C, D, …, AA, AB, AC, … sampai dengan 256 kolom.
4. Sel: adalah perpotongan antara baris dengan kolom. Misalnya perpotongan baris 2 dengan kolom C, dinamai dengan sel C2.
5. Pointer: adalah kotak segiempat yang ada pada worksheet yang berupakan penunjuk sel yang sedang aktif atau sedang dipilih. Anda hanya dapat bekerja pada sel yang aktif ini. Gunakan pointer mouse atau tombol panah pada keyboard untuk menuju ke suatu lokasi sel tertentu.
6. Range: adalah area yang terdiri dari beberapa buah sel. Untuk menyatakan area dari sel A1 sampai dengan sel C4 digunakan range A1:C4.
7. Grid: garis kotak-kotak yang memisahkan sel.

Memulai bekerja dengan worksheet

Ketikkan angka-angka pada worksheet anda sehinga terlihat seperti gambar di samping ini.

Dasar-dasar worksheet

Ada beberapa hal yang dapat kita pelajari dari contoh di atas, yaitu:
1. AutoFill, digunakan untuk secara otomatis mengisi sel-sel yang berdampingan dengan data-data yang terurut, seperti 1,2,3,…, January, February, March,April, … dan sebagainya. Untuk membuat AutoFill, isikan minimal 2 sel dengan urutan data yang dikehendaki (misalnya 1 dan 2), kemudian blok sel tersebut, lalu tarik (drag) Fill Handle (yaitu kotak kecil yang ada pada sudut kanan bawah pointer) sampai dengan lokasi yang anda kehendaki. Secara otomatis data-data pada sel yang anda lewati akan terisi dengan data yang terurut berdasarkan data awal yang anda berikan sebelumnya.
2. Membuat rumus sederhana untuk menjumlahkan harga 1 dan harga 2 pada kolom total harga. Arahkan pointer pada kolom E baris 3. Kemudian ketikkan =C3 + D3 lalu tekan ENTER. Arti dari rumus ini adalah jumlahkan sel C3 dengan sel D3. Total harga untuk baris ini akan terlihat pada sel E3. Penulisan formula atau rumus pada worksheet Excel selalui dimulai dengan tanda sama dengan (=) baru diikuti dengan rumusnya.

3. Anda tidak harus menuliskan rumus untuk setiap baris lainnya (baris 4,5,6, dan tujuh). Anda dapat menggunakan AutoFill untuk mengisi sel-sel berikutnya dengan mengambil referensi pada salah satu sel yang telah ada isi dan rumusnya. Pada contoh di atas, tarik (drag) lah fill handle pada pointer sel E3 menuju sel E7, sehingga tampilan worksheet anda menjadi seperti di samping.
4. Perhatikan pada sel E7, dan formula bar (yang menampilkan formula atau rumus pada sel yang aktif). Di situ tertulis =C7+D7. Artinya secara otomatis (melalui AutoFill) Excel mengisi sel-sel yang kita tentukan dengan formula yang benar.

Memformat sel

Pemformatan dilakukan untuk memperindah tampilan laporan anda. Beberapa yang yang dapat dilakukan adalah membuat garis pinggir tabel, memformat huruf (ukuran, jenis, dan warna), perataan paragraph, warna sel, kolom, dan baris, dan lainnya.

Membuat shading/warna sel

1. Sekarang arahkan pointer pada baris nomor 2 lalu blok sel-sel pada kolom B, C, D, dan E.
2. Pilih menu FormatàCells sehingga muncul window Format Cell, lalu pilih Pattern


3. Tentukan warna yang anda kehendaki.

Membuat border

1. Blok seluruh range yang hendak anda buat garis pinggirnya, pada contoh ini adalah range D2:E7
2. Pilih menu FormatàCells sehingga muncul window Format Cell, lalu pilih Border.
3. Pilih jenis garis pinggir yang anda kehendaki yaitu None untuk tanpa garis, Outline untuk garis di luar range yang anda pilih, dan Inside untuk garis di dalam range yang anda pilih (grid). Pilihan ini dapat anda temukan pada kolom Presets.
4. Untuk membuat garis selain seperti di atas, anda dapat langsung menentukannya pada kolom Border. Klik pada lokasi garis untuk menambah atau menghilangkan garis.
5. Anda dapat pula menentukan jenis garis untuk masing-masing garis yang ditentukan pada langkah 3 yaitu dengan menentukan Style-nya. Warna garis dapat anda tentukan melalui pilihan Color.
Setelah di format, worksheet anda akan terlihat seperti gambar di samping ini.

Latihan 1

Buatlah worksheet, pada file yang sama dengan di atas, seperti gambar di samping ini.


Hal-hal yang perlu dilakukan adalah:
1. Mengetik data-data pada worksheet
2. Mengetik data nomor barang pada dua baris pertama yaitu A12001 dan A12002, lalu melakukan AutoFill untuk baris selanjutnya.
3. Membuat shading pada kepala tabel
4. Memformat kepala tabel sehingga text yang ada menjadi tidak terpotong. Ini dilakukan dengan mem-blok kepala tabel, lalu memilih menu FormatàCells, pilih Alignment, dan pilih Text Alignment HorizontalàCenter
5. Memformat judul tabel sehingga berada di tengah-tengah tabel dengan memblok judul tersebut, kemudian memilih menu FormatàCells, pilih Alignment, dan pilih Text Alignment HorizontalàCenter Across Selection.
6. Arahkan pada sel Harga, tentukan formulanya adalah HARGA SATUAN * JUMLAH. Isikan dengan AutoFill semua sel Harga untuk baris-baris selanjutnya.

Menyimpan Worksheet

Untuk menyimpan file Excel dapat anda lakukan sama dengan aplikasi-aplikasi Windows (khususnya keluarga MS Office) yaitu:
1. dengan menu FileàSave
2. dengan tombol Save () pada toolbar standard
3. dengan tombol CTRL-S pada keyboard
Kemudian tentukan nama file dan lokasi folder penyimpanan pada komputer anda.

Menutup Worksheet

Untuk menutup file Excel dapat anda lakukan sama dengan aplikasi-aplikasi Windows (khususnya keluarga MS Office) yaitu:
1. dengan menu FileàClose
2. dengan tombol CTRL-F4 pada keyboard

Membuka worksheet

Untuk membuka file Excel dapat anda lakukan sama dengan aplikasi-aplikasi Windows (khususnya keluarga MS Office) yaitu:
1. dengan menu FileàOpen
2. dengan tombol Open () pada toolbar standard
3. dengan tombol CTRL-O pada keyboard
Kemudian tentukan lokasi folder dan nama file yang hendak anda buka.

Membuat worksheet baru dalam satu file

Satu file Ms Excel mampu menampung lebih dari satu worksheet. Untuk membuat worksheet baru pilih menu InsertàWorksheet.

Menghapus worksheet

Gunakan menu EditàDelete Sheet untuk menghapus worksheet yang sedang aktif.

Memilih worksheet tertentu

Gunakan tab pilihan worksheet untuk memilih suatu worksheet tertentu pada file anda.


Mengganti nama worksheet

Double klik pada tab pilihan worksheet yang akan diganti namanya, lalu isikan nama yang anda kehendaki, dan tekan ENTER.


Latihan 2

1. simpan file latihan di atas dengan nama C:\My Documents\latihan1.xls
2. tutup file itu
3. buka kembali

Format angka

Seringkali kita perlu memformat angka-angka pada worksheet, khususnya untuk laporan-laporan sehingga enak dipandang dan mengurangi kesalahlihatan terhadap angka-angka tersebut. Hal-hal yang biasa dilakukan dalam pemformatan angka adalah lokasi simbol ribuan dan jutaan, lokasi simbol bilangan desimal, persentasi, format mata uang, format akunting, format scientific, format tanggal, dan lain-lain.
Untuk memformat angka:
1. blok sel-sel yang hendak di format angkanya
2. pilih menu FormatàCells
3. pilih Number, dan tentukan jenis pemformatan angka


Latihan 3

Formatlah worksheet sebelumnya sehingga tampilannya seperti di samping.
Hal-hal yang dilakukan
1. blok range D4:D10
2. pilih menu FormatàCells, pilih Number
3. pilih jenis format Number, Decimal Place = 2,
4. pilih Use 1000 Separator.
5. ulangi untuk range F4:F10.

Toolbar Standard

Toolbar standard berisi perintah-perintah standard yang sering digunakan. Dengan menggunakan toolbar, pekerjaan dapat menjadi lebih mudah dan cepat, karena hanya perlu menekan satu tombol, dibandingkan dengan menggunakan menu.
Berikut ini gambar toolbar standard dan fungsi-fungsinya.


Toolbar Format

Berikut ini gambar toolbar format yang merupakan kompulan tombol-tombol pemformatan worksheet beserta fungsi-fungsinya.

Toolbar lainnya

Anda dapat menggunakan toolbar-toolbar lainnya yang dapat mengefisienkan pekerjaan anda. Untuk melihat dan menggunakan semua jenis toolbar yang tersedia, gunakan menu ViewàToolbar dan pilih toolbar yang ingin anda gunakan, sebagai berikut:
1. Autotext, toolbar untuk membuat dan menggunakan autotext
2. Control Toolbox, untuk membuat aplikasi dalam Ms Excel
3. Database, untuk mengakses dan menggunakan database pada worksheet anda
4. Drawing, untuk membuat gambar-gambar yang dapat digunakan bagi laporan dan worksheet anda
5. Forms, untuk membuat formulir-formulir isian pada worksheet
6. Picture, untuk mengedit gambar
7. Reviewing, untuk membuat review pada worksheet
8. Tables and border, untuk membuat tabel dan garis pinggir
9. Visual Basic, untuk membuat aplikasi Ms Excel dengan Visual Basic
10. Web, untuk mengakses internet atau intranet
11. WordArt, untuk membuat word art
12. Custom, untuk membuat toolbar yang dapat anda sesuaikan dengan keperluan anda

Mencetak worksheet

Pencetakan worksheet dapat anda lakukan seperti layaknya pentecakan pada aplikasi Windows lainnya, yaitu dengan menu FileàPrint, tombol Print pada toolbar standard, atau tombol CTRL-P pada keyboard.

Mencetak seluruh atau beberapa worksheet

1. Gunakan menu FileàPrint atau CTRL-P, lalu akan muncul window print seperti di samping
2. Tentukan printer yang akan digunakan
3. Tentukan halaman yang akan dicetak, apakah semuanya (All) atau halaman tertentu yang dinyatakan pada Page(s), From … To ….
4. Tentukan bagian mana yang akan dicetak, apakah seluruh worksheet yang ada pada file (Entire workbook), atau worksheet yang sedang terpilih / aktif saja (Active sheet(s)), atau sel-sel worksheet yang sedang dipilih saja (Selection).
5. Tentukan jumlah pencetakan untuk setiap halamannya.
6. Jika anda ingin mencetak pada file dan bukan pada printer, klik pilihan Print to File. Ini digunakan jika pada saat anda mencetak anda tidak memiliki printer, dan akan mencetaknya pada komputer lain yang memiliki printer namun tidak memiliki program Ms Excel.
7. Klik OK jika semua telah selesai.

Setting pencetakan

Terkadang anda perlu melakukan setting sebelum mencetak laporan sehingga hasil cetakan sesuai dengan yang anda harapkan. Setting ini meliputi margin, ukuran dan orientasi kertas, header dan footer, skala, kualitas pencetakan, dan sebagainya.
Pilih menu FileàPrint, lalu klik tombol Preview, kemudian klik tombol Setup. Akan muncul window Page Setup seperti pada gambar di sebelah.
1. Tentukan orientasi kertas apakah memanjang (Landscape) atau meninggi (Potrait).
2. Tentukan skala pencetakan dalam persentasi dari ukuran normal ( Adjust to … %), atau dikecilkan sebesar panjang dan lebar kertas (Fit to … pages wide by … tall).
3. Tentukan ukuran kertas (Paper size)
4. Tentukan Kualitas pencetakan (Print quality)
Untuk men-setting margin, pilih tab Margin pada window Page Setup.
1. Tentukan margin atas (Top)
2. Tentukan margin kiri (Left)
3. Tentukan margin bawah (Bottom)
4. Tentukan margin kanan (Right)
5. Tentukan margin header (Header)
6. Tentukan margin footer (Footer)
7. Tentukan posisi worksheet pada kertas apakah berada di tengah kertas secara horizontal (Horizontally), atau secara vertikal (Vertically).
Untuk men-setting header dan footer, pilih tab Header/Footer pada window Page Setup.
1. Tentukan text header yang akan ditampilkan pada header halaman, atau klik tombol Custom Header untuk header yang anda kehendaki
2. Tentukan text footer yang akan ditampilkan pada header halaman, atau klik tombol Custom Footer untuk footer yang anda kehendaki
Untuk menentukan hal-hal lain pada pencetakan, pilih tab Sheet pada window Page Setup.
1. Tentukan setting pencetakan apakah grid disertakan pada pencetakan (Gridlines), apakah pencetakannya hitam-putih (Black and White), apakah kualitas pencetakan hanya berupa draft (Draft quality), dan apakah anda akan menyertakan nama-nama baris dan kolom pada pencetakan (Row and columns headings).
2. Tentukan arah pencetakan jika worksheet anda melebihi ukuran kertas, apakah kebawah lalu ke samping (Down, then over) atau kesamping lalu ke bawah (Over, then down).

Formula

Formula atau rumus digunakan untuk melakukan perhitungan pada worksheet. Ada banyak formula yang terlah tersedia pada Ms Excel yagn meliputi rumus-rumus aritmetik, keuangan, scienctific, logika, dan sebagainya. Berikut ini kita akan membahas beberapa formula yang umum digunakan dalam worksheet.

Fungsi SUM()

Digunakan untuk menjumlahkan angka-angka pada range tertentu. Sebagai contoh, buka lagi file latihan sebelumnya (C:\My Documents\latihan1.xls).
Ketikkan baris-baris tambahan seperti gambar si samping, lalu ikuti langkah-langkah berikut:
1. Pada kolom setelah kolom TOTAL (B10), ketik kan =SUM(E4:E8), yang artinya jumlahkan isi sel-sel dari sel E4 hingga sel E8.
2. Tekan ENTER.
Anda dapat juga melakukan hal di atas tanpa pengetikan untuk mempermudah pekerjaan yaitu dengan:
1. mengetikkan tanda = pada kolom B10
2. mem-blok sel-sel pada range E4 hingga E8
3. tekan ENTER.

Fungsi AVERAGE().

Digunakan utuk membuat harga rata-rata dari suatu range.
1. Pada sel E13, ketikkan =AVERAGE(E4:E8) untuk membuat harga rata-rata dari sel E4 hingga E8.
2. Tekan ENTER.

Fungsi MAX().

Digunakan untuk mengeluarkan nilai maksimal dari suatu range.
1. Pada sel E11, ketikkan =MAX(E4:E8), untuk mengambil harga maksimal dari sel E4 hingga E8.
2. Tekan ENTER

Fungsi MIN().

Digunakan untuk mengeluarkan nilai maksimal dari suatu range.
1. Pada sel E12, ketikkan =MIN (E4:E8), untuk mengambil harga maksimal dari sel E4 hingga E8.
2. Tekan ENTER

Fungsi COUNT()

Digunakan untuk mengeluarkan nilai maksimal dari suatu range.
1. Pada sel E14, ketikkan =COUNT (E4:E8), untuk mengambil jumlah data pada sel E4 hingga E8.
2. Tekan ENTER

Latihan 4

Ketikkan dan format laporan tabel berikut ini , dan isikan semua sel yang mengandung formula.


Formula: STOCK AKHIR = STOCK AWAL + JUMLAH PEMBELIAN – JUMLAH PENJUALAN
1. Simpan dengan nama C:\My Documents\latihan4.xls
2. Keluar dari Ms Excel

Alamat Sel

Pada worksheet Excel setiap sel memiliki alamat (misalnya A20) untuk digunakan sebagai referensi pada formula. Ada beberapa macam alamat sel, yaitu:
1. Alamat Relatif: alamat sel yang selalu berubah, misalnya C4.
2. Alamat Absolut: alamat sel yang tidak akan berubah, misalnya $C$4.
3. Alamat Semi Absolut Baris, alamat sel yang barisnya tetap, misalnya C$4.
4. Alamat Semi Absolut Kolom, alamat sel yang kolomnya tetap, misalnya $C4.
Alamat-alamat sel yang absolut digunakan saat membuat formula yang mengambil referensi dari sel-sel tertentu sebagai data masukan. Perhatikan contoh berikut:
Contoh ini adalah contoh penghitungan harga barang dalam satuan dollar dan rupiah, dengan mengambil data kurs dollar terhadap rupiah. Untuk mencari harga dalam rupiah, kita dapat menggunakan formula HARGA * DOLLAR, yaitu =B4*B1. Namun jika kita tarik (AutoFill) untuk harga-harga pada baris selanjutnya, kita akan mendapatkan pesan error pada baris-baris selanjutnya. Ini terjadi karena kita menggunakan alamat relatif untuk data kurs satu dollar, yaitu alamat sel B1. Akibatnya untuk baris kedua, formulanya menjadi =B5*B2, dimana sel B2 bukanlah data untuk kurs dollar.
Agar tidak terjadi error, kita harus membuat sel kurs dollar menjadi absolut sehingga untuk baris-baris selanjutnya tetap menggunakan alamat sel B1. Untuk itu, kita harus membuat formula pada sel data kurs dollar menjadi absolut baris, yaitu B$1. Kita gunakan semi absolut baris karena kita ingin barisnya yang tetap. Jadi formula yang harus kita masukkan adalah =B$1 * B4.
Akibatnya worksheet kita akan terlihat seperti gambar di samping, dimana isi sel C6 adalah =B$1*B6.
Perhatikan juga isi sel-sel lain pada baris-baris lainnya.
TIPS:
1. Untuk membuat alamat sel absolut dapat digunakan tombol F4 sebanyak 1 kali.
2. Untuk membuat alamat sel semi absolut baris dapat digunakan tombol F4 sebanyak 2 kali.
3. Untuk membuat alamat sel semi absolut kolom dapat digunakan tombol F4 sebanyak 3 kali.

Latihan 5

Buat tabel berikut pada sebuah worksheet baru.

Formula:
1. Bunga harian = persentasi bunga harian * jumlah tabungan
2. Bunga bulanan = persentasi bunga bulanan * jumlah tabungan
3. Jumlah bunga = bunga harian + bunga bulanan
Catatan:

Anda harus membuat data bunga harian dan bunga bulanan menjadi alamat sel semi absolut baris pada formula bunga harian dan bulanan.

Fungsi IF()

Fungsi IF adalah formula untuk keperluan operasi logika yang akan mengevaluasi apakah suatu pernyataan matematis benar atau salah. Jika pernyataan benar, maka formula IF akan memberikan suatu nilai, dan jika salah akan memberikan nilai lain.
Format fungsi ini adalah
=IF(test_logika, nilai_benar, nilai_salah)
Perhatikan contoh pada gambar di samping.
Pada contoh ini, sel B2 akan berisi 10% jika sel A2 berisi angka yang lebih besar daripada 200000, dan akan berisi 0 jika kurang dari 200000.

Latihan 6

Buatlah daftar nilai sebagai berikut:


Formula:
Nilai akhir = (Nilai UTS + Nilai UAS + Nilai Praktek)/3 (Tips: Gunakan fungsi AVERAGE().)
Status = jika nilai akhir > maka status = ”LULUS” dan jika tidak maka status = “GAGAL”

Fungsi VLOOKUP() dan HLOOKUP()

Fungsi ini digunakan untuk melakukan pembacaan data dari suatu tabel ke tabel lain. Hal ini dilakukan agar tidak melakukan pengetikan data yang sama secara berulang-ulang. Fungsi VLOOKUP() digunakan untuk membaca data tabel dalam arah vertikal (data yang dibaca berada dalam bentuk baris-baris), sedangkan fungsi HLOOKUP() dalam arah horisontal (data yang dibaca berada dalam bentuk kolom-kolom).
Format dari fungsi ini adalah:
=VLOOKUP(kolom_yang_dibandingkan, tabel_data, nomor_kolom_tabel_data)
· kolom_yang_dibandingkan adalah kolom pada tabel utama yang akan dibandingkan dengan tabel data pembanding.
· tabel_data adalah tabel pembanding yang berisi data-data pembanding, biasanya dalam bentuk range yang semi absolut baris.
· nomor_kolom_tabel_data adalah nomor kolom pada tabel pemanding yang isinya akan ditampilkan pada tabel utama.
dan
=HLOOKUP(baris_yang_dibandingkan, tabel_data, nomor_baris _tabel_data)
· baris_yang_dibandingkan adalah baris pada tabel utama yang akan dibandingkan dengan tabel data pembanding.
· tabel_data adalah tabel pembanding yang berisi data-data pembanding, biasanya dalam bentuk range yang semi absolut kolom.
· nomor_kolom_tabel_data adalah nomor baris pada tabel pemanding yang isinya akan ditampilkan pada tabel utama.

Latihan 7

Untuk lebih jelasnya perhatikan dan praktekkan contoh berikut: Anda diminta untuk membuat laporan gaji karyawan sebuah perusahaan. Setiap karyawan akan mendapatkan gaji pokok yang besarnya teragnutng dari golongannya. Bonus akan diberikan sesuai dengan golongan dan jam kerjanya setiap bulan. Di samping itu terdapat tunjangan istri dan anak untuk karyawan yang telah menikah yang besarnya juga tergantung dari golongan karyawan tersebut. Lalu tentukan gaji bersih yang dapat diterima karyawan, yaitu total gaji pokok ditambah bonus dan tunjagan-tunjangan yang ada. Berikut ini gambar tabel untk laporan yang dimaksudkan di atas.


Pada contoh di atas pertama-tama kita harus mengisikan gaji pokok pada daftar gaji karyawan berdasarkan data tabel pembanding. Isi dari gaji pokok ini tergantung dari golongan karyawan yang bersangkutan. Jika golongan 2 gaji pokoknya adalah 300000, jika golongan 5 gaji pokoknya adalah 600000, demikian seterusnya.
Karena kita melihat tabel pembanding dalam arah vertikal (data pembanding tersusun dalam bentuk baris-baris), maka kita harus menggunakan fungsi VLOOKUP(). Kolom yang akan kita bandingkan pada abel daftar gaji adalah kolom GOL (C11:C17) , sementara tabel pembanding yang kita gunakan adalah tabel pembanding yang berisi data golongan dan gaji pokok, yaitu A$3:B$7. (tanda semi absolut baris kita gunakan karena kita ingin range tabel yang semi absolut baris). Kolom yang akan kita ambil dari tabel pembanding ini adalah kolom gaji pokok, yaitu kolom kedua dari tabel pembanding. Karena itu, isikan pada sel G11 =VLOOKUP(C11:C17, A$3:B$7, 2). Kopikan untuk baris-baris selanjutnya.
Untuk kolom BONUS, kita harus menggunakan gabungan dua buah fungsi yaitu VLOOKUP() dan IF(). Pertama kita harus membandingkan jika JAM KERJA lebih dari 50 jam , maka karyawan mendapatkan bonus yang tergantung dari golongannya, sehingga kita harus membandingkan kolom GOL (C11:C17) dengan kolom ketiga dari tabel pembanding. Namun jika tidak lebih dari 50, karyawan tidak akan mendapatkan bonus. Jadi formula untuk sel H11 harus berisi =IF(jam kerja > 50, cari nilai bonus berdasarkan golongan, 0). Dalam formula Excel dapat dituliskan sebagai berikut:
=IF(D11>50,VLOOKUP(C11:C17, A$3:C$7, 3), 0).
Kopikan formula ini untuk baris-baris selanjutnya.
Kolom selanjutnya adalah kolom TUNJANGAN ISTRI. Di sini kita juga harus menggunakan gabungan dua buah fungsi yaitu VLOOKUP() dan IF(). Pertama kita harus mengecek apakah karyawan yang bersangkutan telah MENIKAH atau BELUM. Jika telah menikah, maka ada tambahan gaji berupa TUNJANGAN ISTRI yang jumlahnya tergantung golongannya. Jika belum menikah, maka dia tidak mendapatkan tunjangan istri. Formula untuk keadaan di atas adalah =IF(status=”Menikah”, cari tunjangan istri berdasarkan golongan, 0).
Dalam formula Excel, hal di atas dapat kita tuliskan (pada sel I11) sebagai berikut:
=IF(E11=”Menikah”, VLOOKUP(C11:C17, A$3:D$3, 4), 0)
Untuk kolom TUNJANGAN ANAK, kasusnya hampir mirip, namun kita gunakan tabel pembanding dengan range A$3:E$3 dan mengambil kolom ke lima (TUNJANGAN ANAK). Jadi ketikkan pada sel G11:
=IF(E11=”Menikah”, VLOOKUP(C11:C17, A$3:E$3, 5), 0)
Kolom terakhir, yaitu GAJI BERSIH, adalah penjumlahan gaji pokok, bonus, tunjangan istri, dan tunjangan anak. Setelah diisikan formulanya dan dilakukan pemformatan angka, maka tabel di atas akan terlihat seperti berikut ini:


Latihan 8

Gunakan fungsi HLOOKUP() untuk membuat laporan hasil ujian sebagai berikut:


Ketentuan:
1. Gaji harian diperoleh dari tabel pembanding berdasarkan golongan. (Tips: gunakan fungsi HLOOKUP() ).
2. Gaji bulanan adalah gaji harian dikali jumlah hadir (dalam sebulan)

Grafik

Grafik merupakan sarana penyampaian data yang paling gampang dibaca dan dianalisa. Ms Excel menyediakan fasilitas untuk membuat grafik dari data-data yang tersedia. Grafik yang dapat dihasilkan sangat bermacam ragam, mulai dari grafik garis, bar, pie slice, 3D, dan sebagainya. Untuk membuat grafik dalam Excel juga tidak sulit, karena ada Chart Wizard yang akan menolong anda dalam membuat grafik yang sulit sekalipun.
Ketikkan data-data berikut ini pada sebuah worksheet baru:


Kemudian kita akna membuat grafik untuk data di atas dengan langkah-langkah sebagai berikut:
1. Blok tabel data di atas
2. Klik Chart Wizard pada toolbar standard.
3. Tentukan jenis grafik yang anda kehendaki (Step 1 of 4), misalnya pilih jenis Column 3D, lalu tekan Next.
4. Tentukan cara penampilan grafik anda apakah berdasarkan kolom atau baris. Tentukan hal ini pada pilihan Series in: Rows atau Colums (Step 2 of 4). Pilih Rows lalu tekan Next.
5. Tentukan judul grafik (Chart Title), judul axis X, Y, dan Z jika ada (Step 3 of 4) lalu tekan Next.
6. Tentukan tujuan penggambaran grafik, apakah pada worksheet baru (As New sheet) atau sebagai object baru pada worksheet yang sedang aktif sekarang (As object in…) (Step 4 of 4). Pilih lalu tekan Next.
7. Selesai, hasilnya adalah sebagai berikut:

Memformat elemen grafik

Sebuah grafik Excel terdiri dari banyak elemen, seperti yang terlihat pada gambar di bawah ini:


Untuk memformat setiap elemen grafik yang terlihat, double-klik elemen itu, sehingga muncul window format. Di sini kita dapat melakukan setting seperti:
1. warna dan tampilannya (Pattern)
2. garis pinggirnya (Border)
3. label data
4. skala (Scale)
5. jenis huruf (Font)
6. format angka (Number)
7. tampilan text (Alignment)

Latihan 8

Ketikkan data-data berikut pada worksheet baru.


Kemudian buat grafik seperti berikut berdasarkan data-data di atas.


Hal-hal yang perlu dilakukan agar tampilan grafik seperti di atas:
1. Blok data lalu klik tombol Chart Wizard
2. Pilih jenis chart Line
3. Format font Category Axis, Value Axis, dan Legend menjadi Arial 8 point
4. Format font Title menjadi Arial 12 point
5. Format font Category Axis Title dan Value Axis Title menjadi Arial 10 point
6. Format Series sehingga memiliki Data Label (Data LabelàShow Value)
7. Format Font Data Label menjadi Arial 8 point
8. Format warna Plot Area menjadi gradasi hitam dan putih.

source: http://labkom.blogdetik.com/2009/01/21/modul-ms-excel-97/

Kamis, 26 April 2012

Mari Berhijab

Pernah ga sobat denger pertanyaan

“ngapain sih pake jilbab, masih muda

khan jadi ga keliatan cantiknya?”, atau

pernyataan “aku mau pake tapi jika

dah nikah nanti”, atau kalimat

sejenisnya yang menyatakan

keberatan berjilbab. Mungkin kalimat

di atas tidak menimpa diri kita, tetapi

temen deket atau kerabat. Semua

tahu dan sepakat, tidak ada

pertentangan bahwa berjilbab itu

wajib bagi wanita balig, yang mengaku

muslimah tidak ada alasan untuk

mencari-cari alibi menghindari

menutup aurat.


Allah Azza Wa Jalla yang menciptakan

manusia, paling Mengetahui perkara

yang mendatangkan maslahat

(perkara yang membawa pada

kebaikan) dibanding manusia itu

sendiri. Allah Maha Mengetahui, Maha

Kasih Sayang dan Maha Bijaksana

kepada hamba-hamba-Nya.

“Apakah Allah yang menciptakan itu

tidak mengetahui (yang kamu lahirkan

dan kamu rahasiakan), dan Dia Maha

Halus dan Maha Mengetahui?” (Qs Al

Mulk 14).


Menutup aurat itu sendiri juga

mengandung banyak kebaikan bagi

wanita, hanya saja banyak yang

menyelewengkan perintah ini

sehingga muncul aneka ragam alasan

untuk menolaknya. Masih segar dalam

ingatan masyarakat, tahun 90an

banyak statement sesat untuk

menolak berjilbab. Pelajar akan

dikatakan sulit mencari kerja jika

belajar pada sekolah yang

mewajibkan dirinya memakai jilbab.


Imbas dari rumor sesat ini akhirnya

berkembang pada khalayak luas

bahwasanya jilbab identik dengan

kekolotan dan kemunduran. Kini kita

hidup di era 2000an, era manusia

semakin cerdas dan kritis menilai

segala sesuatu, termasuk mengenai

jilbab, muncul kesadaran masyarakat

Indonesia untuk mengenakan jilbab.

Jika suatu waktu nanti akan ada yang

bertanya pada anda “Hei cantik

ngapain berjilbab?” jawabnya cukup

sederhana:


1. Sebagai bentuk ketaatan pada Allah

Sang Pemberi hidayah, sebagaimana

tercantum dalam surat An-Nur 31 dan

Al-Ahzab 59.


2. Sebagai bentuk ketaatan pada apa

yang dicontohkan Rasulullah dan istri-

istrinya dalam menjaga diri agar

terhindar dari fitnah, sebagaimana

yang termaktub dalam surat Al-Ahzab

53.


3. Sebagai identitas pembeda antara

muslimah dan non muslimah. Jika

wanita mengenakan jilbab, maka

semua manusia akan tahu jika dia

muslimah, tetapi jika wanita ditempat

umum tidak menutup aurat, agama

dan keimanannya masih diragukan.


4. Sebagai pelindung diri dari laki-laki

tidak baik. Jika wanita itu mengenakan

jilbab, sangat kecil kemungkinan untuk

diganggu atau dilecehkan, berbeda

dengan wanita yang mengenakan

pakaian seksi. Ketika wanita

mengenakan pakaian seksi ditempat

umum, ada sepucuk pesan dibalik

pesonanya, yang kurang lebih begini

“hei cowok, gangguin kita dunk!” ^_^


5. Sebagai pelindung kulit. Ketika siang

hari mengharuskan wanita beraktivitas

diluar rumah, sangat rentan kulitnya

cepat rusak dan terlihat tua sebelum

waktunya, padahal kulit sehat

merupakan dambaan setiap wanita,

pemakaian jilbab secara benar akan

melindungi dan menjaga kulit wanita

dari ganasnya sinar matahari. Bukan

hanya matahari, sebagian manusia

yang menempati bumi juga

mengalami musim dingin di banyak

negara. Bagi wanita, jilbab merupakan

pelindung ampuh dari dinginnya

cuaca.


6. Sebagai pengontrol. Jika wanita

tidak berjilbab, cenderung merasa

bebas dan tidak terikat dengan

pakaian yang dikenakannya. Berbeda

dengan wanita berjilbab, jika ingin

berbuat sesuatu yang melanggar

norma-norma agama, maka ia akan

berpikir matang, jilbab menjadi alat

pengontrol dan pengingatnya.


So, cantik, ngapain ga berjilbab jika

sudah tahu banyak manfaat dari

berjilbab? ^_^ (sumber: voa-

islam.com)


Published with Blogger-droid v2.0.4

Mari Berhijab

Pernah ga sobat denger pertanyaan

“ngapain sih pake jilbab, masih muda

khan jadi ga keliatan cantiknya?”, atau

pernyataan “aku mau pake tapi jika

dah nikah nanti”, atau kalimat

sejenisnya yang menyatakan

keberatan berjilbab. Mungkin kalimat

di atas tidak menimpa diri kita, tetapi

temen deket atau kerabat. Semua

tahu dan sepakat, tidak ada

pertentangan bahwa berjilbab itu

wajib bagi wanita balig, yang mengaku

muslimah tidak ada alasan untuk

mencari-cari alibi menghindari

menutup aurat.


Allah Azza Wa Jalla yang menciptakan

manusia, paling Mengetahui perkara

yang mendatangkan maslahat

(perkara yang membawa pada

kebaikan) dibanding manusia itu

sendiri. Allah Maha Mengetahui, Maha

Kasih Sayang dan Maha Bijaksana

kepada hamba-hamba-Nya.

“Apakah Allah yang menciptakan itu

tidak mengetahui (yang kamu lahirkan

dan kamu rahasiakan), dan Dia Maha

Halus dan Maha Mengetahui?” (Qs Al

Mulk 14).


Menutup aurat itu sendiri juga

mengandung banyak kebaikan bagi

wanita, hanya saja banyak yang

menyelewengkan perintah ini

sehingga muncul aneka ragam alasan

untuk menolaknya. Masih segar dalam

ingatan masyarakat, tahun 90an

banyak statement sesat untuk

menolak berjilbab. Pelajar akan

dikatakan sulit mencari kerja jika

belajar pada sekolah yang

mewajibkan dirinya memakai jilbab.


Imbas dari rumor sesat ini akhirnya

berkembang pada khalayak luas

bahwasanya jilbab identik dengan

kekolotan dan kemunduran. Kini kita

hidup di era 2000an, era manusia

semakin cerdas dan kritis menilai

segala sesuatu, termasuk mengenai

jilbab, muncul kesadaran masyarakat

Indonesia untuk mengenakan jilbab.

Jika suatu waktu nanti akan ada yang

bertanya pada anda “Hei cantik

ngapain berjilbab?” jawabnya cukup

sederhana:


1. Sebagai bentuk ketaatan pada Allah

Sang Pemberi hidayah, sebagaimana

tercantum dalam surat An-Nur 31 dan

Al-Ahzab 59.


2. Sebagai bentuk ketaatan pada apa

yang dicontohkan Rasulullah dan istri-

istrinya dalam menjaga diri agar

terhindar dari fitnah, sebagaimana

yang termaktub dalam surat Al-Ahzab

53.


3. Sebagai identitas pembeda antara

muslimah dan non muslimah. Jika

wanita mengenakan jilbab, maka

semua manusia akan tahu jika dia

muslimah, tetapi jika wanita ditempat

umum tidak menutup aurat, agama

dan keimanannya masih diragukan.


4. Sebagai pelindung diri dari laki-laki

tidak baik. Jika wanita itu mengenakan

jilbab, sangat kecil kemungkinan untuk

diganggu atau dilecehkan, berbeda

dengan wanita yang mengenakan

pakaian seksi. Ketika wanita

mengenakan pakaian seksi ditempat

umum, ada sepucuk pesan dibalik

pesonanya, yang kurang lebih begini

“hei cowok, gangguin kita dunk!” ^_^


5. Sebagai pelindung kulit. Ketika siang

hari mengharuskan wanita beraktivitas

diluar rumah, sangat rentan kulitnya

cepat rusak dan terlihat tua sebelum

waktunya, padahal kulit sehat

merupakan dambaan setiap wanita,

pemakaian jilbab secara benar akan

melindungi dan menjaga kulit wanita

dari ganasnya sinar matahari. Bukan

hanya matahari, sebagian manusia

yang menempati bumi juga

mengalami musim dingin di banyak

negara. Bagi wanita, jilbab merupakan

pelindung ampuh dari dinginnya

cuaca.


6. Sebagai pengontrol. Jika wanita

tidak berjilbab, cenderung merasa

bebas dan tidak terikat dengan

pakaian yang dikenakannya. Berbeda

dengan wanita berjilbab, jika ingin

berbuat sesuatu yang melanggar

norma-norma agama, maka ia akan

berpikir matang, jilbab menjadi alat

pengontrol dan pengingatnya.


So, cantik, ngapain ga berjilbab jika

sudah tahu banyak manfaat dari

berjilbab? ^_^ (sumber: voa-

islam.com)


Published with Blogger-droid v2.0.4

Senin, 23 April 2012

Praktikum SBD 9c

/*****************************************************************
    soal 9
******************************************************************/

--1 tampilkan namakaryawan dalam huruf besar, EmployeeSalary dalam satuan juta dengan format 2 angka di blkg koma tambahkan kata ' million' di blkanngya , alamat karyawan dalam huruf kecil, EmployeePhone dimana EmployeeSalary di < 1500000, dan alamat karyawan mengandung huruf a dan diakhiri oleh angka 45
create view v1 as(
    select upper(EmployeeName) as [Employee's Name] ,cast(cast(cast(EmployeeSalary as numeric)/1000000 as numeric(3,2)) as varchar(20))+' million' as  [Salary],lower(EmployeeAddress) as [Address],EmployeePhone
    from MsEmployee
    where EmployeeAddress like '%a%45'
    and EmployeeSalary < 1500000
)
select * from v1
drop view v1

--2
create view v2 as(
    select replace(EmployeeCode,'KK','Kyuch Employee ') as [Employee Code],EmployeeName,EmployeePhone
    from MsEmployee
    where right(EmployeeAddress,1)%2=0
    and EmployeeSalary between 1000000 and 1500000
)
select * from v2
drop view v2

--3  tampilkan kodetransaksi, inisial karyawan yang di dapat dari huruf pertama dari nama pertama karyawan dan huruf pertama dari nama terakhir karyawan dalam huruf besar, inisial pelanggan yang didapat dari dua huruf pertama dari depan dalam huruf besar, renttime dengan format dd/mm/yyyy dimana huruf terakhir dari nama pertama karyawan berakhiran huruf i, nama kedua dari karyawan berkahiran huruf i
create view v3 as(
    select TransactionCode,upper(left(EmployeeName,1)+substring(employeename,charindex(' ',employeename)+1,1)) as [Employee Initial],upper(substring(CustomerName,1,2)) as [Customer Initial],convert(varchar(20),RentTime,103) as 'Rent Date'
    from RentalHeader th,MsCustomer mp, MsEmployee mk
    where th.EmployeeCode=mk.EmployeeCode and th.CustomerCode=mp.CustomerCode
    and EmployeeName like '%i %i'
)
select * from v3
drop view v3

--4 tampilkan EmployeeCode, namakaryawan, nomor rumah dari alamat karyawan dimana karyawan tersebut pernah melakukan transaksi pada bulan januari dan nomor alamat karyawan habis dibagi 4 dan namakaryawan di awali oleh huruf V-Z
create view v4 as(
    select EmployeeCode,EmployeeName,reverse(left(reverse(EmployeeAddress),charindex('.',reverse(EmployeeAddress))-1)) as [Address Number]
    from MsEmployee
    where EmployeeCode in(
        select distinct EmployeeCode from RentalHeader
        where datename(month,RentTime)='January'
    )
    and cast(reverse(left(reverse(EmployeeAddress),charindex('.',reverse(EmployeeAddress))-1))as int)%4=0
    and EmployeeName like '[V-Z]%'
)
select * from v4
drop view v4

--5 tampilkan kodetransaksi,CustomerName,LicensePlate,CarName,biayatransaksi dimana transaksi peminjaman mobil dengan biaya tertinggi pada bulan january
create view v5 as(
    select th.TransactionCode,CustomerName,td.LicensePlate,CarName,max(biaya)as [Highest Transaction in January] from (
        select ceiling(cast(datediff(minute,RentTime,ReturnTime) as numeric)/60)*PricePerHour as biaya
        from RentalHeader th, RentalDetail td,MsCar mm, CarDetail mCarName
        where th.TransactionCode=td.TransactionCode and mm.LicensePlate=td.LicensePlate and mCarName.CarCode=mm.CarCode
        and datename(month,RentTime)='January'
    ) as a, MsCustomer mp,RentalHeader th, RentalDetail td,MsCar mm, CarDetail mCarName
    where th.CustomerCode=mp.CustomerCode and th.TransactionCode=td.TransactionCode and mm.LicensePlate=td.LicensePlate and mCarName.CarCode=mm.CarCode
    group by th.TransactionCode,CustomerName,RentTime,ReturnTime,PricePerHour,td.LicensePlate,CarName
    having max(biaya)=ceiling(cast(datediff(minute,RentTime,ReturnTime) as numeric)/60)*PricePerHour
)
select * from v5
drop view v5

--6 tampilkan LicensePlate, namamobil di dapat dari kata setelah spasi pertama, biaya perjam dengan menambahkan kata 'Rp. ' di depannya dan kata '.00' di belakangnya dimana mobil tersebut tidak pernah disewa dan CarName mobil adalah honda
create view v6 as(
    select m.LicensePlate,substring(CarName,charindex(' ',CarName)+1,len(CarName)) as [Car Type],'Rp. '+cast(PricePerHour as varchar(20))+'.00' as [Price Per Hour]
    from MsCar m,CarDetail mm
    where LicensePlate not in(
        select distinct LicensePlate from RentalDetail
    )
    and m.CarCode=mm.CarCode
    and CarName like 'Honda%'
)
select * from v6
drop view v6

--7 tampilkan LicensePlate,CarName,PricePerHour,kapasitas bensin yang didapat dari penjumlahan tiap digit dari LicensePlate * 10 dimana CarName mengandung huruf kedua  dari akhir
create view v7 as(
    select LicensePlate,CarName,PricePerHour, cast(((cast(substring(LicensePlate,2,1)as int)+cast(substring(LicensePlate,3,1)as int)+cast(substring(LicensePlate,4,1)as int)+cast(substring(LicensePlate,5,1)as int))*10) as varchar(20))+' liter' as [Fuel Capacity]
    from MsCar mm,CarDetail mCarName
    where mCarName.CarCode=mm.CarCode
    and CarName like '%'+substring(licenseplate,len(licenseplate)-1,1)+'%'
)
select * from v7
drop view v7

--8 tampilkan EmployeeCode,EmployeeName,EmployeeSalary,persentase komisi yang di dapatkan dari jumlah mobil yang dipinjam oleh pelanggan dan di layani oleh karyawan tersebut, komisi dalam ribuan di dapat dari persentase komisi*EmployeeSalary/100 dimana persentase komisi >2 dan komisi dalam satuan ribuan adalah bilangan ganjil
create view v8 as(
    select mk.EmployeeCode,EmployeeName,'Rp. '+cast(EmployeeSalary as varchar(20))+',00' as [Employee Salary],cast(count(LicensePlate) as varchar(20))+' %' as [Bonus Percentage],cast((cast((count(LicensePlate)*EmployeeSalary/100) as int)/1000)as varchar(20))+' thousand Rupiah' as [Bonus]
    from MsEmployee mk,RentalHeader th,RentalDetail td
    where mk.EmployeeCode=th.EmployeeCode and td.TransactionCode=th.TransactionCode
    group by mk.EmployeeCode,EmployeeName,EmployeeSalary
    having count(LicensePlate) >2 and (cast((count(LicensePlate)*EmployeeSalary/100) as int)/1000)%2=1
)
select * from v8
drop view v8

--9 tampilkan LicensePlate,namamobil di dapat dari kata sesudah spasi , jumlah peminjaman di dapat dari jumlah mobil yang pernah di sewa selama bulan januari dimana CarName mobil bukan suzuki dan digit pertama dari LicensePlate tidak sama dengan jumlah peminjaman
create view v9 as(
    select mm.LicensePlate,substring(CarName,charindex(' ',CarName)+1,len(CarName)) as [Car Name],cast(count(mm.LicensePlate)as varchar(20))+' time(s)' as [Rent Amount]
    from RentalDetail td,CarDetail mCarName,MsCar mm, RentalHeader th
    where mm.LicensePlate=td.LicensePlate and mCarName.CarCode=mm.CarCode and th.TransactionCode=td.TransactionCode
    and CarName not like 'Suzuki%'
    and datename(month,RentTime)='January'
    group by mm.LicensePlate,CarName
    having count(mm.LicensePlate)!=cast(substring(mm.LicensePlate,2,1)as int)
)
select * from v9
drop view v9


--10 tampilkan nama keluarga pelanggan yang di dapat dari kata terakhir, durasi peminjaman dalam hari, RentTime,ReturnTime dimana durasi peminjaman lebih dari 1 hari dan namapelanggan terdiri dari 2 kata dan menit pengembalian mobil lebih besar dari 30
create view v10 as(
    select reverse(left(reverse(CustomerName),charindex(' ',reverse(CustomerName))-1)) as [Last Name],cast(cast((ceiling(cast(datediff(minute,RentTime,ReturnTime) as numeric)/60)/24)as int) as varchar(20))+' Days' as [Duration],RentTime,ReturnTime
    from RentalHeader th,RentalDetail td,MsCustomer mp,MsEmployee mk
    where th.TransactionCode=td.TransactionCode and mp.CustomerCode=th.CustomerCode and mk.EmployeeCode=th.EmployeeCode
    and cast((ceiling(cast(datediff(minute,RentTime,ReturnTime) as numeric)/60)/24)as int) > 1
    and CustomerName like '% %'
    and CustomerName not like '% % %'
    and datename(minute,ReturnTime)>30
)
select * from v10
drop view v10

Praktikum SBD 8c


1.            Insertlah data di bawah ini:

MsEmployee
EmployeeCode
EmployeeName
EmployeeAddress
EmployeePhone
EmployeeSalary
KK001
Wejet Jetjet
Jl. Piggy no.8
0818056457
1300000
KK002
Bobby Aja
Jl. Malioboro no.4
0819964780
1200000
KK003
Sugiri Giri
Jl. suka suka no.958
08155555555
1700000
KK004
Yandi Acek
Jl. Bahagia no.456
08131145622
1800000
KK005
Rheza Aggi
Jl. Kemakmuran no.10
0816523781
1100000
KK006
Devina Depe
Jl. jalan no.45
0816523890
1300000
KK007
Amalia Ameng
Jl. Merdeka no.1945
0823564780
1500000
KK008
Dewi Kyuk
Jl. Hepi no.542
0856964780
1800000
KK009
Ivan Darma
Jl. Kambing no.31
0819999980
1900000
KK010
Fredy Kupred
Jl. Kerbau no.99
0819945680
1750000

MsCustomer
CustomerCode
CustomerName
CustomerAddress
CustomerPhone
KP001
Daniel Suipuit Suex
Jl. Sutomo no.57
081899656745
KP002
Ryan Iyan
Jl. Sutopo no.32
081199652023
KP003
Dion Dewaman
Jl. Kucing no.123
081356789821
KP004
Nopi Enpe
Jl. Lemot Bgt no.33
081567789834
KP005
Robertos Eres
Jl. Damai Banget no.128
081914678913

CarDetail
CarCode
CarName
PricePerHour
KM001
Honda Jazz
26000
KM002
Toyota Avanza
23000
KM003
Toyota Yaris
25000
KM004
Honda Freed
30000
KM005
Toyota Alphard
34000
KM006
Suzuki Swift
24000
KM007
Honda City
27000
KM008
Toyota Innova
28000
KM009
Suzuki APV
27000
KM010
Toyota Fortuner
30000
KM011
Toyota Rush
28000
KM012
Honda CR-V
31000
KM013
Honda Civic
28000

MsCar
LicensePlate
CarCode
B1111DK
KM006
B1234XX
KM001
B1285WE
KM002
B1763CV
KM011
B2548PQ
KM010
B4444WD
KM007
B5287VQ
KM013
B5555GK
KM008
B6666RP
KM009
B7777GG
KM003
B8888MB
KM010
B8889EW
KM005
B9101YY
KM002
B9342JK
KM004
B9654QW
KM012

RentalHeader
TransactionCode
EmployeeCode
CustomerCode
RentTime
TR001
KK002
KP001
2010-01-20 15:00:00.000
TR002
KK001
KP002
2010-01-21 13:31:00.000
TR003
KK003
KP003
2010-01-21 11:50:00.000
TR004
KK005
KP004
2010-01-23 16:10:00.000
TR005
KK004
KP005
2010-01-24 12:30:00.000

RentalDetail
TransactionCode
LicensePlate
ReturnTime
TR001
B1234XX
2010-01-22 16:42:00.000
TR001
B7777GG
2010-01-25 10:54:00.000
TR001
B9101YY
2010-01-23 18:16:00.000
TR001
B9342JK
2010-01-25 13:36:00.000
TR002
B1111DK
2010-01-22 10:45:00.000
TR002
B8889EW
2010-01-22 10:45:00.000
TR003
B1763CV
2010-01-23 14:08:00.000
TR003
B4444WD
2010-01-23 13:38:00.000
TR004
B1285WE
2010-01-25 16:33:00.000
TR004
B2548PQ
2010-01-25 11:03:00.000
TR004
B8888MB
2010-01-25 16:53:00.000
TR005
B5555GK
2010-01-25 13:22:00.000
TR005
B8889EW
2010-01-25 11:18:00.000

2.            Update CustomerName menjadi Ryan Jombang dimana CustomerName adalah Ryan Iyan
 (update)


3.            Update EmployeeSalary, tambahkan sebesar 50% dari gaji sebelumnya dimana digit terakhir dari EmployeeCode merupakan bilangan ganjil
(update,right)

4.            Update PricePerHour menjadi 24000 dimana LicensePlate adalah B9101YY
(update)


5.            Hapuslah data dari tabel CarDetail dimana CarName dari mobil adalah ‘Toyota’ dan CarName diakhiri dengan huruf ‘a’.
(delete,like)


6.            Hapuslah data dari tabel MsCar dimana hasil perkalian dari setiap digit LicensePlate * 10 lebih besar dari PricePerHour dan panjang karakter dari nama mobil yang di dapat dari kata setelah spasi pertama lebih besar dari 7.
(delete,cast,substring,len,charindex)


7.            Tambahkan kolom status pada tabel MsCar dan ubahlah status menjadi ‘Booked’ jika PricePerHour di antara 25000 sampai dengan 30000 dan ubahlan status menjadi ‘Available’ jika PricePerHour tidak di antara 25000 sampai dengan 30000.
(alter table,update,between)


8.            Tambahkan constraint pada tabel RentalHeader dimana 3 digit terakhir dari EmployeeCode harus angka dengan nama constraint ‘constraint’ data yang sudah ada tidak perlu di cek lagi, kemudian hapus constraint tersebut.
(alter table, isnumeric)


9.            Tambahkan constraint pada tabel MsEmployee dimana EmployeeAddress harus di awali dengan kata ‘Jl. ‘, lakukan pengecekan pada data yang sudah ada sebelumnya, kemudian hapus constraint tersebut.
(alter table,check,like)


10.        Hapuslah table RentalDetail(drop table) 


Jawab


/*****************************************************************
    soal 8
******************************************************************/
--1
insert into MsEmployee values('KK001','Wejet Jetjet','Jl. Piggy no.8','0818056457',1300000)
insert into MsEmployee values('KK002','Bobby Aja','Jl. Malioboro no.4','0819964780',1200000)
insert into MsEmployee values('KK003','Sugiri Giri','Jl. suka suka no.958','08155555555',1700000)
insert into MsEmployee values('KK004','Yandi Acek','Jl. Bahagia no.456','08131145622',1800000)
insert into MsEmployee values('KK005','Rheza Aggi','Jl. Kemakmuran no.10','0816523781',1100000)
insert into MsEmployee values('KK006','Devina Depe','Jl. jalan no.45','0816523890',1300000)
insert into MsEmployee values('KK007','Amalia Ameng','Jl. Merdeka no.1945','0823564780',1500000)
insert into MsEmployee values('KK008','Dewi Kyuk','Jl. Hepi no.542','0856964780',1800000)
insert into MsEmployee values('KK009','Ivan Darma','Jl. Kambing no.31','0819999980',1900000)
insert into MsEmployee values('KK010','Fredy Kupred','Jl. Kerbau no.99','0819945680',1750000)


insert into MsCustomer values('KP001','Daniel Suipuit Suex','Jl. Sutomo no.57','081899656745')
insert into MsCustomer values('KP002','Ryan Iyan','Jl. Sutopo no.32','081199652023')
insert into MsCustomer values('KP003','Dion Dewaman','Jl. Kucing no.123','081356789821')
insert into MsCustomer values('KP004','Nopi Enpe','Jl. Lemot Bgt no.33','081567789834')
insert into MsCustomer values('KP005','Robertos Eres','Jl. Damai Banget no.128','081914678913')



insert into CarDetail values('KM001','Honda Jazz',26000)
insert into CarDetail values('KM002','Toyota Avanza',23000)
insert into CarDetail values('KM003','Toyota Yaris',25000)
insert into CarDetail values('KM004','Honda Freed',30000)
insert into CarDetail values('KM005','Toyota Alphard',34000)
insert into CarDetail values('KM006','Suzuki Swift',24000)
insert into CarDetail values('KM007','Honda City',27000)
insert into CarDetail values('KM008','Toyota Innova',28000)
insert into CarDetail values('KM009','Suzuki APV',27000)
insert into CarDetail values('KM010','Toyota Fortuner',30000)
insert into CarDetail values('KM011','Toyota Rush',28000)
insert into CarDetail values('KM012','Honda CR-V',31000)
insert into CarDetail values('KM013','Honda Civic',28000)



insert into MsCar values('B1234XX','KM001')
insert into MsCar values('B9101YY','KM002')
insert into MsCar values('B7777GG','KM003')
insert into MsCar values('B9342JK','KM004')
insert into MsCar values('B8889EW','KM005')
insert into MsCar values('B1111DK','KM006')
insert into MsCar values('B4444WD','KM007')
insert into MsCar values('B5555GK','KM008')
insert into MsCar values('B6666RP','KM009')
insert into MsCar values('B8888MB','KM010')
insert into MsCar values('B1763CV','KM011')
insert into MsCar values('B9654QW','KM012')
insert into MsCar values('B5287VQ','KM013')
insert into MsCar values('B1285WE','KM002')
insert into MsCar values('B2548PQ','KM010')


insert into RentalHeader values('TR001','KK002','KP001','01/20/2010 15:00:00')
insert into RentalHeader values('TR002','KK001','KP002','01/21/2010 13:31:00')
insert into RentalHeader values('TR003','KK003','KP003','01/21/2010 11:50:00')
insert into RentalHeader values('TR004','KK005','KP004','01/23/2010 16:10:00')
insert into RentalHeader values('TR005','KK004','KP005','01/24/2010 12:30:00')


insert into RentalDetail values('TR001','B1234XX','01/22/2010 16:42:00')
insert into RentalDetail values('TR001','B9101YY','01/23/2010 18:16:00')
insert into RentalDetail values('TR001','B7777GG','01/25/2010 10:54:00')
insert into RentalDetail values('TR001','B9342JK','01/25/2010 13:36:00')
insert into RentalDetail values('TR002','B8889EW','01/22/2010 10:45:00')
insert into RentalDetail values('TR002','B1111DK','01/22/2010 10:45:00')

insert into RentalDetail values('TR003','B4444WD','01/23/2010 13:38:00')
insert into RentalDetail values('TR003','B1763CV','01/23/2010 14:08:00')

insert into RentalDetail values('TR004','B2548PQ','01/25/2010 11:03:00')
insert into RentalDetail values('TR004','B1285WE','01/25/2010 16:33:00')
insert into RentalDetail values('TR004','B8888MB','01/25/2010 16:53:00')

insert into RentalDetail values('TR005','B5555GK','01/25/2010 13:22:00')
insert into RentalDetail values('TR005','B8889EW','01/25/2010 11:18:00')

select * from MsEmployee
select * from MsCustomer
select * from CarDetail
select * from MsCar
select * from RentalHeader
select * from RentalDetail

--2 ubah nama pelanggan menjadi ryan jombang dimana namapelanggan Ryan Iyan
update MsCustomer set CustomerName='Ryan Jombang' where CustomerName='Ryan Iyan'
select * from MsCustomer

--3 tambahkan gaji karyawan sebesar 50% dimana digit terakhir dr kd karyawan merupakan bilangan ganjil
update MsEmployee set EmployeeSalary=(0.5*EmployeeSalary)+EmployeeSalary where right(EmployeeCode,1)%2=1
select * from MsEmployee

--4 ubahlah harga sewa mobil dengan no plat B9101YY menjadi 24000
update CarDetail set PricePerHour='24000' from MsCar m,CarDetail mm where m.CarCode=mm.CarCode and m.LicensePlate='B9101YY'
select * from CarDetail

--5 hapus data dari CarDetail dimana CarName dari mobil adalah toyota dan huruf terakhir dari CarName mobil adalah 'a'
delete from CarDetail where CarName like 'toyota%a'
select * from CarDetail

--6 hapus data dari MsCar dimana hasil perkalian dari LicensePlate mobil *10 > dari PricePerHour dan panjang karakter dari nama CarName mobil >7
delete MsCar from MsCar m join CarDetail mm on mm.CarCode=m.CarCode
where (cast(substring(LicensePlate,2,1) as int)*cast(substring(LicensePlate,3,1) as int)*cast(substring(LicensePlate,4,1) as int)*cast(substring(LicensePlate,5,1) as int))*10 > PricePerHour
and len(substring(CarName,charindex(' ',CarName)+1,len(CarName)))>7
select * from MsCar

--7 tambahkan column status pada MsCar dan ubah lah status menjadi 'Booked' dimana PricePerHour di antara 25000-30000 dan ubah lah status menjadi 'Available' dimana PricePerHour tidak di antara 25000-30000
alter table MsCar
add status varchar(20)
update MsCar set status='Booked' from MsCar m,CarDetail mm where m.CarCode=mm.CarCode and PricePerHour between 25000 and 30000
update MsCar set status='Avalable' from MsCar m,CarDetail mm where m.CarCode=mm.CarCode and PricePerHour  not between 25000 and 30000
select * from MsCar

--8 tambahkan constraint pada tabel RentalHeader dimana 3 digit terakhir dari EmployeeCode harus angka dengan nama constraint 'constraint' kemudian hapus constraint tersebut
alter table RentalHeader with nocheck
add constraint [constraint] check(isNumeric(right(EmployeeCode,3))=1)
alter table RentalHeader
drop constraint [constraint]
select * from RentalHeader

--9 tambahkan constraint pada tabel MsEmployee dimana EmployeeAddress harus di awali dengan kata 'Jl. ' dan data yang sudah ada harus di cek, kemudian hapus constraint tsb
alter table MsEmployee with check
add constraint [constraint1] check(EmployeeAddress like 'Jl. %')
alter table MsEmployee
drop constraint [constraint1]
select * from MsEmployee

--10 hapus lah table RentalDetail
drop table RentalDetail