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

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

  [复制链接]

该用户从未签到

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

EDA365欢迎您登录!

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

x
单片机智能温度检测器 有原理图 PCB图 源程序及设计流程 2 C" ]0 ?6 j  H# R% N
单片机源程序如下:' S+ Q. x6 l: c/ ^7 Q

$ Q7 I! W) ^3 k$ V" B- j; f9 x* a#include"hongwai.h"
* i) ]. n3 H* e; G9 a#define        uchar unsigned char4 |3 t! m& ]. @/ t: O) E) x
#define uint unsigned int! c, z* A+ _' |! r

8 u; w0 h7 A# j) [1 O/ J9 avoid timer0init()         //256*(1/12)*12=0.256MS
7 L8 A* S$ `: y! h{
4 N) w2 x) C! [# u( s        TMOD=0X02;
5 |/ u' A; W) @, O% q/ ~        TH0=0X00;
2 i1 o  v4 k8 Q& O9 s        TL0=0X00;% r2 e/ e* X: b6 E6 J
        ET0=1;
8 b# z. o4 t  q        EA=1;
1 ?# {; s7 V% \9 O, i, V& n0 }        TR0=1;
% `6 e; j7 z) O5 y! J, n( d7 o# t' f1 n
}
( W' a, F+ i( T# D, N  w& C. p! Y( @) z4 l& c$ Z3 T0 i9 j# n
void timer0() interrupt 1 using 1' j/ w6 o5 Q# x( Q5 Q8 Q' H' O+ `
{- O7 G+ \4 [9 S1 m. ^1 @
        irtime++;
3 n) w2 [0 s" k( |. y! H, }  Y5 M" w0 m3 ?. T% C. V
}
% y/ f; s# ?1 u; K& }# ^, t" @5 k( b4 j" [1 k1 y- y$ N
void irpros()           //红外处理
3 [; c( L. ^  n5 z% e{' Y, _4 d6 k; V& o7 F3 O  }6 V
        uchar num,k,i,j;
7 D' ~* Y0 R# E" \        k=1;+ A( E! @; \  c2 B, L1 Z" Q$ s
        for(j=0;j<4;j++)
* y8 Q) y7 B  l7 K( j! D        {
* D6 e/ {9 v6 k! {$ x: `. G- P" ?$ x            for(i=0;i<8;i++)4 k- N  b) h1 t" |( ?. w' U
            {% I: R& z! N+ S2 W
                num=num>>1;* }0 x8 {2 I/ h
                if(irdata[k]>6)/ D, _3 k5 f: j  h# ^! ]) G/ @
                {
1 t! |& M- Q: a% B; g$ ~2 y2 U                        num=num|0x80;
5 a0 Y' F$ T. u0 h                }
* N/ v1 f5 e" P4 h3 `3 ~* M                    k++;, A, c; ^8 Z2 J& t. P
            }! }9 x9 f. T) ~/ g# K& {
            ircode[j]=num;2 I1 ~9 k0 x$ ~5 I! n7 ]0 Y
        }. K$ {5 O+ U) F
        irprosok=1;; Y  ]5 t/ I6 T# k; M
}
" h) P  h8 ]4 B% L" b8 o, {$ A$ F9 J! C' D" P! @! ~
void irwork()           //红外马志转换1 @. M3 r: T& E9 t
{3 U- g! n! A1 w# |( B7 L
        switch(ircode[2])
1 L. ~6 E! F& n9 v; M" u; R        {+ i) E0 P8 T. n1 T1 ?' H
        case 0x0c:relay=!relay;break;- W" ~5 u  K8 A( t- w
        default:break;/ n$ I' a  X! n6 Z2 B, \- A
        }
8 A1 E6 U: I2 k/ V1 W        irprosok=0;
, L/ v0 i7 E0 S& Z5 y  @% [% |}
8 g  r: t. `5 e% ~4 d
% }, J- Q9 x7 ~void int0() interrupt 0                 //中断服务
1 e% I! p" h3 P{
) t3 S6 q& b. Y9 s7 }* W7 x        if(startflag)
& Y, b+ O" f2 w4 I# w        {
6 [; d! U0 K! x& e6 O3 p! Q) y            if(irtime>32&&irtime<63) //8--16ms. L- `( F* E9 G+ X; E
                {
5 Q4 }& d: }- }  k4 w                bitnum=0;3 N, Q2 E3 P2 a7 q: @7 r
                }& Y7 V# g  x2 x# y( t; W* _
                irdata[bitnum]=irtime;
# V% V  v( Z8 e, Q& P8 b$ B, L                irtime=0;* L: g: {' P3 ~0 L& l
                bitnum++;
0 j) m3 t; d/ T                if(bitnum==33)
6 F  \8 b  x6 D                {, U9 _9 X' ^# F4 I
                        bitnum=0;
. ~# N) K  i$ b/ W% }6 s                        irok=1;' U, D9 R: V5 d! z( w
                }2 q7 p. A5 f2 ?
        }9 x& e* k) a2 l1 z
        else. d* t5 |* M# v* j
        {
- D7 w+ N& I3 U- N$ `$ L$ r% {                irtime=0;
3 w: S0 U% g6 v/ ^1 x, _7 M( N……………………( F3 j  E( _  C0 W# `* {3 |; R
) e0 G) P8 X" L; t, ~% C2 `
…………限于本文篇幅 余下代码请从论坛下载附件…………
% _6 y* [8 I% u- k, U. p5 C. g3 `; _" u6 l- O, M  `9 @
游客,如果您要查看本帖隐藏内容请回复

4 X  P1 I- F& D6 R: h& y6 x4 W: Y. n4 Z( z' X$ N) X3 g, ~
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

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

EDA365公众号

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

GMT+8, 2025-7-15 19:19 , Processed in 0.125000 second(s), 26 queries , Gzip On.

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

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

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