contoh aplikas penghitung harga tiket pesawat menggunakan Visual Studio 2010

     Oke Gan, kali ini saya akan memberikan contoh bagaimana membuat aplikasi penghitung tiket pesawat dengan menggunakan Visual Studio 2010

ini adalah gambar contoh dari aplikasi yang sudah saya buat sebelumnya

Oke langsung saja


bagian pertama
Kita buat dulu form seperti gambar di atas



bagian kedua 
Setelah itu kita ketikan coding di bawah


Public Class Form1

coding untuk keluar

   Private Sub Button3_Click (ByVal sender As System.Object, ByVal e As System.EventArgs)               Handles Button3.Click
           End
    End Sub

    Private Sub Form1_Load (ByVal sender As System.Object, ByVal e As System.EventArgs)
    Handles MyBase.Load
        Dim A As Integer
        For A = 1 To 100
            ComboBox1.Items.Add (A)
        Next A

coding untuk memunculkan jurusan di listbox

        ListBox1.Items.Add("SANGGAU")
        ListBox1.Items.Add("SINGKAWANG")
        ListBox1.Items.Add("SINTANG")
    End Sub

coding untuk pemberian nilai untuk setiap index dalam listbox

    Private Sub ListBox1_SelectedIndexChanged (ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles ListBox1.SelectedIndexChanged
        If ListBox1.SelectedIndex = 0 Then
            TextBox1.Text = 230000
        ElseIf ListBox1.SelectedIndex = 1 Then
            TextBox1.Text = 185000
        ElseIf ListBox1.SelectedIndex = 2 Then
            TextBox1.Text = 275000
        End If
    End Sub

coding untuk menghapus 

    Private Sub Button2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs)
    Handles Button2.Click
        ListBox1.SelectedIndex = False
        TextBox1.Text = ""
        TextBox2.Text = ""
        ComboBox1.SelectedValue = False
    End Sub

coding untuk menghitung dari keseluruhan yang harus di bayar

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Handles Button1.Click
        If ComboBox1.SelectedItem = 0 Then
            TextBox2.Text = ""
        Else
            TextBox2.Text = TextBox1.Text * ComboBox1.SelectedItem
        End If
    End Sub
End Class

semoga bermanfaat untuk agan semua 

Share This :