Cara membuat Kalkulator Massa Index Tubuh (BMI) di Visual Basic 6.0
Apakah Anda tahu BMI itu? BMI adalah suatu ukuran yang digunakan untuk menunjukan kategori berat badan sesorang, apakah memiliki badan yang ideal atau tidak berdasarkan berat dan tinggi badan. Dengan menggunakan dan membuat kalkulator BMI sendiri di visual basic 6 akan sangat mudah menghitungnya kapan saja. Program ini akan sangat berguna untuk semua orang.
Kebanyakan dari kita banyak yang tidak tahu apa itu BMI dan bagaimana cara cara mengunakannya. Dengan adanya arikel ini anda menjadi tahu dan dapat membuat sendiri dengan program Visual Basic 6.0 serta Anda bisa share setelah Anda membuatnya nanti dan Anda bisa bagikan kepada semua orang yang belum tahu bagaimana fungsi dan cara menggunakannya BMI.
Rumus , BMI didasarkan pada berat dan tinggi badan sesorang, dari kedua hal inilah rumus BMI ditentukan, sehingga rumus BMI adalah BMI=(berat)/tinggi(kuadrat) . Dengan membuat kalkulator BMI sendiri anda dapat mengetahui dengan mudah mengecek BMI Anda dengan Visual Basic 6.0.
Cara membuat kalkulator Massa Index Tubuh (BMI) di visual basic 6.0
1. Buat formulir baru dengan Standar EXE
2. Kemudian Desain Form Anda persis pada Gambar dibawah ini:
 |
| Desain Form BMI |
Keterangan :
Command1 Caption &Hitung BMI
Command2 Caption &Reset
Command3 Caption &Keluar
Image OPTIONAL
Setelah Anda mendesai Form seperti gambar diatas, doubel klik area Form kosong, maka akan muncul jendela kode lalu tekean CTRL+A kemudian tekan DEL untuk mengosongkan kode
Setelah Kode Anda kosong, lalu ketikan atau copy kode dibawah ini jendela kode :
heightcm = height / 100
BMIcalculate = (weight) / (heightcm * heightcm)
BMI = Format(BMIcalculate, "0.00")
End Function
Private Sub Command1_Click() 'Tombol Hitung BMI
If Text1.Text = "" Then
MsgBox "Ada yang belum diisi", vbCritical, "Perhatian"
Text1.SetFocus
Else
If Text2.Text = "" Then
MsgBox "Ada yang belum diisi", vbCritical, "Perhatian"
Text2.SetFocus
Else
Label5.Caption = BMI(Text1.Text, Text2.Text)
If Label5 <= 18.5 Then
Label6.Caption = "Kurang Berat Badan"
Label6.BackColor = vbWhite
Else
If Label5 <= 22.9 Then
Label6.Caption = "Normal"
Label6.BackColor = vbGreen
Else
If Label5 <= 24.9 Then
Label6.Caption = "Kelebihan berat badan"
Label6.BackColor = vbYellow
Else
If Label5 <= 29.9 Then
Label6.Caption = "Obesitas tingkat satu"
Label6.BackColor = vbBlue
Else
Label6.Caption = "Obesitas tingkat 2"
Label6.BackColor = vbRed
End If
End If
End If
End If
End If
Command2.Enabled = True
Command1.Enabled = False
End If
End Sub
Private Sub Command2_Click() 'Tombol Reset
Command2.Enabled = False
Command1.Enabled = True
Text1.Text = ""
Text2.Text = ""
Label5.Caption = ""
Label6.BackColor = &H8000000F
Label5.Caption = 0
Label6.Caption = 0
Text1.SetFocus
End Sub
Private Sub Command3_Click() 'Tombol Keluar
End
End Sub
Private Sub Form_Activate()
Text1.SetFocus
End Sub
Private Sub Form_Load()
Label5.Caption = ""
Label6.Caption = ""
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub
Simpan hasil pekerjaan Anda dan jalankan program.Jika Anda sudah menulis kode dengan benar maka outputnya akan tampak pada gambar di bawah ini.
 |
| Output BMI |
Untuk menguji program yang Anda buat silahkan masukan tinggi badan Anda dalam satuan centimeter dan berat badan Anda dalam satuan kilogram, kemudian tekan Hitung BMI dan Anda akan melihat hasil perhitungan BMI Anda yang disertai dengan keterangan Level.
Berikut adalah Level atau Kategori BMI menurut Asia Pasifik :
Berat Badan Kurang >= 18.5
Berat Normal kisaran 18.5 – 22.9
Berat badan Lebih 23 – 24.9
Obesitas Tingkat 1 25 – 29.9
Obesitas Tingkat 2 > 30
Sekarang anda dapat mempraktekkannya dan dapat dengan mudah menyelesaikan program ini sehingga dapat menambah ilmu tentang cara membuat kalkulator BMI di visual basic 6.0.
Demikian artikel dari saya tentang Cara membuat kalkulator Massa Index Tubuh (BMI) di visual basic 6.0
Semoga bermanfaat buat kita semua
No comments:
Post a Comment