2. PRAKTIKUM DECISION 1. Buka software VB 6.0 dan pada kotak new project pilih Standart EXE lalu klik open.
Gambar 2.1 Tampilan Awal VB.6.0
2. Ganti nama dan caption form1 dengan cara kilik form1 dan isikan pada jendela properties.
Gambar 2.2 Properties Pada Form1
3.
Selanjutnya dengan bantuan Toolbox ubahlah tampilan form menjadi seperti gambar 2.3.
Gambar 2.3 Desain Awal Formtransaksi
4.
Ganti nama dan caption seperti sebelumnya pada formtransaksi,tambahkan combonomor, pastikan caption sama dengan gambar dibawah karena caption akan digunakan untuk penggunaan source code nanti.
Gambar 2.4 Name dan Caption Pada Control Yang Digunakan
5.
Agar tampilan lebih menarik bisa diganti sesuai keinginan pada jendela propertis, untuk program ini tampilan dibuat menjadi seperti berikut.
Gambar 2.5 Tampilan Formtransaksi
6.
Klik 2 kali pada formtransaksi dan masukan source code berikut Private Sub Form_Load() 'Membuat tanggal pada texttgl dan memasukan item ke combolama Texttgl.Text = Date Combolama.AddItem "1" & " hari" Combolama.AddItem "2" & " hari" Combolama.AddItem "3" & " hari" Combolama.AddItem "4" & " hari" Combolama.AddItem "5" & " hari" Combolama.AddItem "6" & " hari" Combolama.AddItem "7" & " hari" End Sub
7.
Klik 2 kali pada optionstandart dan masukan source code berikut Private Sub Optionstandart_Click() Listtipe.Clear Listtipe.AddItem "tipe kamar yang dipilih standart room" Texttipe.Text = 100000 Combonomor.Clear Combonomor.AddItem "1" Combonomor.AddItem "2" Combonomor.AddItem "3" End Sub
8.
Klik 2 kali pada optionsuper dan masukan source code berikut Private Sub Optionsuper_Click() Listtipe.Clear Listtipe.AddItem "tipe kamar yang dipilih superior Room" Texttipe.Text = 200000 Combonomor.Clear Combonomor.AddItem "4" Combonomor.AddItem "5" Combonomor.AddItem "6" End Sub
9.
Klik 2 kali pada optiondeluxe dan masukan source code berikut Private Sub Optiondeluxe_Click() Listtipe.Clear Listtipe.AddItem "tipe kamar yang dipilih deluxe Room" Texttipe.Text = 300000 Combonomor.Clear Combonomor.AddItem "7" Combonomor.AddItem "8" Combonomor.AddItem "9" End Sub
10. Klik 2 kali pada optionkolam dan masukan source code berikut Private Sub Optionkolam_Click() Listfasilitas.Clear Listfasilitas.AddItem "anda memilih fasilitas kolam renang" Textfasilitas.Text = 20000 End Sub
11. Klik 2 kali pada optiongym dan masukan source code berikut Private Sub Optiongym_Click() Listfasilitas.Clear Listfasilitas.AddItem "Anda memilih fasilitas gym" Textfasilitas.Text = 30000 End Sub
12. Klik 2 kali pada optionkaraoke dan masukan source code berikut Private Sub Optionkaraoke_Click() Listfasilitas.Clear Listfasilitas.AddItem "Anda memilih Karaoke" Textfasilitas.Text = 50000 End Sub
13. Klik 2 kali pada combolama dan masukan source code berikut Private Sub Combolama_Click() 'membuat texttotal berisi hasil perkalian lama menginap dengan biaya kamar dan fasilitas dan discount bila ada Texttotal.Text = Val(Combolama.Text) * (Val(Texttipe.Text) + Val(Textfasilitas.Text)) Labelakhir.Caption = "Rp " & Textpajak.Text If Val(Combolama.Text) > 2 Then MsgBox "anda mendapat diskont 5%" Labelakhir.Caption = "Rp " & 95 / 100 * Textpajak.Text Else
End If End Sub
14. Klik 2 kali pada texttotal dan masukan source code berikut Private Sub Texttotal_Change() 'mengisi textpajak dengan 110 persen dari total biaya Textpajak.Text = 110 / 100 * Texttotal.Text End Sub
15. Klik 2 kali pada textkembali dan masukan source code berikut Private Sub Textbayar_Change() 'membuat text kembali berisikan dengan pengurangan dari uang dibayarkan dengan total biaya Textkembali.Text = "Rp " & Textbayar.Text - Textpajak.Text End Sub
yang
16. Langkah terakhir adalah uji program dan cek semua penamaan yang ada, pastikan code dan penamaan sama apabila debug benahi letak kesalahan debugnya. 17. Dan beginilah tampilan program saat berhasil dijalankan. Untuk kelanjutan program akan dibahas di praktikum selanjutnya.
Gambar 2.6 Tampilan Formtransaksi Saat Dijalankan
3. PRAKTIKUM LOOPING 1.
Buka program yang sudah dibuat pada saat praktikum decision.
2.
Selanjutnya munculkan control listview dengan cara klik menu project dan klik component. Kemudian cari ke bawah Microsoft windows common Controls 6.0 kemudian centang lantas klik ok.
Gambar 3.1 Memunculkan Control Listview
3.
Pada bagian Toolbox akan muncul tambahan ikon listview seperti berikut :
Gambar 3.2 Ikon Control Listview
4.
Klik listview dan buat listview seperti form dibawah.
Gambar 3.3 Listview Pada Formtransaksi
5.
Klik 2 kali pada combonomor dan masukan source code berikut
Private Sub Combonomor_click() 'Mencari nomor kamar yang sama dan memunculkan pesan bila nomor sudah ada Open "C:\hotel.dot" For Input As 1 Do Until EOF(1) Input #1, nomor If UCase(nomor) Like Combonomor.Text Then pesan = MsgBox("MAAF KAMAR SUDAH DIPESAN", vbInformation + vbOKOnly, "INFORMASI") Combonomor.SetFocus Close #1 Exit Sub Else End If Loop Close #1 End Sub
6.
Klik 2 kali pada cmdbayar dan masukan source code berikut yang merupakan code untuk membuat sebuah database dengan FILE IO yang akan dipakai untuk penyimpanan data pemesan.
Private Sub cmdbayar_Click() 'membuat data di C apa yang sudah dimasukan If Textnama = "" Or Textnomor = "" Then MsgBox "ISI DATA DAHULU" Textnama.SetFocus Exit Sub Else
Open "C:/hotel.dot" For Append As #1 Write #1, Textnama.Text, Textnomor.Text, Combonomor.Text, Date + Val(Combolama.Text), Combolama.Text, Labelakhir.Caption Close #1 Textnama.SetFocus MsgBox "Data berhasil Ditambah" End If Call cetak End Sub
7.
Klik 2 kali pada formtransaksi masukan source code berikut, berfungsi memanggil data yang dibuat dan menampilkan ke listview.
Private Sub Form_Load() 'membuat listview agar memiliki warna dan garis serta memiliki columheaders Dim Li As ListItem Dim nama, nomor, combo, tanggal, lama, total As String ListView1.View = lvwReport ListView1.GridLines = True ListView1.BackColor = vbBlue ListView1.ForeColor = vbWhite ListView1.ColumnHeaders.Add 1, , "NAMA", 3000 ListView1.ColumnHeaders.Add 2, , "KTP", 2000 ListView1.ColumnHeaders.Add 3, , "NOMOR KAMAR", 3000 ListView1.ColumnHeaders.Add 4, , "TANGGAL", 4000 ListView1.ColumnHeaders.Add 5, , "LAMA", 1500 ListView1.ColumnHeaders.Add 6, , "TOTAL", 4000 'membuka data yang sudah dibuat dan menampilkanya ke dalam listview Open "C:/hotel.dot" For Input As #1 Do Until EOF(1) Input #1, nama, nomor, combo, tanggal, lama, total Set Li = ListView1.ListItems.Add(, , nama) Li.SubItems(1) = nomor Li.SubItems(2) = combo Li.SubItems(3) = tanggal Li.SubItems(4) = lama Li.SubItems(5) = total Loop Close #1 'mencocokan tanggal kembali dengan tanggal hari ini dan memunculkan pesan Open "C:/hotel.dot" For Input As #1 Do Until EOF(1) Input #1, nama, nomor, combo, tanggal, lama, total If UCase(Texttgl.Text) Like tanggal Then salah = MsgBox("kamar atas nama " & UCase(nama) & " habis !", vbCritical + vbOKOnly, "KONFIRMASI") End If Loop Close #1 End sub Sub cetak() cetakprint.Font = "courir new" cetakprint.Show cetakprint.CurrentX = 0
cetakprint.CurrentY = 0 cetakprint.FontSize = 10 cetakprint.Print Tab(25); "NOTA" cetakprint.Print Tab(14); "TRANSAKSI HOTEL SEMBON" cetakprint.Print Tab(3); "-------------------------------------------------------------------------" cetakprint.Print Tab(3); "Nama"; Tab(26); ": " & Textnama.Text; cetakprint.Print Tab(3); "No. KTP"; Tab(26); ": " & Textnomor.Text; cetakprint.Print Tab(3); "Tipe kamar"; Tab(26); ": " & Texttipe.Text; "" cetakprint.Print Tab(3); "Fasilitas tambahan"; Tab(26); ": " & Textfasilitas.Text; cetakprint.Print Tab(3); "Lama Menginap"; Tab(26); ": " & Combolama.Text; cetakprint.Print Tab(3); "No. Kamar"; Tab(26); ": " & Combonomor.Text; cetakprint.Print Tab(3); "Biaya total"; Tab(26); ": " & Textpajak.Text; cetakprint.Print Tab(3); "Biaya akhir"; Tab(26); ": " & Labelakhir.Caption; cetakprint.Print Tab(3); "Bayar"; Tab(26); ": " & Textbayar.Text; cetakprint.Print Tab(3); "Kembali"; Tab(26); ": " & Textkembali.Text; cetakprint.Print Tab(2); "--------------------------------------------------------------------------" cetakprint.FontSize = 10 cetakprint.Print Tab(20); "TERIMAKASIH" cetakprint.FontSize = 10 cetakprint.Print Tab(2); "=============================================" End Sub
8.
klik 2 kali cmdbatal dan masukan source code berikut
Private Sub cmdbatal_Click() Unload Me formtransaksi.Show End Sub
9.
Klik 2 kali pada cmdselesai dan masukan source code berikut
Private Sub Cmdselesai_Click() MsgBox "terimakaasih atas penggunaanya ^__^" End End Sub
10. Untuk menapilkan print dari nota, terlebih dahulu buat form kedua dan ganti name dari form tersebut menjadi cetakprint dan caption cetak. Dan buat Comandbutton1 dan ganti Name menjadi cmdprint dan caption print seperti gambar berikut.
Gambar 3.4 Tampilan Formcetak
11. Klik 2 kali pada cmdprint masukan source kode berikut untuk mencetak nota ke printer. Private Sub cmdprint_Click() Printer.Font = "courir new" Printer.CurrentX = 0 Printer.CurrentY = 0 Printer.FontSize = 10 Printer.Print Printer.Print Tab(25); "NOTA" Printer.Print Tab(14); "TRANSAKSI HOTEL SEMBON" Printer.Print Tab(3); "------------------------------------------------------------------------" Printer.Print Tab(3); "Nama"; Tab(26); ": " & formtransaksi.Textnama.Text; Printer.Print Tab(3); "No. KTP"; Tab(26); ": " & formtransaksi.Textnomor.Text; Printer.Print Tab(3); "Tipe kamar"; Tab(26); ": " & formtransaksi.Texttipe.Text; "" Printer.Print Tab(3); "Fasilitas tambahan"; Tab(26); ": " & formtransaksi.Textfasilitas.Text; Printer.Print Tab(3); "Lama Menginap"; Tab(26); ": " & formtransaksi.Combolama.Text; Printer.Print Tab(3); "No. Kamar"; Tab(26); ": " & formtransaksi.Combonomor.Text; Printer.Print Tab(3); "Biaya total"; Tab(26); ": " & formtransaksi.Textpajak.Text; Printer.Print Tab(3); "Biaya akhir"; Tab(26); ": " & formtransaksi.Labelakhir.Caption;
Printer.Print Tab(3); "Bayar"; Tab(26); ": " & formtransaksi.Textbayar.Text; Printer.Print Tab(3); "Kembali"; Tab(26); ": " & formtransaksi.Textkembali.Text; Printer.Print Tab(2); "--------------------------------------------------------------------------" Printer.FontSize = 10 Printer.Print ; Tab(20); "TERIMAKASIH" Printer.FontSize = 10 Printer.Print Tab(2); "==========================================" Printer.EndDoc Unload cetakprint Unload formtransaksi formtransaksi.Show End Sub
12. Langkah terakhir adalah uji program dan cek semua penamaan yang ada, pastikan code dan penamaan sama apabila debug benahi letak kesalahan debugnya. 13. Berikut tampilan program saat berhasil dijalankan.
Gambar 3.5 Tampilan Formtransaksi Saat Dijalankan
14. Berikut tampilan nota yang ada di formcetakprint setelah selesai melakukan transaksi
Gambar 3.6 Tampilan Formcetak
