Pemrograman Visual Prosedur Barang

        Berikut ini yaitu sebuah pemrograman visual yang mana membuat form prosedur barang, langsung saja lihat pada langkah-langkah berikut:

Pengertian Procedure

Procedure yaitu sub program yang digunakan untuk melakukan proses tertentu dan tidak mengembalikan nilai, bisa disimpan dalam database sebagai object skema, sehingga suatu procedure bisa digunakan berulangkali tanpa harus melakukan parsing dan compile ulang.

Ikuti sesuai dengan tabel berikut:

No	Object	Property	Nilai
1	Form	Name Text	ProsedurBarang Barang
2	Label	Text	Kode Barang
3	TextBox	Text Name	(dikosongkan) txtKodeBrg
4	Label	Text	Nama Barang
5	TextBox	Text Name	(dikosongkan) txtNamaBrg
6	Label	Text	Satuan
7	TextBox	Text Name	(dikosongkan) txtSatuan
8	Label	Text	Harga Satuan
9	TextBox	Text Name	(dikosongkan) txtHrgSatuan
10	Label	Text	Jumlah
11	TextBox	Text Name	(dikosongkan) txtJumlah
12	Label	Text	Total Harga
13	TextBox	Text Name	(dikosongkan) txtTotal
14	Button	Text Name	Hitung btnHitung
15	Button	Text Name	Clear btnClear
16	Button	Text Name	Exit btnExit

a.       Buatlah Form baru dengan nama Prosedur Barang.

b.      Buatlah sebuah Prosedur Barang yang bisa melakukan operasi perhitungan yang diinputkan oleh user.

c.       Hasil Prosedur Barang ini kurang lebih sebagai berikut:

d.   Properties Name adalah:

txtKodeBrg, txtNamaBrg, txtSatuan, txtHrgSatuan, txtJumlah, txtTotal, btnHitung, btnClear, btnExit.

e.      Kode Program

Public Class ProsedurBarang

    Sub Bersih()

        txtKodeBrg.Text = " "

        txtNamaBrg.Text = " "

        txtSatuan.Text = " "

        txtHrgSatuan.Text = " "

        txtJumlah.Text = " "

        txtTotal.Text = " "

        txtKodeBrg.Focus()

        txtTotal.Enabled = False

    End Sub

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

        Call Bersih()

    End Sub

    Private Sub btnClear_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnClear.Click

        Call Bersih()

    End Sub

    Private Function Hitung()

        Dim Jumlah, HrgSatuan, Total As Integer

        Jumlah = txtJumlah.Text

        HrgSatuan = txtHrgSatuan.Text

        Total = Jumlah * HrgSatuan

        txtTotal.Text = Total

        Return Total

    End Function

    Sub CekDataKosong()

        If txtKodeBrg.Text = " " Then

            MessageBox.Show("Kode barang harus di isi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            txtKodeBrg.Focus()

        ElseIf txtNamaBrg.Text = " " Then

            MessageBox.Show("Nama barang harus di isi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            txtNamaBrg.Focus()

        ElseIf txtSatuan.Text = " " Then

            MessageBox.Show("Satuan barang harus di isi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            txtSatuan.Focus()

        ElseIf txtHrgSatuan.Text = " " Then

            MessageBox.Show("Harga satuan barang harus di isi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            txtHrgSatuan.Focus()

        ElseIf txtJumlah.Text = " " Then

            MessageBox.Show("Jumlah barang harus di isi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            txtJumlah.Focus()

        Else

            Call Hitung()

        End If

    End Sub

    Private Sub btnHitung_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnHitung.Click

        Call CekDataKosong()

    End Sub

    Private Sub btnExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExit.Click

        Dim Tutup As String

        Tutup = MessageBox.Show("Yakin tutup form ini ?", "Konfirmasi",

        MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        If Tutup = MsgBoxResult.Yes Then

            End

        Else

            Exit Sub

        End If

    End Sub

End Class

f.       Jalankan program dengan menekan tombol F5 atau klik ikon Start pada toolbar.

g.      Hasil tampilan dari program.

       Input Data:

            Clear:

          Jika Salah satu textbox tidak terisi:

         

Semoga bermanfaat ya:)