Prosedure dalam Visual Basic 2012

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

Procedure Public:
    Public Sub ProgramKu()
        <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
 

SerambiNews.Com