Program Penjualan Tiket Pesawat

Belajar bahasa pemograman itu ternyata sangatlah mudah bila kita serius dan betul-betul memahaminya, betul gak,,,,,!!!,
semua itu tidak ada yang tidak bisa kita lakukan, selagi kita punya minat untuk berbuat,, nah justru itu  berikut saya akan mencoba berbagi kepada kita semua tentang bagaimana cara memprogram penjualan tiket pesawat tanpa menggunakan button proses,,, tapi dengan menggunakan "keypress",, supaya lebih jelasnya,, Berikut coding programnya. 

Public Class btnbatal
    Private Sub btnbatal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call addkodetiket()
        Call addjenispesawat()

        harga.Enabled = False
        total.Enabled = False

    End Sub
    Sub addkodetiket()
        kodetiket.Items.Add("KD001")
        kodetiket.Items.Add("KD002")
        kodetiket.Items.Add("KD003")
        kodetiket.Items.Add("KD004")

    End Sub
    Sub addjenispesawat()
        jenispesawat.Items.Add("LION AIR")
        jenispesawat.Items.Add("GARUDA")
        jenispesawat.Items.Add("WINGS")
        jenispesawat.Items.Add("BATAVIA AIR")
    End Sub

    Private Sub jenispesawat_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jenispesawat.SelectedIndexChanged
        Select Case jenispesawat.Text
            Case "LION AIR"
                tujuan.Text = "Medan-Jakarta"
                harga.Text = 850000
            Case "GARUDA"
                tujuan.Text = "Medan-Bandung"
                harga.Text = 1200000
            Case "WINGS"
                tujuan.Text = "Medan-Kalimantan"
                harga.Text = 900000
            Case "BATAVIA AIR"
                tujuan.Text = "Medan-Padang"
                harga.Text = 750000
            Case Else
                jenispesawat.Text = "-"

        End Select
    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then
            e.Handled = True
        End If
        If Asc(e.KeyChar) = 13 Then
            If harga.Text = "" Then
                MsgBox("Maaf, jenis pesawat belum dipilih")
                jumlah.Text = ""
                jenispesawat.Focus()
            Else
                total.Text = Val(jumlah.Text) * Val(harga.Text)
            End If
        End If
    End Sub
    Sub bersihform(ByVal f As Form)
        Dim i As Object
        For Each i In f.Controls
            If TypeOf i Is TextBox Then i.Text = ""
            If TypeOf i Is ComboBox Then i.Text = ""

        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        bersihform(Me)
    End Sub

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

Selamat Mencoba,,,,:)