UAS PEMROGRAMAN BISNIS 2

Dengan menggunakan aplikasi Visual Studio 2013 kali ini saya mencoba membuat aplikasi pembelian baju, baik outwear maupun dress. Berikut ini penjelasan mengenai aplikasi tersebut :

1. Masukan ID Customer ada beserta data diri anda, kemudian pilih lah jenis baju yang ingin anda beli dan tentukan banyaknya baju yang ingin anda pesan. Setelah itu pilih button "Calculate" untuk mengetahui total harga yang harus anda bayar, jika sudah yakin ingin melakukan pembelian pilih button "Shop", data anda secara otomatis akan tersimpan di dalam database penjualan. Namun jika anda ingin melakukan pembelian lagi pilih button "Clear" terlebih dahulu untuk mengosongkan form pemesanan kemudian anda bisa melakukan pembelian lagi.

2. Apabila anda ingin memeriksa apakah data anda sudah tersimpan atau belum silahlan pilih "menu" kemudian pilih "find data", masukan ID Customer anda sesuai ID yang anda masukan pada saat melakukan pembelian. Jika sudah maka secara otomatis akan  terisi data pembelian anda di dalam form tersebut. Namun jika anda ingin menghapus data anda, silahlan pilih "menu" kemudian pilih "delete data", data anda secara otomatis akan terhapus dari data base kami.

3. Dalam melakukan pencaria data ID Customer yang anda masukan harus sesuai dengan sebelumnya, jika tidak maka data anda tidak tapat ditemukan dan akan muncul message box seperti dibawah ini 

4. Di dalam aplikasi ini juga dapat ditampilkan data barang dan data penjualan. Caranya dengan pilih "Report" lalu pilih jenis data apa yang ingin anda lihat.

 

Database :

Source Code:

TextBox 1 = ID Customer

TextBox 6 = Nama pembeli

TextBox 2 = No. Rek pembeli

TextBox 4 = Alamat rumah pembeli

TextBox 9 = Total Price

TextBox 7 = Jenis baju yang dipilih

TextBox 3 = Harga satuan baju

TextBox 5 = Banyaknya baju yang ingin dibeli

ComboBox 2 =  Daftar baju

PictureBox 1 = Tampilan baju yang dipilih

FindDataToolStripMenuItem = Mencari data yang sudah tersimpan didalam data base

DeleteDataToolStripMenuItem = Menghapus data yang terdapat didalam data base

DataBarangToolStripMenuItem = Memunculkan data barang yang ada di data base

DataPenjualanToolStripMenuItem = Memunculkan data penjualan yang ada di data base

Button 1 = Menjumlah total keseluruhan harga

Button 2 = Menyimpan data

Button 3 = Menghapus data yang ada dalam form pemesanan

Imports System.Data

Imports System.Data.SqlClient

Imports System.Data.OleDb

