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

基于单片机设计的血压血氧电路以及源码，可供大家参考学习！

电路原理图如下：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
    
18. 
    
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
    
29. 
    
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
    
52. 
    
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
    
78. 
    
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
    
93. 
    
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
     
167. 
     
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
     
178. 
     
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
     
244. 
     
245. 
     
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
     
298. 
     
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
     
336. 
     
337.         dbnz        b,$get_senser_to_buff1
     
338.         pop                ax
     
339.         ret
     
340. 
     
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
     
357. 
     
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
     
376. 
     
377.         a=PbuffOPTR
     
378.         a+=#2
     
379.         a&=#0feH
     
380.         if(a>#31)
     
381.                 a=#0
     
382.         endif
     
383.         PbuffOPTR=a
     
384. 
     
385.         x=[hl](a)
     
386.         a=[hl+1]
     
387.         pop                hl
     
388.         ret
     
389. ;********************************
     
390. ;功能：计算缓冲区中数据的平均值
     
391. ;出口：ax
     
392. ;********************************
     
393. 
     
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
     
431. 
     
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
     
457. 
     
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, 下载次数: 72)

2018-9-25 09:54 上传

点击文件名下载附件
血氧血压店里以及源码

资料好乱啊，重点没有突出

这个瑞萨官网上有，说的比较详细。