Tugas Visual Basic : Onlineshop Jansport

Penggunaan Aplikasi

1. Isi data diri berupa nama, alamat, dan nomor handphone yang bisa dihubungi pada groupbox data pembelian.
2. Lalu pilih motif tas, setelah itu akan muncul harga asli tas tersebut dan diskon pada tas
3. Isi pilihan pembayaran
4. Isi pilihan pengiriman paket
5. Klik button "Check Harga"

Berikut tampilan setelah harga di check untuk melihat harga tas tersebut setelah mendapat diskon

6. Setelah mantap dengan pilihan anda, klik button "Beli Sekarang"

7. Klik Ok untuk menyelesaikan transaksi

   
Penjelasan Aplikasi :

Pada form ini saya membuat aplikasi onlineshop tas jansport. Pada aplikasi tersebut, terdapat data pembelian, data tas yang dipilih, pilihan pembayaran, dan pilihan pengiriman paket. Pada aplikasi ini, saya ingin menjual tas jansport dengan harga diskon. Sebelum membeli, para pelanggan dapat mengecheck harga pada barang tersebut. Saya akan menjelaskan tombol-tombol yang ada di dalam aplikasi ini.

Pada form tersebut, saya menggunakan background dengan gambar pemandangan untuk memperindah tampilan. Pada bagian awal terdapat judul yang saya buat dengan menggunakan label. Selain itu juga terdapat picturebox yang akan menampilkan gambar motif tas jansport yang dipilih. Berikut rinciannya :

Onlineshop Jansport = Label1

Gambar Tas = Picturebox1

Pada data pembelian, saya menggunakan group box agar tombol-tombol yang ada lebih terstruktur. Didalam data pembelian terdapat 6 macam label dan 6 macam textbox yang digunakan. Berikut rinciannya :

Data pembelian = Groupbox1

Nama Pembeli = Label 3= Textbox1

Alamat = Label4 = Textbox2

No. Hp = Label5 = Textbox3

Harga Tas = Label6= Textbox4

Diskon = Label7 = Textbox5

Harga Setelah Diskon = Label8 = Textbox6

Pada data tas yang dipilih, saya juga menggunakan group box. Didalam data tas yang dipilih terdapat 1 macam label dan 3 macam radio button. Berikut rinciannya :

Data tas yang dipilih = Groupbox2

Motif Tas = Label2

Polos = Radiobutton1

Garis-garis = Radiobutton2

Abstrak = Radiobutton3

Pada bagian bawah terdapat pilihan pembayaran melalui transfer. Anda dapat memilih salah satu bank untuk melakukan transaksi pembayaran pembelian tas jansport. Pada pilihan pembayaran saya menggunakan 1 macam label, 3 macam checkbox, dan 3 macam textbox. Berikut rinciannya :

Transfer pembayaran melalui : Label9

BCA : Checkbox1 = Textbox7

Mandiri = Checkbox2 = Textbox8

BNI = Checkbox3 = Textbox9

Dibagian bawah pilihan pembayaran, terdapat pilihan pengiriman paket. Anda dapat memilih salah satu jasa pengiriman yang anda percayai dalam mengirim paket anda. Pada pilihan pengiriman paket, saya menggunakan 1 macam label, dan 2 macam radio button. Dan setelah bagian pilihan pembayaran terdapat short message yang merupakan pemberitahuan dan promo untuk para pelanggan yang akan membeli, yang saya buat dengan menggunakan 2 macam label. Berikut rinciannya :

Pengiriman Paket : Label10

JNE = radiobutton4

Tiki =radiobutton5

Diskon 50% untuk semua motif tas = Label11

Pengiriman Tas Akan Dilakukan Selama 2 Hari = Label12

Pada bagian pojok kanan terdapat 2 tombol yaitu Check Harga dan Beli Sekarang. Saya membuat kedua tombol ini dengan menggunakan 2 macam button. Berikut rinciannya :

Check Harga = Button1

Beli Sekarang = Button2

Source Coding :

Public Class Form1
Dim a, b, c As Integer
Dim s, t, u As Integer
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged

a = 500000
TextBox4.Text = a
TextBox5.Text = a / 50%
TextBox6.Text = ""
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\SAVIRA\Documents\Jansport\36-20141218003749-859951.jpg")
End Sub

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

b = 600000
TextBox4.Text = b
TextBox5.Text = b / 50%
TextBox6.Text = ""
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\SAVIRA\Documents\Jansport \INLlwR.jpg")
End Sub

Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged

c = 800000
TextBox4.Text = c
TextBox5.Text = c / 50%
TextBox6.Text = ""
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\SAVIRA\Documents\Jansport\jansport-2120-46158-1-product.jpg")
End Sub

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

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
s = 101121022
TextBox7.Text = s
End Sub

Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged

t = 101121021
TextBox8.Text = t
TextBox9.Text = ""
End Sub

Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged

u = 101121020
TextBox9.Text = u
TextBox8.Text = ""
End Sub

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

If RadioButton1.Checked Then
MsgBox("Terima Kasih Telah Berbelanja Di Online Shop Kami")
Close()
ElseIf RadioButton2.Checked Then
MsgBox("Terima Kasih Atas Pembelian Anda")
Close()
ElseIf RadioButton3.Checked Then
MsgBox("Terima Kasih Telah Melakukan Transaksi Di Online Shop Kami")
 Close()
End If
End Sub
End Class