Public Class Form1

    Dim a As String

    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\LARAS\TSI'14\VB2\UAS\DatabaseUAS1.accdb"

    Dim objkoneksi As New OleDb.OleDbConnection(koneksi)

    Private xReader As OleDbDataReader

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

        TextBox9.Text = TextBox3.Text * TextBox5.Text

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        objkoneksi.Close()

        objkoneksi.Open()

        Dim tambah As String = "INSERT INTO TabelPenjualan values('" & TextBox1.Text & "','" & TextBox6.Text & "','" & TextBox2.Text & "','" & TextBox4.Text & "','" & ComboBox2.Text & "','" & TextBox7.Text & "','" & TextBox5.Text & "')"

        Dim ocmd = New OleDbCommand(tambah, objkoneksi)

        ocmd.ExecuteNonQuery()

        MsgBox("Terimakasih atas pembelian anda, data pembelian anda secara otomatis akan masuk ke dalam database kami :)", MsgBoxStyle.Information, "Info")

        objkoneksi.Close()

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged

        Dim a As String

        a = ComboBox2.Text

        If a = "-- None --" Then

            TextBox3.Text = 0

            TextBox5.Text = ""

            TextBox7.Text = ""

            PictureBox1.Image = Nothing

        ElseIf a = "Sawyer" Then

            TextBox3.Text = 299000

            TextBox7.Text = "Outwear"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Sawyer.jpg")

        ElseIf a = "Jordyn" Then

            TextBox3.Text = 369000

            TextBox7.Text = "Outwear"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Jordyn.jpg")

        ElseIf a = "Black Talisa" Then

            TextBox3.Text = 329000

            TextBox7.Text = "Outwear"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\BlackTalisa.jpg")

        ElseIf a = "Arianna" Then

            TextBox3.Text = 379000

            TextBox7.Text = "Outwear"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Arianna.jpg")

        ElseIf a = "Dusty Pink Charlie" Then

            TextBox3.Text = 329000

            TextBox7.Text = "Outwear"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\DustypinkCharlie.jpg")

        ElseIf a = "Navy London Parka" Then

            TextBox3.Text = 379000

            TextBox7.Text = "Outwear"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Navy London Parka.jpg")

        ElseIf a = "Jackson" Then

            TextBox3.Text = 349000

            TextBox7.Text = "Outwear"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Jackson.jpg")

        ElseIf a = "Savannah" Then

            TextBox3.Text = 329000

            TextBox7.Text = "Dress"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Savannah.jpg")

        ElseIf a = "Grey Cherie" Then

            TextBox3.Text = 299000

            TextBox7.Text = "Dress"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Grey Cherie.jpg")

        ElseIf a = "Natalia" Then

            TextBox3.Text = 329000

            TextBox7.Text = "Dress"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Natalia.jpg")

        ElseIf a = "Off White Rumi" Then

            TextBox3.Text = 299000

            TextBox7.Text = "Dress"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Offwhite Rumi.jpg")

        ElseIf a = "Denim Rumi" Then

            TextBox3.Text = 329000

            TextBox7.Text = "Dress"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Denim Rumi.jpg")

        ElseIf a = "Black Mesha" Then

            TextBox3.Text = 299000

            TextBox7.Text = "Dress"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Black Mesha.jpg")

        ElseIf a = "Striped Mesha" Then

            TextBox3.Text = 299000

            TextBox7.Text = "Dress"

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UAS\New Folder\Striped Mesha.jpg")

        End If

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox4.Text = ""

        TextBox6.Text = ""

        TextBox9.Text = "0"

        ComboBox2.Text = "-- None --"

    End Sub

    Private Sub DaraBarangToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DaraBarangToolStripMenuItem.Click

        Form2.Show()

    End Sub

    Private Sub DataPenjualanToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DataPenjualanToolStripMenuItem.Click

        Form3.Show()

    End Sub

    Private Sub FindDataToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FindDataToolStripMenuItem.Click

        Dim x As String = InputBox("Masukan ID Customer")

        objkoneksi.Close()

        objkoneksi.Open()

        Dim ocmd As New OleDb.OleDbCommand("SELECT * FROM TabelPenjualan where IDCustomer='" + x + "'", objkoneksi)

        xReader = ocmd.ExecuteReader

        If xReader.HasRows Then

            xReader.Read()

            TextBox1.Text = xReader("IDCustomer")

            TextBox6.Text = xReader("NamaPembeli")

            TextBox2.Text = xReader("NoRek")

            TextBox4.Text = xReader("Alamat")

            ComboBox2.Text = xReader("NamaBarang")

            TextBox7.Text = xReader("Jenis")

            TextBox5.Text = xReader("Qty")

        Else

            MsgBox("ID Customer Tidak Ada", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "Error")

            Exit Sub

        End If

        xReader.Close()

        objkoneksi.Close()

    End Sub

    Private Sub DeleteDataToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteDataToolStripMenuItem.Click

        objkoneksi.Close()

        objkoneksi.Open()

        Dim dell1 As String = "delete from TabelPenjualan where IDCustomer='" & TextBox1.Text & "'"

        Dim oCmd = New OleDbCommand(dell1, objkoneksi)

        oCmd.ExecuteNonQuery()

        objkoneksi.Close()

        MsgBox("Sukses")

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        MsgBox("Thank you for Shopping with us :)")

        Close()

    End Sub

