Tutorial Visual Basic Sistem Kasir (Modul 2)

KONSEP SISTEM KASIR PADA IFD’S SHOES ONLINE SHOP

            Sistem kasir berikut ini merupakan sebuah sistem kasir yang digunakan pada penjualan sepatu online yaitu toko IFD’S SHOES ONLINE SHOP. Adapun sistem kasir ini terdiri dari beberapa komponen toolbox yaitu: label, texbox, button, dan sebuah combobox beserta datagridview.

a.       Label

            Dalam hal ini label digunakan sebagai kata keterangan untuk name, address, shoes’ type, price, quantities, discount, total, money given dan money back.

b.      TextBox

            Adapun tujuan dari textbox adalah sebagai tempat isian untuk keterangan dari label yang telah dibuat.

c.       ComboBox

            Dalam hal ini combobox bertujuan sebagai tempat dari jenis sepatu yang ditawarkan, dimana bentuk tampilannya adalah secara berurut ke bawah, sehingga tampilannya akan lebih teratur.

d.      Button

            Adapun tombol button bertujuan untuk memproses setiap perintah yang ingin kita jalankan seperti menghitung total biaya, untuk merefresh, keluar maupun untuk informasi.

e.       DataGridView

            Adapun datagridview bertujuan untuk menampilkan informasi tentang proses pembelian yang telah kita lakukan.

            Adapun cara kerja dari sistem kasir ini adalah untuk pertama sekali kita memasukkan nama kita, lalu tempat tinggal, kemudian memilih jenis sepatu yang ingin kita beli dimana gambarnya dapat kita lihat di sampingnya dan harganya akan secar otomatis ditampilkan, selanjutnya kita memasukkan jumlah sepatu yang ingin kita beli beserta jumlah diskon yang diberikan. Setelah itu kita klik tombol “Continue” untuk mengetahui total biaya dari sepatu yang kita beli tersebut dan kemudian kita bisa memasukkan nilai uang yang kita berikan dan menekan tombol “Continue”,  maka secara otomatis uang kembalian kita akan ditampilkan. Ketika uang yang kita masukkan kurang, maka akan muncul kotak yang memberikan peringatan akan uang yang kurang tersebut.

            Untuk mengetahui informasi seputar proses pembelian yang telah kita lakukan maka kita klik tombol informasi dan pada “DataGridView” akan ditampilkan informasi tersebut. Dan ketika kita ingin mengosongkan semua kotak isian kita cukup menekan tombol refresh sehingga secara otomatis semua kotak isian tersebut akan kembali seperti semuala lagi.

            Jika kita ingin keluar maka cukup menekan tombol “Exit” dan akan ada peringatan yang akan menanyakan apakah kita hendak ingin keluar dan sebelum kita keluar sebagai ucapan rasa terima kasih pihak penjual kepada pihak pengunjung maka terdapat tombol “Purchase” dimana berisi ucapan terima kasih karena telah berkunjung dan membeli produk dari penjual tersebut.

FLOW CHART SISTEM KASIR PADA IFD'S SHOES ONLINE SHOP

TUTORIAL PEMBUATAN SISTEM KASIR PADA IFD’S SHOES ONLINE SHOP

1.      Buka halaman awal Microsoft Visual Basic 2010, dan pilih New Form

2.      Masukkan komponen toolbox berikut ini.

