PESAN TIKET ONLINE BIOSKOP CINEMA XXI
Penggunaan Aplikasi
Di dalam aplikasi yang saya buat ini, terdapat 2 pilihan yang dapat Anda pilih, diantaranya yaitu :
1. Jika Anda sudah resmi mendaftarkan diri menjadi member cinema XXI, maka anda harus memasukkan nama username Anda dan password yang Anda miliki. Lalu pada combobox yang ada, Anda pilih option pertama yaitu "Pesan Tiket", kemudian klik button "Next"
2. Jika Anda belum mendaftarkan diri menjadi member cinema XXI, maka anda tidak diharuskan untuk memasukkan nama username Anda dan password yang Anda miliki. Anda hanya langsung memilih option "Daftar Username", kemudian klik button "Next"
--------------------------------------------------------------------------------------------------------------------------
A. Penggunaaan Aplikasi Jika Sudah Terdaftar Sebagai Member
1. Ketik secara manual nama username dan password yang Anda miliki
2. Pilih option "Pesan Tiket" pada combobox yang tersedia di "Data"
3. Klik button "Next" untuk proses selanjutnya
Langkah selanjutnya :
4. Pilih lokasi/teater mana anda inginkan untuk menonton film yang akan anda pesan
5. Pilih judul film yang akan ditonton yang saat ini film tersebut sedang ditayangkan di Cinema XXI
6. Ketik secara manual jumlah tiket yang anda ingin pesan
7. Klik button "Proses" untuk menampilkan total pembayaran dari jumlah tiket yang anda pesan
8. Klik menu File, lalu pilih "Save" untuk menyimpan tiket yang anda telah pesan untuk nantinya anda tunjukkan kepada cashier di teater Cinema XXI agar Anda mendapatkan tiket aslinya
9. Ketik nama text sesuai yang Anda inginkan
10. Klik button "Save"
11. Klik menu "Send" untuk mengirim pemesanan tiket ke teater yang tadi telah Anda pilih
12. Klik button "Ok" pada message box yang telah ditampilkan
13. Klik menu "Exit" untuk menutup aplikasi jika Anda sudah selesai melakukan transaksi pemesanan tiket
----------------------------------------------------------------------------------------------------------------------------
B. Penggunaaan Aplikasi Jika Belum Terdaftar Sebagai Member
2. Klik button "Next" untuk proses selanjutnya
Langkah Selanjutnya :
3. Ketik data secara manual pada textbox "Nama Pelanggan"
4. Pilih jenis kelamin pada radiobutton yang telah disediakan
5. Ketik data secara manual pada textbox "Tanggal Lahir", "Alamat Tetap", dan "No Hp"
6. Pilih jenis identitas yang Anda inginkan untuk didaftarkan pada data diri Anda di Cinema XXI
7. Ketik secara manual textbox "No. Identitas Pelanggan"
8. Pilih jenis bank pada kartu atm yang Anda miliki untuk melakukan transaksi pembayaran tiket
10. Ketik secara manual textbox "No Rek Pelanggan" dan alamat "Email" Anda
11. Ketik juga secara manual nama username dan password yang Anda inginkan, dengan ketentuan didalam password dan username tersebut harus mengandung unsur huruf dan angka
12. Klik button "Simpan"
13. Klik button "Ok" pada message box yang ditampilkan
15. Lalu nantinya Anda akan kembali ke Home Cinema XXI, & lakukan prosedur yang sama seperti pilihan A yang telah dijelaskan sebelumnya untuk memesan tiket nonton di Cinema XXI
---------------------------------------------------------------------------------------------------------------------------
Penjelasan Aplikasi
Pada aplikasi ini saya menggunakan 3 Form yang terdiri dari :
Form1 : berisi home/tampilan dasar Cinema XXI
Form2 : berisi ketentuan untuk pemesanan tiket nonton Cinema XXI
Form3 : berisi ketentuan pendaftaran member Cinema XXI
Didalam Form1 yang berisi tampilan dasar Cinema XXI, saya menggunakan label, picturebox, textbox, combobox, dan button. Berikut rinciannya :
Welcome To Cinema XXI = Label1
Gambar Logo Cinema XXI = PictureBox1
Username = Label2 = TextBox1
Password = Label3 = TextBox2
Data = Label 4 = ComboBox1
Next = Button1
Didalam Form2 yang berisi ketentuan untuk pemesanan tiket nonton Cinema XXI, saya menggunakan label, textbox, combobox, listbox, button, menustrip, openfiledialog, savefiledialog, dan data file csv yang nantinya data tersebut akan masuk ke dalam listbox. Berikut rinciannya
Pemesanan Tiket Bioskop = Label1
Teater = Label9 = ComboBox2
Judul Film Yang Ditonton = Label6 = ComboBox3
Jumlah Tiket Yang Dipesan = Label7 = TextBox4
Total Pembayaran = Label8 = TextBox5
Data CSV berisi film yang saat ini ditayangkan dan jadwal film tersebut = ListBox1
Proses = Button1
File ; Send; Exit = MenuStrip1
Open = OpenFileDialog1
Save = SaveFileDialog1
Didalam Form2 yang berisi ketentuan pendaftaran member Cinema XXI, saya menggunakan label, textbox, combobox, radiobutton, menustrip, dan button. Berikut rinciannya :
Pendaftaran ID Pelanggan = Label1
Nama Pelanggan = Label2
Jenis Kelamin = Label8
Pria = RadioButton1
Wanita = RadioButton2
Tanggal Lahir = Label9 = TextBox5
Alamat Tetap = Label3 = TextBox2
No. HP = Label10 = TextBox6
Identitas Pelanggan = Label4
No. Identitas = Label5 = TextBox3
Pembayaran Tiket = Label6 = ComboBox2
No. Rek Pelanggan = Label7 = TextBox4
Email = Label11 = TextBox7
Username = Label12 = TextBox8
Password = Label13 = TextBox9
Simpan = Button1
Exit = MenuStrip1
Data TXT yang saya buat seperti ini :
Source Code :
Form1
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If ComboBox1.Text = "Pesan Tiket" Then
Form2.Show()
ElseIf ComboBox1.Text = "Daftar Username" Then
Form3.Show()
End If
End Sub
End Class
Form2
Public Class Form2
Private Sub Form2_Activated(sender As Object, e As EventArgs) Handles Me.Activated
On Error Resume Next
Dim var4 As Object
Dim var3 As Object
Dim var2 As Object
Dim var1 As Object
Dim noFile As Short
noFile = FreeFile()
FileOpen(noFile, "D:\jadwal.txt", OpenMode.Input)
Do While Not EOF(noFile)
Input(1, var1)
Input(1, var2)
Input(1, var3)
Input(1, var4)
ListBox1.Items.Add(var1 & "---" & var2 & "---" & var3 & "---" & var4)
Loop
FileClose(noFile)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim v1, v2, v3 As Single
v1 = TextBox4.Text
v2 = 50000
v3 = v1 * v2
TextBox5.Text = v3
End Sub
Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click
On Error Resume Next
OpenFileDialog1.Filter = "Text File|*.txt|CSV File|*.CSV"
OpenFileDialog1.DefaultExt = "*.txt"
OpenFileDialog1.ShowDialog()
End Sub
Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click
On Error Resume Next
SaveFileDialog1.Filter = "Text File|*.txt|CSV File|*.CSV"
SaveFileDialog1.DefaultExt = "*.txt"
SaveFileDialog1.ShowDialog()
End Sub
Private Sub SendToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SendToolStripMenuItem.Click
MessageBox.Show("Data anda telah dikirim. Silahkan cetak tiket pada cashier di teater yang anda telah pilih. Terima Kasih")
End Sub
Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
Me.Close()
End Sub
End Class
Form3
Public Class Form3
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
MessageBox.Show("Selamat anda telah resmi menjadi member setia kami! Selamat Bergabung:)")
End Sub
Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
Me.Close()
End Sub
End Class
Tidak ada komentar:
Posting Komentar