设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 嵌入式/单片机论坛 › 单片机DIY制作 › 瑞萨78K0S的血压测量仪电路+单片机源代码+设计文档
返回列表 发新帖
查看: 8190|回复: 2
打印 上一主题 下一主题
收起左侧

瑞萨78K0S的血压测量仪电路+单片机源代码+设计文档

[复制链接]
跳转到指定楼层
楼主
ID:402025 发表于 2018-9-25 09:55 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
基于单片机设计的血压血氧电路以及源码，可供大家参考学习！

电路原理图如下：3




血压计是用来测量人体血压的仪器，使用它可以给医生或者患者提供一定的诊断信息，当前使用的医用血压计大多都是使用水银来测量血压，这样会对环境造成一定的污染，本方案利用电子式的方法配合医用听诊器可以测量人体血压。

1.2规格和主要技术参数
工作电压：2.4V 3V
供电：电池AAAX2
功耗：9uA(静态）
显示：LCD,3V，l/3偏置，4分时

血压测量范围：

20-280mmHg(压力线显示）:

20-320mmHg(数字显示）

测量精度：血压±3mmllg
显示分辨率：

数字式：lmmllg:
指示线：2mmllg
操作环境：+丨0〇C至+40〇C
相对湿度：30%至85%
存放环境：-20〇C至+55oC.


系统采用2节1.5V的电池供电，但是压力检测单元需要使用4V左右的电源才能正常工作所以系统中使用了一棵升压芯片,并且在电源部分有控制信号，当需要升压时打开控制,不需要时关闭升压芯片，从而达到低功耗的目的。

压力传感器控制电路：


上阁是压力传感器部分的电路，放大器A1A将输入的信号放大，放大器A1C受信号控制产生一个锯齿波,放大器A1B用来产生参考电压，用来对信号进行调零操作，放大器AID搭输入的压力信号和锯齿波比较产生一个与压力信号成IF.比的方波信号。

第五章软件部分
5.1软件模块

在这个系统中，软件可以分成4个部分，它们分别是：主程序部分，驱动部分，1622驱动部分，显示部分

5.2主程序部分
主程序部分在文件niain.s中，它主要完成压力的监测，和零点的校准，程序如下:

  1. #include "drive.h"
  2. #include "ht1622.h"
  3. #include "display.h"
  4. #include "port.h"
  5. extrn HT1622_init
  6. public main_pro
  7. maind        DSEG        at 0fe00h
  8. Pbuff:                        DS        32
  9. maind2        DSEG        saddrp
  10. PbuffOPTR:        DS        2
  11. PbuffIPTR:        DS        2
  12. ZeroDat:                DS        2
  13. StartP:                        DS        2
  14. stopcount:        DS        2
  15. MaxP:                                DS        2
  16. MinP:                                DS        2
  17. timercount:        DS        2

  19. key:                                DS        1
  20. CheckMode:        DS        1
  21. count:                        DS        1
  22. temp1:                        DS        1
  23. mainc        cseg
  24. wait:
  25.                 b=#0
  26. wait1:
  27.                 dbnz b,$wait1
  28.                 ret

  30. main_pro:
  31.         stopcount=#0(ax)
  32.         call        !disp_close
  33.         while(forever)
  34.                 call        !sys_get_key
  35.                 switch(a)
  36.                 case KEY_ON_OFF:
  37.                         call        !open_test
  38.                         stopcount=#0(ax)
  39.                         call        !disp_close
  40.                 break
  41.                 case        KEY_CHECK:
  42.                         call        !open_check
  43.                         stopcount=#0(ax)
  44.                         call        !disp_close
  45.                 break
  46.                 default:
  47.                         call        !stop_mode
  48.                 break
  49.                 ends
  50.         endw
  51.         ret

  53. open_test:
  54.         set1        CE_P
  55.         call        !wait
  56.         call        !sys_open_sensor
  57.         call        !HT1622_init
  58.         call        !wait
  59. ;--------开机3秒钟
  60.         call        !disp_on
  61.         call        !disp_all_on
  62.         call        !disp_dat_to_hard
  63.         ZeroDat=#0(ax)
  64.         b=#50
  65.         count=#0
  66. open_test1:
  67.                 push        bc
  68.                 repeat
  69.                         call        !sys_get_sensor_dat
  70.                 until(!cy)
  71.                 call        !In_pbuff
  72.                 call        !pro_pbuff
  73.                 call        !wait_noc
  74.                 WDTE=#0ACH
  75.                 call        !sys_get_key
  76.                 pop        bc
  77.         dbnz b,$open_test1

  79. ;-------判断是否能正常工作
  80.         b=#25
  81.         temp1=#0
  82. open_test2:
  83.                 push        bc
  84.                 repeat
  85.                         call        !sys_get_sensor_dat
  86.                 until(!cy)
  87.                 call        !In_pbuff
  88.                 call        !pro_pbuff
  89.                 call        !wait_noc
  90.                 WDTE=#0ACH
  91.                 pop        bc
  92.         dbnz b,$open_test2

  94.         call        !disp_all_off
  95.         if_bit(temp1.0)
  96.                 a=#1
  97.                 call        !diap_map
  98.         endif
  99.         temp1++
  100.         call        !disp_dat_to_hard
  101.         if(temp1>#60)
  102.                 ret
  103.         endif
  104.        
  105.         ax=ZeroDat
  106.         if(ax>#700||ax<#350)
  107.                 b=#25
  108.                 goto open_test2
  109.         endif
  110. ;------开始显示       
  111.         timercount=#0(ax)
  112.         while(forever)
  113.                 call        !sys_get_sensor_dat
  114.                 if_bit(!cy)
  115. ;------进行压力显示       
  116.                         call        !In_pbuff
  117.                         call        !disp_all_off
  118.                         call        !pro_pbuff
  119. ;--------得到压力值
  120.                         push        ax
  121.                         bc=ZeroDat(ax)
  122.                         pop                ax
  123.                         call        !AXSubBC
  124.                         if_bit(cy)
  125.                                 ax=#0
  126.                         endif
  127. ;-------转换为贡柱
  128.                         CALL        !RORCW
  129.                         call        !AX_div8
  130.                         push        ax
  131.                         if(ax>#17)
  132.                                 ax-=#17
  133.                                 call        !disp_dat_to_map
  134.                         endif
  135.                         pop                ax
  136.                         call        !hex2_to_bcd
  137.                         ax=de
  138.                         call        !disp_dat_to_dat
  139.                         call        !sys_get_bat
  140.                         if(a>#110)
  141.                                 a=#0ffH
  142.                                 call        !diap_map
  143.                         endif
  144.                         call        !disp_dat_to_hard
  145.                         call        !get_max_min
  146.                         bc=MinP(ax)
  147.                         ax=MaxP
  148.                         call        !AXSubBC
  149.                         if(ax>#10)
  150.                                 timercount=#0(ax)
  151.                         else
  152.                                 ax=timercount
  153.                                 ax++
  154.                                 if(ax>#15000)
  155.                                         ret
  156.                                 endif
  157.                                 timercount=ax
  158.                         endif
  159.                 endif
  160.                 WDTE=#0ACH
  161.                 call        !sys_get_key
  162.                 if(a==#KEY_ON_OFF)
  163.                         ret
  164.                 endif
  165.         endw
  166.         ret

  168. open_check:
  169.         set1        CE_P
  170.         call        !wait
  171.         hl=#Pbuff
  172.         a=#0
  173.         b=#32
  174.         call        !WriteAll
  175.         call        !sys_open_sensor
  176.         call        !wait
  177.         call        !HT1622_init

  179.         call        !disp_on
  180.         call        !disp_all_off
  181.         call        !disp_dat_to_hard
  182.         count=#0
  183.         CheckMode=#0
  184.         key=#0
  185.         while(forever)
  186.                 call        !sys_get_sensor_dat
  187.                 if_bit(!cy)
  188.                         call        !In_pbuff
  189.                         call        !disp_all_off
  190.                         call        !pro_pbuff
  191.                         switch(CheckMode)
  192.                         case        0:
  193.                                 call        !check_mode0
  194.                         break
  195.                         case        1:
  196.                                 call        !check_mode1
  197.                         break
  198.                         default:
  199.                         break
  200.                         ends
  201.                         call        !hex2_to_bcd
  202.                         ax=de
  203.                         call        !disp_dat_to_dat
  204.                         if(CheckMode==#1)
  205.                                 a=#1
  206.                                 call        !diap_map
  207.                         endif
  208.                         call        !disp_dat_to_hard
  209.                 endif
  210.                 WDTE=#0ACH
  211.                 call        !sys_get_key
  212.                 if(a==#KEY_ON_OFF)
  213.                         key=#1
  214.                 elseif(a==#KEY_CHECK)
  215.                         ret
  216.                 endif
  217.         endw
  218.         ret
  219.        
  220. check_mode0:
  221.         if(ax>#400)
  222.                 push        ax
  223.                 call        !wait_noc
  224.                 pop                ax
  225.                 if_bit(cy)
  226.                         if(key==#1)
  227.                                 StartP=ax
  228.                                 CheckMode++
  229.                                 key=#0
  230.                         endif
  231.                 endif
  232.         endif
  233.         ret
  234. check_mode1:
  235.         push        ax
  236.         bc=StartP(ax)
  237.         pop                ax
  238.         call        !AXSubBC
  239.         if(key==#1)
  240.                                 CheckMode=#0
  241.                                 key=#0
  242.         endif
  243.         ret


  246.        
  247. ;input ax=输入压力值
  248. ;output cy=1稳定了 cy=0不稳定
  249. wait_noc:
  250.         push        bc
  251.         push        ax
  252.         bc=ZeroDat(ax)
  253.         pop                ax
  254.         push        ax
  255.         call        !AXSubBC
  256.         if_bit(cy)
  257.                 bc=ax
  258.                 ax=#0FFFFh
  259.                 call        !AXSubBC
  260.         endif
  261.         if(ax<#3)
  262.                 count++
  263.         else
  264.                 count=#0
  265.         endif
  266.         pop                ax
  267.         pop                bc
  268.         ZeroDat=ax
  269.         if(count>#50)
  270.                 set1        cy
  271.                 count=#0
  272.         else
  273.                 clr1        cy
  274.         endif
  275.         ret
  276. stop_mode:
  277.         WDTE=#0ACH
  278.         ax=stopcount
  279.         ax++
  280.         stopcount=ax
  281.         if(ax<#0ffffH)
  282.                 ret
  283.         endif
  284.         ei
  285.         call        !close_4ms
  286.         call        !sys_close_sensor
  287.         clr1        CE_P
  288.         clr1 PM3.0
  289.         set1        P3.0
  290.         stop
  291.         nop
  292.         nop
  293.         set1        PM3.0
  294.         set1        P3.0
  295.         call        !open_4ms
  296.         stopcount=#0(ax)
  297.         ret

  299. ;********************************
  300. ;功能：传感器的数据方入缓冲区中
  301. ;入口：hl=buff
  302. ;                         b=个数
  303. ;                         c=buff长度
  304. ;                         de=buff开始地址
  305. ;********************************
  306. get_senser_to_buff:
  307.         push        ax
  308. get_senser_to_buff1:
  309.         while(forever)
  310.                 call        !sys_get_sensor_dat
  311.                 if_bit(!cy)
  312.                         break
  313.                 endif
  314.         endw
  315.         [hl+1]=a
  316.         [hl]=x(a)
  317.         hl++
  318.         hl++
  319.         ;ax=buff结束地址
  320.         push        hl
  321.         hl=de(ax)
  322.         a=c
  323.         call        !AddAtoHL
  324.         ax=hl
  325.         pop        hl
  326.         ;比较hl是否越界
  327.         push        bc
  328.         bc=ax
  329.         ax=hl
  330.         ax<->bc
  331.         call        !CmpAXBC
  332.         if_bit(cy)
  333.                 hl=de(ax)
  334.         endif
  335.         pop                bc

  337.         dbnz        b,$get_senser_to_buff1
  338.         pop                ax
  339.         ret

  341. test_pbuff:
  342.         push        ax
  343.         if(PbuffIPTR==PbuffOPTR)(a)
  344.                 set1        cy
  345.         else
  346.                 clr1        cy
  347.         endif
  348.         pop                ax
  349.         ret
  350.        
  351. In_pbuff:
  352.         push        hl
  353.         push        ax
  354.         HL=#Pbuff
  355.         a=PbuffIPTR
  356.         call        !AddAtoHL

  358.         a=PbuffIPTR
  359.         a+=#2
  360.         a&=#0feH
  361.         if(a>#31)
  362.                 a=#0
  363.         endif
  364.         PbuffIPTR=a
  365.         pop                ax
  366.         [hl+1]=a
  367.         [hl]=x(a)
  368.         pop                hl
  369.         ret
  370.        
  371. Out_pbuff:
  372.         push        hl
  373.         HL=#Pbuff
  374.         a=PbuffOPTR
  375.         call        !AddAtoHL

  377.         a=PbuffOPTR
  378.         a+=#2
  379.         a&=#0feH
  380.         if(a>#31)
  381.                 a=#0
  382.         endif
  383.         PbuffOPTR=a

  385.         x=[hl](a)
  386.         a=[hl+1]
  387.         pop                hl
  388.         ret
  389. ;********************************
  390. ;功能：计算缓冲区中数据的平均值
  391. ;出口：ax
  392. ;********************************

  394. pro_pbuff:
  395.                 push        bc
  396.                 push        de
  397.                 push        hl
  398.                 hl=#Pbuff
  399.                 c=#0
  400.                 b=#16
  401.                 de=#0
  402. pro_pbuff1:
  403.                         a=[hl]
  404.                         add a,e
  405.                         e=a
  406.                         hl++
  407.                         a=[hl]
  408.                         addc a,d
  409.                         d=a
  410.                         a=#0
  411.                         addc a,c
  412.                         c=a
  413.                         hl++
  414.                 dbnz b,$pro_pbuff1
  415.                 b=#4
  416.                 ax=de
  417. pro_pbuff2:
  418.                 clr1        cy
  419.                 a<->c
  420.                 RORC        a,1
  421.                 a<->c
  422.                 RORC        a,1
  423.                 a<->x
  424.                 RORC        a,1
  425.                 a<->x
  426.                 dbnz b,$pro_pbuff2
  427.                 pop        hl
  428.                 pop        de
  429.                 pop        bc
  430.                 ret

  432. get_max_min:
  433.                 push        ax
  434.                 push        bc
  435.                 push        hl
  436.                 MaxP=#0(ax)
  437.                 MinP=#0ffffh(ax)
  438.                 hl=#Pbuff
  439.                 b=#16
  440. get_max_min1:
  441.                         push        bc
  442.                         x=[hl](a)
  443.                         hl++
  444.                         a=[hl]
  445.                         hl++
  446.                         push        ax
  447.                        
  448.                         bc=MinP(ax)
  449.                         pop                ax
  450.                         push        ax
  451.                         call        !CmpAXBC
  452.                         if_bit(cy)
  453.                                 pop                ax
  454.                                 MinP=ax
  455.                                 push        ax
  456.                         endif

  458.                         ax=MaxP
  459.                         pop                bc
  460.                         push        bc
  461.                         call        !CmpAXBC
  462.                         if_bit(cy)
  463.                                 pop                ax
  464.                                 MaxP=ax
  465.                                 push        ax
  466.                         endif
  467.                        
  468.                         pop                ax
  469.                         pop                bc
  470.                 dbnz b,$get_max_min1
  471.                 pop                hl
  472.                 pop                bc
  473.                 pop                ax
  474.                 ret
  475. end
复制代码



全部资料51hei下载地址：
基于瑞萨的血压测量仪电路 源代码 设计文档.rar (915.86 KB, 下载次数: 76)




分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏2 分享淘帖 顶顶 踩踩
回复

使用道具 举报

沙发
ID:374948 发表于 2019-9-11 15:51 | 只看该作者
资料好乱啊，重点没有突出
回复

使用道具 举报

板凳
ID:336378 发表于 2019-9-12 08:38 | 只看该作者
这个瑞萨官网上有，说的比较详细。
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表