KOMPONEN	PROPERTIES	KETERANGAN
Form 1	Name Text	Form 1 IFD'S SHOES ONLINE SHOP
Form 2	Name Text	Form 2            IFD'S SHOES ONLINE SHOP
Dialog 1	Name Text	Dialog 1 IFD'S SHOES ONLINE SHOP
Button 1	Name Text	Button 1 Continue
Button 2	Name Text	Button 2 Refresh
Button 3	Name Text	Button 3 Continue
Button 4	Name Text	Button 4 Exit
Button 5	Name Text	Button 5 Purchase
Button 6	Name Text	Button 6 Information
ComboBox 1	Name Text	ComboBox 1 Choose Here
DataGridView 1	Name Text	DataGridView 1
Label 1	Name Text	Label 1 IFD'S SHOES ONLINE SHOP
Label 2	Name Text	Label 2 Name
Label 3	Name Text	Label 3 Address
Label 4	Name Text	Label 4 Shoes’ type
Label 5	Name Text	Label 5 Price
Label 6	Name Text	Label 6 Quantities
Label 7	Name Text	Label 7 Discount
Label 8	Name Text	Label 8 Total
Label 9	Name Text	Label 9 Money Given
Label 10	Name Text	Label 10 Money Back
Label 11	Name Text	Label 11 Your Shoes
Label 12	Name Text	Label 12 For the Honourable Customer, we just provide 100 stocks only.
PictureBox 1-11	Name picture	PictureBox 1-11 Picture of shoes 1-11 Visible: False
TextBox 1	Name Text	TextBox 1
TextBox 2	Name Text	TextBox 2
TextBox 3	Name Text	TextBox 3
TextBox 4	Name Text	TextBox 4
TextBox 5	Name Text	TextBox 5
TextBox 6	Name Text	TextBox 6
TextBox 7	Name Text	TextBox 7
TextBox 8	Name Text	TextBox 8

3.      Kombinasikan seluruh komponen toolbox tersebut seperti ganbar berikut ini.

4.      Masukkan listing program berikut:

a)      Form 1

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.CenterToParent()

    End Sub

            Adapun listing “Me.CenterToParent” menyatakan agar tampilan form 1 berada di tengah layar.

b)      ComboBox

            Dalam hal ini ComboBox berfungsi sebagai tempat dari jenis sepatu yang ditawarkan, dimana tampilannya disusun ke bawah secara teratur.

Pada jendela properties, sub jendela items masukkan jenis sepatu, yaitu

Black Print Converse

Blue Converse

Orange Inside Converse

Black Exo Crocs

Clasic Brown Crocs

Hazelnut Crocs

Glory Black Smith

Navy Blue Smith

The Red Devil Smith

Green Mario Nike

