Contoh Kasus Penggunaan IF...Then Penjualan Tiket Kereta Api

Kalau Sebelumnya Kita Sudah mengetahui penggunaan SELECT CASE ,
Sekarang kita harus tahu juga bagaimana penggunaan IF...Then



Desaign yukk

Nich Codingnya :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Kode.Items.Add("K1")
        Kode.Items.Add("K2")
        Kode.Items.Add("K3")

        Tujuan.Items.Add("Medan-Perbaungan")
        Tujuan.Items.Add("Medan-Kisaran")
        Tujuan.Items.Add("Medan-Tebing Tinggi")
        Tujuan.Items.Add("Medan-Rantau Prapat")
        Tujuan.Items.Add("Medan-Kuala Namu")


        Tanggal.Text = Date.Now.ToString("dd/MM/yyyy")
        Timer1.Enabled = True

       
    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        If Kode.Text = "K1" Then
            JenisKereta.Text = "Kelas Eksekutif"
        ElseIf Kode.Text = "K2" Then
            JenisKereta.Text = "Kelas Bisnis"
        ElseIf Kode.Text = "K3" Then
            JenisKereta.Text = "Kelas Ekonomi"
        End If
    End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        Total.Text = HargaTiket.Text * JumlahTiket.Text
    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Me.Close()
    End Sub
End Class

ini Hasilnya ,,,