Close

7. Deflation of the Cuff

A project log for Digital Blood Pressure Monitor

Application For Detecting Blood Pressure Using Korotkoff Sounds

guillermo-perez-guillenGuillermo Perez Guillen 05/29/2023 at 06:310 Comments

Calibration the air release valve

Calibration the air release valve

Flowchart

Flowchart

while Pressure_total > 70 and Pressure_total <= 210 loop
            Start_Conversion (Converter);
            Poll_For_Status (Converter, Regular_Channel_Conversion_Complete, Successful);
            Raw := UInt32 (Conversion_Value (Converter));
            Volts := UInt32  ((Float (Raw) / 4096.0) * 3000.0);   -- 4096 ADC = 3000 mV
            Pressure := UInt32 ((Float (Volts) / 3000.0) * 255.0);   -- 3000 mV = 255 mmHg
            Pressure_total := UInt32 (float (Pressure) - 8.0);   -- 3000 mV = 255 mmHg
            Print (0, 0, Pressure_total, " mmHg"); -- print blood pressure

            PressureArray(X_Pos) := Integer (Pressure_total);
            X_Pos := X_Pos + 1;
            delay until Clock + Milliseconds (190); 
         end loop;

Discussions