Hitung Berat Badan Normal

Hitung Berat Badan Optimal by:Samuel Pola Karta Sembiring

Hampir semua praktisi kesehatan sudah tahu soal rumus penghitungan berat badan optimal dari tinggi badan. Logikanya, bisa dipastikan bahwa tinggi badan hampir selalu berbanding lurus dengan berat badan.

Rumus berat badan optimal yang paling sering dipakai sekaligus paling mudah diingat adalah:

BeratBadan = (TinggiBadan – 100) – ((TinggiBadan – 100) x 10%)
Bentuk rumus di atas bisa menjadi lebih sederhana lagi:
BeratBadan = (TinggiBadan – 100) x 90%

Kurang dari lima detik, sebenarnya hasil berat badan sudah bisa didapatkan tanpa bantuan apapun. Tidak perlu kalkulator ataupun software tertentu.

Tapi tidak ada salahnya untuk mengimplementasikannya pada pemrograman.

Anda bisa pakai pemrograman VisualBasic (pemrograman paling mudah sedunia). Jadi saya pun lebih menganjurkan anda untuk memakai bahasa pemrograman ini.

Silakan buka visual Basic anda!

Lalu buatlah satu form yang mirip dengan form di samping ini. Yang anda perlukan hanya dua label, satu textbox dan satu commandbutton. Kemudian tata semua control tersebut seperti form di samping.

Kemudian ketik code berikut:
Private Sub Command1_Click()
Dim nilai As Integer
If Text1.Text = “” Then
MsgBox “Masukkan tinggi badan anda!”
Else
nilai = Val(Text1.Text) – 100
MsgBox “Berat badan optimal anda adalah ” & nilai – (nilai / 10) & ” kilogram”
End If
End Sub

Ada code alternatif lain,

Private Sub Command1_Click()
Dim nilai As Integer
If Text1.Text = “” Then
MsgBox “Masukkan tinggi badan anda!”
Else
nilai = Val(Text1.Text) – 100
MsgBox “Berat badan optimal anda adalah ” & nilai * 9 / 10 & ” kilogram”
End If
End Sub

Silakan pilih salah satu code diatas. Kedua code di atas sebenarnya sama, hanya beda rumus saja.

Coba jalankan program yang sudah kita buat tadi. Tekan F5 untuk memulai “run.”

Akan muncul tampilan windows berikut.

Kemudian masukkan tinggi badan anda (dalam ukuran cm) dan klik “Hitung Berat Badan Optimal!”

Hasilnya akan tampil dalam bentuk messagebox.

Download Source Code

Sekian tutorial kali ini,

By: Samuel Pola Karta Sembiring

(090100043 – FK USU 2009)