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

全自动相位触发电风扇源程序

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2019-1-8 13:44 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

EDA365欢迎您登录!

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

x
全自动相位触发电风扇源程序 $ p# ?6 J% f8 R5 U0 e2 a

6 l( S% _" u( w  ]" G7 {: _1 ~- A# h' x: O
//主程序+ ^6 [9 W( d/ J  `9 q
#include <reg52.h>5 D$ v( s8 X. m+ ~, @
sbit LIGHT=P1^6;                      /* 风扇触发端 */
3 K% r% c4 a) S; ^$ i) Avoid  Initialize(void);                /* 初始化单片机。   */
  i  D+ W7 s: I# |% e. d9 Hvoid wdcl(void);
1 a0 _7 S' q7 C' u; Yvoid main(void)
" D- o: G2 d: t# h) g+ z{
6 F! M9 U! H- Q    Initialize();
  K4 ~) f3 ^3 h6 ~% ]    do! ~2 R/ [' q; X
    {
) k) h& ~! H( X4 N& t           wdcl();  ^: Y* Z7 [5 v: e
       // Check();( D7 h5 R3 D" z" p4 I
    }
, k0 f$ o# m) e    while(1);
) e$ ~$ n' o4 b1 e}
! P! j! Z: l+ `3 @) Z% J$ T; k8 {9 I  avoid ServiceTimer2() interrupt 5 using 14 g2 ?! n$ o+ ]' p& C2 b
{
) P4 C' T) W, h9 m' u  B    LIGHT=0;        /* 触发电风扇晶闸管。*/
% {2 x8 S0 [' Q    TR2=0;8 D- F0 e- a, U  D
    TF2=0;
4 x% @, H: k: [2 k2 }9 b& c}
$ ^# m; i& U* N0 ]- EServiceINT1()  interrupt 2  using 10 K. v$ I6 @; |7 H
{% O5 }+ y6 W8 A1 ~+ h! P! \! p; ~( V
  TR2=0;
" v4 {) m( ~+ k( Q1 f, H  TH2=(65536-10000)/256;
  A. u6 c: P, r$ g  TL2=(65536-10000)*256;        //晶振为12M,若晶振为11.0592时为TL0=(65536-9216)。。。。。
+ {  J: B9 c8 b3 S+ J+ i  p  TR2=1;
4 x3 o7 S6 D5 t& e& J6 J}
+ T& n1 v7 n) M/ A3 Q7 h: [9 yvoid Initialize(void)" t. H5 s# A% e  E/ I' J0 z. e
{& n$ _& M# H1 ]9 F& z0 D3 ?
    T2CON=0x00;                            /* TIMER2.用于电风扇的驱动。 */8 N+ D4 _" J5 J% w% Y" @* ^
    PT0=1;
$ A# Z# c0 E4 B* c    IT1=1;
& ?# f0 T. G9 m+ U' B    TR0=0;7 d' ~1 f; {% p/ [! \. f
    TR2=0;
9 m8 n; ]( l. O8 g; g/ R% s& Q# w    ET0=1;
) u3 v) Z1 h: Y9 K$ u    ET2=1;+ w1 D0 Z" ]$ t0 q0 i! H* @
    EX1=1;
5 y3 W- n- e. P  x# @$ E    EA=1;3 e' R2 _# k5 E$ g
    EX0=1;
% {* C# s  A. a3 @1 S}
) u, s: f, L5 ?) O% F, T
; J1 s& N( N) A
* I  E) S, G2 e5 M* q2 K; X/ v
游客,如果您要查看本帖隐藏内容请回复
7 l9 N3 Z8 i5 M1 E' C  ?$ K# ?% d

5 C  x0 R: h" N9 @2 u

该用户从未签到

3#
发表于 2019-3-1 17:15 | 只看该作者
谢谢楼主分享
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

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

EDA365公众号

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

GMT+8, 2025-8-21 12:00 , Processed in 0.140625 second(s), 26 queries , Gzip On.

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

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

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