Mario Bross Nike

            Adapun items yang dimasukkan ini akan tampil secara berurut ketika ComboBox digerakkan dengan menggunakan tombol arah.

            Pada kodenya masukkan:

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

        If ComboBox1.Text = ("Black Print Converse") Then TextBox3.Text = ("160000")

        If ComboBox1.Text = ("Black Print Converse") Then PictureBox1.Visible = True

        If ComboBox1.Text = ("Black Print Converse") Then PictureBox2.Visible = False

        If ComboBox1.Text = ("Black Print Converse") Then PictureBox3.Visible = False

        If ComboBox1.Text = ("Black Print Converse") Then PictureBox4.Visible = False

        If ComboBox1.Text = ("Black Print Converse") Then PictureBox5.Visible = False

        If ComboBox1.Text = ("Black Print Converse") Then PictureBox6.Visible = False

        If ComboBox1.Text = ("Black Print Converse") Then PictureBox7.Visible = False

        If ComboBox1.Text = ("Black Print Converse") Then PictureBox8.Visible = False

        If ComboBox1.Text = ("Black Print Converse") Then PictureBox9.Visible = False

        If ComboBox1.Text = ("Black Print Converse") Then PictureBox10.Visible = False

        If ComboBox1.Text = ("Black Print Converse") Then PictureBox11.Visible = False

            Adapun pada listing program di atas adalah menggunakan “if”, hal ini ditujukan yaitu supaya ketika kita memilih jenis sepatu pada ComboBox, maka gambar yang akan ditampilkan pada PictureBox adalah gambar dari sepatu yang dipilih tersebut dan bukan gambar yang lain. Selain itu juga ketika kita memilih jenis sepatu pada ComboBox tersebut, maka harga dari sepatu tersebut secara otomatis juga akan dimunculkan.

            Seperti listing di atas ketika kita memilih jenis Black Print Converse, maka harga dan gambarnya akan ditampilkan , sementara harga dan gambar sepatu yang lainnya tidak akan ditampilkan.

        If ComboBox1.Text = ("Blue Converse") Then TextBox3.Text = ("165000")

        If ComboBox1.Text = ("Blue Converse") Then PictureBox2.Visible = True

        If ComboBox1.Text = ("Blue Converse") Then PictureBox1.Visible = False

        If ComboBox1.Text = ("Blue Converse") Then PictureBox3.Visible = False

        If ComboBox1.Text = ("Blue Converse") Then PictureBox4.Visible = False

        If ComboBox1.Text = ("Blue Converse") Then PictureBox5.Visible = False

        If ComboBox1.Text = ("Blue Converse") Then PictureBox6.Visible = False

        If ComboBox1.Text = ("Blue Converse") Then PictureBox7.Visible = False

        If ComboBox1.Text = ("Blue Converse") Then PictureBox8.Visible = False

        If ComboBox1.Text = ("Blue Converse") Then PictureBox9.Visible = False

        If ComboBox1.Text = ("Blue Converse") Then PictureBox10.Visible = False

        If ComboBox1.Text = ("Blue Converse") Then PictureBox11.Visible = False

        If ComboBox1.Text = ("Orange Inside Converse") Then TextBox3.Text = ("170000")

        If ComboBox1.Text = ("Orange Inside Converse") Then PictureBox3.Visible = True

        If ComboBox1.Text = ("Orange Inside Converse") Then PictureBox1.Visible = False

        If ComboBox1.Text = ("Orange Inside Converse") Then PictureBox2.Visible = False

        If ComboBox1.Text = ("Orange Inside Converse") Then PictureBox4.Visible = False

        If ComboBox1.Text = ("Orange Inside Converse") Then PictureBox5.Visible = False

        If ComboBox1.Text = ("Orange Inside Converse") Then PictureBox6.Visible = False

        If ComboBox1.Text = ("Orange Inside Converse") Then PictureBox7.Visible = False

        If ComboBox1.Text = ("Orange Inside Converse") Then PictureBox8.Visible = False

        If ComboBox1.Text = ("Orange Inside Converse") Then PictureBox9.Visible = False

        If ComboBox1.Text = ("Orange Inside Converse") Then PictureBox10.Visible = False

        If ComboBox1.Text = ("Orange Inside Converse") Then PictureBox11.Visible = False

        If ComboBox1.Text = ("Black Exo Crocs") Then TextBox3.Text = ("200000")

        If ComboBox1.Text = ("Black Exo Crocs") Then PictureBox4.Visible = True

        If ComboBox1.Text = ("Black Exo Crocs") Then PictureBox1.Visible = False

        If ComboBox1.Text = ("Black Exo Crocs") Then PictureBox2.Visible = False

        If ComboBox1.Text = ("Black Exo Crocs") Then PictureBox3.Visible = False

        If ComboBox1.Text = ("Black Exo Crocs") Then PictureBox5.Visible = False

        If ComboBox1.Text = ("Black Exo Crocs") Then PictureBox6.Visible = False

        If ComboBox1.Text = ("Black Exo Crocs") Then PictureBox7.Visible = False

        If ComboBox1.Text = ("Black Exo Crocs") Then PictureBox8.Visible = False

        If ComboBox1.Text = ("Black Exo Crocs") Then PictureBox9.Visible = False

        If ComboBox1.Text = ("Black Exo Crocs") Then PictureBox10.Visible = False

        If ComboBox1.Text = ("Black Exo Crocs") Then PictureBox11.Visible = False

        If ComboBox1.Text = ("Clasic Brown Crocs") Then TextBox3.Text = ("250000")

        If ComboBox1.Text = ("Clasic Brown Crocs") Then PictureBox5.Visible = True

        If ComboBox1.Text = ("Clasic Brown Crocs") Then PictureBox1.Visible = False

        If ComboBox1.Text = ("Clasic Brown Crocs") Then PictureBox2.Visible = False

        If ComboBox1.Text = ("Clasic Brown Crocs") Then PictureBox3.Visible = False

        If ComboBox1.Text = ("Clasic Brown Crocs") Then PictureBox4.Visible = False

        If ComboBox1.Text = ("Clasic Brown Crocs") Then PictureBox6.Visible = False

        If ComboBox1.Text = ("Clasic Brown Crocs") Then PictureBox7.Visible = False

        If ComboBox1.Text = ("Clasic Brown Crocs") Then PictureBox8.Visible = False

        If ComboBox1.Text = ("Clasic Brown Crocs") Then PictureBox9.Visible = False

        If ComboBox1.Text = ("Clasic Brown Crocs") Then PictureBox10.Visible = False

        If ComboBox1.Text = ("Clasic Brown Crocs") Then PictureBox11.Visible = False

        If ComboBox1.Text = ("Hazelnut Crocs") Then TextBox3.Text = ("260000")

        If ComboBox1.Text = ("Hazelnut Crocs") Then PictureBox6.Visible = True

        If ComboBox1.Text = ("Hazelnut Crocs") Then PictureBox1.Visible = False

        If ComboBox1.Text = ("Hazelnut Crocs") Then PictureBox2.Visible = False

        If ComboBox1.Text = ("Hazelnut Crocs") Then PictureBox3.Visible = False

        If ComboBox1.Text = ("Hazelnut Crocs") Then PictureBox4.Visible = False

        If ComboBox1.Text = ("Hazelnut Crocs") Then PictureBox5.Visible = False

        If ComboBox1.Text = ("Hazelnut Crocs") Then PictureBox7.Visible = False

        If ComboBox1.Text = ("Hazelnut Crocs") Then PictureBox8.Visible = False

        If ComboBox1.Text = ("Hazelnut Crocs") Then PictureBox9.Visible = False

        If ComboBox1.Text = ("Hazelnut Crocs") Then PictureBox10.Visible = False

        If ComboBox1.Text = ("Hazelnut Crocs") Then PictureBox11.Visible = False

        If ComboBox1.Text = ("Glory Black Smith") Then TextBox3.Text = ("208000")

        If ComboBox1.Text = ("Glory Black Smith") Then PictureBox7.Visible = True

        If ComboBox1.Text = ("Glory Black Smith") Then PictureBox1.Visible = False

        If ComboBox1.Text = ("Glory Black Smith") Then PictureBox2.Visible = False

        If ComboBox1.Text = ("Glory Black Smith") Then PictureBox3.Visible = False

        If ComboBox1.Text = ("Glory Black Smith") Then PictureBox4.Visible = False

        If ComboBox1.Text = ("Glory Black Smith") Then PictureBox5.Visible = False

        If ComboBox1.Text = ("Glory Black Smith") Then PictureBox6.Visible = False

        If ComboBox1.Text = ("Glory Black Smith") Then PictureBox8.Visible = False

        If ComboBox1.Text = ("Glory Black Smith") Then PictureBox9.Visible = False

        If ComboBox1.Text = ("Glory Black Smith") Then PictureBox10.Visible = False

        If ComboBox1.Text = ("Glory Black Smith") Then PictureBox11.Visible = False

        If ComboBox1.Text = ("Navy Blue Smith") Then TextBox3.Text = ("230000")

        If ComboBox1.Text = ("Navy Blue Smith") Then PictureBox8.Visible = True

        If ComboBox1.Text = ("Navy Blue Smith") Then PictureBox1.Visible = False

        If ComboBox1.Text = ("Navy Blue Smith") Then PictureBox2.Visible = False

        If ComboBox1.Text = ("Navy Blue Smith") Then PictureBox3.Visible = False

        If ComboBox1.Text = ("Navy Blue Smith") Then PictureBox4.Visible = False

        If ComboBox1.Text = ("Navy Blue Smith") Then PictureBox5.Visible = False

        If ComboBox1.Text = ("Navy Blue Smith") Then PictureBox6.Visible = False

        If ComboBox1.Text = ("Navy Blue Smith") Then PictureBox7.Visible = False

        If ComboBox1.Text = ("Navy Blue Smith") Then PictureBox9.Visible = False

        If ComboBox1.Text = ("Navy Blue Smith") Then PictureBox10.Visible = False

        If ComboBox1.Text = ("Navy Blue Smith") Then PictureBox11.Visible = False

        If ComboBox1.Text = ("The Red Devil Smith") Then TextBox3.Text = ("260000")

        If ComboBox1.Text = ("The Red Devil Smith") Then PictureBox9.Visible = True

        If ComboBox1.Text = ("The Red Devil Smith") Then PictureBox1.Visible = False

        If ComboBox1.Text = ("The Red Devil Smith") Then PictureBox2.Visible = False

        If ComboBox1.Text = ("The Red Devil Smith") Then PictureBox3.Visible = False

        If ComboBox1.Text = ("The Red Devil Smith") Then PictureBox4.Visible = False

        If ComboBox1.Text = ("The Red Devil Smith") Then PictureBox5.Visible = False

        If ComboBox1.Text = ("The Red Devil Smith") Then PictureBox6.Visible = False

        If ComboBox1.Text = ("The Red Devil Smith") Then PictureBox7.Visible = False

        If ComboBox1.Text = ("The Red Devil Smith") Then PictureBox8.Visible = False

        If ComboBox1.Text = ("The Red Devil Smith") Then PictureBox10.Visible = False

        If ComboBox1.Text = ("The Red Devil Smith") Then PictureBox11.Visible = False

        If ComboBox1.Text = ("Green Mario Nike") Then TextBox3.Text = ("350000")

        If ComboBox1.Text = ("Green Mario Nike") Then PictureBox10.Visible = True

        If ComboBox1.Text = ("Green Mario Nike") Then PictureBox1.Visible = False

        If ComboBox1.Text = ("Green Mario Nike") Then PictureBox2.Visible = False

        If ComboBox1.Text = ("Green Mario Nike") Then PictureBox3.Visible = False

        If ComboBox1.Text = ("Green Mario Nike") Then PictureBox4.Visible = False

        If ComboBox1.Text = ("Green Mario Nike") Then PictureBox5.Visible = False

        If ComboBox1.Text = ("Green Mario Nike") Then PictureBox6.Visible = False

        If ComboBox1.Text = ("Green Mario Nike") Then PictureBox7.Visible = False

        If ComboBox1.Text = ("Green Mario Nike") Then PictureBox8.Visible = False

        If ComboBox1.Text = ("Green Mario Nike") Then PictureBox9.Visible = False

        If ComboBox1.Text = ("Green Mario Nike") Then PictureBox11.Visible = False

        If ComboBox1.Text = ("Mario Bross Nike") Then TextBox3.Text = ("355000")

        If ComboBox1.Text = ("Mario Bross Nike") Then PictureBox11.Visible = True

        If ComboBox1.Text = ("Mario Bross Nike") Then PictureBox1.Visible = False

        If ComboBox1.Text = ("Mario Bross Nike") Then PictureBox2.Visible = False

        If ComboBox1.Text = ("Mario Bross Nike") Then PictureBox3.Visible = False

        If ComboBox1.Text = ("Mario Bross Nike") Then PictureBox4.Visible = False

        If ComboBox1.Text = ("Mario Bross Nike") Then PictureBox5.Visible = False

        If ComboBox1.Text = ("Mario Bross Nike") Then PictureBox6.Visible = False

        If ComboBox1.Text = ("Mario Bross Nike") Then PictureBox7.Visible = False

        If ComboBox1.Text = ("Mario Bross Nike") Then PictureBox8.Visible = False

        If ComboBox1.Text = ("Mario Bross Nike") Then PictureBox9.Visible = False

        If ComboBox1.Text = ("Mario Bross Nike") Then PictureBox10.Visible = False

    End Sub

            Tampilannya dapat dilihat seperti gambar di bawah ini:

