Latihan Persiapan UTS

1. Buat Proses Bersih,Aktif Dan Tidak Aktif, saat kita mengaktifkan Form Semua Textbox,combobox,dan optionbotton tidak aktif. Dan setelah kita klik input semua Textbox,combobox,dan optionbotton aktif.
2. Jaminan : *1. Jika ASKES maka tarif kamar Rp 50.000, tarif  Dokter Rp.100.000, Tarif Obat RP.80.000, admidtrasi Rp. 50.000.  *2. Jika JAMKESNAS maka tarif kamar Rp 50.000, tarif  Dokter Rp.85.000, Tarif Obat RP.50.000, admidtrasi Rp. 50.000.  *3. Jika UMUM, maka tarif kamar Rp 70.000, tarif  Dokter Rp.150.000, Tarif Obat RP.80.000, admidtrasi Rp. 50.000  * 4. Jika JAMSOSTEK maka tarif kamar Rp 40.000, tarif  Dokter Rp.90.000, Tarif Obat RP.55.000, admidtrasi Rp. 50.000
3. Harga Perawatan  : Jika kita Klik *VIP maka (Tarif kamar+20.000),(Tarif Dokter+50.000),(Tarif Obat+30.000),dan (Tarif adminidtrasi+30.000)  *Kelas 1 maka (Tarif kamar+15.000),(Tarif Dokter+40.000),(Tarif Obat+20.000),dan (Tarif adminidtrasi+20.000)  *Kelas 3 maka (Tarif kamar+20.000),(Tarif Dokter+35.000),(Tarif Obat+10.000),dan (Tarif adminidtrasi+10.000)  *Kelas 3 maka (Tarif kamar+10.000),(Tarif Dokter+30.000),(Tarif Obat+10.000),dan (Tarif adminidtrasi+10.000).
4. Total Bayar : Setelah Kita input lama inap Dan di ENTER  ketentuannya untuk total bayar adalah (Tarif kamar+Tarif Dokter+Tarif Obat+Tarif Adminidtrasi)*Lama Inap

Lihat Penuh >>>                                                                                 <<< Kembali

Latihan

Untuk Persiapa Menjelang UTS, banyak-banyaklah latihan dan silahkan cari contoh-comtoh program yang lain. Selamat Menempuh UJIAN UTS dan Semoga Sukses.....

Design Form

Download Materi disini

LATIHAN FORM RENTAL BUS

Latihan Pada Form di atas adalah latihan untuk IF Bersarang (ada IF didalam IF) coba kerjakan dan untuk listing programnya akan kita bahas pada saat latihan di Lab. Selamat Mencoba yaa.... jangan nyerah... listing tidak diberika supaya kalian mau mencoba dan mencari materi diluar dari materi yang ada... SEMANGAT YAAA!!!!!.....................

Download Soal Latihan disini

Latihan Menggunakan Checkbox, Combo dan option bottom

Silahkan Kalian design Fom Pizza dibawah ini, dan carilah listing logika dari programnya. Untuk ketentuan programnya silahkan teman-teman download tapi untuk listing program silahkan teman-teman cari dahulu sendiri untuk meningkatkan kemampuan bercoding dan logika teman-teman, sehingga pada saat ujian temen-teman tidak bingung lagi. 

 

Download soal klik disini

SELAMAT MENCOBA

Penggunaan Combo dan CheckBox

Pada kesempatan latihan ini, kita akan belajar tentang pemahaman penggunaan logika Combo Box dan Check Box. Dimana pengunaan Combo Box adalah pada saat pembuatan program yang menggunakan pilihan tapi pilihan tersebut masih mungkin untuk di tambahkan kembali tanpa harus menambah pada listing programnya. Namun untuk penggunaan objek check box adalah untuk pembuatan program yang ada pilihannya lebih dari satu pilihan.

Setiap pengunaan pada objek yang ada pada Visual Basic pasti memiliki arti dan maksud dari setiap logikanya. Tergantung dari program apa yang kita buat dan bagaimana pengunaan kondisi logikanya. Pada Latihan ini adalah penggunaan Combo Box untuk memilih Kode Makanan dan Check Box untuk memilih menu tambahannya dmana setiap menu tambahan dapat dipilih lebih dari satu menu. Untuk lebih jelasnya tentang program Cafe ini dan tentang pengunaan dari Check Box serta Combo Box nya, silahkan kalian download materi dibawah ini.

Contoh Form

Silahakan Download Materi disini

Penggunaan Case Box

Form Running

Design Form 

 Ketentuan Soal :

