Tutorial Membuat Aplikasi Penjualan Tiket Pada Loket Medan Jaya dengan VB.NET 2008
Kali ini saya berbagi coding untuk membuat Aplikasi Penjualan Tiket Pada Loket Medan Jaya dengan VB.NET 2008.
Okey langsung saja ke koding ya !!!
Langhkah awal mulailah mendesain di Form anda (Seperti gambar di bawah) !
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
For i = 1 To 5 Step 1
nobus.Items.Add(i)
Next i
Call buattabel()
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
Me.Close()
End Sub
Private Sub nobus_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nobus.SelectedIndexChanged
If nobus.Text = 1 Then
tujuan.Text = "Medan"
ongkos.Text = 140000
ElseIf nobus.Text = 2 Then
tujuan.Text = "Pinang Baris"
ongkos.Text = 160000
ElseIf nobus.Text = 3 Then
tujuan.Text = "Lubuk Pakam"
ongkos.Text = 150000
ElseIf nobus.Text = 4 Then
tujuan.Text = "Tanjung Morawa"
ongkos.Text = 140000
Else
tujuan.Text = "Marindal"
End If
End Sub
Sub buattabel()
lv.Columns.Add("No Bus", 80, HorizontalAlignment.Center)
lv.Columns.Add("Tujuan", 120, HorizontalAlignment.Center)
lv.Columns.Add("Ongkos", 100, HorizontalAlignment.Center)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = nobus.Text
lst.SubItems.Add(tujuan.Text)
lst.SubItems.Add(ongkos.Text)
lv.Items.Add(lst)
End Sub
Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
Call isitabel()
nobus.Text = ""
tujuan.Text = ""
ongkos.Text = ""
End Sub
Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click
nobus.Text = ""
tujuan.Text = ""
ongkos.Text = ""
End Sub
Private Sub pilihhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pilihhapus.Click
lv.Items.Clear()
End Sub
Private Sub hapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdata.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
End Class
Terimakasih Sudah membaca artikel Program Sederhana Loket Medan Jaya dengan VB.NET 2008. Semoga dapat bermanfaat bagi anda. :)
Okey langsung saja ke koding ya !!!
Langhkah awal mulailah mendesain di Form anda (Seperti gambar di bawah) !
Langkah kedua ikuti koding di bawah ini !!!
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
For i = 1 To 5 Step 1
nobus.Items.Add(i)
Next i
Call buattabel()
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
Me.Close()
End Sub
Private Sub nobus_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nobus.SelectedIndexChanged
If nobus.Text = 1 Then
tujuan.Text = "Medan"
ongkos.Text = 140000
ElseIf nobus.Text = 2 Then
tujuan.Text = "Pinang Baris"
ongkos.Text = 160000
ElseIf nobus.Text = 3 Then
tujuan.Text = "Lubuk Pakam"
ongkos.Text = 150000
ElseIf nobus.Text = 4 Then
tujuan.Text = "Tanjung Morawa"
ongkos.Text = 140000
Else
tujuan.Text = "Marindal"
End If
End Sub
Sub buattabel()
lv.Columns.Add("No Bus", 80, HorizontalAlignment.Center)
lv.Columns.Add("Tujuan", 120, HorizontalAlignment.Center)
lv.Columns.Add("Ongkos", 100, HorizontalAlignment.Center)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = nobus.Text
lst.SubItems.Add(tujuan.Text)
lst.SubItems.Add(ongkos.Text)
lv.Items.Add(lst)
End Sub
Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
Call isitabel()
nobus.Text = ""
tujuan.Text = ""
ongkos.Text = ""
End Sub
Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click
nobus.Text = ""
tujuan.Text = ""
ongkos.Text = ""
End Sub
Private Sub pilihhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pilihhapus.Click
lv.Items.Clear()
End Sub
Private Sub hapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdata.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
End Class
Setelah Koding anda masukkan silahkan tekan tombol F5 untuk meenjalankan program !!
![]() | ||||
Gambar Setelah Program Dijalankan |
Terimakasih Sudah membaca artikel Program Sederhana Loket Medan Jaya dengan VB.NET 2008. Semoga dapat bermanfaat bagi anda. :)