Wireless Pulse Sensor

Sepand Haghighi

Amirkabir University Of Technology

About This Sensor

About This Sensor

About This Sensor

About This Sensor

Sensor Serial Driver

Micro Code

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Enable Interrupts

Config Serialout = Buffered , Size = 100
Config Adc = Single , Prescaler = Auto
Start Adc

Dim A As Integer
Dim B As String * 7
Do


    A = Getadc(1)
    B = "sep"
    B = B + Str(a)

    Print B







Loop

Link

           This project is available here :

https://github.com/sepandhaghighi/Pulse_Sensor