Contoh Kasus pada Percabangan Visual Basic 2010

Post ini adalah lanjutan dari post sebelumnya jika belum tahu silahkan klik disini untuk membaca post sebelumnya

untuk materi lainnya dapat dilihat disini

Kasus 1

Buatlah form
seperti di bawah ini

• Kode Buku, Nama Buku, Kategori Buku, harga buku, dan jumlah beli diinput.

• Gunakan Event Keypress untuk input dengan Keyboard.

• Gunakan Validasi untuk huruf dan angka.

• Ketika di enter di textbox jumlah beli, sub total, diskon dan total tagihan akan muncul.

• Subtotal=harga buku x jumlah beli

• Diskon = jika subtotal >= 100.000, diskon 5 % dari subtotal, selain itu tidak dapat diskon.

• Total tagihan =subtotal-diskon

• Uang bayar diinput, klik enter maka uang kembali akan muncul.

• Button Clear untuk membersihkan textbox dan combobox.

• Button keluar untuk keluar aplikasi.

Source Code :

Public Class Pertemuan_2_Kasus_1_Teori

Public subtotal, hargabuku, jumlahbeli, diskon, totaltagihan, uangbayar, uangkembali As Double

Private Sub Pertemuan_2_Kasus_1_Teori_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Text = "salmantech12.blogspot.com"

cbkategori.Items.Add("Komputer")

cbkategori.Items.Add("Tata Boga")

cbkategori.Items.Add("Pengetahuan")

cbkategori.Items.Add("Luar Angkasa")

cbkategori.Items.Add("Sejarah")

End Sub

Private Sub tbjumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbjumlah.KeyPress

If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True

If e.KeyChar = Chr(13) Then

jumlahbeli = tbjumlah.Text

hargabuku = tbharga.Text

subtotal = hargabuku * jumlahbeli

tbsubtotal.Text = subtotal

If subtotal >= 100000 Then

diskon = subtotal * 0.05

tbdiskon.Text = diskon

totaltagihan = subtotal - diskon

tbtotal.Text = totaltagihan

tbuangbayar.Focus()

ElseIf subtotal < 100000 Then

totaltagihan = subtotal

tbtotal.Text = totaltagihan

tbuangbayar.Focus()

End If

End Sub

Private Sub tbuangbayar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbuangbayar.KeyPress

If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True

If e.KeyChar = Chr(13) Then

totaltagihan = tbtotal.Text

uangbayar = tbuangbayar.Text

uangkembali = uangbayar - totaltagihan

tbkembali.Text = "Rp." + uangkembali.ToString

End If

End Sub

Private Sub tbnamabuku_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbnamabuku.KeyPress

If Not (Asc(e.KeyChar) = 8) Then

If e.KeyChar = Chr(13) Then

cbkategori.DroppedDown = True

End If

Dim allowedChars As String = "abcdefghijklmnopqrstuvwxyz "

If Not allowedChars.Contains(e.KeyChar.ToString.ToLower) Then

e.KeyChar = ChrW(0)

e.Handled = True

End If

End Sub

Private Sub tbharga_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbharga.KeyPress

If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True

If e.KeyChar = Chr(13) Then

tbjumlah.Focus()

End If

End Sub

Private Sub tbsubtotal_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbsubtotal.KeyPress

If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True

End Sub

Private Sub tbkodebuku_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbkodebuku.KeyPress

If e.KeyChar = Chr(13) Then

tbnamabuku.Focus()

End If

End Sub

