Pemrograman 5

Nama TextBox Hasil : hasil

Public Class Kasus4
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim x, y, w As Integer
        Dim a, z As String
        x = InputBox("Masukkan Bilai 1", "Entry Bilangan 1", "")
        y = InputBox("Masukkan Bilai 2", "Entry Bilangan 2", "")
        w = InputBox("Masukkan Bilai 3", "Entry Bilangan 3", "")
        a = InputBox("Masukkan Operator 1", "Entry operator 1", "")
        z = InputBox("Masukkan Operator 2", "Entry operator 2", "")

        If a = "+" And z = "+" Then
            hasil.Text = Val(x) + Val(y) + Val(w)
        ElseIf a = "+" And z = "-" Then
            hasil.Text = Val(x) + Val(y) - Val(w)
        ElseIf a = "+" And z = "x" Then
            hasil.Text = Val(x) + Val(y) * Val(w)
        ElseIf a = "+" And z = "/" Then
            hasil.Text = Val(x) + Val(y) / Val(w)
        ElseIf a = "+" And z = "mod" Then
            hasil.Text = Val(x) + Val(y) Mod Val(w)
        ElseIf a = "-" And z = "-" Then
            hasil.Text = Val(x) - Val(y) - Val(w)
        ElseIf a = "-" And z = "+" Then
            hasil.Text = Val(x) - Val(y) + Val(w)
        ElseIf a = "-" And z = "x" Then
            hasil.Text = Val(x) - Val(y) * Val(w)
        ElseIf a = "-" And z = "/" Then
            hasil.Text = Val(x) - Val(y) / Val(w)
        ElseIf a = "-" And z = "mod" Then
            hasil.Text = Val(x) - Val(y) Mod Val(w)
        ElseIf a = "x" And z = "x" Then
            hasil.Text = Val(x) * Val(y) * Val(w)
        ElseIf a = "x" And z = "/" Then
            hasil.Text = Val(x) * Val(y) / Val(w)
        ElseIf a = "x" And z = "+" Then
            hasil.Text = Val(x) * Val(y) + Val(w)
        ElseIf a = "x" And z = "-" Then
            hasil.Text = Val(x) * Val(y) - Val(w)
        ElseIf a = "x" And z = "mod" Then
            hasil.Text = Val(x) * Val(y) Mod Val(w)
        ElseIf a = "/" And z = "/" Then
            hasil.Text = Val(x) / Val(y) / Val(w)
        ElseIf a = "/" And z = "x" Then
            hasil.Text = Val(x) / Val(y) * Val(w)
        ElseIf a = "/" And z = "+" Then
            hasil.Text = Val(x) / Val(y) + Val(w)
        ElseIf a = "/" And z = "-" Then
            hasil.Text = Val(x) / Val(y) - Val(w)
        ElseIf a = "/" And z = "mod" Then
            hasil.Text = Val(x) / Val(y) Mod Val(w)
        ElseIf a = "mod" And z = "mod" Then
            hasil.Text = Val(x) Mod Val(y) Mod Val(w)
        ElseIf a = "mod" And z = "x" Then
            hasil.Text = Val(x) Mod Val(y) * Val(w)
        ElseIf a = "mod" And z = "/" Then
            hasil.Text = Val(x) Mod Val(y) / Val(w)
        ElseIf a = "mod" And z = "+" Then
            hasil.Text = Val(x) Mod Val(y) + Val(w)
        ElseIf a = "mod" And z = "-" Then
            hasil.Text = Val(x) Mod Val(y) - Val(w)
        Else
            hasil.Text = 0
        End If
    End Sub
End Class

Pemrograman 4

Nama ComboBox 1 : KB
Nama ComboBox 2 : KS
Nama TextBox 1 : NB
Nama TextBox 2 : NS
Nama TextBox 3 : HS
Nama TextBox 4 : JB
Nama TextBox 5 : jumbay
Nama TextBox 6 : UYD
Nama TextBox 7 : SB
Nama TextBox 8 : JD
Nama TextBox 9 : TB
Nama RadioButton 1 : cash
Nama RadioButton 2 : kredit
Nama CheckBox 1 : ya
Nama CheckBox 2 : tdk