• Golongan 1A Gapok = 3.500.000, Uang Transport = 350.000, Uang Makan = 400.000
• Golongan 1B Gapok = 2.250.000, Uang Transport = 350.000, Uang Makan = 400.000
• Golongan 2A Gapok = 2.500.000, Uang Transport = 250.000, Uang makan = 300.000
• Golongan 2B Gapok = 2.255.000, Uang Transport = 250.000, Uang Makan = 300.000
• Golongan 3A Gapok = 1.850.000, Uang Transport = 200.000, Uang Makan = 250.000
• Golongan 3B Gapok = 1.500.000, Uang Transport = 200.000, Uang Makan = 250.000

Listing Program :

Private Sub Check1_Click()
If Check1.Value = True Then
Me.Check2.Enabled = False
Else
Me.Check1.Enabled = False
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = True Then
Me.Check1.Enabled = False
Else
Me.Check2.Enabled = False
End If
End Sub

Private Sub cmbgol_Click()
Select Case Me.cmbgol.ListIndex
Case "0"
Me.txtgapok.Text = 3500000
Me.txttrans.Text = 350000
Me.txtmakan.Text = 400000

Case "1"
Me.txtgapok.Text = 3250000
Me.txttrans.Text = 350000
Me.txtmakan.Text = 400000

Case "2"
Me.txtgapok.Text = 2500000
Me.txttrans.Text = 250000
Me.txtmakan.Text = 300000

Case "3"
Me.txtgapok.Text = 2255000
Me.txttrans.Text = 250000
Me.txtmakan.Text = 300000

Case "4"
Me.txtgapok.Text = 1850000
Me.txttrans.Text = 200000
Me.txtmakan.Text = 250000

Case "5"
Me.txtgapok.Text = 1500000
Me.txttrans.Text = 200000
Me.txtmakan.Text = 250000
End Select

Me.txtgapok.Enabled = False
Me.txtmakan.Enabled = False
Me.txttrans.Enabled = False
Me.txttotga.Enabled = False
End Sub

Private Sub cmdkeluar_Click()
pesan = MsgBox("Yakin Anda Ingin Keluar ???.....", vbOKCancel, "PT. Cahaya Baru Permai")
If pesan = vbOK Then
Unload Me
End If
End Sub

Private Sub cmdlagi_Click()
Me.txtnip.Text = ""
Me.txtnama.Text = ""
Me.txtgapok.Text = ""
Me.txttrans.Text = ""
Me.txtmakan.Text = ""
Me.txttunj.Text = ""
Me.txttotga.Text = ""
Me.cmbgol.Text = "Silahkan Pilih"
Me.Check1.Value = False
Me.Check1.Enabled = True
Me.Check2.Value = False
Me.Check2.Enabled = True
Me.txtnip.SetFocus
End Sub

Private Sub Form_Activate()
'Membuat Tampilan Jam & Tanggal pada FormMe.LblJam.Caption = Time
Me.lbltgl.Caption = Date
End Sub
 
Private Sub Form_Load()'Membuat Pilihan pada Combobox
Me.cmbgol.AddItem "Gol 1A"
Me.cmbgol.AddItem "Gol 1B"
Me.cmbgol.AddItem "Gol 2A"
Me.cmbgol.AddItem "Gol 2B"
Me.cmbgol.AddItem "Gol 3A"
Me.cmbgol.AddItem "Gol 3B"

'Membuat Pilihan pada Listbox
Me.List1.AddItem "1"
Me.List1.AddItem "2"
Me.List1.AddItem "3"
Me.List1.AddItem "4"
Me.List1.AddItem "5"
End Sub

Private Sub List1_Click()
Select Case List1.Text
Case "1"
Me.txttunj.Text = 1500000
Case "2"
Me.txttunj.Text = 1000000
Case "3"
Me.txttunj.Text = 750000
Case "4"
Me.txttunj.Text = 500000
Case Else
Me.txttunj.Text = 0
End Select

Me.txttotga.Text = Val(Me.txtgapok.Text) + Val(Me.txtmakan.Text) + Val(Me.txttrans.Text) + Val(Me.txttunj.Text)
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Me.cmbgol.SetFocus
End If
End Sub

Private Sub txtnip_KeyPress(KeyAscii As Integer)
 'Membuat perintah enter dan kursor aktif di text terpilih
If KeyAscii = 13 Then
Me.txtnama.SetFocus
End If
End Sub
             

Fungsi IF

Ketentuan Soal :

1. Setiap perpindahan antara textbox dengan menggunakan Enter
2. Input No. Pesanan, No. Meja, Kode Menu, Jenis Menu, Harga Permenu dan terakhir Banyak Pesana.
3. Setelah Banyak pesanan di Input  dan di Enter maka Bayar, Diskon, Pajak, Total Bayar muncul secara otomatis dan tidak bisa di ubah.
4. Bayar = Harga Permenu * Banyak Pesanan
5. Diskon didapat Jika Pembelian >= 3 maka akan dapat diskon sebesar 5 % dari Harga Permenu, Jika kurang maka tidak dapat Diskon
6. Pajak = 10% dari Harga Bayar
7. Total Bayar = ( Harga + Pajak ) -  Diskon 
8. Pada saat Klik bersih Form Kosong. 

