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