c)      Button 1

            Dalam hal ini Button 1 berfungsi sebagai tombol yang memproses berapa total harga dari sepatu yang kita beli.

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

        Me.CenterToScreen()

        Dim Price As Long

        Dim Quantities As Long

        Dim Discount As Long

        Dim Potongan As Long

        Dim Total As Long

            Adapun tujuan dari dimasukkannya “Dim” dan “As Long” adalah untuk menyatakan sebuah pernyataan pada listing program dimana pada proses selanjutnya pernyataan tersebut akan ada pada listing program sehingga bisa digunakan dalam pembuatan listing program, dan maksud dari “As Long” adalah menyatakan suatu keadaan dimana memiliki rentang nilai yang sangat besar.

        Price = Val(TextBox3.Text)

            Adapun pengertian dari Price = Val(TextBox3.Text), menyatakan bahwa nilai price berasal dari nilai (value) yang dimasukkan pada TextBox 3. Demikian juga dengan Quantities dan Discount.

        Quantities = Val(TextBox4.Text)

        Discount = Val(TextBox5.Text)

        Potongan = (Price * Quantities * Discount) / 100

            Listing Potongan = (Price * Quantities * Discount) / 100, menyatakan bahwa nilai potongan merupakan hasil perkalian antara price, quantities dan discount dan dibagi dengan 100.

        Total = (Price * Quantities) – Potongan

            Listing Total = (Price * Quantities) – Potongan, menyatakan bahwa nilai total adalah perkalian antara price dengan quantities dan dikurangi dengan potongan.

        TextBox7.Text = Total

            Listing TextBox7.Text = Total, menyatakan bahwa nilai total berada pada TextBox 7.

        If TextBox3.Text = "" Then TextBox7.Text = ""

        If TextBox4.Text = "" Then TextBox7.Text = ""

        If TextBox5.Text = "" Then TextBox7.Text = ""

    End Sub

            Adapun maksud dari listing  If TextBox3.Text = "" Then TextBox7.Text = "", menyatakan bahwa jika nilai TextBox 3 tidak diisi maka nilai TextBox 7 adalah akan kosong, demikian juga dengan 4 dan 5.

