Sub Main()
Const phi = 3.14
Dim Rumus As Byte
Dim p, l, luas, r, luas2, n As Integer
Console.WriteLine("1 = Lingkaran ")
Console.WriteLine("2 = Persegi ")
Console.WriteLine("3 = Menghitung Nilai ")
Console.WriteLine("Masukkan Angka untuk rumus : ")
Rumus = Console.ReadLine
Select Case Rumus
Case 1
Console.WriteLine("Mengehitung Luas Lingkran")
Console.Write("masukkan jari2 : ")
r = Console.ReadLine
luas2 = phi * r ^ 2
Console.Write("Hasil Adalah : " & luas2)
Console.ReadKey()
Case 2
Console.WriteLine("Mengehitung Luas Persegi")
Console.Write("Masukkan Panjang :")
p = Console.ReadLine
Console.Write("Masukkan Lebar :")
l = Console.ReadLine
luas = p * l
Console.WriteLine("Hasil : " & luas)
Case 3
Console.Write("Masukkan Nilai Anda :")
n = Console.ReadLine
If n >= 85 And n <= 100 Then
Console.WriteLine("Conversi Nilai Anda : A")
ElseIf n >= 70 And n < 85 Then
Console.WriteLine("Conversi Nilai Anda : B")
ElseIf n >= 60 And n < 70 Then
Console.WriteLine("Conversi Nilai Anda : C")
ElseIf n >= 25 And n < 60 Then
Console.WriteLine("Conversi Nilai Anda : D")
ElseIf n >= 0 And n < 25 Then
Console.WriteLine("Conversi Nilai Anda : E")
Else
Console.WriteLine("Nilai yang Anda Masukkan Error")
End If
End Select
Console.ReadKey()
End Sub
0 komentar:
Posting Komentar
Silahkan gan komentarnya,,karena komentar anda sangat berarti bagi blog ini...Salam blogger