Program ini digunakan dalam melakukan pemesanan tiket terhadap bangku pada Studio bioskop. Pada tampilan awal, layar
akan menampilkan dertan bangku yang masih kosong atau belum dipesan.
Kemudian akan muncul pertanyaan “Pesan
Bangku : “ yang mana harus diisi dengan nomer bangku yang akan dipesan.
Bila bangku yang dipesan tersebut masih kosong
maka akan tertampil “Chair number . . . Success” yang berarti bangku tersebut
berhasil dipesan beserta tampilan deretan kursi setelah pemesanan. Dan nomer
bangku yang dipesan akan berubah menjadi “XnomerX” yang berarti telah dipesan.
Bila bangku yang telah dipesan
sebelumnya oleh orang lain maka akan tertampil “Chair number . . . Already
Reserved” yang berarti bangku tersebut tidak bisa dipesan.
Dalam pembuatannya, program ini dibuat dengan
menggunakan array dimana terdapat 2 array yaitu array “tiket1” dan array ”tiket2”.
Array “tiket1” berfungsi sebagai penampil awal yang tipe datanya adalah Integer,
array ini digunakan untuk menampilkan bangku-bangku yang masih kosong. Array “tiket2”
yang bertipe String berfungsi menampilkan tanda “X” pada bangku-bangku yang
telah dipesan sebelumnya.
Bila user ingin menginputkan data lagi,
program ini menggunkan fitur “Do . . . While” dimana kondisi while adalah kondisi
saat pertanyaan “Tambah pesanan [y/n] : ” diisi dengan “y” maka program akan
mengulang kembali pada proses pemesanan bangku. Bila user mengisi dengan “n”
maka program akan berhenti bekerja.
Kelemahan program ini adalah pada
algoritmanya tidak terdapat menu yang bisa memudahkan user dalam pemilihan
antara menambah pesanan dan melihat bangku mana yang masih kosong.
Berikut ini Source Code Program Pemesanan Tiket Bioskop
Module Module1
Sub Main()
Console.WriteLine()
Console.WriteLine("===============================")
Console.WriteLine("Program
Pemesanan Tiket Bioskop")
Console.WriteLine("===============================")
Console.WriteLine()
Dim tiket1(30) As Integer
Dim tiket2(30) As String
Dim patok As Integer
Dim kursi As Integer
Dim pesan As String
patok
= 1 /*Tampilan
Awal
For y = 1 To 5
For x = 1 To 6
tiket1(patok) = patok
Console.Write(" [ ")
Console.Write(tiket1(patok))
Console.Write(" ] ")
patok = patok + 1
Next
Console.WriteLine()
Console.WriteLine()
Next */Tampilan
Awal
Do
Console.Write("Pesan
Bangku : ")
kursi = Console.ReadLine
If tiket2(kursi) Is Nothing Then
Console.WriteLine("=====================")
Console.Write("Chair number ")
Console.WriteLine(kursi)
Console.WriteLine("SUCCESSFULLY RESERVED")
Console.WriteLine("=====================")
Console.WriteLine()
tiket2(kursi) = "X"
Else
Console.WriteLine("=====================")
Console.Write("Chair number ")
Console.WriteLine(kursi)
Console.WriteLine("ALREADY RESERVED")
Console.WriteLine("=====================")
Console.WriteLine()
End If
patok = 1
For y = 1 To 5
For x = 1 To
6
tiket1(patok) = patok
If tiket2(patok) Is Nothing Then
Console.Write(" [ ")
Console.Write(tiket1(patok))
Console.Write(" ] ")
patok = patok + 1
Else
Console.Write(" [")
Console.Write(tiket2(patok) + patok.ToString + tiket2(patok))
Console.Write("] ")
patok = patok + 1
End If
Next
Console.WriteLine()
Console.WriteLine()
Next
Console.Write("Pemesanan
Baru [y/n] : ") /* Parameter untuk melakukan perulangan
pesan = Console.ReadLine
Loop While pesan = "y"
End Sub
End Module
ConversionConversion EmoticonEmoticon