Public Class Form2

    Private Sub KB_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles KB.Click
        If KB.Text = "G001" Then
            NB.Text = "Gula"
        ElseIf KB.Text = "GG001" Then
            NB.Text = "Rokok"
        ElseIf KB.Text = "M001" Then
            NB.Text = "Mie Instant"
        Else
            NB.Text = ""
        End If
    End Sub

    Private Sub KB_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB.SelectedIndexChanged
        If KB.Text = "G001" Then
            NB.Text = "Gula"
        ElseIf KB.Text = "GG001" Then
            NB.Text = "Rokok"
        ElseIf KB.Text = "M001" Then
            NB.Text = "Mie Instant"
        Else
            NB.Text = ""
        End If
    End Sub

    Private Sub KS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles KS.Click
        If KS.Text = "BH" Then
            NS.Text = "Buah"
        ElseIf KS.Text = "KG" Then
            NS.Text = "Kilogram"
        ElseIf KS.Text = "GR" Then
            NS.Text = "Gram"
        ElseIf KS.Text = "ONS" Then
            NS.Text = "Ons"
        ElseIf KS.Text = "LS" Then
            NS.Text = "Lusin"
        Else
            NS.Text = ""
        End If
    End Sub

    Private Sub KS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KS.SelectedIndexChanged
        If KS.Text = "BH" Then
            NS.Text = "Buah"
        ElseIf KS.Text = "KG" Then
            NS.Text = "Kilogram"
        ElseIf KS.Text = "GR" Then
            NS.Text = "Gram"
        ElseIf KS.Text = "ONS" Then
            NS.Text = "Ons"
        ElseIf KS.Text = "LS" Then
            NS.Text = "Lusin"
        Else
            NS.Text = ""
        End If
    End Sub

    Private Sub NB_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NB.TextChanged
        If NB.Text = "Gula" And NS.Text = "Kilogram" Then
            HS.Text = 7000
        ElseIf NB.Text = "Mie Instant" And NS.Text = "Buah" Then
            HS.Text = 2000
        ElseIf NB.Text = "Mie Instant" And NS.Text = "Lusin" Then
            HS.Text = 20000
        End If
    End Sub

    Private Sub NS_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NS.TextChanged
        If NB.Text = "Gula" And NS.Text = "Kilogram" Then
            HS.Text = 7000
        ElseIf NB.Text = "Mie Instant" And NS.Text = "Buah" Then
            HS.Text = 2000
        ElseIf NB.Text = "Mie Instant" And NS.Text = "Lusin" Then
            HS.Text = 20000
        End If
    End Sub

    Private Sub cash_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cash.CheckedChanged
        jumbay.Text = Val(JB.Text) * Val(HS.Text)
    End Sub

    Private Sub kredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kredit.CheckedChanged
        jumbay.Text = Val(JB.Text) * Val(HS.Text)
        ya.Enabled = False
        tdk.Enabled = False
        JD.Text = 0
        UYD.Text = 0
        SB.Text = 0
    End Sub

    Private Sub ya_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ya.CheckedChanged
        If NB.Text = "Gula" And NS.Text = "Kilogram" And JB.Text > 20 Then
            JD.Text = Val(jumbay.Text) * 0.2
        ElseIf NB.Text = "Gula" And NS.Text = "Kilogram" And JB.Text > 10 Then
            JD.Text = Val(jumbay.Text) * 0.1
        Else
            JD.Text = 0
        End If
        tdk.Checked = False
    End Sub

    Private Sub tdk_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tdk.CheckedChanged
        JD.Text = 0
        ya.Checked = False
    End Sub

    Private Sub jumbay_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumbay.TextChanged
        TB.Text = Val(jumbay.Text) - Val(JD.Text)
    End Sub

    Private Sub JD_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JD.TextChanged
        TB.Text = Val(jumbay.Text) - Val(JD.Text)
    End Sub

    Private Sub TB_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB.TextChanged
        SB.Text = Val(UYD.Text) - Val(TB.Text)
    End Sub

    Private Sub UYD_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UYD.TextChanged
        SB.Text = Val(UYD.Text) - Val(TB.Text)
    End Sub
End Class