Pernah mengalami masalah berat badan? Atau tidak
tahu tentang bagaimana cara menetukan berat badan yang ideal?, nah disinilah
jawabannya. Pada bagian ini akan dibahas mengenai bagaimana cara membuat alat
yang dapat mengukur apakah berat badan kita sudah ideal atau belum, dengan alat
ini juga didapatkan klasifikasi tentang berat badan seseorang, misalnya orang
tersebut kekurangan berat badan, ideal ataukah mengalami obesitas. Berikut adalah
gambar dari alat tersebut.
Alat ini dilengkapi
dengan dua buah tombol yang digunakan untuk melakukan input data yang berupa tinggi
badan dan berat badan, sehingga data tersebut akan dikalkulasi dan akan
didefinisikan apakah orang tersebut mengalami kekurangan berat badan, ideal
atau obesitas. Terdapat sebuah LCD yang digunakan untuk menampilkan deskripsi
tentang kriteria berat badan yang dialami seseorang.
Alat ini menggunakan
ATMega8 sebagai media pemrosesan data dan tempat penyimpanan, sehingga data
yang telah disimpan tersebut dilakukan pemrosesan data. Data yang telah
diproses dilakukan klasifikasi mengenai 4 kriteria yaitu kekeurangan berat
badan jika nilai perpaduan antara tinggi badan dan berat badan kurang dari 18
maka akan dikatakan kekurangan berat badan, untuk nilai diantara 18 dan 23
dapat dikatakan orang tersebut memiliki berat ideal, apabila nilainya 23 sampai
27 dikatakan obesitas ringan dan lebih dari 27 dikatakan obesitas berat. Data-data klasifikasi tersebut didapat dari
data tentang pengukuran berat badan ideal yang menggunakan rumus berikut
Rumus BMI
= berat badan (kilo gram) dibagi dengan kuadrat
tinggi badan (meter)
= satuannya kg/ m2.
Pemrosesan data menggunakan kalkulasi rumus BMI, setelah didapat nilai hasilnya, akan dilakukan klasifikasi terhadap nilai yang terbaca. Berikut tabel klasifikasinya
|
NILAI
|
KLASIFIKASI
|
|
X < 18
|
Kekurangan Berat
Badan
|
|
18 < X < 23
|
Berat Badan Ideal
|
|
23 < X < 27
|
Obesitas Ringan
|
|
X > 27
|
Obesitas berat
|
Rangkaian Tombol
'==========================================================================
'Programmer: Yanuar Mukhammad
'E-mail : Yanuarm@hotmail.com
'==========================================================================
$regfile =
"m8def.dat"
$crystal =
12000000
Config
Lcdpin = Pin , Rs = Portc.4 , E = Portc.5 , Db4 = Portc.0
Config
Lcdpin = Pin , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3
Config Lcd =
16 * 2
Config
Pind.5 = Input
Config
Pind.6 = Input
Dim Jam As
Byte , Men As Byte , Tinggi As Single , X As Single , N As Single
Dim Datajam
As Eram Byte , Datamenit As Eram Byte
Declare Sub
Setting
Declare Sub
Main
Declare Sub
Lanjut
Declare Sub
Mulai
Tombol1
Alias Pind.5
Tombol2
Alias Pind.6
Set Portd.5
Set Portd.6
Cls
Cursor Off
Portd.5 = 1
Portd.6 = 1
Upperline
Lcd
"Cari berat ideal"
Locate 2 , 1
Lcd "
Setting " ; " " ; " Mulai "
Do
If Tombol1 =
0 Then
Bitwait Tombol1 , Set
Call Setting
End If
If Tombol2 =
0 Then
Cls
Upperline
Lcd "Mulai
Hitung"
Wait 1
Cls
Lowerline
Lcd
"Setting dulu"
Wait 1
Bitwait
Tombol1 , Set
Call Setting
End If
Loop
Sub Setting
Cls
Upperline
Lcd
"Setting centre"
Locate 2 , 2
Lcd "
Atur " ; " " ; "
Back "
Do
If Tombol1 =
0 Then
Bitwait Tombol1 , Set
Goto Aturjam
End If
If Tombol2 =
0 Then
Bitwait Tombol2 , Set
Call Main
End If
Loop
End Sub
Sub Main
Cls
Upperline
Lcd
"Cari berat ideal"
Locate 2 , 1
Lcd "
Setting " ; " " ; " Mulai "
Do
Tinggi = Men
/ 100
X = Tinggi *
Tinggi
N = Jam / X
If Tombol1 =
0 Then
Bitwait Tombol1 , Set
Call Setting
End If
If Tombol2 =
0 Then
Bitwait
Tombol2 , Set
Call Mulai
End If
Loop
End Sub
Sub Mulai
Upperline
Lcd
"berat :" ; Jam
Locate 2 , 1
Lcd
"tinggi :" ; Men
Locate 2 ,
12
Lcd
"Next"
Cls
Do
If Tombol1 =
0 Then
Bitwait Tombol1 , Set
Call Setting
End If
If Tombol2 =
0 Then
Bitwait
Tombol2 , Set
Goto Lanjut
End If
Loop
End Sub
Lanjut:
Tinggi = Men
/ 100
X = Tinggi *
Tinggi
N = Jam / X
Upperline
Lcd
"sdang menghitung"
Wait 1
Cls
Lowerline
Lcd
"berat ideal"
Wait 1
Cls
Upperline
Lcd
"berat idealmu"
Lowerline
Lcd
"adalah :" ; N
Wait 1
Cls
If N < 18
Then
Cls
Upperline
Lcd
"Anda Kekurangan"
Lowerline
Lcd
"berat badan"
End If
If N >=
18 And N < 23 Then
Cls
Upperline
Lcd
"berat Anda"
Lowerline
Lcd
"IDEAL"
End If
If N >=
23 And N < 25 Then
Cls
Upperline
Lcd
"Anda terkena"
Lowerline
Lcd
"Kegemukan"
End If
If N >=
25 And N < 27 Then
Cls
Upperline
Lcd
"Anda terkena"
Lowerline
Lcd
"Obesitas ringan"
End If
If N >=
27 And N < 30 Then
Cls
Upperline
Lcd
"Anda terkena"
Lowerline
Lcd
"Obesitas sedang"
End If
If N > 30
Then
Cls
Upperline
Lcd
"Anda terkena"
Lowerline
Lcd
"Obesitas Berat"
End If
If Tombol1 =
0 Then
Bitwait Tombol1 , Set
Call Setting
End If
If Tombol2 =
0 Then
Bitwait
Tombol2 , Set
Call
Setting
End If
Return
Aturjam:
Jam =
Datajam
Cls
Jam = 30
Do
Upperline
Lcd "masukkan Berat"
Lowerline
Lcd "Berat= " ; Jam ; " "
If Tombol1 = 0 Then
Incr Jam
Waitms 50
If Jam > 80 Then
Jam = 0
End If
End If
If Tombol2 = 0 Then
Datajam = Jam
Bitwait Tombol2 , Set
Exit Do
End If
Waitms 50
Loop
Waitms 100
Cls
Cls
Men =
Datamenit
Tinggi = Men
/ 100
Men = 140
Do
Upperline
Lcd "masukkan tinggi"
Lowerline
Lcd "Tinggi= " ; Men ; " "
If Tombol1 = 0 Then
Incr Men
Waitms 50
If Men > 200 Then
Men = 0
End If
End If
If Tombol2 = 0 Then
Datamenit = Men
Tinggi = Men / 100
Bitwait Tombol2 , Set
Exit Do
End If
Waitms 50
Loop
Return
Cara Penggunaan Alat
Cara
penggunaan alat ini sangatlah mudah, karena terdapat petunjuk untuk memilihnya,
pertama masukkan nilai tinggi badan seseorang, setelah itu tekan tombol next,
maka akan nampak pertanyaan untuk memasukkan nilai berat badan, jika sudah
tekan tombol next, maka akan dilakukan
proses perhitungan, dengan hasil akhir adalah berupa pernyataan, yang
menyebutkan mengenai klasifikasi nilai yang didapat.
No comments:
Post a Comment