Public Class Form_sampul
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form1.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
tiket.Show()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Entry_Dan_Cek_Bus.Show()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Entry_Data_Penumpang.Show()
End Sub
End Class
Public Class Form1
Dim isi(8) As String
Dim liat As ListViewItem
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox6.Text = ""
TextBox5.Text = ""
ComboBox1.Text = "Bandung"
ComboBox2.Text = "Ekonomi"
End Sub
Sub isicombo()
ComboBox1.Items.Add("Jakarta")
ComboBox1.Items.Add("Bandung")
ComboBox1.Items.Add("Surabaya")
ComboBox1.Items.Add("Yogyakarta")
ComboBox1.Items.Add("Madiun")
End Sub
Sub isicombo1()
ComboBox2.Items.Add("Ekonomi")
ComboBox2.Items.Add("Ac")
ComboBox2.Items.Add("Bisnis")
ComboBox2.Items.Add("Eksekutif")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Input" Then
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button5.Text = "Batal"
Button4.Enabled = False
Else
isi(0) = Trim(TextBox1.Text)
isi(1) = Trim(TextBox3.Text)
isi(2) = Trim(TextBox6.Text)
isi(3) = Trim(TextBox5.Text)
isi(4) = Trim(DateTimePicker1.Value)
isi(5) = Microsoft.VisualBasic.Left(Trim(ComboBox1.Text), 15)
isi(6) = Microsoft.VisualBasic.Left(Trim(ComboBox2.Text), 15)
isi(7) = Trim(TextBox2.Text)
liat = New ListViewItem(isi)
ListView1.Items.Add(liat)
Call bersih()
TextBox1.Focus()
End If
End Sub
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
Call isicombo()
Call isicombo1()
Call piuw()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Button5.Text = "Exit" Then
Me.Close()
Else
Call bersih()
Call normal()
End If
End Sub
Sub normal()
Button1.Text = "Input"
Button1.Enabled = True
Button2.Text = "Edit"
Button2.Enabled = True
Button3.Text = "Delete"
Button3.Enabled = True
Button4.Text = "Cek Bus"
Button4.Enabled = True
Button5.Text = "Exit"
Button5.Enabled = True
End Sub
Sub piuw()
ListView1.View = View.Details
ListView1.Columns.Add("No Pesan", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Penumpang", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Bus", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Kursi", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tgl Berangkat", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tujuan", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Kelas", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Harga", 100, HorizontalAlignment.Center)
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub
End Class
Public Class tiket
Dim isi(15) As String
Dim liat As ListViewItem
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
ComboBox1.Text = "Bandung"
ComboBox2.Text = "Ekonomi"
End Sub
Sub isicombo()
ComboBox1.Items.Add("Jakarta")
ComboBox1.Items.Add("Bandung")
ComboBox1.Items.Add("Surabaya")
ComboBox1.Items.Add("Yogyakarta")
ComboBox1.Items.Add("Madiun")
End Sub
Sub isicombo1()
ComboBox2.Items.Add("Ekonomi")
ComboBox2.Items.Add("Ac")
ComboBox2.Items.Add("Bisnis")
ComboBox2.Items.Add("Eksekutif")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Input" Then
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button5.Text = "Batal"
Button4.Enabled = False
Else
isi(0) = Trim(TextBox1.Text)
isi(1) = Trim(TextBox3.Text)
isi(2) = Trim(TextBox6.Text)
isi(3) = Trim(TextBox5.Text)
isi(4) = Trim(TextBox5.Text)
isi(5) = Trim(TextBox5.Text)
isi(6) = Trim(DateTimePicker1.Value)
isi(7) = Trim(DateTimePicker1.Value)
isi(8) = Microsoft.VisualBasic.Left(Trim(ComboBox1.Text), 15)
isi(9) = Microsoft.VisualBasic.Left(Trim(ComboBox2.Text), 15)
isi(10) = Trim(TextBox2.Text)
isi(11) = Trim(TextBox5.Text)
isi(12) = Trim(TextBox5.Text)
isi(13) = Trim(TextBox5.Text)
isi(14) = Trim(TextBox5.Text)
isi(15) = Trim(TextBox5.Text)
liat = New ListViewItem(isi)
ListView1.Items.Add(liat)
Call bersih()
TextBox1.Focus()
End If
End Sub
Private Sub tiket_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
Call isicombo()
Call isicombo1()
Call piuw()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Button5.Text = "Exit" Then
Me.Close()
Else
Call bersih()
Call normal()
End If
End Sub
Sub normal()
Button1.Text = "Input"
Button1.Enabled = True
Button2.Text = "Edit"
Button2.Enabled = True
Button3.Text = "Delete"
Button3.Enabled = True
Button4.Text = "Bayar"
Button4.Enabled = True
Button5.Text = "Exit"
Button5.Enabled = True
End Sub
Sub piuw()
ListView1.View = View.Details
ListView1.Columns.Add("No Tiket", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Pesan", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Penumpaag", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Bus", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Kursi", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Kd Pts", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tgl Berangkat", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tgl Bayar", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tujuan", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Kelas Bus", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Harga", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Jum Tiket", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Total", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Pot Harga", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Bayar", 100, HorizontalAlignment.Center)
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub
End Class
Public Class Entry_Dan_Cek_Bus
Dim isi(5) As String
Dim liat As ListViewItem
Private Sub Entry_Dan_Cek_Bus_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
Call isicombo()
Call isicombo1()
Call piuw()
End Sub
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = "Bandung"
ComboBox2.Text = "Ekonomi"
End Sub
Sub isicombo()
ComboBox1.Items.Add("Jakarta")
ComboBox1.Items.Add("Bandung")
ComboBox1.Items.Add("Surabaya")
ComboBox1.Items.Add("Yogyakarta")
ComboBox1.Items.Add("Madiun")
End Sub
Sub isicombo1()
ComboBox2.Items.Add("Ekonomi")
ComboBox2.Items.Add("Ac")
ComboBox2.Items.Add("Bisnis")
ComboBox2.Items.Add("Eksekutif")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Input" Then
Button1.Text = "Simpan"
Button3.Enabled = False
Button3.Enabled = False
Button5.Text = "Batal"
Button4.Enabled = False
Else
isi(0) = Trim(TextBox1.Text)
isi(1) = Trim(TextBox3.Text)
isi(2) = Trim(TextBox2.Text)
isi(3) = Microsoft.VisualBasic.Left(Trim(ComboBox1.Text), 15)
isi(4) = Microsoft.VisualBasic.Left(Trim(ComboBox2.Text), 15)
liat = New ListViewItem(isi)
ListView1.Items.Add(liat)
Call bersih()
TextBox1.Focus()
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Button5.Text = "Exit" Then
Me.Close()
Else
Call bersih()
Call normal()
End If
End Sub
Sub normal()
Button1.Text = "Input"
Button1.Enabled = True
Button3.Text = "Edit"
Button3.Enabled = True
Button3.Text = "Delete"
Button3.Enabled = True
Button4.Text = "Cari"
Button4.Enabled = True
Button5.Text = "Exit"
Button5.Enabled = True
End Sub
Sub piuw()
ListView1.View = View.Details
ListView1.Columns.Add("No Bus", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Kursi", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tgl Berangkat", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tujuan", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Kelas", 100, HorizontalAlignment.Center)
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub
End Class
Public Class Entry_Data_Penumpang
Dim isi(4) As String
Dim liat As ListViewItem
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Input" Then
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
Button4.Enabled = False
Else
isi(0) = Trim(TextBox1.Text)
isi(1) = Trim(TextBox3.Text)
isi(2) = Trim(TextBox2.Text)
isi(3) = Trim(TextBox4.Text)
liat = New ListViewItem(isi)
ListView1.Items.Add(liat)
Call bersih()
TextBox1.Focus()
End If
End Sub
Private Sub Entry_Data_Penumpang_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
Call piuw()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "Exit" Then
Me.Close()
Else
Call bersih()
Call normal()
End If
End Sub
Sub normal()
Button1.Text = "Input"
Button1.Enabled = True
Button2.Text = "Edit"
Button2.Enabled = True
Button3.Text = "Delete"
Button3.Enabled = True
Button4.Text = "Exit"
Button4.Enabled = True
End Sub
Sub piuw()
ListView1.View = View.Details
ListView1.Columns.Add("No Penumpang", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nm Penumpang", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Alamat", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Tlp", 100, HorizontalAlignment.Center)
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub
End Class
