prosedure fuction

A.  Procedure  fuction

1.      Buat project baru,

2.      Desain Tampilan form seperti gambar berikut ini :

3.      Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel 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

4.      Setelah kita buat perintah di atas maka seperti gambar di bawah ini hasilnya,

5.      Klik ganda pada Form, kemudian buatlah sub procedure Bersih berikut ini :

        Sub Bersih()

        TxtKodeBrg.Text = ""

        TxtNamaBrg.Text = ""

        TxtSatuan.Text = ""

        TxtJumlah.Text = ""

        TxtHrgSatuan.Text = ""

        TxtTot.Text = ""

        TxtKodeBrg.Focus()

        TxtTot.Enabled = False

        End Sub     

6.      Panggil procedure yang anda buat diatas dengan cara, klik ganda pada form load ketikkan kode program berikut ini              Call Bersih()

7.      Panggil procedure yang anda buat diatas pada BtnClear dengan cara, klik ganda pada BtnClear kemudian ketikkan kode program berikut ini

   

Call Bersih()

8.      Buatlah Function Hitung, berikut ini

Private Function Hitung()

        Dim Jumlah, HrgSatuan, Total As Integer

        Jumlah = TxtJumlah.Text

        HrgSatuan = TxtHrgSatuan.Text

        Total = Jumlah * HrgSatuan

        TxtTot.Text = Total

        Return Total

    End Function

9.      Buatlah Procedure CekDataKosong dan sekaligus memanggil function Hitung, berikut   ini

Sub CekDataKosong()

If TxtKodeBrg.Text = "" Then

MessageBox.Show("Kode Barang harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

TxtKodeBrg.Focus()

ElseIf TxtNamaBrg.Text = "" Then

MessageBox.Show("Nama Barang harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

TxtNamaBrg.Focus()

ElseIf TxtSatuan.Text = "" Then

MessageBox.Show("Satua Barang harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

TxtSatuan.Focus()

ElseIf TxtJumlah.Text = "" Then

MessageBox.Show("Harga Barang harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

TxtJumlah.Focus()

ElseIf TxtHrgSatuan.Text = "" Then

MessageBox.Show("Harga Satuan Barang harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

TxtHrgSatuan.Focus()

Else

   Call Hitung()

End If

End Sub

10.   Memanggil procedure CekDataKosong dengan cara, klik ganda pada tombol BtnHitung

  Call CekDataKosong

11.  Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.

12.   Klik ganda pada tombol BtnExit, Kemudian ketikkan kode program berikut ini :

        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

13.  Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.

14.  Kurang lebih Inilah hasil dari program kita,