Menu KL, LPP, LS, LP, VK, dan VB

Imports System.Console
Module Module1
    Dim ul As String
    Sub Main()
        menu()
    End Sub

    Sub menu()
        Dim pilih
        WriteLine("Pilih Menu")
        WriteLine("-----------")
        WriteLine("1.Keliling Lingkaran")
        WriteLine("2.Luas Persegi panjang")
        WriteLine("3.Luas Segitiga")
        WriteLine("4.Luas Persegi")
        WriteLine("5.Volume Kubus")
        WriteLine("6.Volume Balok")
        WriteLine("7.Exit")
        WriteLine("-----------")
        Write("Masukan Pilihan : ")
        pilih = ReadLine()

        Select Case pilih
            Case 1 : Clear() : KL()
            Case 2 : Clear() : LPP()
            Case 3 : Clear() : SG()
            Case 4 : Clear() : PG()
            Case 5 : Clear() : VK()
            Case 6 : Clear() : VB()
            Case 7 : End
            Case Else : MsgBox("Pilih yang benar")
        End Select
    End Sub

    Sub KL()
        Dim a, b As Long
        Write("Masukan Diameter: ")
        a = ReadLine()

        b = 3.14 * a

        Write("Keliling Lingkarannya : " & b)

        ReadLine()

        Write("Ulangi Proses ? (Y/T) ")
        ul = ReadLine()

        If ul.ToUpper = "Y" Then
            Clear()
            Call VK()
        ElseIf ul.ToUpper = "T" Then
            Clear()
            Call menu()
        Else
            MsgBox("Masukan Pilihan sesuai yang di instruksikan")
        End If

    End Sub


    Sub LPP()
        Dim c, d, e As Long
        Write("Masukan Panjang: ")
        c = ReadLine()
        Write("Masukan Lebar  : ")
        d = ReadLine()

        e = c * d

        Write("Luas Persegi panjangnya : " & e)

        ReadLine()

        Write("Ulangi Proses ? (Y/T) ")
        ul = ReadLine()

        If ul.ToUpper = "Y" Then
            Clear()
            Call VK()
        ElseIf ul.ToUpper = "T" Then
            Clear()
            Call menu()
        Else
            MsgBox("Masukan Pilihan sesuai yang di instruksikan")
            Read()
        End If
    End Sub

    Sub SG()
        Dim f, g, h As Long
        Write("Masukan Alas: ")
        f = ReadLine()
        Write("Masukan Tinggi  : ")
        g = ReadLine()

        h = 0.5 * f * g

        Write("Luas Segitiganya : " & h)
        ReadLine()


        Write("Ulangi Proses ? (Y/T) ")
        ul = ReadLine()

        If ul.ToUpper = "Y" Then
            Clear()
            Call VK()
        ElseIf ul.ToUpper = "T" Then
            Clear()
            Call menu()
        Else
            MsgBox("Masukan Pilihan sesuai yang di instruksikan")
        End If
    End Sub

    Sub PG()
        Dim i, k As Long
        Write("Masukan Sisi 1: ")
        i = ReadLine()

        k = i ^ 2

        Write("Luas Perseginya : " & k)
        ReadLine()


        Write("Ulangi Proses ? (Y/T) ")
        ul = ReadLine()

        If ul.ToUpper = "Y" Then
            Clear()
            Call VK()
        ElseIf ul.ToUpper = "T" Then
            Clear()
            Call menu()
        Else
            MsgBox("Masukan Pilihan sesuai yang di instruksikan")
        End If
    End Sub

    Sub VK()
        Dim l, n As Long
        Write("Masukan Panjang    : ")
        l = ReadLine()

        n = l ^ 3
        Write("Volume Kubusnya    : " & n)
        ReadLine()


        Console.Write("Ulangi Proses ? (Y/T) ")
        ul = ReadLine()

        If ul.ToUpper = "Y" Then
            Clear()
            Call VK()
        ElseIf ul.ToUpper = "T" Then
            Clear()
            Call menu()
        Else
            MsgBox("Masukan Pilihan sesuai yang di instruksikan")
        End If
    End Sub

    Sub VB()
        Dim p, q, r, s As Long
        Write("Masukan panjang: ")
        p = ReadLine()
        Write("Masukan Lebar  : ")
        q = ReadLine()
        Write("Masukan Tinggi  : ")
        r = ReadLine()

        s = p * q * r

        Write("Volume Baloknya : " & s)

        ReadLine()


        Write("Ulangi Proses ? (Y/T) ")
        ul = ReadLine()

        If ul.ToUpper = "Y" Then
            Clear()
            Call VK()
        ElseIf ul.ToUpper = "T" Then
            Clear()
            Call menu()
        Else
            MsgBox("Masukan Pilihan sesuai yang di instruksikan")
        End If
    End Sub



End Module