'===================================================================
'perhitungan untuk mengkategorikan apakah anda termasuk gemuk/kurus
'berdasarkan satuan internasional BODY MASS INDEX (BMI)
'ni code nya agak ngelantur dikit...dicoba ja yach
'===================================================================

Private Sub Form_Load()

'qlo ada yang salah maka program langsung ngibrit ke sub-fungsi salah
'yang adanya dibawah itu loch

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 jadi bencong...eh jadi angka..
X = Val((TB) * (TB))

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

'Variabel Z dipaksa jadi bencong juga(angka.red) 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 BeGenk
'akhiri logika
'dan begitu seterusnya
If H <= 18.5 Then
KATA = "Kurus"
P = "BeGenk"
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 = "ah Mati aja loe,abis gendut banget sich...hahaha"
End If

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

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

'membuat pertanyaan apakah mau ngitung lagi apa engga
'jika mau maka kembali lagi ke awal
'jika engga,program akan bunuh diri...^_^
A = MsgBox("Mau ngitung lagi gak Loe??", vbYesNo, "Pertanyaan bwt Ente")
If A = vbYes Then
GoTo mulai
Else
End
End If

'==================================================
'ni 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 nich Bro..ulang lagi ya"
GoTo mulai
End Sub