找回密码
 注册
关于网站域名变更的通知
查看: 787|回复: 6
打印 上一主题 下一主题

单片机智能温度检测器 有原理图 PCB图 源程序及设计流程

  [复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2018-11-12 10:02 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

EDA365欢迎您登录!

您需要 登录 才可以下载或查看,没有帐号?注册

x
单片机智能温度检测器 有原理图 PCB图 源程序及设计流程
8 s) q+ Q  C2 A单片机源程序如下:
) `4 o0 a0 J$ {6 _9 U( d8 o" R& I

* B: s2 f) N( u+ U; u, C7 b# E5 t+ e#include"hongwai.h"
1 A% g) f& z0 R#define        uchar unsigned char
* y$ f8 [# {- f( }) @#define uint unsigned int9 V8 @9 k0 r+ b" ^- r

1 j* n& C9 K2 P# S* h+ l* ?+ Ovoid timer0init()         //256*(1/12)*12=0.256MS; V6 v: p& `  X0 y3 R$ y$ M( `
{/ T5 a  ~: v6 q, [$ P
        TMOD=0X02;
1 e3 I6 r) q8 D1 S- M        TH0=0X00;
, `5 Y' K" J' M: \5 ^3 K! x4 Y+ M        TL0=0X00;
& z- C/ C; E3 p        ET0=1;7 r5 @6 L; C) m  D1 N- f
        EA=1;0 d0 q5 @8 {& f1 j: U
        TR0=1;
. S5 i- {3 f3 Z$ G* S3 C4 t
" e2 R- s- B+ L, k- @}* S% G; w  l" T6 _
# i. t. A# E4 B! A0 u
void timer0() interrupt 1 using 1
0 l7 \1 ^/ v  l+ _' u: y& _{
7 x- W( {1 l9 c( l7 k        irtime++;" S* Z/ T3 l: X8 `- U

% v; a( x0 |0 ^" V}
5 `5 K& U1 n& P/ E( [
; b6 g7 y, D; c& [void irpros()           //红外处理( d. e2 d5 E6 ]3 P" G$ q. P2 Y
{7 V: U/ G  }( N% E
        uchar num,k,i,j;& ]3 A/ B$ g$ j" N4 Z- F% {
        k=1;
' _7 r4 Z7 c# J5 v" Q; }6 M8 ^3 w        for(j=0;j<4;j++)3 k2 T; m+ b; K' t4 i$ [* X
        {
+ d) {3 H7 c, n+ ^- s3 f& a& m            for(i=0;i<8;i++)7 L! z7 m% U- j
            {
% Y& P4 R5 s8 K/ ^' ~                num=num>>1;
; j) L6 @' L5 f( r+ Z                if(irdata[k]>6)
* Y0 _9 F6 k4 L% N; o! d9 D                {
) i% i' G: P* O                        num=num|0x80;
- c& b' X0 j5 g; t3 W; H                }9 k; j5 V0 W$ @4 i  U7 w
                    k++;8 f" m& M5 L, t: i. ?
            }9 E' O2 i* a# @3 v2 p( z/ G
            ircode[j]=num;
- j& @* N8 `7 J% F) S) g        }
1 u4 r4 U4 o2 g/ a* M        irprosok=1;
# U5 t8 n! }% h" B' w$ C: d% k: Q" p}
8 P# z4 R! A, R5 S, o9 u* l3 }$ Z* @) t/ |1 E( f- y, D  S
void irwork()           //红外马志转换
$ M7 g# a6 a: k8 G5 N  a3 O{
" b) L: b2 S! ^' N# {        switch(ircode[2])
& j0 u# p# X) i1 U        {
  l7 g; E! `7 g: e$ o  o) e        case 0x0c:relay=!relay;break;: h; D/ N* X/ W7 d
        default:break;) H* ?; h$ k7 k
        }
/ o  H. S: F; E& t) c        irprosok=0;
; }) Q) _4 z  \* Z3 n}" M$ x7 I1 w! r* g9 G+ f7 e8 `

2 C: E3 a8 e7 W- }+ uvoid int0() interrupt 0                 //中断服务/ }+ ?4 X7 d( o$ V- F7 g
{; k! z1 w$ B# x$ M1 R
        if(startflag)
$ C# I) n' @) H        {0 t" Z2 z" v! [% P# c* I5 K
            if(irtime>32&&irtime<63) //8--16ms
( u: h# H0 q! X' x. H                {' ]) F7 p2 Q/ z/ I* S' @2 t3 c# ~2 Z: [
                bitnum=0;2 P8 T0 m3 c" i- e2 C4 v
                }
. n# ^/ q- I/ a8 a                irdata[bitnum]=irtime;9 _7 ~$ e% P' H# o" L
                irtime=0;% f, V/ y) q/ H1 V! a
                bitnum++;
) W8 D0 y- M3 S                if(bitnum==33)
2 N- o" i' d% P* E; c) t                {
: e& P& Y) l  S6 ^2 n/ {                        bitnum=0;6 a2 d7 ~6 W7 p. J7 m  r( F' a
                        irok=1;# ?5 G9 O7 R/ s# p8 X
                }
2 `" i- j$ {$ w5 d3 b        }
9 D- j0 S: I) E7 [3 K: W        else8 t) t. X0 {4 K" b  O4 ]
        {
' _+ n) z- ]$ m1 O( Y0 J9 ], B                irtime=0;
* Q" d' E' J6 \+ `+ F* E+ n……………………' \3 q' G( V4 M4 s& x  Z- y8 M2 n5 H
8 u4 i, r! Q( G+ P8 w
…………限于本文篇幅 余下代码请从论坛下载附件…………
# D$ z$ t, g& Y# f  V" c2 R6 a
9 h' _0 H0 {1 w- E& z- r
游客,如果您要查看本帖隐藏内容请回复
4 d+ I( v" y6 o: e4 \0 `

* V5 y. M3 X8 P1 J  V# g
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

推荐内容上一条 /1 下一条

EDA365公众号

关于我们|手机版|EDA365电子论坛网 ( 粤ICP备18020198号-1 )

GMT+8, 2025-10-30 04:10 , Processed in 0.156250 second(s), 26 queries , Gzip On.

深圳市墨知创新科技有限公司

地址:深圳市南山区科技生态园2栋A座805 电话:19926409050

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