Praktik Program PROCEDURE, FUNCTION DAN MODULE

1.Desain awal program

2. Atur Properties Masing-masing Objek sebagai berikut:

Object	Properties	Nilai
Form1	Name Text	Form1 Barang
Label1	Text	Kode Barang
Label2	Text	Nama Barang
Label3	Text	Satuan
Label4	Text	Harga
Label5	Text	Jumlah
Label6	Text	Total Harga
TexBox1	Name	TxtKodeBrg
TexBox2	Name	TxtNamaBrg
TexBox3	Name	TxtSatuan
TexBox4	Name	TxtHrgSatuan
TexBox5	Name	TxtJumlah
TexBox6	Name	TxtTot
Button1	Name Text	BtnHitung Hitung
Button2	Name Text	BtnClear Clear
Button3	Name Text	BtnExit Exit

Tampilan program setelah pengaturan properties sebagai berikut:

3.Perintah Program

Public Class Form1

    Sub Bersih()

        TxtKB.Text = " "

        TxtNB.Text = " "

        Txtsatuan.Text = " "

        Txtjumlah.Text = " "

        TxtTH.Text = " "

        TxtHS.Text = " "

    End Sub

    Private Function Hitung()

        Dim Jumlah, HargaSatuan, Total As Integer

        Jumlah = Val(Txtjumlah.Text)

        HargaSatuan = Val(TxtHS.Text)

        Total = Val(Jumlah) * HargaSatuan

        TxtTH.Text = Total

        Return Total

    End Function

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

        Call Bersih()

        Call Hitung()

    End Sub

    Private Sub Btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnclear.Click

        Call Bersih()

    End Sub

    Private Sub Btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhitung.Click

        Call Hitung()

    End Sub

End Class

4.Tampilan Program setelah dijalankan sebagai berikut :