Membuat Prosedur dan Fungsi di VB.NET

Prosedur dan Fungsi adalah program kecil yang berada dalam program utama yang digunakan untuk menyelesaikan masalah khusus dengan parameter yang diberikan (Wikibook)

Cara membuat Form Prosedur dan Fungsi

Saya telah membuat

6 Label
4 Textbox
2 ComboBox, dan
4 Button

Button1 adalah Button Hitung
Button2 adalah Clear
Button3 adalah Exit

Berikut seluruh baris source codenya

Public Class Form1

Public i As Integer

Sub bersih()

txtkode.Clear()

txtnama.Clear()

txthrgsatuan.Clear()

txtharga.Clear()

cbjumlah.Text = ""

cbsatuan.Text = ""

End Sub

Sub isi_satuan()

cbsatuan.Items.Add("Pcs")

cbsatuan.Items.Add("Unit")

cbsatuan.Items.Add("Set")

cbsatuan.Items.Add("Box")

cbsatuan.Items.Add("Pack")

End Sub

Sub isi_jumlah()

i = 0

Do While i < 100

i += 1

cbjumlah.Items.Add(i)

Loop

End Sub

Function total_harga(ByVal a As Long, ByVal b As Long)

'a dan b adalah sebagai untuk parameter

'wajib digunakan pada saat penggunaan function

Dim total As Long

total = a * b

txtharga.Text = total

'untuk penjumlahan >10 menggunakan long

'dan untuk penjumlahan biasa menggunakan integer

End Function

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Call bersih()

End Sub

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

End

End Sub

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

Call isi_satuan()

Call isi_jumlah()

End Sub

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

Call total_harga(txthrgsatuan.Text, cbjumlah.Text)

End Sub

End Class