Form Menu Login (Study Kasus Toko Buku)

Setelah kita membuat Menu Utama, Menu Master dan Transaksi Alangkah Baiknya kita membuat menu Login untuk keamanan jalannya program kita. Menu Login ini saya setting sengaja mempunyai hubungan dengan menu Transaksi. Diman Jika kita tidak melakukan login terlebih dahulu maka nama user yang ada pada Form Transaksi tidak akan muncul dan transaksi tidak akan menyimpan jika user masih kosong. Sedangkan untuk logika dari form login ini sangat sederhana karena hanya ada 1 user yang terdaftar yang mempunyai hak akses untuk login. Untuk lebih jelasnya silahkan download materi.

Klik disini untuk download

Form Menu Utama (Study Kasus Toko Buku)

Untuk pembuatan menu utama, saya sarankan untuk menggunakan form menu biasa bukan Form midi, Karena jika kita menggunakan form menu biasa kita dapat berkreasi dalam Form menu Utama dengan menambahkan Gambar atau Tulisan pada Form menu Utamanya. 

Untuk Lebih Jelasnya silahkan Download Klik disini

Form Transaksi (Study Kasus Toko Buku)

Setelah Kita membuat Semua menu Master yang dibutuhkan pada Program Toko Buku ini. Saatnya kita akan membuat Form Transaksinya, dimana pada form ini semua table master yang ada dipanggil semua datanya. Untuk No Faktur digunakan Format NThnBlnNoUrut. Sedangkan untuk logika dari Form Transaksi masih perlu perbaikan.

Untuk melihat Listing dan Form Silahkan Download klik disini

Form Menu Anggota (Study Kasus Toko Buku)

Pada Form Anggota ini adalah perbaikan dari form Menu Karyawan dimana Kode Anggota akan otomatis tampil pada saat kita klik Tambah, kemudian apa bila kita sudah melakukan penyimpanan data maka saat kita klik tombol tambah lagi maka kode anggota akan bertambah urutannya secara otomatis.

Untuk lebih Lengkapnya silahkan donwload Meteri Klik disini

Form Master Karyawan (Study Kasus Toko Buku)

Setelah membuat Menu Master buku dengan listing yang sangat sederhana, mari latihan kita lanjutkan dengan membuat menu master karyawan. Menu master karyawan ini merupakan perbaikan dari menu Master buku, dimana apabila pada Form Buku kita klik simpan pada saat Field pada Form masih kosong maka akan terjadi debug pada program dan juga pencarain pada menu master buku masih menggunakan Navigasi. Pada Form Karyawan ini diperbaiki mulai dari adanya Peringatan message box apabila menyimpan data dengan Field yang masih kosong sampai dengan pencarian langsung pada Grid, jika data yang dicari pada Grid ketemu lakukan Doble Klik maka data akan muncul pada Form. 

Untuk Lebih jelasnya silahkan Download Pdf Program dan listingnya. 

Klik disini untuk mendownload

Pembuatan Database (Study Kasus Toko Buku)

Database adalah Kumpulan dari tabel-tabel yang saling berelasi, disusun secara logis, sehingga menghasilkan informasi yang bernilai guna dalam proses pengambilan keputusan, sedangkan Pengertian Visual Basic adalah Visual Basic merupakan cara termudah dan tercepat untuk membuat aplikasi yang dijalankan di sistem operasi Microsoft Windows®.

Lebih Lengkap Donwload disini

Latihan Fungsi IF Bersarang (Study Kasus Penjualan Tiket Pesawat)

Ketentuan Program :

1.    Pada saat dijalankan form dalam keadaan bersih dan kursor berada pada nama penumpang, untuk Tanggal dan jam tampil secara otomatis.

2.    Nama penumpan dan no telp input secara manual

3.    Pilih Kode Pesawat maka akan muncul nama maskapai dan jurusan

a.       Kode GDI

Nama Maskapai            : Garuda Indonesia

Jurusan                         : Jakarta – Denpasar Bali

Harga Tiket                  : Rp. 1.200.000,-

b.      Kode AKI

Nama Maskapai            : Air Asia

Jurusan                         : Jakarta - Singapore

Harga Tiket                  : Rp. 2.500.000,-

c.       Kode SJA

Nama Maskapai            : Sri Wijaya Air

Jurusan                         : Jakarta - Yogyakarta

Harga Tiket                  : Rp. 650.000,-

d.      Kode BTV

Nama Maskapai            : Batavia Air

Jurusan                         : Jakarta – Pekan Baru Riau

Harga Tiket                  : Rp. 780.000,-

4.    Jam Penerbangan dibedakan setiap Maskapai dan Bonus disesuaikan dengan Jam Penerbangan serta Maskapainya.

• Kode Maskapai : GDI

a.       Jadwal Penerbangan : Pagi

Jam Penerbangan  : 06.00 Wib

Bonus                    : Pilihan Aneka Sarapan Pagi Nusantara

