Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("=============================================")

        Console.WriteLine("MENU MENGHITUNG ESTIMASI BIAYA PEMBUATAN :")

        Console.WriteLine("(1) ATAP BAJA RINGAN (ABR) 1 SISI")

        Console.WriteLine("(2) ATAP BAJA RINGAN (ABR) 2 SISI")

        Console.WriteLine("(3) LANTAI/DAK BETON")

        Console.WriteLine("=============================================")

        Dim satu As Integer

        Dim dua As Integer

        Dim tiga As Integer

        Console.Write("Masukan Pilihan Anda :")

        satu = Console.ReadLine()

        'menjalankan keputusan

        If satu = "1" Then

            'tampilkan pada layar perintah yang diinginkan

            Console.WriteLine("=============================================")

            Console.WriteLine("MENGHITUNG ESTIMASI BIAYA (ABR) 1 SISI")

            Console.WriteLine("=============================================") 

        End If

        Dim decPanjang As Decimal

        Dim decLebar As Decimal

        Dim decTinggi As Decimal

        Dim dblHrgAbr As Double

        Dim decLuas As Decimal

        Dim dblTotal As Double

        'masukan parameter

        Console.Write("Masukan Panjang Atap (Meter):")

        decPanjang = Console.ReadLine()

        Console.Write("Masukan Lebar Atap (Meter):")

        decLebar = Console.ReadLine()

        Console.Write("Masukan Tinggi Atap (Meter):")

        decTinggi = Console.ReadLine()

        Console.Write("Masukan Harga (ABR) Per Meter (Rp.):")

        dblHrgAbr = Console.ReadLine()

            'melakukan perhitungan sisi miring

            decLebar = Math.Sqrt(decTinggi ^ 2 + decLebar ^ 2)

            decLebar = Math.Round(decLebar, 2) 

            'melakukan perhitungan luas atap

            decLuas = decPanjang * decLebar

            'melakukan perhitungan TEB

            dblTotal = ( decLuas * dblHrgAbr ) 

        'tampilkan hasil perhitungan pada layar

        Console.WriteLine("=============================================")

        Console.WriteLine("Luas Atap (M2) : " & decLuas)

        Console.WriteLine("Total Estimasi Biaya : " & dblTotal)

        Console.WriteLine("=============================================") 

    End Sub

End Module