Pada pemrograman terdapat istilah
dengan nama Procedure yaitu di dalam VB.NET disebut dengan Sub.
Procedure tidak mengembalikan nilai apapun pada fungsi pemanggilnya.
Procedure di bagi menjadi 2 (dua), yaitu: Private (Local) dan Public (Global).
Penulisannya sebagai berikut:
Procedure Private :
Sub ProgramKu()
<isi procedure>
End Sub
<isi procedure>
End Sub
Procedure Public:
Public Sub ProgramKu()
<isi procedure>
End Sub
<isi procedure>
End Sub
Source code Program Hitung_Luas dengan Console VB.NET sebagai berikut:
Module Module1 Sub Luas_Segitiga() '{menghitung luas segitiga dengan rumus L = 1⁄2 (alas x tinggi)} Dim a, t, l As Double Console.Write("Alas : ") a = Console.ReadLine() Console.Write("Tinggi : ") t = Console.ReadLine() l = a * t / 2 Console.WriteLine("Luas : " & l) Console.WriteLine("---------------------------------------") main() Console.Read() End Sub Sub LuasPersegiPanjang() '{menghitung luas empat persegi panjang dengan rumus L = panjang x lebar} Dim p, l, luas As Double Console.Write("Panjang : ") p = Console.ReadLine() Console.Write("Lebar : ") l = Console.ReadLine() luas = p * l Console.WriteLine("Luas : " & luas) Console.WriteLine("---------------------------------------") main() Console.Read() End Sub Sub LuasLingkaran() '{menghitung luas lingkaran dengan rumus L = 3.14 x r x r} Dim L As Double Dim r As Integer Console.Write("Luas Lingkaran : ") r = Console.ReadLine() L = 3.14 * r * r Console.WriteLine("Luas : " & L) Console.WriteLine("---------------------------------------") main() Console.Read() End Sub Sub main() Dim nomor_menu As Integer Try Do While True Console.WriteLine("") Console.WriteLine("# Menu Pilihan Menghitung Luas #") Console.WriteLine("1. Menghitung Luas Segitiga") Console.WriteLine("2. Menghitung Luas Persegi Panjang") Console.WriteLine("3. Menghitung Luas Lingkaran") Console.WriteLine("4. Keluar Program") Console.Write("Masukkan Pilihan Menu (1/2/3/4) : ") nomor_menu = Console.ReadLine Select Case nomor_menu Case 1 Luas_Segitiga() Case 2 LuasPersegiPanjang() Case 3 LuasLingkaran() Case 4 End Case Else Console.WriteLine("Nomor pilihan menu salah, coba lagi!") End Select Console.WriteLine("---------------------------------------") Loop Catch ex As Exception Console.WriteLine("Anda tidak memasukkan pilihan!") Console.WriteLine("") main() End Try Console.ReadKey() End Sub End Module