End Class

UTS PEMROGRAMAN BISNIS 2

Berikut ini saya akan membuat aplikasi untuk pembelian kacamata. Dalam pembuatan aplikasi ini saya menggunakan Visual Studio 2013. Dibawah ini adalah langkah-langkah menggunakan aplikasinya :

1. Langkah pertama isi form pemesanan dengan lengkap sesuai dan pilih jenis serta warna kacamata yang anda inginkan.
2.  Pilih lah button Total untuk mengetahui jumlah harga yang harus anda bayar
3. Setelah mengetahui total keseluruhan biaya, lalu pilih lah button Purchase untuk melakukan pembelian dan penyimpanan data anda, setelah itu akan muncul message box yang menerangkan bahwa pembelian dan proses penyimpanan anda telah berhasil

4. Jika anda ingin memeriksa data anda apakah sudah tersimpan atau belum, silahkan pilih button check. Setelah itu akan muncul form data pemesanan.

Source Code :

Textbox 1 : Nama Pemesan
Textbox 2 : No.Rekening pemesan
Textbox 3 : Alamat pengiriman
Textbox 4 : Harga satuan kacamata
Textbox 5 : Jumlah pemesanan
Textbox 6 : Total harga keseluruhan

Checkbox 1 : Jenis-jenis kacamata
Checkbox 2 : Pilihan warna kacamata

Button 1 : Total harga
Button 2 : Purchase
Button 3 : Check (pengecekan data)

