Coding If.... Else

    Private Sub sesi5_Load
        ComboBox1.Items.Add("B001")
        ComboBox1.Items.Add("B002")
        ComboBox1.Items.Add("B003")
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged
        If ComboBox1.Text = "B001" Then
            TextBox1.Text = "Sabun"
            TextBox2.Text = "1000"
        ElseIf ComboBox1.Text = "B002" Then
            TextBox1.Text = "Rinso"
            TextBox2.Text = "1200"
        ElseIf ComboBox1.Text = "B003" Then
            TextBox1.Text = "Sikat"
            TextBox2.Text = "3000"
        End If
    End Sub

    Private Sub Button1_Click
        TextBox4.Text = TextBox2.Text * TextBox3.Text
        If TextBox4.Text > 2000 Then
            TextBox5.Text = TextBox4.Text * 0.1
        ElseIf TextBox4.Text < 2000 Then
            TextBox5.Text = "0"
        ElseIf TextBox4.Text = 2000 Then
            TextBox5.Text = "0"
        End If
    End Sub

    Private Sub Button2_Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        ComboBox1.Text = ""
    End Sub
End Class

Tinggalkan Komentar Anda Untuk Memperbaiki Isi Blog ini