Pertemuan 3 dan 4: 23 Februari 2015 Aplikasi Menghitung Jarak Tempuh dan Aplikasi Pembelian Tiket Stadion Sepakbola pada VB .NET

Membuat aplikasi menghitung jarak tempuh dan penjualan tiket
Pada kesempatan ini saya akan menjelaskan tutorial yang berhubungan dengan VB .NET. Tutorial berikut adalah mengenai cara membuat aplikasi sederhana yaitu menghitung jarak tempuh setelah mengisi kendaraan kita dengan bahan bakar, berapa liter kendaraan yang kita isi dan jarak berapa kilometer-kah yang ditempuh dan berapa liter-kah yang dihabiskan. Selain itu, saya membuat aplikasi penjualan tiket stadion sepakbola juga. Di aplikasi penjualan ini, tersedia kelas-kelas tertentu dan menghitung jumlah penghasilan yang didapat dari penjualan tiket tersebut. Harga setiap kelas berbeda-beda tergantung lokasi kursi tersebut.

Pertama, kita akan membuat aplikasi menghitung jarak tempuh suatu kendaraan setelah pengisian bahan bakar. Berapa liter-kah bahan bakar yang dihabiskan? Langsung saja ke TKP

-Pertama, buka aplikasi VB 2008 atau 2010

-Klik New Project kemudian pilih Windows Form Application

-Setelah dibuka, akan muncul gambar berikut

Terdapat form kecil yang kosong

-Buat form seperti berikut dengan Toolbox yang ada di kiri form tersebut

Mulai dari TextBox, Label dan Button

-Kemudian masukan source code seperti berikut.

Public Class Form3

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

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Text = TextBox1.Text / TextBox2.Text
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Text = String.Empty
    End Sub

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

    End Sub
End Class

-Dan hasilnya adalah:

Cukup mudah bukan? Selamat mencoba...

 Sekarang kita akan membuat aplikasi penjualan tiket di stadion sepakbola. Di sini ada beberapa kelas dan kursi tergantung besaran harga. Dan selain itu ada penghitungan jumlah penghasilan yang didapat dari penjualan tiket tersebut.

Sama seperti aplikasi pertama,

-Buka VB 2008 atau 2010.

-Klik New Project kemudian pilih Windows Form Application

-Setelah dibuka, akan muncul gambar berikut

Terdapat form kecil yang kosong

-Buat form seperti berikut dengan Toolbox yang ada di kiri form tersebut

Mulai dari GroupBox, Label, TextBox, dan juga Button

-Dan berikut source code-nya

Public Class Form4
    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox10.Text = Val(TextBox1.Text) * 500000
        TextBox9.Text = Val(TextBox2.Text) * 250000
        TextBox8.Text = Val(TextBox3.Text) * 150000
        TextBox7.Text = Val(TextBox4.Text) * 100000

        TextBox6.Text = Val(TextBox10.Text) + Val(TextBox9.Text) + Val(TextBox8.Text) + Val(TextBox7.Text)

        TextBox5.Text = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""
        TextBox10.Text = ""
    End Sub

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

    End Sub
End Class

-Berikut hasilnya

Selamat mencoba.

Mohon maaf bila ada kesalahan pengetikan. Terima kasih.