Pemrograman Visual (Logika Perbandingan)

Berikut adalah sebuah contoh program sederhana menggunakan bahasa VB.net. Program ini menggunakan logika perbandingan (If, Select Case).

 

Berikut uraian kode nya.


Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Add("Premium")
        ListBox1.Items.Add("Pertamax")
        ListBox1.Items.Add("Solar")
        ComboBox1.Items.Add("Sepeda Motor")
        ComboBox1.Items.Add("Mobil")
        ComboBox1.Items.Add("Truk")
    End Sub
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Select Case ListBox1.SelectedIndex
            Case 0
                TextBox1.Text = "4500"
            Case 1
                TextBox1.Text = "10400"
            Case Else
                TextBox1.Text = "4000"
        End Select
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Select Case ComboBox1.SelectedIndex
            Case 0
                Label9.Text = ": 2"
            Case 1
                Label9.Text = ": 4"
            Case Else
                Label9.Text = ": 6"
        End Select
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim jl, ju As Double
        If (RadioButton1.Checked = True) Then
            Label10.Text = ": " & TextBox2.Text
            jl = Val(TextBox1.Text) * Val(TextBox2.Text)
            Label11.Text = ": " & CStr(jl)
        ElseIf (RadioButton2.Checked = True) Then
            Label11.Text = ": " & TextBox2.Text
            ju = Val(TextBox2.Text) / Val(TextBox1.Text)
            Label10.Text = ": " & CStr(ju)
        End If
    End Sub
End Class