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.