Membuat Alat Untuk Monitor dan Menghitung Detak Jantung (Heart Beat)

Membuat Alat Untuk Menghitung Detak Jantung (Heart Beat)

            Di Malam yang indah bertabur bintang kali ini, saya akan membahas bagaimana cara membuat alat yang bisa digunakan untuk memantau dan menghitung detak jantung seseorang, biasanya alat ini dinamakan heart rate atau heart beat bukan ECG atau EKG, perbedaannya kalau heart beat atau heart rate fokus untuk menghitung detak jantung dalam 1 menit namun kalau ECG atau EKG biasanya disertai dengan tampilan sinyal jantungnya. kali saya mencontohkan bagaimana untuk membuat heart beat monitor dengan menggunakan mikrokontroller ATMega16 dan bahasa Bascom AVR, alat ini akan mengambil data detak jantung selama lima detik kemudian ditampilkan ke lcd, langsung saja simak pembahasan program dan skematiknya berikut ini.

a. Pulse Sensor

b. Skematik Minimum System

c. Program Bascom AVR

$regfile = "m16def.dat"
$crystal = 12000000

Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2
Config Lcdpin = Pin , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Config Lcd = 16 * 2

Config Adc = Single , Prescaler = Auto , Reference = Avcc

Ddrb.0 = 1

Dim A As Integer
Dim B As Integer
Dim Dataadc As Word
Dim X As Integer

Start Adc

Main:
Cls
Cursor Off

Do
Dataadc = Getadc(7)
A = 0
B = 0
Loop Until Dataadc > 512


Do

Dataadc = Getadc(7)

If Dataadc > 512 Then
Incr A
Portb.0 = 1
Else
Portb.0 = 0
End If

Incr B
Waitms 200                                                  'frekuensi sampling
Loop Until B = 25

X = A * 12

Upperline
Lcd "DETAK = " ; X
Lowerline
Lcd "A = " ; A
Portb.0 = 0
Wait 3


Goto Main

End