Module Home
Sub Main()
Dim Nomor_Menu As Integer
Try
Do While True
Console.WriteLine("")
Console.WriteLine("# Menu Pilihan Menghitung #")
Console.WriteLine("1. Menghitung Keliling Segitiga")
Console.WriteLine("2. Menghitung Luas Lingkaran")
Console.WriteLine("3. Menghitung Keliling Lingkaran")
Console.WriteLine("4. Menghitung Tahun Kabisat")
Console.WriteLine("5. Keluar Program")
Console.Write("Masukan Pilihan Menu (1/2/3/4/5): ")
Nomor_Menu = Console.ReadLine
Select Case Nomor_Menu
Case 1
Keliling_Segitiga()
Case 2
Luas_Lingkaran()
Case 3
Keliling_Lingkaran()
Case 4
Tahun_Kabisat()
Case 5
End
Case Else
Console.WriteLine("Nomor Pilihan Anda Salah, Tentukan Pilihan !")
End Select
Console.WriteLine("--------------------------------------")
Loop
Catch ex As Exception
Console.WriteLine("Anda Tidak Memasukkan Pilihan !!!")
Console.WriteLine("")
Main()
End Try
Console.ReadKey()
End Sub
Kemudian Masukkan Menu Sub di Bawahnya dengan judul yang sesuai di Menu Pertama.
Selamat Mencoba......!