Listing Program :


Listing Programnya :

Private Sub cmdBersih_Click()
Me.txtbayar = ""
Me.txtbykpesanan = ""
Me.txtdiskon = ""
Me.txthargapermenu = ""
Me.txtjenismenu = ""
Me.txtkodemenu = ""
Me.txtnomeja = ""
Me.txtnopesana = ""
Me.txtpajak = ""
Me.txttobar.Text = ""
Me.txtnopesana.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub txtbykpesanan_KeyPress(KeyAscii As Integer)
'Perintah Enter
If KeyAscii = 13 Then
'Mencari Bayar
Me.txtbayar.Text = Val(Me.txthargapermenu.Text) * Val(Me.txtbykpesanan.Text)

'Mencari Diskon
If Me.txtbykpesanan.Text >= 3 Then
'Jika ada Diskon
Me.txtdiskon.Text = 0.05 * Val(Me.txthargapermenu.Text)
Else
'Jika Tidak ada Diskon
Me.txtdiskon = 0
End If

'Mencari pajak
Me.txtpajak.Text = 0.1 * (Me.txtbayar.Text)
'Mencari Total Bayar
Me.txttobar.Text = Val(Me.txtbayar.Text) + Val(Me.txtdiskon.Text) + Val(Me.txtpajak.Text)
"menonaktifkan Textbox
Me.txtbayar.Enabled = False
Me.txtdiskon.Enabled = False
Me.txtpajak.Enabled = False
Me.txttobar.Enabled = False
Me.cmdbersih.SetFocus
End If
End Sub

Private Sub txthargapermenu_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Me.txtbayar.SetFocus
End If
End Sub

Private Sub txtjenismenu_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
Me.txthargapermenu.SetFocus
End If
End Sub

Private Sub txtkodemenu_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
Me.txtjenismenu.SetFocus
End If
End Sub

Private Sub txtnomeja_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
Me.txtkodemenu.SetFocus
End If
End Sub
 
Private Sub txtnopesana_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
Me.txtnomeja.SetFocus
End If
End Sub

Pendeklarasian Variable

Listing Program


'Membuat deklarasi data
Dim nilai1 As Integer
Dim nilai2 As Integer
Dim hasil As Integer


Baca Penuh >>>

Pembuatan Kalkulator

Listing Program


Private Sub cmdbagi_Click()
Me.txthasil.Text = Val(Me.txtn1.Text) / Val(Me.txtn2.Text)
End Sub
Private Sub cmdBersih_Click()
Me.txtn1.Text = ""
Me.txtn2.Text = ""
Me.txthasil.Text = ""
End Sub

Private Sub cmdkali_Click()
Me.txthasil.Text = Val(Me.txtn1.Text) * Val(Me.txtn2.Text)
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdkurang_Click()
Me.txthasil.Text = Val(Me.txtn1.Text) - Val(Me.txtn2.Text)
End Sub

Private Sub cmdpangkat_Click()
Me.txthasil.Text = Val(Me.txtn1.Text) ^ Val(Me.txtn2.Text)
End Sub

Private Sub cmdtambah_Click()
Me.txthasil.Text = Val(Me.txtn1.Text) + Val(Me.txtn2.Text)
End Sub

Permainan Warna dan Format Tulisan Pada Visual Basic

Pengenalan Visual Basic

Listing Program :

Private Sub Cmdbiru_Click()
Me.txtnama.ForeColor = vbBlue
End Sub

Private Sub cmdbold_Click()
Me.txtnama.FontBold = True
Me.txtnama.FontItalic = False
Me.txtnama.FontUnderline = False
End Sub

Private Sub cmdkeluar_Click()
pesan = MsgBox("Sampai Jumpa Lagi", vbOKOnly, "Belajar VB")
If pesan = vbOK Then
Unload Me
End If
End Sub

Private Sub cmdkenal_Click()
Me.txtnama.Text = "Mutiarawati"
End Sub

Private Sub cmdkuning_Click()
Me.txtnama.ForeColor = vbYellow
End Sub

Private Sub CmdMerah_Click()
Me.txtnama.ForeColor = vbRed
End Sub

Private Sub cmdMiring_Click()
Me.txtnama.FontItalic = True
Me.txtnama.FontBold = False
Me.txtnama.FontUnderline = False
End Sub

Private Sub cmdunderline_Click()
Me.txtnama.FontUnderline = True
Me.txtnama.FontBold = False
Me.txtnama.FontItalic = False
End Sub