[VB 6.0] Program Perhitungan BMI

BMI atau Body Mass Index adalah perhitungan untuk meng-kategorikan apakah anda termasuk kategori gemuk atau kurus dengan menghitung berdasarkan rumus BMI.

Oke, berikut codingnya dalam bahasa Program VB6 (bagian komentar saya beri style italic)

Private Sub Form_Load()
'jika ada yang salah maka program langsung beralih ke sub-fungsi salah

On Error GoTo salah:
'sub-fungsi mulai
mulai:

'variabel TB & BB (Blackberry..hehehe) tugasnya menampilan inputbox
'yang berisi data tinggi + berat badan anda
TB = InputBox("Berapakah Tinggi badan Loe???..jgn bo'ong loch!!!")
BB = InputBox("Berapakah Berat badan Loe???..jgn bo'ong juga loch!!!")


'Variabel X disuruh menyimpan hasil kali dari variabel TB
'sebelumnya variabel TB disuruh berubah singkong eh angka
X = Val((TB) * (TB))

'variabel Y disuruh menyimpan juga hasil X dibagi 10.000
Y = X / 10000

'Variabel Z dipaksa jadi angka, lalu nilai variabel BB dibagi nilai variabel Y tadi
Z = Val(BB) / Y

'tugas H hanya menyontek nilai variabel Z
'dengan kata lain,nilai H disamakan dengan nilai Z
H = Z

'Jika nilai H lebih kecil dari 18.5 maka
'isi variabel KATA dengan kata-kata kurus
'isi juga variabel P dengan kata kurang gemuk
'akhiri logika
'dan begitu seterusnya
If H <= 18.5 Then
KATA = "Kurus"
P = "Kurang Gemuk"
End If

If H >= 18.5 Then
KATA = "Normal"
P = "Sexy"
End If
If H >= 25 Then
KATA = "Gemuk"
P = "Gendut"
End If
If H >= 30 Then
KATA = "Obesitas"
P = "Gemuk Banget"
End If

'menampilan pesan berisi hasil perhitungan
MsgBox "Hasil analisanya adalah " & H & " .Kamu termasuk kategori orang " & KATA

'membuat panggilan khusus berdasarkan kategori yang dimasukkan tadi (TB&BB)
MsgBox "So,gue panggil loe si " & P

'membuat pertanyaan apakah mau mengitung lagi apa tidak
'jika ya maka kembali lagi ke awal
'jika tidak,program akan "bunuh diri"...^_^
A = MsgBox("Mau menghitung lagi??", vbYesNo, "Tanya")
If A = vbYes Then
GoTo mulai
Else
End
End If

'sub-fungsi salah (temennya On error goto salah)
'jika ada kesalahan hanya menampilan pesan
'lalu balik lagi ke fungsi/kode mulai
'cara amatiran...hehehe ^_^
salah:
MsgBox "Upsss...ada yang salah..ulang lagi ya"
GoTo mulai
End Sub

Catatan : perhitungan BMI yang saya buat,berlaku umum,jadi tidak membedakan gender (pria atau wanita),maaf ya atas kekurangan ini.. =)

Artikel ini dibuat oleh Yudha Tri Putra,segala macam bentuk pengcopyan atau menyalin sebagian atau seluruh halaman ini,dapat dikenakan sanksi dan melanggar Hak Cipta Yudha Tri Putra sebagai Blogger