Picturebox 1 : Foto jenis kacamata
Picturebox 2 : Foto warna kacamata

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class Form1
    Dim a, b As String
    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\LARAS\TSI'14\VB2\UTS\UTS\UTS\Database1.accdb"
    Dim objkoneksi As New OleDb.OleDbConnection(koneksi)

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox6.Text = TextBox4.Text * TextBox5.Text
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim a As String

        a = ComboBox1.Text

        If a = "New York" Then
            TextBox4.Text = 2500000
            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UTS\NEW YORK (Black)2.jpg")
        ElseIf a = "Paris" Then
            TextBox4.Text = 2000000
            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UTS\Paris (Black).jpg")
        ElseIf a = "Seoul" Then
            TextBox4.Text = 1500000
            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UTS\Seoul (Black).jpg")
        ElseIf a = "Shanghai" Then
            TextBox4.Text = 1000000
            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UTS\Shanghai (Black).jpg")
        End If
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        Dim b As String

        b = ComboBox2.Text

        If b = "Black" Then
            PictureBox2.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UTS\NEW YORK (Black).jpg")
        ElseIf b = "White" Then
            PictureBox2.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UTS\Paris (White).jpg")
        ElseIf b = "Transparent" Then
            PictureBox2.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\VB2\UTS\Seoul (transparent).jpg")
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        objkoneksi.Open()
        Dim tambah As String = "INSERT INTO TablePemesanan values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & TextBox4.Text & "' , '" & TextBox6.Text & "' , '" & TextBox5.Text & "' , '" & TextBox3.Text & "')"
        Dim ocmd = New OleDbCommand(tambah, objkoneksi)
        ocmd.ExecuteNonQuery()
        MsgBox("Sukses")
        objkoneksi.Close()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Form2.show()
    End Sub

    Private Sub TableDaftarBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
        Me.Validate()
        Me.TableDaftarBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs)
        'TODO: This line of code loads data into the 'Database1DataSet.TableDaftar' table. You can move, or remove it, as needed.
        Me.TableDaftarTableAdapter.Fill(Me.Database1DataSet.TableDaftar)

    End Sub

    Private Sub TableDaftarBindingNavigatorSaveItem_Click_1(sender As Object, e As EventArgs)
        Me.Validate()
        Me.TableDaftarBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)

    End Sub

    Private Sub Form1_Load_1(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Database1DataSet.TableDaftar' table. You can move, or remove it, as needed.
        Me.TableDaftarTableAdapter.Fill(Me.Database1DataSet.TableDaftar)

    End Sub

End Class

UAS Lab Pemrograman Bisnis

Kali ini saya akan membuat aplikasi online shop untuk pembelian kacamata. Dalam pembuatan aplikasi ini saya menggunakan Visual Basic 2013. Berikut ini adalah langkah-langkah dalam menjalankan aplikasinya :

1. Pastikan anda sudah memiliki account untuk melakukan pembelian. Jika anda sudah memiliki account anda bisa melakukan log in terlebih dahulu. Caranya dengan memasukan alamat email anda dan password anda, jika sudah pilih button log in.

2. Namun jika anda belum memiliki account, anda bisa membuat account terlebih dahulu sebelum melakukan pembelian. Caranya adalah dengan pilih label link Create Account yang bewarna biru. Setelah itu masukan nama pertama dan terakhir anda, kemudian masukan email anda dan password yang akan digunakan untuk log in sebelum melakukan pembelian. Setelah itu pilih button creat account.

3. Setelah log in/membuat account anda akan terhubung ke langkah berikutnya yaitu melakukan pembelian. Untuk melakukan pembelian anda bisa memilih jenis kacamata apa yang anda inginkan setelah itu pilihlah jenis warna apa yang anda suka sesuai jenis kacamata. Jika anda sudah memilih jenis kacamata maka pada text box price akan muncul harga satuan kacamata tersebut. Kemudian isilah berapa kacamata yang ingin anda beli pada text box quantity. Pilih button total untuk mengetahui total harganya.

4. Anda juga bisa melihat keterangan kacamata yang ingin anda beli pada listbox dibawah gambar. Jika anda sudah yakin akan melakukan pembelian, selanjutnya pilih button purchase. Data anda akan tersimpan dengan format txt.

5. Sedangkan jika anda ingin melakukan pembelian dilain waktu, anda bisa menyimpan data yang sudah anda isi. Caranya dengan pilih menu file lalu pilih save, lalu berilah nama data yang ingin anda save lalu simpanlah data ditempat yang anda inginkan. Setelah memberi nama dan memilih tempat menyimpan data, pilih Save.

• Dibawah ini adalah keterangan dari kacamata yang ada dalam listbox dalam format file txt

Source Coding :

Form 1 : Home Blanc & Eclare
Form 2 : Kententuan membuat account
Form 3 : Pembelian kacamata Blanc & Eclare

• Form 1

Label 1 : Image Blanc & Eclare
Label 2 : Email addres
Label 3 : Password

Textbox 1 : Email addres
Textbox 2 : Password

Button 1 : Log in - ke sistem pembelian
Linklabel 1 : Create account - form 2


Public Class Form1

 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Form3.Show()
    End Sub

    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Form2.Show()
    End Sub
End Class

• Form 2

Label 1 : Nama depan
Label 2 : Nama belakang
Label 3 : Alamat email
Label 4: Password

Textbox 1 : Nama depan
Textbox 2 : Nama belakang
Textbox 3 : Alamat email
Textbox 4 : Password

Button 1 : Create account - ke sistem pembelian


Public Class Form2

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

        MessageBox.Show("Enjoy your shopping time")

        Form3.Show()

    End Sub

End Class

• Form 3

Groupbox 1 : Berisi jenis-jenis kacamata

Radiobutton 1 : Jenis kacamata "New york"
Radiobutton 2 : Jenis kacamata "Paris"
Radiobutton 3 : Jenis kacamata "Seoul"
Radiobutton 4 : Jenis kacamata "Shanghai"

Combobox 1 : Pilihan warna dari jenis kacamata "New york"
Combobox 2 : Pilihan warna dari jenis kacamata "Paris"
Combobox 3 : Pilihan warna dari jenis kacamata "Seoul"
Combobox 4 : Pilihan warna dari jenis kacamata "Shanghai"

Label 1 : Harga satuan kacamata
Label 2 : Banyaknya kacamata yang ingin dibeli
Label 3 : Total keseluruhan harga

Textbox 1 : Harga satuan kacamata
Textbox 2 : Banyaknya kacamata yang ingin dibeli
Textbox 3 : Total keseluruhan harga

Picturebox 1 : Gambar kacamata berdasarkan jenis dan warna

Listbox 1 : Keterangan jenis kacamata

Button 1 : Total keseluruhan harga
Button 2 : Pembelian

ToolStripMenuItem 1 : Berisi Menu item untuk melakukan penyimpanan data
SaveToolStripMenuItem : Menyimpan data
ExitToolStripMenuItem : Keluar dari aplikasi


Public Class Form3

    Dim a, b, c, d As String

    Private Sub Form3_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:\LARAS\TSI'14\LAB VB\UAS\Blanc.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 RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged

        a = 2500000

        TextBox1.Text = a

        PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\NEW YORK (Black)d.jpg")

    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged

        b = 2500000

        TextBox1.Text = b

        PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\PARIS (Oatmeal)d.jpg")

    End Sub

    Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged

        c = 2500000

        TextBox1.Text = c

        PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\SEOUL (White)d.jpg")

    End Sub

    Private Sub RadioButton5_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton5.CheckedChanged

        d = 2500000

        TextBox1.Text = d

        PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\SHANGHAI (Transparent)d.jpg")

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        Dim a As String

        a = ComboBox1.Text

        If a = "Black" Then

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\NEW YORK (Black).jpg")

        ElseIf a = "Navy" Then

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\NEW YORK (Navy).jpg")

        ElseIf a = "Transparent" Then

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\NEW YORK (Transparent).jpg")

        End If

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged

        Dim b As String

        b = ComboBox2.Text

        If b = "Black" Then

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\PARIS (Black).jpg")

        ElseIf b = "Blush" Then

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\PARIS (Blush).jpeg")

        ElseIf b = "Oatmeal" Then

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\PARIS (Oatmeal).jpg")

        End If

    End Sub

    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedIndexChanged

        Dim c As String

        c = ComboBox4.Text

        If c = "Black" Then

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\SEOUL (Black).jpg")

        ElseIf c = "Black or White" Then

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\SEOUL (BlackorWhite).jpg")

        ElseIf c = "White" Then

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\SEOUL (White).jpg")

        End If

    End Sub

    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedIndexChanged

        Dim d As String

        d = ComboBox5.Text

        If d = "Blush" Then

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\SHANGHAI (Blush).jpg")

        ElseIf d = "Tortoise" Then

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\SHANGHAI (Tortoise).jpeg")

        ElseIf d = "Transparent" Then

            PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\TSI'14\LAB VB\UAS\SHANGHAI (Transparent).jpg")

        End If

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        TextBox3.Text = TextBox1.Text * TextBox2.Text

    End Sub

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

        MessageBox.Show("Thank You :) ")

    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 ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click

        Me.Close()

    End Sub

End Class

Kali ini saya akan membuat program reservasi tiket bioskop. Dalam pembuatan program ini saya menggunakan aplikasi Visual Basic 2013.

Berikut ini sistem reservasi pemesanan tiketnya :

1. Isi data nama pemesan tiket
2. Pilihlah jenis film yang ingin ditonton
3. Masukan berapa banyaknya tiket yang ingin dipesan
4. Jika sudah yakin klik OK untuk mengetahui total harga tiket
5. Jika ingin melakukan pembatalan klik CANCEL
6. Setelah itu klik SIMPAN untuk menyimpan data jika ingin melakukan pemesanan

Penjelasan :
TextBox1 = nama
TextBox2 = harga tiket satuan
TextBox3 = banyak tiket
TextBox4 = total harga tiket

Button1 = Ok
Button2 = Cancel
Button3 = Simpan

Source Coding :
Public Class Form1

    Dim reservasitiket As New Reservasi_Tiket
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox2.Text = 25000
        TextBox4.Text = reservasitiket.tiket(TextBox2.Text, TextBox3.Text)


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        RadioButton1.Checked = ""
        RadioButton2.Checked = ""
        RadioButton3.Checked = ""
        RadioButton4.Checked = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MsgBox("Terimakasih atas reservasi tiket anda :) ")
        Close()

    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\Buletin\Review Film\minions.jpg")
    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
        PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\Buletin\Review Film\Avenger.jpg")
    End Sub

    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
        PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\Buletin\Review Film\fast.jpg")
    End Sub

    Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
        PictureBox1.Image = System.Drawing.Image.FromFile("D:\LARAS\Buletin\Review Film\insurgent.jpg")
    End Sub

End Class

Source Coding Class :
Public Class Reservasi_Tiket
    Dim hargatiket As Integer

    Public Function tiket(ByVal Hargatiket As Integer, ByVal Banyaktiket As Integer)
        tiket = (Hargatiket * Banyaktiket)

    End Function
End Class

Nama : Nuraini Larasati

NPM : 1406629276

Program ini bertujuan untuk mempermudah proses reservasi pesawat. Dalam pembuatan program ini saya menggunakan aplikasi Visual Basic 2013.

Nama : Nama penumpang yang melakukan reservasi

Tujuan Penerbangan : Berisi kota asal dan kota tujuan calon penumpang

Waktu Penerbangan : kapan calon penumpang ingin melakukan keberangkatan dan apakah itu sekali jalan atau pulang pergi

Jenis Pembayaran : Metode pembayaran yang ingin dilakukan

Jenis Pesawat : Pesawat apa yang ingin digunakan

Tiket : Berisi jumlah harga yang harus dibayar berdasarkan banyaknya pemesanan tiket

Berikut ini sistem reservasinya :

1. Isi data nama pereservasi dan isi kota tujuan serta kota yang ingin dituju
2. Pilih tanggal keberangkatan dan rencana keberangkatan 
3. Pilih jenis pembayaran yang ingin dilakukan
4. Pilih jenis pesawat yang ingin digunakan
5. Isilah berapa banyaknya tiket yang ingin ada pesan kemudian akan muncul harga total tiket yang harus dibayar

Jika sudah selesai melakukan reservasi, klik tombol konfirmasi, lalu klik ok

Source Coding :

Public Class Form1

    Dim a, b, c, d As Integer

    Private Sub RbGaruda_CheckedChanged(sender As Object, e As EventArgs) Handles RbGaruda.CheckedChanged

        a = 4000000

        TxtHargatiket.Text = a * Val(TxtJumlahpenumpang.Text)

        PicJenispesawat.Image = System.Drawing.Image.FromFile("C:\Users\Asus\Pictures\Garuda.jpg")

        If RbGaruda.Checked = False Then

            TxtHargatiket.Text = ""

        End If

    End Sub

    Private Sub RbCitilink_CheckedChanged(sender As Object, e As EventArgs) Handles RbCitilink.CheckedChanged

        b = 2500000

        TxtHargatiket.Text = b

        TxtHargatiket.Text = b * Val(TxtJumlahpenumpang.Text)

        PicJenispesawat.Image = System.Drawing.Image.FromFile("C:\Users\Asus\Pictures\Citilink.jpg")

        If RbCitilink.Checked = False Then

            TxtHargatiket.Text = ""

        End If

    End Sub

    Private Sub RbSriwijaya_CheckedChanged(sender As Object, e As EventArgs) Handles RbSriwijaya.CheckedChanged

        c = 1500000

        TxtHargatiket.Text = c

        TxtHargatiket.Text = c * Val(TxtJumlahpenumpang.Text)

        PicJenispesawat.Image = System.Drawing.Image.FromFile("C:\Users\Asus\Pictures\Sriwijaya.jpg")

        If RbSriwijaya.Checked = False Then

            TxtHargatiket.Text = ""

        End If

    End Sub

    Private Sub RbLion_CheckedChanged(sender As Object, e As EventArgs) Handles RbLion.CheckedChanged

        d = 2000000

        TxtHargatiket.Text = d

        TxtJumlahpenumpang.Text = d * Val(TxtJumlahpenumpang.Text)

        PicJenispesawat.Image = System.Drawing.Image.FromFile("C:\Users\Asus\Pictures\Lion.jpg")

        If RbLion.Checked = False Then

            TxtHargatiket.Text = ""

        End If

    End Sub

    Private Sub BtnKonfirmasi_Click(sender As Object, e As EventArgs) Handles BtnKonfirmasi.Click

        MsgBox("Terima Kasih Atas Reservasi Anda")

        Close()

    End Sub

End Class