d)     Button 3

            Dalam hal ini Button 3 berfungsi sebagai tombol yang memproses nilai dari uang kembalian kita.

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

        Me.CenterToScreen()

        Dim MoneyGiven As Long

        Dim MoneyBack As Long

        Dim Total As Long

        Dim Price As Long

        Dim Quantities As Long

        Dim Discount As Long

        Dim Potongan As Long

        Price = Val(TextBox3.Text)

        Quantities = Val(TextBox4.Text)

        Discount = Val(TextBox5.Text)

        MoneyGiven = Val(TextBox6.Text)

        Potongan = (Price * Quantities * Discount) / 100

        Total = (Price * Quantities) - Potongan

        MoneyBack = (MoneyGiven - Total)

            Adapun maksud dari listing di atas sama halnya dengan listing pada

Button 1. Untuk listing MoneyBack = (MoneyGiven - Total), menyatakan bahwa uang yang akan dikembaliakan adalah nilai dari uang yang diberikan dekurangi dengan total harga.

        TextBox8.Text = MoneyBack

        TextBox7.Text = Total

        If TextBox8.Text < "0" Then TextBox8.Text = ""

        If TextBox8.Text = "" Then MsgBox("Iam Sorry, Payment can't continue because the money is not enough. Please check for the Money Given ")

        If TextBox6.Text = "" Then TextBox8.Text = ""

        If TextBox7.Text = "" Then TextBox8.Text = ""

        If TextBox8.Text = "" Then TextBox7.Text = ""

    End Sub

                        Listing If TextBox8.Text < "0" Then TextBox8.Text = "",  If TextBox8.Text = "" Then MsgBox("Iam Sorry, Payment can't continue because the money is not enough. Please check for the Money Given "), menyatakan bahwa apabila nilai pada TextBox 8 bernilai kurang dari nol maka akan ditampilkan kotak pesan yang menyatakan uang yang seharusnya diberikan pelanggan masih kurang sehingga proses pembayaran tidak bisa dilanjutkan. Adapun tampilannya adalah sebagai berikut:

