Tugas II Sessi IV & V Mata Kuliah PB1 - ticket search

Program Sederhana VB : Ticket Search

Pada sebuah konser besar yang menampilkan dua artist yang berbeda dan gedung yang berbeda pula. Untuk memudahkan penonton dalam mencari tempat mereka maka disediakanlah sebuah komputer yang digunakan untuk mencari tempat yang tepat.

                Dalam komputer itu terdapat program yang berfungsi untuk memberitahu penonton dengan mencocokkan code ticketnya dan memberitahukan tempat yang semestinya. Didalam program ini terdapat beberapa komponen yaitu :

1.       Form

2.       Textbox

3.       Picturebox

4.       Button

5.       Label

Seperti inilah tampilan menu utama program tersebut :

Pada textbox yang paling atas penonton diminta untuk memasukkan code tiket yang mereka miliki. Lalu klik tombol “check it!!!” untuk memproses data tersebut dan menghasilkan output diantaranya :

Artist ,Nomor (nomor ticket),hall,spot. Seperti ini :

Konser kali ini menampilkan dua artist,dan menyebabkan terdapat dua code yang berbeda. pada bagian satu huruf pertama yaitu untuk inisial nama artist,dan bagian belakang dua huruf tempat seharusnya yang didapatkan penonton tersebut. Seperti gambar di bawah ini :

Apabila code seperti ini “ BxxxxBx “ berarti anda akan menonton konser bruno mars yang diadakan di hall B seperti gambar ini :

Apabila code seperti ini “ KxxxxAx “ berarti anda akan menonton konser katty perry yang diadakan di hall A seperti gambar ini :

Apabila anda salah memasukkan code ticket yang anda punya ,maka program akan memunculkan message Box yang memberitahukan bahwa input anda salah.

Seperti gambar berikut :

  

Apabila anda sudah mengetahui tempat anda yang seharusnya. Anda bisa mengklik tombol keluar

dan program akan menanya kan anda konfirmasi.

 Berikut ini adalah source code dari program tersebut :

Public Class TicketSearch

    Private Sub BCEK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BCEK.Click

        tnomer.Text = Strings.Mid(ttiket.Text, 2, 4)

        thall.Text = Strings.Mid(ttiket.Text, 6, 1)

        tspot.Text = Strings.Right(ttiket.Text, 1)

        If Strings.Left(ttiket.Text, 1) = "K" Then

            tartis.Text = "KATTY PERRY"

        ElseIf Strings.Left(ttiket.Text, 1) = "B" Then

            tartis.Text = "BRUNO MARS"

        Else

            Dim x As Integer

            x = MsgBox("code anda salah", MsgBoxStyle.OkOnly, AcceptButton)

        End If

        If Strings.Right(ttiket.Text, 2) = "A1" Then

            phall.Image = System.Drawing.Image.FromFile("C:\Users\tb_nih!\Desktop\panggung1.jpg")

        ElseIf Strings.Right(ttiket.Text, 2) = "A2" Then

            phall.Image = System.Drawing.Image.FromFile("C:\Users\tb_nih!\Desktop\panggung2.jpg")

        ElseIf Strings.Right(ttiket.Text, 2) = "B3" Then

            phall.Image = System.Drawing.Image.FromFile("C:\Users\tb_nih!\Desktop\panggung3.jpg")

        ElseIf Strings.Right(ttiket.Text, 2) = "B4" Then

            phall.Image = System.Drawing.Image.FromFile("C:\Users\tb_nih!\Desktop\panggung4.jpg")

        Else

            phall.Image = System.Drawing.Image.FromFile("C:\Users\tb_nih!\Desktop\a.jpg")

        End If

       

    End Sub

   Private Sub ttiket_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ttiket.MouseDoubleClick

        ttiket.Text = ""

        tartis.Text = ""

        tnomer.Text = ""

        thall.Text = ""

        tspot.Text = ""

        phall.Image = System.Drawing.Image.FromFile("C:\Users\tb_nih!\Desktop\a.jpg")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim y As Integer

        y = MsgBox("yakin udahan nih ?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "konfirmasi")

        If y = vbYes Then

            Me.Close()

        End If

    End Sub

End Class