Program Penjualan Sederhana dengan Virtual Basic

PROJECT

“PROGRAM PENJUALAN SEDERHANA”

Ini merupakan program sederha yang saya buat yaitu “Program Penjualan Sederhana”

Langkah pertama buat lah Form program seperti di bawah ini:

Toolbox yang digunakan antara lain adalah:

1.       Untuk Penamaan “Kode barang”  sampai  “Total Bayar” mengunakan tool  Label

2.       Untuk kolom yang ada tanda panah kebawah menggunakan tool Combobox

3.       Untuk kolom kosong menggunakan tool TextBox

4.       Untuk Tunai dan Kredit menggunakan tool RadioButton

Ketika program di Run/Play, akan muncul suatu peringatan  “ Selamat datang di program saya”.

Kemudian di OK, dan muncul,

 

Lalu OK, setelah itu Muncul Form Program Penjualan Sederhana, seperti di bawah ini,

Kita pilih kode barangnya, dan secara otomatis pada kolom nama barang dan harga barang sudah tertera, seperti gambar di bawah

Lalu kita isikan jumlah;

Dan secara otomatis total harga akan muncul      

Dan pada RadioButton Tunai saya kasih koding 10 %, tiap pembelian yang dibayar secara tunai’, sehingga nanti di total harga akan berubah karena harga sebelumnya sudah terkena diskon.

Bila kredit saya tidak kasihkan diskon sehingga apabila pembelian secara kredit akan tetap harganya.

Pada button hapus, : akan menghapus semua tulisan yang tertera di kolom.

Pada Button Keluar saya kasih teks peringatan “ Apakah anda ingin keluar”?

Apabila Yes: maka akan keluar dari program dan kembali ke desain form’nya

             No: akan kembali lagi ke program.

Untuk Codingnya Seperti Dibawah Ini

Coding Form :

Public Class Form1

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

        MessageBox.Show("Selamat Datang di Program Saya")

        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)

        Cmbkodbar.Items.Add("SPT")

        Cmbkodbar.Items.Add("SND")

        Cmbkodbar.Items.Add("CLN")

        Cmbkodbar.Items.Add("TOP")

        Cmbkodbar.Items.Add("KMJ")

        Form2.Show()

    End Sub

Coding Code BArang

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

        Dim Kodebarang, namabarang As String

        Dim harga As Single

        Kodebarang = Cmbkodbar.Text

        Select Case Kodebarang

            Case "SPT"

                namabarang = "Sepatu"

                harga = 100000

            Case "SND"

                namabarang = "Sandal"

                harga = 30000

            Case "CLN"

                namabarang = "Celana"

                harga = 150000

            Case "TOP"

                namabarang = "Topi"

                harga = 20000

            Case "KMJ"

                namabarang = "Kemeja"

                harga = 110000

            Case Else

                namabarang = "-"

                harga = 0

        End Select

        Txtnambar.Text = namabarang

        Txtharbar.Text = harga

    End Sub

Coding Button Hapus :

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

        Txtnambar.Clear()

        Txtharbar.Clear()

        Txtjumbar.Clear()

        TxtTotbay.Focus()

        Txttothar.Clear()

        Txtdis.Clear()

    End Sub

Coding Keluar:

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

        If MsgBox("Apakah anda ingin keluar?", vbYesNo + vbQuestion + vbDefaultButton2,

                     "Keluar") = vbYes Then

            Me.Close()

        End If

    End Sub

Coding Tombol Tunai:

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

        Txtdis.Text = Val(Txttothar.Text) * 10 / 100

        TxtTotbay.Text = Val(Txttothar.Text) - Val(Txtdis.Text)

    End Sub

Coding Tombol Kredit:

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

        Txtdis.Text = 0

        TxtTotbay.Text = Val(Txttothar.Text) - Val(Txtdis.Text)

    End Sub

   Coding kolomm jumlah barang:

    Private Sub Txtjumbar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtjumbar.TextChanged

        Txttothar.Text = Val(Txtharbar.Text) * Val(Txtjumbar.Text)

        TxtTotbay.Text = Val(Txttothar.Text) - Val(Txtdis.Text)

    End Sub

End Class