Contoh Penggunaan Fungsi IF dan Case Visual Basic

 

Script Code :

Public Class Form1

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

        Kode.Items.Add("TS001")

        Kode.Items.Add("TS002")

        Kode.Items.Add("VG001")

        Kode.Items.Add("VG002")

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Left(Kode.Text, 2)

        Select Case x

            Case "TS" : Merk.Text = "Kingston"

            Case "VG" : Merk.Text = "HP"

        End Select

        Dim x2 As String

        x2 = Microsoft.VisualBasic.Right(Kode.Text, 3)

        If x = "TS" And x2 = "001" Then

            Harga.Text = "105000"

        ElseIf x = "TS" And x2 = "002" Then

            Harga.Text = "75000"

        ElseIf x = "VG" And x2 = "001" Then

            Harga.Text = "90000"

        ElseIf x = "VG" And x2 = "002" Then

            Harga.Text = "60000"

        End If

        x = Microsoft.VisualBasic.Right(Kode.Text, 3)

        Select Case x

            Case "001" : Nama.Text = "Flashdisk 4 GB"

            Case "002" : Nama.Text = "Flashdisk 2 GB"

        End Select

    End Sub

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

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            BtnProses_Click(sender, e)

        End If

    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        Total.Text = Harga.Text * Jumlah.Text

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        End

    End Sub

End Class

Semoga Bermanfaat.
:)