e)      Button 2

            Dalam hal ini Button 2 berfungsi sebagai tombol yang berfungsi untuk membuat semua kotak isian menjadi kosong seperti semula lagi.

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

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

        TextBox4.Clear()

        TextBox5.Clear()

        TextBox6.Clear()

        TextBox7.Clear()

        TextBox8.Clear()

            Adapun listing di atas menyatakan bahwa ketika Button 2 diklik, maka semua isian pada TextBox akan dihilangkan sama seperti pada saat memulai program.

        ComboBox1.Text = "Choose Here"

            Adapun  gambar pada PictureBox akan disembunyikan, sementara pada ComboBox akan ditampilkan kalimat “Choose Here”.

        PictureBox1.Hide()

        PictureBox2.Hide()

        PictureBox3.Hide()

        PictureBox4.Hide()

        PictureBox5.Hide()

        PictureBox6.Hide()

        PictureBox7.Hide()

        PictureBox8.Hide()

        PictureBox9.Hide()

        PictureBox10.Hide()

        PictureBox11.Hide()

    End Sub

            Adapun fungsi pada Button 2 ini adalah menyatakan refresh.  Adapun tampilannya adalah seperti gambar di bawah ini:

f)       Button 4

            Dalam hal ini Button 4 berfungsi sebagai tombol exit (keluar).

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

        Dialog1.Show()

    End Sub

            Adapun listing di atas menyatakan bahwa ketika Button 4 diklik maka Dialog 1 akan ditampilkan. Adapun tampilannya adalah seperti gambar di bawah ini:

