Pada kesempatan kali ini saya akan menjelaskan mengenai bagaimana cara membuat alat untuk monitoring HeartBeat / HeartRate, Respiration Rate dan suhu tubuh, alat ini menggunakan sensor finger clip dan amplifier pendukung untuk heartbeat yang mana outputnya berupa sinyal kotak, untuk respiration rate menggunakan sensor suara dan micondenser yang outputnya berupa tegangan, terakhir yaitu suhu tubuh menggunakan sensor LM35 yang sudah umum digunakan. BPM dan RR digunakan sampling 100 ms selama satu menit. untuk lebih jelasnya berikut program dan skemanya.
a. Minimum System
b. Finger clip
c. Sensor Suara
d. Sensor Suhu LM35
e. Program Bascom AVR
$regfile = "m8535.dat"
$crystal = 12000000
Config Lcdpin = Pin , Rs = Portc.7 , E = Portc.6 , Db4 = Portc.5
Config Lcdpin = Pin , Db5 = Portc.4 , Db6 = Portc.3 , Db7 = Portc.2
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim Databpm As Word
Dim Dataadc As Word
Dim Datarr As Word
Dim Suhu As Single
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim W As Integer
Dim Y As Integer
Dim Z As Integer
Ddrd.5 = 0
Set Portd.5
A = 0
B = 0
C = 0
W = 0
Y = 0
Z = 0
Cls
Cursor Off
Start Adc
Do
If Pind.5 = 0 Then
Cls
Waitms 200
Do
Databpm = Getadc(0)
If Databpm > 300 And A = 0 Then
Incr B
A = 1
End If
If Databpm < 300 And A = 1 Then
A = 0
End If
Waitms 100
Upperline
Lcd "Detak = " ; B
Incr C
Loop Until C = 600
Cls
Wait 1
Do
Datarr = Getadc(2)
If Datarr < 1000 And Z = 0 Then
Incr Y
Z = 1
End If
If Datarr > 1000 And Z = 1 Then
Z = 0
End If
Waitms 100
Upperline
Lcd "RR = " ; Y
Incr W
Loop Until W = 600
Cls
Dataadc = Getadc(1)
Suhu = Dataadc * 5
Suhu = Suhu / 1023
Suhu = Suhu * 100
Print "BPM = " ; B
Print "SUHU = " ; Fusing(suhu , "#.#")
Print "Respiration Rate = " ; Y
Print ""
Upperline
Lcd "BPM = " ; B ; " RR = " ; Y
Lowerline
Lcd "Suhu = " ; Fusing(suhu , "#.#")
Wait 10
A = 0
B = 0
C = 0
W = 0
Y = 0
Z = 0
Cls
Else
Upperline
Lcd "Tekan START"
End If
Loop
$crystal = 12000000
Config Lcdpin = Pin , Rs = Portc.7 , E = Portc.6 , Db4 = Portc.5
Config Lcdpin = Pin , Db5 = Portc.4 , Db6 = Portc.3 , Db7 = Portc.2
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim Databpm As Word
Dim Dataadc As Word
Dim Datarr As Word
Dim Suhu As Single
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim W As Integer
Dim Y As Integer
Dim Z As Integer
Ddrd.5 = 0
Set Portd.5
A = 0
B = 0
C = 0
W = 0
Y = 0
Z = 0
Cls
Cursor Off
Start Adc
Do
If Pind.5 = 0 Then
Cls
Waitms 200
Do
Databpm = Getadc(0)
If Databpm > 300 And A = 0 Then
Incr B
A = 1
End If
If Databpm < 300 And A = 1 Then
A = 0
End If
Waitms 100
Upperline
Lcd "Detak = " ; B
Incr C
Loop Until C = 600
Cls
Wait 1
Do
Datarr = Getadc(2)
If Datarr < 1000 And Z = 0 Then
Incr Y
Z = 1
End If
If Datarr > 1000 And Z = 1 Then
Z = 0
End If
Waitms 100
Upperline
Lcd "RR = " ; Y
Incr W
Loop Until W = 600
Cls
Dataadc = Getadc(1)
Suhu = Dataadc * 5
Suhu = Suhu / 1023
Suhu = Suhu * 100
Print "BPM = " ; B
Print "SUHU = " ; Fusing(suhu , "#.#")
Print "Respiration Rate = " ; Y
Print ""
Upperline
Lcd "BPM = " ; B ; " RR = " ; Y
Lowerline
Lcd "Suhu = " ; Fusing(suhu , "#.#")
Wait 10
A = 0
B = 0
C = 0
W = 0
Y = 0
Z = 0
Cls
Else
Upperline
Lcd "Tekan START"
End If
Loop
f. Cara Penggunaan Alat
Pertama hubungkan alat dengan power supply, kemudian pasangkan finger clip ke jari telunjuk dan respiration rate ke hidung, lalu sensor suhu tubuh diletakkan di antara ketiak. setelah semua terpasang, tekan tombol start untuk memulai pengukuran, jika telah selesai pengukuran maka akan ada tampilan hasilnya seperti hasil BPM, RR dan suhunya pada LCD.