VISUAL STUDIO : Membuat Program Pembelian Handphone

Assalamuallaikum Wr,Wb . Bagaimana sobat networking ? Semoga sehat-sehat saja ya . Nah, kali ini saya akan memberikan ilmu tentang Membuat Program Pembelian Handphone pada Visual Studio.

 MEMBUAT PROGRAM PEMBELIAN HANDPHONE

Langsung saja tanpa berlama-lama mari kita membuat Programnya ya , Mohon disimak baik-baik ya

1. Pertama buka terlebih dahulu Microsoft Visual Studio (saya menggunakan yang 2010)

2. Kemudian design seperti contoh gambar dibawah ini

ToolBox yang digunakan, diantaranya :

1. Button
2. CheckBox
3. ComboBox
4. RadioButton
5. TextBox
6. DateTimePicker
7. Label
8. GroupBox
9. NumericUpDown
10. MenuStrip
11. DataGridView
12. Panel

3. Tambah kan Item pada ComboBox Jenis Handphone seperti gambar dibawah ini

4. Tambahkan Kolom pada Data Grid View, data yang diinputkan akan dimasukan ke Grid View . Caranya klik Data Gried View - Properties - Collection . Lalu ikuti seperti gambar dibawah ini 

5. Selanjutnya, klik 2x pada form , lalu masukkan Script dibawah ini .

 Dim hargahp, hclear, hliquid, hspy, jmlbeli, tmbhn, total, diskon, acc As Double
    Dim metodepembayaran As String

6. Lalu klik 2x pada ComboBox , masukkan Script dibawah ini .

        If cbbarang.Text = "Iphone XS MAX 6/128" Then
            hargahp = 22499000
            txtharga.Text = hargahp.ToString
        ElseIf cbbarang.Text = "Redmi Note 7 4/64" Then
            hargahp = 2800000
            txtharga.Text = hargahp.ToString
        ElseIf cbbarang.Text = "Samsung Galaxy A70" Then
            hargahp = 5299000
            txtharga.Text = hargahp.ToString
        ElseIf cbbarang.Text = "Oppo F11 Pro" Then
            hargahp = 5799000
            txtharga.Text = hargahp.ToString
        End If

Dari Script diatas berarti jika cbbarang.Text (ComboBox Jenis Handphone) memilih "Iphone XS MAX 6/128" maka hargahp.Text (TextBox Harga) maka bernilai "22499000" yaitu pada variable hargahp .

7. Jika sudah maka kita lanjutkan ke Button Tambah , masukkan Script dibawah ini .

    If tgclear.Checked Then
            hclear = 25000
        Else
            hclear = 0
        End If
        If tgnano.Checked Then
            hliquid = 50000
        Else
            hliquid = 0
        End If
        If tgspy.Checked Then
            hspy = 80000
        Else
            hspy = 0
        End If

        If rbya.Checked Then
            tmbhn = 50000
        Else
            tmbhn = 0
        End If
        acc = tmbhn + hspy + hclear + hliquid
        htambahan.Text = "Rp. " + acc.ToString

Maksud dari Script diatas adalah jika kita memilih ComboBox Temperred Glass dan Radio Button Case maka akan dikenai tambahan Biaya Aksesoris

8. Selanjutnya klik 2x pada Button Cek Harga , dan masukkan Script dibawah ini .

        jmlbeli = txtjmlbeli.Text

        If cash.Checked Then
            metodepembayaran = "Kartu Kredit"
            diskon = 0.2
        ElseIf kredit.Checked Then
            metodepembayaran = "Cash"
            diskon = 0
        End If

        diskon = diskon * total
        totaldiskon.Text = diskon

        total = (hargahp + acc) * jmlbeli - diskon
        totalbayar.Text = total.ToString

 Selajutnya pada Radio Button jika pembelian menggunakan Credit Card mendapat diskon sebesar 20% selain itu tidak mendapatkan Diskon, Script bagian bawah totalbayar dihitung dari ( Handphone + Tambahan Aksesoris * Jumlah Pembelian - diskon ) .

9. Jika sudah selesai lalu klik 2x pada Button Cetak Bukti untuk memasukkan Data Pembeli ke Grid View , masukkan Script dibawah ini .

        Grid.Rows.Add(1)
        Grid.Rows(Grid.RowCount - 2).Cells(0).Value = txtnama.Text
        Grid.Rows(Grid.RowCount - 2).Cells(1).Value = txttelp.Text
        Grid.Rows(Grid.RowCount - 2).Cells(2).Value = txtjmlbeli.Text
        Grid.Rows(Grid.RowCount - 2).Cells(3).Value = cbbarang.Text
        Grid.Rows(Grid.RowCount - 2).Cells(4).Value = txtharga.Text
        Grid.Rows(Grid.RowCount - 2).Cells(5).Value = totaldiskon.Text
        Grid.Rows(Grid.RowCount - 2).Cells(6).Value = totalbayar.Text
        Grid.Rows(Grid.RowCount - 2).Cells(7).Value = tanggal.Text
        Grid.Update()

10. Selanjutnya klik 2x pada Button Reset , dan masukkan Script dibawah ini .

        txtnama.Text = ""
        txttelp.Text = ""
        txtjmlbeli.Text = ""
        tanggal.Text = ""
        tgclear.Checked = 0
        tgnano.Checked = 0
        tgspy.Checked = 0
        rbya.Checked = 0
        rbtidak.Checked = 0
        htambahan.Text = "Rp."
        cbbarang.Text = ""
        txtharga.Text = ""
        cash.Checked = 0
        kredit.Checked = 0
        totaldiskon.Text = "Rp."
        totalbayar.Text = "Rp."

 Script diatas bertujuan untuk mereset semua pembelian yang telah diproses , Terkecuali Data Grid View .

11. Klik 2x pada Button Exit , lalu masukkan Script dibawah ini

        Dispose()

12. Selanjutnya Save dengan menekan CTRL+S , lalu jalankan Program tersebut dengan menekan F5. Hasilnya akan seperti gambar dibawah ini

Bagaimana sobat networking ? Mudah bukan ? Jika gagal coba lagi , Karena usaha keras tidak akan mengkhianati dirimu . Hehe

Terimakasih telah membaca tulisan / artikel di atas tentang Membuat Program Pembelian Handphone  pada Visual Studio. Semoga informasi tersebut bisa memberikan manfaat bagi sobat networking yang membaca dan jangan lupa bagikan ilmu ini kepada siapapun .