Visual Basic Lanjutan Teori 2 Percabangan (Struktur If-Then, If-Then-Else dan Nested IF)
Saturday, March 21, 2020
1 Comment
Assalamu’alaikum warahmatullahi wabarakatuh..
Kembali lagi bersama saya Ilham Ramadhan, saya akan melanjutkan pelajaran yang pernah saya bahas yaitu Operator silahkan cek di beranda . Kali ini saya akan membahas tentang Visual Basic Lanjutan Percabangan(Struktur If-Then dan Nested IF), oke langsung saja kita bahas tanpa berlama-lama, oke check it out...
Percabangan
- Percabangan atau penyeleksian kondisi (Conditional Statement) merupakan suatu pernyataan yang menganalisa suatu keadaan dan mengambil keputusan berdasarkan pada hasil analisa itu.
- Hasil dari penyeleksian adalah, jika bernilai benar maka akan dikerjakan instruksi tertentu.
- Sedang jika kondisi salah, maka akan dikerjakan instruksi yang lain.
Percabangan IF - THEN
- Struktur If – Then disebut juga dengan Branch Structure merupakan struktur percabangan dimana suatu ekspresi akan dikerjakan bila kondisinya terpenuhi.
- Tetapi jika kondisinya tidak terpenuhi maka ekspresi di dalam struktur if tidak akan dijalankan dan blok If akan dilompati serta program akan melakukan tindakan berikutnya.
- Kondisi : Berisi perbandingan antara satu variabel/konstanta dengan variabel/konstanta
lain dengan menggunakan tanda <, >, =, <> dari suatu keadaan yang akan menghasilkan nilai “Benar” atau “Salah”. - Ekspresi : Rangkaian kode program (blok program) yang akan dijalankan jika kondisinya memenuhi syarat “Benar”.
Percabangan IF - THEN - ELSE
- Struktur If – Then – Else disebut juga dengan Selection Structure merupakan struktur percabangan di mana suatu ekspresi akan dikerjakan bila kondisinya terpenuhi.
- Struktur If – Then – Else disebut juga dengan Selection Structure merupakan struktur percabangan di mana suatu ekspresi akan dikerjakan bila kondisinya terpenuhi.
- Kondisi : Berisi perbandingan antara satu variabel/konstanta dengan variabel/konstanta lain dengan menggunakan tanda <, >, =, <> dari suatu keadaan yang akan menghasilkan nilai “Benar” atau “Salah”.
- Ekspresi 1 Rangkaian kode program (blok program) yang akan dijalankan jika kondisinya bernilai “Benar” (memenuhi syarat).
- Ekspresi 2 Rangkaian kode program (blok program) yang akan dijalankan jika kondisinya bernilai “Salah” (tidak memenuhi syarat).
Percabangan Nested If
- Pada kondisi tertentu di dalam struktur If –ThenElse bisa ditempatkan struktur If–Then atau If–Then–Else yang lain.
- Bentuk ini disebut dengan If Tersarang atau Nested If.
Latihan 1 (IF - THEN - ELSE)
- Kode Buku, Nama Buku, Kategori Buku, harga buku, dan jumlah beli diinput.
- 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 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 utk membersihkan textbox dan combobox.
- Button Clear utk membersihkan textbox dan combobox.
- Source Code
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ket As String
If TextBox1.Text >= 60 Then 'LaptopInformatika.com
ket = "Lulus"
Else
ket = "Tidak Lulus"
End If
TextBox2.Text = ket
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pesan As String
pesan = MsgBox("Yakin Mau Keluar ??", vbYesNo, "Konfirmasi") 'LaptopInformatika.com
If pesan = vbYes Then
Close()
End
End If
End Sub
End Class
Latihan 2 (Nested IF)
- Source Code
Public Class Form2
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
If ComboBox1.Text = "Garuda" Then
If ComboBox2.Text = "Medan-Padang" Then
TextBox1.Text = 500000
ElseIf ComboBox2.Text = "Medan-Jakarta" Then 'LaptopInformatika.com
TextBox1.Text = 1000000
ElseIf ComboBox2.Text = "Medan-Bali" Then
TextBox1.Text = 1500000
End If
ElseIf ComboBox1.Text = "Lion" Then
If ComboBox2.Text = "Medan-Padang" Then
TextBox1.Text = 300000
ElseIf ComboBox2.Text = "Medan-Jakarta" Then 'LaptopInformatika.com
TextBox1.Text = 600000
ElseIf ComboBox2.Text = "Medan-Bali" Then
TextBox1.Text = 800000
End If
ElseIf ComboBox1.Text = "Sriwijaya" Then
If ComboBox2.Text = "Medan-Padang" Then
TextBox1.Text = 400000
ElseIf ComboBox2.Text = "Medan-Jakarta" Then 'LaptopInformatika.com
TextBox1.Text = 800000
ElseIf ComboBox2.Text = "Medan-Bali" Then
TextBox1.Text = 1000000
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pesan As String
pesan = MsgBox("Yakin Mau Keluar ??", vbYesNo, "Konfirmasi") 'LaptopInformatika.com
If pesan = vbYes Then
Close()
End
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ComboBox1.Text = ""
ComboBox2.Text = ""
TextBox1.Text = ""
End Sub
End Class
Latihan 3 (Percabangan IIF)
- Source Code
Public Class Form3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim hari As String
Dim ke As String = ComboBox1.Text
hari = IIf(ke = "1", "SENIN", IIf(ke = "2", "SELASA", IIf(ke = "3", "RABU", IIf(ke = "4", "KAMIS",
IIf(ke = "5", "JUMAT", IIf(ke = "6", "SABTU", "MINGGU"))))))
TextBox1.Text = hari 'LaptopInformatika.com
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pesan As String
pesan = MsgBox("Yakin Mau Keluar ??", vbYesNo, "Konfirmasi") 'LaptopInformatika.com
If pesan = vbYes Then
Close()
End
End If
End Sub
End Class
Kasus 1 (If - Then - Else)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim hari As String
Dim ke As String = ComboBox1.Text
hari = IIf(ke = "1", "SENIN", IIf(ke = "2", "SELASA", IIf(ke = "3", "RABU", IIf(ke = "4", "KAMIS",
IIf(ke = "5", "JUMAT", IIf(ke = "6", "SABTU", "MINGGU"))))))
TextBox1.Text = hari 'LaptopInformatika.com
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pesan As String
pesan = MsgBox("Yakin Mau Keluar ??", vbYesNo, "Konfirmasi") 'LaptopInformatika.com
If pesan = vbYes Then
Close()
End
End If
End Sub
End Class
Kasus 1 (If - Then - Else)
- Source Code
Public Class Form4
Dim harga, jumlah, subtotal, diskon, total, bayar, kembali As Integer
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
Me.TextBox2.Focus() 'LaptopInformatika.com
End If
End Sub
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
Dim keyascii As Short = Asc(e.KeyChar)
If (e.KeyChar Like "[A-Z,a-z]" _
OrElse keyascii = Keys.Back _
OrElse keyascii = Keys.Space _
OrElse keyascii = Keys.Return _
OrElse keyascii = Keys.Delete) Then
keyascii = 0
End If
If e.KeyChar = Chr(13) Then
Me.ComboBox1.Focus()
End If
e.Handled = CBool(keyascii) 'LaptopInformatika.com
End Sub
Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
If e.KeyChar = Chr(13) Then
Me.TextBox3.Focus() 'LaptopInformatika.com
End If
End Sub
Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
Me.TextBox4.Focus() 'LaptopInformatika.com
End If
End Sub
Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
harga = Val(TextBox3.Text)
jumlah = Val(TextBox4.Text)
subtotal = harga * jumlah
TextBox5.Text = subtotal
If subtotal >= 100000 Then
TextBox6.Text = subtotal * 5 / 100
ElseIf subtotal <= 100 Then
TextBox6.Text = subtotal * 0 / 100
End If
Me.TextBox6.Focus() 'LaptopInformatika.com
End If
End Sub
Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
subtotal = Val(TextBox5.Text)
diskon = Val(TextBox6.Text)
total = subtotal - diskon
TextBox7.Text = total
End If
Me.TextBox8.Focus() 'LaptopInformatika.com
End Sub
Private Sub TextBox8_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox8.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
total = Val(TextBox7.Text)
bayar = Val(TextBox8.Text)
kembali = bayar - total
TextBox9.Text = kembali 'LaptopInformatika.com
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
ComboBox1.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pesan As String
pesan = MsgBox("Yakin Mau Keluar ??", vbYesNo, "Konfirmasi") 'LaptopInformatika.com
If pesan = vbYes Then
Close()
End
End If
End Sub
End Class
Kasus 2 (If - Then - Else)Dim harga, jumlah, subtotal, diskon, total, bayar, kembali As Integer
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
Me.TextBox2.Focus() 'LaptopInformatika.com
End If
End Sub
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
Dim keyascii As Short = Asc(e.KeyChar)
If (e.KeyChar Like "[A-Z,a-z]" _
OrElse keyascii = Keys.Back _
OrElse keyascii = Keys.Space _
OrElse keyascii = Keys.Return _
OrElse keyascii = Keys.Delete) Then
keyascii = 0
End If
If e.KeyChar = Chr(13) Then
Me.ComboBox1.Focus()
End If
e.Handled = CBool(keyascii) 'LaptopInformatika.com
End Sub
Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
If e.KeyChar = Chr(13) Then
Me.TextBox3.Focus() 'LaptopInformatika.com
End If
End Sub
Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
Me.TextBox4.Focus() 'LaptopInformatika.com
End If
End Sub
Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
harga = Val(TextBox3.Text)
jumlah = Val(TextBox4.Text)
subtotal = harga * jumlah
TextBox5.Text = subtotal
If subtotal >= 100000 Then
TextBox6.Text = subtotal * 5 / 100
ElseIf subtotal <= 100 Then
TextBox6.Text = subtotal * 0 / 100
End If
Me.TextBox6.Focus() 'LaptopInformatika.com
End If
End Sub
Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
subtotal = Val(TextBox5.Text)
diskon = Val(TextBox6.Text)
total = subtotal - diskon
TextBox7.Text = total
End If
Me.TextBox8.Focus() 'LaptopInformatika.com
End Sub
Private Sub TextBox8_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox8.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
total = Val(TextBox7.Text)
bayar = Val(TextBox8.Text)
kembali = bayar - total
TextBox9.Text = kembali 'LaptopInformatika.com
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
ComboBox1.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pesan As String
pesan = MsgBox("Yakin Mau Keluar ??", vbYesNo, "Konfirmasi") 'LaptopInformatika.com
If pesan = vbYes Then
Close()
End
End If
End Sub
End Class
- Source Code
Public Class Form5
Dim hadir, tugas, uts, uas As Integer
Dim akhir As Double
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
Me.TextBox2.Focus() 'LaptopInformatika.com
End If
End Sub
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
Dim keyascii As Short = Asc(e.KeyChar)
If (e.KeyChar Like "[A-Z,a-z]" _
OrElse keyascii = Keys.Back _
OrElse keyascii = Keys.Space _
OrElse keyascii = Keys.Return _
OrElse keyascii = Keys.Delete) Then
keyascii = 0
End If
If e.KeyChar = Chr(13) Then
Me.ComboBox1.Focus()
End If
e.Handled = CBool(keyascii) 'LaptopInformatika.com
End Sub
Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
If (e.KeyChar = Chr(13)) Then
Me.TextBox3.Focus() 'LaptopInformatika.com
End If
End Sub
Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
Me.TextBox4.Focus() 'LaptopInformatika.com
End If
End Sub
Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
Me.TextBox5.Focus() 'LaptopInformatika.com
End If
End Sub
Private Sub TextBox5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
Me.TextBox6.Focus() 'LaptopInformatika.com
End If
End Sub
Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
hadir = Val(TextBox3.Text)
tugas = Val(TextBox4.Text)
uts = Val(TextBox5.Text)
uas = Val(TextBox6.Text)
akhir = (hadir * 20 / 100) + (tugas * 25 / 100) + (uts * 25 / 100) + (uas * 30 / 100)
TextBox7.Text = akhir
If akhir >= 84 Then
TextBox8.Text = "A"
TextBox9.Text = "Memuaskan"
ElseIf akhir >= 64 Then
TextBox8.Text = "B"
TextBox9.Text = "Baik"
ElseIf akhir >= 50 Then
TextBox8.Text = "C"
TextBox9.Text = "Cukup"
ElseIf akhir < 50 Then
TextBox8.Text = "D"
TextBox9.Text = "Gagal" 'LaptopInformatika.com
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
ComboBox1.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pesan As String
pesan = MsgBox("Yakin Mau Keluar ??", vbYesNo, "Konfirmasi") 'LaptopInformatika.com
If pesan = vbYes Then
Close()
End
End If
End Sub
End Class
Dim hadir, tugas, uts, uas As Integer
Dim akhir As Double
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
Me.TextBox2.Focus() 'LaptopInformatika.com
End If
End Sub
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
Dim keyascii As Short = Asc(e.KeyChar)
If (e.KeyChar Like "[A-Z,a-z]" _
OrElse keyascii = Keys.Back _
OrElse keyascii = Keys.Space _
OrElse keyascii = Keys.Return _
OrElse keyascii = Keys.Delete) Then
keyascii = 0
End If
If e.KeyChar = Chr(13) Then
Me.ComboBox1.Focus()
End If
e.Handled = CBool(keyascii) 'LaptopInformatika.com
End Sub
Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
If (e.KeyChar = Chr(13)) Then
Me.TextBox3.Focus() 'LaptopInformatika.com
End If
End Sub
Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
Me.TextBox4.Focus() 'LaptopInformatika.com
End If
End Sub
Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
Me.TextBox5.Focus() 'LaptopInformatika.com
End If
End Sub
Private Sub TextBox5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
Me.TextBox6.Focus() 'LaptopInformatika.com
End If
End Sub
Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
hadir = Val(TextBox3.Text)
tugas = Val(TextBox4.Text)
uts = Val(TextBox5.Text)
uas = Val(TextBox6.Text)
akhir = (hadir * 20 / 100) + (tugas * 25 / 100) + (uts * 25 / 100) + (uas * 30 / 100)
TextBox7.Text = akhir
If akhir >= 84 Then
TextBox8.Text = "A"
TextBox9.Text = "Memuaskan"
ElseIf akhir >= 64 Then
TextBox8.Text = "B"
TextBox9.Text = "Baik"
ElseIf akhir >= 50 Then
TextBox8.Text = "C"
TextBox9.Text = "Cukup"
ElseIf akhir < 50 Then
TextBox8.Text = "D"
TextBox9.Text = "Gagal" 'LaptopInformatika.com
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
ComboBox1.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pesan As String
pesan = MsgBox("Yakin Mau Keluar ??", vbYesNo, "Konfirmasi") 'LaptopInformatika.com
If pesan = vbYes Then
Close()
End
End If
End Sub
End Class
Kasus 3 (If - Then - Else)
- 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 Clear utk membersihkan textbox dan combobox.
- Source Code
Dim harga, jumbel, subtotal, diskon, total As Integer
Dim bayar, kembali As Double
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
Me.TextBox2.Focus() 'LaptopInformatika.com
End If
End Sub
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
Dim keyascii As Short = Asc(e.KeyChar)
If (e.KeyChar Like "[A-Z,a-z]" _
OrElse keyascii = Keys.Back _
OrElse keyascii = Keys.Space _
OrElse keyascii = Keys.Return _
OrElse keyascii = Keys.Delete) Then
keyascii = 0
End If
If e.KeyChar = Chr(13) Then
Me.ComboBox1.Focus()
End If
e.Handled = CBool(keyascii) 'LaptopInformatika.com
End Sub
Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
Dim keyascii As Short = Asc(e.KeyChar)
If (e.KeyChar Like "[A-Z,a-z]" _
OrElse keyascii = Keys.Back _
OrElse keyascii = Keys.Space _
OrElse keyascii = Keys.Return _
OrElse keyascii = Keys.Delete) Then
keyascii = 0
End If
If e.KeyChar = Chr(13) Then
Me.TextBox4.Focus()
End If
e.Handled = CBool(keyascii) 'LaptopInformatika.com
If ComboBox1.Text = "Dus" Then
TextBox3.Text = 100000
ElseIf ComboBox1.Text = "Box" Then
TextBox3.Text = 30000
ElseIf ComboBox1.Text = "Botol" Then
TextBox3.Text = 15000
ElseIf ComboBox1.Text = "Kaplet" Then
TextBox3.Text = 5000
If e.KeyChar = Chr(13) Then
End If
End If
End Sub
Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
harga = Val(TextBox3.Text)
jumbel = (TextBox4.Text)
subtotal = harga * jumbel
TextBox5.Text = subtotal
Me.TextBox8.Focus()
If (e.KeyChar = Chr(13)) Then
TextBox6.Text = diskon
If jumbel >= 100 Then
TextBox6.Text = subtotal * 10 / 100 'LaptopInformatika.com
ElseIf jumbel >= 50 Then
TextBox6.Text = subtotal * 7 / 100
ElseIf jumbel >= 20 Then
TextBox6.Text = subtotal * 4 / 100
End If
subtotal = Val(TextBox5.Text)
diskon = Val(TextBox6.Text)
total = subtotal - diskon
TextBox7.Text = total 'LaptopInformatika.com
End If
End If
End Sub
Private Sub TextBox8_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox8.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
total = Val(TextBox7.Text)
bayar = Val(TextBox8.Text)
kembali = bayar - total
TextBox9.Text = kembali
Me.TextBox9.Focus() 'LaptopInformatika.com
End If
End Sub
Private Sub TextBox9_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox9.KeyPress
If (e.KeyChar = Chr(13)) Then
Me.Button1.Focus()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
ComboBox1.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = "" 'LaptopInformatika.com
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pesan As String
pesan = MsgBox("Yakin Mau Keluar ??", vbYesNo, "Konfirmasi") 'LaptopInformatika.com
If pesan = vbYes Then
Close()
End
End If
End Sub
End Class
Kasus 4 (Nested If)
- Source Code
Dim sks, jumlahsks, total, bayar, kembali As Integer
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
Me.TextBox2.Focus() 'LaptopInformatika.com
End If
End Sub
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
Dim keyascii As Short = Asc(e.KeyChar)
If (e.KeyChar Like "[A-Z,a-z]" _
OrElse keyascii = Keys.Back _
OrElse keyascii = Keys.Space _
OrElse keyascii = Keys.Return _
OrElse keyascii = Keys.Delete) Then
keyascii = 0
End If
e.Handled = CBool(keyascii)
If e.KeyChar = Chr(13) Then
Me.ComboBox1.Focus() 'LaptopInformatika.com
End If
End Sub
Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
If e.KeyChar = Chr(13) Then
Me.ComboBox2.Focus()
End If
End Sub
Private Sub ComboBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox2.KeyPress
Dim keyascii As Short = Asc(e.KeyChar)
If (e.KeyChar Like "[A-Z,a-z]" _
OrElse keyascii = Keys.Back _
OrElse keyascii = Keys.Space _
OrElse keyascii = Keys.Return _
OrElse keyascii = Keys.Delete) Then 'LaptopInformatika.com
keyascii = 0
End If
e.Handled = CBool(keyascii)
If e.KeyChar = Chr(13) Then
Me.TextBox4.Focus()
End If
End Sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
If ComboBox1.Text = "Karyawan" Then
If ComboBox2.Text = "Akutansi" Then
TextBox3.Text = 500000
ElseIf ComboBox2.Text = "Manajemen" Then
TextBox3.Text = 450000
ElseIf ComboBox2.Text = "Informatika" Then 'LaptopInformatika.com
TextBox3.Text = 400000
ElseIf ComboBox2.Text = "Informasi" Then
TextBox3.Text = 380000
End If
ElseIf ComboBox1.Text = "Reguler" Then
If ComboBox2.Text = "Akutansi" Then
TextBox3.Text = 450000
ElseIf ComboBox2.Text = "Manajemen" Then
TextBox3.Text = 400000
ElseIf ComboBox2.Text = "Informatika" Then 'LaptopInformatika.com
TextBox3.Text = 350000
ElseIf ComboBox2.Text = "Informasi" Then
TextBox3.Text = 330000
End If
End If
End Sub
Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
sks = Val(TextBox3.Text)
jumlahsks = Val(TextBox4.Text) 'LaptopInformatika.com
total = sks * jumlahsks
TextBox5.Text = total
TextBox6.Focus()
End If
End Sub
Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
bayar = Val(TextBox6.Text)
kembali = bayar - total
TextBox7.Text = kembali
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
ComboBox1.Text = ""
ComboBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pesan As String
pesan = MsgBox("Yakin Mau Keluar ??", vbYesNo, "Konfirmasi") 'LaptopInformatika.com
If pesan = vbYes Then
Close()
End
End If
End Sub
End Class
Kasus 5 (Nested If)
- Source Code
Public Class Form8
Dim harga, beli, subtotal, diskon, total, bayar, kembali As Integer
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim keyascii As Short = Asc(e.KeyChar)
If (e.KeyChar Like "[A-Z,a-z]" _
OrElse keyascii = Keys.Back _
OrElse keyascii = Keys.Space _
OrElse keyascii = Keys.Return _
OrElse keyascii = Keys.Delete) Then
keyascii = 0
End If
e.Handled = CBool(keyascii)
If e.KeyChar = Chr(13) Then
Me.ComboBox1.Focus() 'LaptopInformatika.com
End If
End Sub
Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
If e.KeyChar = Chr(13) Then
Me.ComboBox2.Focus()
End If
End Sub
Private Sub ComboBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox2.KeyPress
If e.KeyChar = Chr(13) Then
Me.TextBox3.Focus()
End If
End Sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
If ComboBox1.Text = "IMP" Then
If ComboBox2.Text = "XL" Then
TextBox2.Text = 250000
ElseIf ComboBox2.Text = "L" Then
TextBox2.Text = 240000
ElseIf ComboBox2.Text = "M" Then 'LaptopInformatika.com
TextBox2.Text = 230000
End If
ElseIf ComboBox1.Text = "Prada" Then
If ComboBox2.Text = "XL" Then
TextBox2.Text = 170000
ElseIf ComboBox2.Text = "L" Then
TextBox2.Text = 160000
ElseIf ComboBox2.Text = "M" Then
TextBox2.Text = 150000
End If
ElseIf ComboBox1.Text = "Gucci" Then
If ComboBox2.Text = "XL" Then
TextBox2.Text = 280000
ElseIf ComboBox2.Text = "L" Then
TextBox2.Text = 270000
ElseIf ComboBox2.Text = "M" Then 'LaptopInformatika.com
TextBox2.Text = 260000
End If
ElseIf ComboBox1.Text = "Louis" Then
If ComboBox2.Text = "XL" Then
TextBox2.Text = 360000
ElseIf ComboBox2.Text = "L" Then
TextBox2.Text = 350000
ElseIf ComboBox2.Text = "M" Then
TextBox2.Text = 340000
End If
ElseIf ComboBox1.Text = "Denim" Then
If ComboBox2.Text = "XL" Then
TextBox2.Text = 130000
ElseIf ComboBox2.Text = "L" Then
TextBox2.Text = 120000
ElseIf ComboBox2.Text = "M" Then 'LaptopInformatika.com
TextBox2.Text = 110000
End If
End If
End Sub
Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
harga = Val(TextBox2.Text)
beli = Val(TextBox3.Text)
subtotal = harga * beli
TextBox4.Text = subtotal
Dim jumdis As Integer = TextBox3.Text
Select Case jumdis
Case 1 To 20
TextBox5.Text = subtotal * 5 / 100
Case 21 To 50
TextBox5.Text = subtotal * 10 / 100 'LaptopInformatika.com
End Select
diskon = Val(TextBox5.Text)
total = subtotal - diskon
TextBox6.Text = total
Me.TextBox7.Focus()
End If
End Sub
Private Sub TextBox7_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox7.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
total = Val(TextBox6.Text)
bayar = Val(TextBox7.Text)
kembali = bayar - total
TextBox8.Text = kembali
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
ComboBox1.Text = ""
ComboBox2.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pesan As String
pesan = MsgBox("Yakin Mau Keluar ??", vbYesNo, "Konfirmasi") 'LaptopInformatika.com
If pesan = vbYes Then
Close()
End
End If
End Sub
End Class
Oke segitu dulu ya pelajaran kita, nanti kita lanjut lagi hehehe :D
Dim harga, beli, subtotal, diskon, total, bayar, kembali As Integer
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim keyascii As Short = Asc(e.KeyChar)
If (e.KeyChar Like "[A-Z,a-z]" _
OrElse keyascii = Keys.Back _
OrElse keyascii = Keys.Space _
OrElse keyascii = Keys.Return _
OrElse keyascii = Keys.Delete) Then
keyascii = 0
End If
e.Handled = CBool(keyascii)
If e.KeyChar = Chr(13) Then
Me.ComboBox1.Focus() 'LaptopInformatika.com
End If
End Sub
Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
If e.KeyChar = Chr(13) Then
Me.ComboBox2.Focus()
End If
End Sub
Private Sub ComboBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox2.KeyPress
If e.KeyChar = Chr(13) Then
Me.TextBox3.Focus()
End If
End Sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
If ComboBox1.Text = "IMP" Then
If ComboBox2.Text = "XL" Then
TextBox2.Text = 250000
ElseIf ComboBox2.Text = "L" Then
TextBox2.Text = 240000
ElseIf ComboBox2.Text = "M" Then 'LaptopInformatika.com
TextBox2.Text = 230000
End If
ElseIf ComboBox1.Text = "Prada" Then
If ComboBox2.Text = "XL" Then
TextBox2.Text = 170000
ElseIf ComboBox2.Text = "L" Then
TextBox2.Text = 160000
ElseIf ComboBox2.Text = "M" Then
TextBox2.Text = 150000
End If
ElseIf ComboBox1.Text = "Gucci" Then
If ComboBox2.Text = "XL" Then
TextBox2.Text = 280000
ElseIf ComboBox2.Text = "L" Then
TextBox2.Text = 270000
ElseIf ComboBox2.Text = "M" Then 'LaptopInformatika.com
TextBox2.Text = 260000
End If
ElseIf ComboBox1.Text = "Louis" Then
If ComboBox2.Text = "XL" Then
TextBox2.Text = 360000
ElseIf ComboBox2.Text = "L" Then
TextBox2.Text = 350000
ElseIf ComboBox2.Text = "M" Then
TextBox2.Text = 340000
End If
ElseIf ComboBox1.Text = "Denim" Then
If ComboBox2.Text = "XL" Then
TextBox2.Text = 130000
ElseIf ComboBox2.Text = "L" Then
TextBox2.Text = 120000
ElseIf ComboBox2.Text = "M" Then 'LaptopInformatika.com
TextBox2.Text = 110000
End If
End If
End Sub
Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
harga = Val(TextBox2.Text)
beli = Val(TextBox3.Text)
subtotal = harga * beli
TextBox4.Text = subtotal
Dim jumdis As Integer = TextBox3.Text
Select Case jumdis
Case 1 To 20
TextBox5.Text = subtotal * 5 / 100
Case 21 To 50
TextBox5.Text = subtotal * 10 / 100 'LaptopInformatika.com
End Select
diskon = Val(TextBox5.Text)
total = subtotal - diskon
TextBox6.Text = total
Me.TextBox7.Focus()
End If
End Sub
Private Sub TextBox7_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox7.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If (e.KeyChar = Chr(13)) Then
total = Val(TextBox6.Text)
bayar = Val(TextBox7.Text)
kembali = bayar - total
TextBox8.Text = kembali
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
ComboBox1.Text = ""
ComboBox2.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pesan As String
pesan = MsgBox("Yakin Mau Keluar ??", vbYesNo, "Konfirmasi") 'LaptopInformatika.com
If pesan = vbYes Then
Close()
End
End If
End Sub
End Class
Oke segitu dulu ya pelajaran kita, nanti kita lanjut lagi hehehe :D
Makasih bang sangat membantu dan pokoknya mantap lah tugas saya jadi terbantu
ReplyDelete