Private Sub cbkategori_DropDownClosed(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbkategori.DropDownClosed

tbharga.Focus()

End Sub

Private Sub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click

tbkodebuku.Clear()

tbdiskon.Clear()

tbharga.Clear()

tbjumlah.Clear()

tbkembali.Clear()

tbkodebuku.Clear()

tbnamabuku.Clear()

tbsubtotal.Clear()

tbtotal.Clear()

tbuangbayar.Clear()

cbkategori.SelectedIndex = -1

End Sub

Private Sub Pertemuan_2_Kasus_1_Teori_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

Dim pesan As String

pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech12.blogspot.com")

If pesan = vbNo Then

e.Cancel = True

End If

End Sub

Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click

Dim pesan As String

pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech12.blogspot.com")

If pesan = vbYes Then

End

End If

End Sub

End Class

Berikut hasil akhirnya

Kasus 2

Buatlah form seperti dibawah ini

• Nim, Nama, Jurusan, Nilai Kehadiran, Tugas, UTS dan UAS diinput.

• Gunakan Event Keypress untuk input dengan Keyboard.

• Gunakan Validasi untuk huruf dan angka.

• Ketika di enter di textbox UAS, Nilai Akhir, Grade dan Keterangan akan muncul.

• Nilai Akhir = 20 % dari nilai kehadiran + 25 % dari nilai tugas + 25 % dari nilai UTS + 30 % dari nila UAS

• Button Clear untuk membersihkan textbox dan combobox.

• Button keluar untuk keluar aplikasi.

Dengan kondisi

Nilai Grade Keterangan

84 - 100 A Memuaskan

64 - 83 B Baik

50 - 63 C Cukup

<50 D Gagal

Source Code :

Public Class Pertemuan_2_Kasus_2_Teori

Public nilaiakhir, nilaikehadiran, nilaitugas, nilaiuts, nilaiuas As Double

Public pesan As String

Private Sub Pertemuan_2_Kasus_2_Teori_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Text = "salmantech12.blogspot.com"

cbjurusan.Items.Add("Sistem Informasi")

cbjurusan.Items.Add("Informatika")

cbjurusan.Items.Add("Bahasa Inggris")

'Ahmad Salman Farisi

cbjurusan.Items.Add("Bahasa Jepang")

cbjurusan.Items.Add("Ekonomi")

cbjurusan.Items.Add("Management")

End Sub

Private Sub tbnim_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbnim.KeyPress

If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True

If e.KeyChar = Chr(13) Then

tbnama.Focus()

End If

End Sub

Private Sub tbnama_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbnama.KeyPress

Dim allowedChars As String = "abcdefghijklmnopqrstuvwxyz "

If Not (Asc(e.KeyChar) = 8) Then

If e.KeyChar = Chr(13) Then

cbjurusan.DroppedDown = True

End If

If Not allowedChars.Contains(e.KeyChar.ToString.ToLower) Then

e.KeyChar = ChrW(0)

e.Handled = True

End If

End Sub

Private Sub cbjurusan_DropDownClosed(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbjurusan.DropDownClosed

tbkehadiran.Focus()

End Sub

Private Sub tbkehadiran_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbkehadiran.KeyPress

If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True

If e.KeyChar = Chr(13) Then

tbtugas.Focus()

End If

End Sub

Private Sub tbtugas_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbtugas.KeyPress

If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True

If e.KeyChar = Chr(13) Then

tbuts.Focus()

End If

End Sub

Private Sub tbuts_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbuts.KeyPress

If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True

If e.KeyChar = Chr(13) Then

tbuas.Focus()

End If

End Sub

Private Sub tbuas_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbuas.KeyPress

If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True

If e.KeyChar = Chr(13) Then

nilaikehadiran = tbkehadiran.Text

nilaitugas = tbtugas.Text

nilaiuts = tbuts.Text

nilaiuas = tbuas.Text

' 2017230184

nilaiakhir = (0.2 * nilaikehadiran) + (0.25 * nilaitugas) + (0.25 * nilaiuts) + (0.3 * nilaiuas)

tbnilaiakhir.Text = nilaiakhir

If nilaiakhir >= 84 Then

tbgrade.Text = "A"

tbket.Text = "Memuaskan"

ElseIf nilaiakhir >= 64 Then

tbgrade.Text = "B"

tbket.Text = "Baik"

ElseIf nilaiakhir >= 50 Then

tbgrade.Text = "C"

tbket.Text = "Cukup"

ElseIf nilaiakhir < 50 Then

tbgrade.Text = "D"

tbket.Text = "Gagal"

End If

End Sub

Private Sub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click

tbgrade.Clear()

tbkehadiran.Clear()

tbket.Clear()

tbnama.Clear()

tbnilaiakhir.Clear()

tbnim.Clear()

tbtugas.Clear()

tbuas.Clear()

tbuts.Clear()

cbjurusan.SelectedIndex = -1

End Sub

Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click

pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech12.blogspot.com")

If pesan = vbYes Then

End

End If

End Sub

Private Sub Pertemuan_2_Kasus_2_Teori_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech12.blogspot.com")

If pesan = vbNo Then

e.Cancel = True

End If

End Sub

End Class

Berikut hasil akhirnya seperti ini

Kasus 3

Buatlah form seperti di bawah ini

• Kode Obat,nama obat dan Satuan diinput.

• Combox satuan dipilih, harga satuan akan muncul dari penyeleksian kondisi.

• Gunakan Event Keypress utk input dengan Keyboard.

• Gunakan Validasi utk huruf dan angka.

• Ketika di enter di textbox jumlah beli, sub total, diskon dan total tagihan akan muncul.

• Subtotal=harga buku x jumlah beli

• Diskon = jika jumlah beli >= 100, diskon 10 % dari subtotal, jika jumlah beli >= 50, diskon 7 % dari subtotal, jika jumlah beli >= 20, diskon 4 % dari subtotal selain itu tidak dapat diskon.

• Total tagihan =subtotal-diskon

• Uang bayar diinput, klik enter maka uang kembali akan muncul.

• Button Clear utk membersihkan textbox dan combobox.

• Button keluar utk keluar aplikasi.

Satuan Harga

Dus 100.000

Box 30.000

Botol 15.000

Kaplet 5.000

Source Code

Public Class Pertemuan_2_Kasus_3_Teori

Public subtotal, hargaobat, jumlahbeli, diskon, totaltagihan, uangbayar, uangkembali As Double

Public pesan As String

Private Sub Pertemuan_2_Kasus_3_Teori_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Text = "salmantech12.blogspot.com"

cbsatuan.Items.Add("Dus")

cbsatuan.Items.Add("Box")

cbsatuan.Items.Add("Botol")

cbsatuan.Items.Add("Kaplet")

End Sub

Private Sub cbsatuan_DropDownClosed(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbsatuan.DropDownClosed

tbjumlah.Focus()

End Sub

Private Sub cbsatuan_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbsatuan.SelectedIndexChanged

If cbsatuan.Text = "Dus" Then

tbharga.Text = 100000

ElseIf cbsatuan.Text = "Box" Then

tbharga.Text = 30000

ElseIf cbsatuan.Text = "Botol" Then

tbharga.Text = 15000

ElseIf cbsatuan.Text = "Kaplet" Then

tbharga.Text = 5000

End If

End Sub

Private Sub tbnamaobat_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbnamaobat.KeyPress

Dim allowedChars As String = "abcdefghijklmnopqrstuvwxyz "

If Not (Asc(e.KeyChar) = 8) Then

If e.KeyChar = Chr(13) Then

cbsatuan.DroppedDown = True

End If

If Not allowedChars.Contains(e.KeyChar.ToString.ToLower) Then

e.KeyChar = ChrW(0)

e.Handled = True

End If

End Sub

Private Sub tbkodeobat_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbkodeobat.KeyPress

If e.KeyChar = Chr(13) Then

tbnamaobat.Focus()

End If

End Sub

Private Sub tbjumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbjumlah.KeyPress

If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True

If e.KeyChar = Chr(13) Then

jumlahbeli = tbjumlah.Text

hargaobat = tbharga.Text

subtotal = hargaobat * jumlahbeli

tbsubtotal.Text = subtotal

tbdiskon.Text = "Tidak dapat diskon"

tbtotaltagihan.Text = subtotal

tbuangbayar.Focus()

If subtotal >= 100000 Then

diskon = subtotal * 0.1

tbdiskon.Text = diskon

tbsubtotal.Text = subtotal

totaltagihan = subtotal - diskon

tbtotaltagihan.Text = totaltagihan

ElseIf subtotal >= 50000 Then

diskon = subtotal * 0.07

tbdiskon.Text = diskon

tbsubtotal.Text = subtotal

totaltagihan = subtotal - diskon

tbtotaltagihan.Text = totaltagihan

ElseIf subtotal >= 20000 Then

diskon = subtotal * 0.04

tbdiskon.Text = diskon

tbsubtotal.Text = subtotal

totaltagihan = subtotal - diskon

tbtotaltagihan.Text = totaltagihan

End If

End Sub

Private Sub tbuangbayar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbuangbayar.KeyPress

If e.KeyChar = Chr(13) Then

uangbayar = tbuangbayar.Text

totaltagihan = tbtotaltagihan.Text

uangkembali = uangbayar - totaltagihan

tbuangkembali.Text = "Rp." + uangkembali.ToString

End If

End Sub

Private Sub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click

tbdiskon.Clear()

tbharga.Clear()

tbjumlah.Clear()

tbkodeobat.Clear()

tbnamaobat.Clear()

tbsubtotal.Clear()

tbtotaltagihan.Clear()

tbuangbayar.Clear()

tbuangkembali.Clear()

cbsatuan.SelectedIndex = -1

End Sub

Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click

pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech12.blogspot.com")

If pesan = vbYes Then

End

End If

End Sub

Private Sub Pertemuan_2_Kasus_3_Teori_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech12.blogspot.com")

If pesan = vbNo Then

e.Cancel = True

End If

End Sub

End Class

Berikut hasil akhirnya

Sekian untuk post kali ini semoga bermanfaat

Untuk materi 3, 4 dan 5 ada di post selanjutnya

どうもありがとうございました…!

Share post ini ke :

Facebook WhatsApp Twitter LINE Linkedin

Contoh Kasus pada Percabangan Visual Basic 2010

0 Response to "Contoh Kasus pada Percabangan Visual Basic 2010"

Post a Comment