Aplikasi Untuk Menghitung Bahan Bangunan

Oleh peistar

Tuesday, 13 December 2016

Bagikan :

Tweet

Jika saudara akan membuat usaha Property atau membuat rumah pribadi saudara dapat menentukan agaran untuk menghitung jumlah yang akan dikeluarkan untuk membangun, maka salah satu hitung-hitungan yang selalu harus dipecahkan adalah jumlah kebutuhan pasir, semen, dan batu bata. Itu artinya saudara harus tau kebutuhan berapa jumlah pasir, semen, dan batu bata yang akan dibutuhkan untuk membangun. Jumlah kebutuhan-kebutuhan tersebut akan terus berubah sesuai dengan panjang dan lebar rumah yang akan dibangun.

Untuk itu saya akan memberikan artikel mengenai bagaimana cara membuat Aplikasi Untuk Menghitung Bahan Bangunan khusunya untuk mengetahuai jumlah pasir, semen, dan batu bata yang akan dibutuhkan untuk membangun rumah.

Adapun langkah – langkahnya sebagai berikut :

- Langkah Pertama : Buatlah Projeck baru sesuaikan dengan tema atau materi.

- Langkah Kedua : Desainlah Form1 sesuai dengan gambar dibawah ini dengan ketentuan sebagai berikut :

Label1 : Panjang Bangunan

Label2 : Lebar Bangunan

Label3 : Jumlah Pasir

Label4 : Jumlah Semen

Label5 : Jumlah Batu Bata

TextBox1 : TextBox1

TextBox2 : TextBox2

Button1 : Proses

- Langkah Ketiga : Pada tombol Proses Saudara dapat memasukan Coding Program dibawah ini :

Coding Program :

Dim panjangbangunan, lebarbangunan As Decimal

panjangbangunan = TextBox1.Text

lebarbangunan = TextBox2.Text

Label3.Text = "Jumlah Pasir =>" & ButuhPasir(panjangbangunan, lebarbangunan)

Label4.Text = "Jumlah Semen =>" & ButuhSemen(panjangbangunan, lebarbangunan)

Label5.Text = "Jumlah Batu Bata =>" & JumlahBata(panjangbangunan, lebarbangunan)

- Langkah Keempat : Pada area Coding dibawah “Public Class Form1” Saudara dapat memasukan Coding Program dibawah ini.

Coding Program.
Const BanyakPasir = 0.05

Const BanyakSemen = 0.5

Const BanyakBatuBata = 70

Function ButuhPasir(ByVal panjang, ByVal lebar)

Dim RumusPasir As Single

Dim JumlahTruk As Single

RumusPasir = BanyakPasir * (panjang * lebar)

JumlahTruk = RumusPasir / 4

JumlahTruk = -Int(-(JumlahTruk))

ButuhPasir = JumlahTruk

End Function

Function ButuhSemen(ByVal panjang, ByVal lebar)

Dim RumusSemen As Single

Dim JumlahSak As Single

RumusSemen = BanyakSemen * (panjang * lebar)

JumlahSak = -Int(-(RumusSemen))

ButuhSemen = JumlahSak

End Function

Function JumlahBata(ByVal panjang, ByVal lebar)

Dim RumusBata As Single

RumusBata = 70 * (panjang * lebar)

JumlahBata = RumusBata

End Function

Selamat Mencoba. Wasalammmm...!!!

Tag : Aplikasi, Visual Studio 2010