b.      Jadwal Penerbangan : Siang

Jam Penerbangan  : 11.00 Wib

Bonus                    : Makan Siang + Snack

c.       Jadwal Penerbangan : Sore

Jam Penerbangan  : 17.45 Wib

Bonus                    : Snack + Soft Drink

d.      Jadwal Penerbangan : Malam

Jam Penerbangan  : 20.00 Wib

Bonus                    : Pilihan Makan Malam

• Kode Maskapai : AKJ

a.       Jadwal Penerbangan : Pagi

Jam Penerbangan  : 07.15 Wib

Bonus                    : Sarapan Pagi

b.      Jadwal Penerbangan : Siang

Jam Penerbangan  : 10.45 Wib

Bonus                    : Makan Siang

c.       Jadwal Penerbangan : Sore

Jam Penerbangan  : 16.45 Wib

Bonus                    : Snack + Teh Hangat

d.      Jadwal Penerbangan : Malam

Jam Penerbangan  : 19.00 Wib

Bonus                    : Makan Malam

·      Kode Maskapai : AKI

a.       Jadwal Penerbangan : Pagi

Jam Penerbangan : 07.15 Wib

Bonus                   : Sarapan Pagi

b.    Jadwal Penerbangan : Siang

     Jam Penerbangan : 10.45 Wib

     Bonus                   : Makan Siang

c.    Jadwal Penerbangan : Sore

     Jam Penerbangan : 16.45 Wib

     Bonus                   : Snack + Teh Hangat

d.   Jadwal Penerbangan : Malam

     Jam Penerbangan : 19.00 Wib

     Bonus                    : Makan Malam

·      Kode Maskapai : SJA

a.       Jadwal Penerbangan : Pagi

Jam Penerbangan : 05.15 Wib

Bonus                   : Sarapan Pagi

b.    Jadwal Penerbangan : Siang

Jam Penerbangan : 12.45 Wib

Bonus                   : Snack + Soft Drink

c.    Jadwal Penerbangan : Sore

Jam Penerbangan : 18.45 Wib

Bonus                   : Snack + Teh Hangat

d.   Jadwal Penerbangan : Malam

Jam Penerbangan : 22.00 Wib

Bonus                   : Makan Malam

·      Kode Maskapai : BTV

1. Jadwal Penerbangan : Pagi

Jam Penerbangan : 06.30 Wib

Bonus                   : Sarapan Pagi

2. Jadwal Penerbangan : Siang

Jam Penerbangan : 12.15 Wib

Bonus                   : Snack

3. Jadwal Penerbangan : Sore

Jam Penerbangan : 17.15 Wib

Bonus                  : Snack

4. Jadwal Penerbangan : Malam

Jam Penerbangan : 20.15 Wib

Bonus                   : Snack

• Jika Kode Pesawat belum dipilih tapi sudah melakukan pemilihan Jam penerbangan makan akan muncul pada Jam Penerbangan dan Bonus “Silahkan Pilih Kode Penerbangan”

5.    Input jumlah beli muncul total harga

6.    Jika klik Lagi maka form akan bersih dan kursor berada pada Nama Penumpang, namun jika diklik tombol keluar maka akan muncul pesan

ü Jika Yes Maka Keluar dari Program

ü Jika No Maka akan muncul Pesan Silahkan lanjut lagi dan kursor

     berada pada Nama penumpang

Download Soal Versi PDF Klik disini
Download Soal  + Listing Versi PDF Klik disini

Tugas 1 (Perhitungan Nilai Akhir)

Ketentuan Soal :

1.    Buat prosedur bersih, Form pada saat pertama kali dijalankan dalam keadaan bersih dan kursor berada pada textbox absen.

2.    Tanggal dan jam hari ini berjalan secara otomatis pada saat form dijalankan.

3.    Input manual nilai pada masing-masing textbox dan untuk perpindahan setiap textbox menggunakan perintah keypres.

4.    Nilai akhir = (10% * Absen) + (20% * Tugas) + (30% * UTS) + (40% * UAS)

5.    Grade didapat dari :

·      Jika Nilai > 85 maka Grade A

·      Jika Nilai > 75 maka Grade B

·      Jika Nilai > 55 maka Grade C

·      Jika Nilai > 35 maka Grade D

·      Jika Nilai < 35 maka Grade E

6.    Klik tombol hitung lagi untuk membersihkan semua textbox yang ada

7.    Jika tombol keluar di klik maka akan muncul pesan “Yakin akan keluar dari aplikasi ini ??...” Jika dipilih Yes maka akan muncul pesan “Terima Kasih” tapi jika pilih No maka akan muncul pesan “Selamat Berhitung Kembali..”

Ketentuan Pengumpulan :

Lisiting ditulis tangan, untuk tampilan form dibuat print screen, terakhir hari Rabu 19 Oktober 2011

Download Soal Klik disini

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