g)      Button 5

            Dalam hal ini Button 5 berfungsi sebagai tombol yang menyatakan rasa terima kasih dari pihak penjual kepada pihak pembeli karena telah datang berkunjung.

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Form2.Show()

        Me.Hide()

    End Sub

            Adapun listing di atas menyatakan bahwa ketika Button 5 diklik maka Form 2 akan ditampilkan. Adapaun tampilannya adalah seperti gambar di bawah ini:

h)      Button 6

            Dalam hal ini Button 6 berfungsi sebagai tombol yang memberikan informasi tentang pembelian yang kita lakukan.

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        With Me.DataGridView1.Rows.Add(Me.TextBox1.Text, Me.TextBox2.Text, Me.ComboBox1.Text, Me.TextBox3.Text, Me.TextBox4.Text, Me.TextBox5.Text, Me.TextBox7.Text, Me.TextBox6.Text, Me.TextBox8.Text)

        End With

    End Sub

            Adapun listing di atas menyatakan bahwa ketika button 6 di klik maka pada DataGridView akan ditampilkan secara langsung akan semua informasi tentang proses pembelian yang telah kita lakukan, seperti nama pembeli, alamat pembeli, jenis sepatu yang dibeli, harga sepatu, jumlah sepatu yang dibeli, diskon, total harga, uang yang diberikan dan uang kembalian. Adapun tampilannya adalah seperti gambar seperti di bawah ini:

End Class

            Adapun listing End Class adalah menyatakan listing akhir yang merupakan listing penutup dari listing program.