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

单片机+adc0808控制pwm输出程序

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2022-6-21 09:48 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

EDA365欢迎您登录!

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

x
#include<reg51.h>
. l8 `3 e* n5 a5 e4 o/ f#define uchar unsigned char5 `# q! ]" @1 K+ k7 A' F- _
#define uint unsigned int6 T% Z; b6 N9 {# }
sbit CLK=P2^4;
& c) ^9 K8 W, N$ k" rsbit ST=P2^5;
  D. w, i0 h, V, psbit EOC=P2^6;% R  l7 A2 Q: C* \8 [. h
sbit OE=P2^7;
' a8 \6 C' T' O/ d8 ^sbit PWM=P3^0;) X7 M( b% N1 W. w

8 ~8 ]$ f& ^- z3 e2 G! C& u7 svoid DelayMS(uint ms)
$ {( O9 A# X6 D/ u+ N& m{( n2 Q6 D$ H6 m3 \5 J4 v6 W
uchar i;0 Q  J% \8 J: W* l% c
while(ms--) for(i=0;i<40;i++);1 }' d7 n& ?! ~% D, y7 ]
}
' ^/ W) P5 l7 p7 _$ g3 P& ]7 e! _# @+ I( O* S
void main()+ j* w8 [5 `0 e/ t  u; X
{3 C( O: [$ Y8 {4 M1 \9 i2 i3 Q
uchar Va1;0 d  k8 W$ K( K, k( m$ J  d# m
TMOD=0x02;! k* ~& x7 R8 n1 l4 i4 [
TH0=0x14;  h( M/ u) S% b6 T  H" ^
TL0=0x00;
) w+ _+ G3 ?: A9 l$ E1 {IE=0x82;
) S  K# n" B  ^7 Q' P# v6 U  ZTR0=1;4 J+ T, c' \7 H* m
while(1)
) q, [: v1 c% `- w1 t( \7 i3 e{
1 U( ?2 Z4 A  U  _0 eST=0;ST=1;ST=0;% `" p! b) j6 Q$ R
while(!EOC);/ [+ V+ I& E' X% M+ @7 o6 h. p
OE=1;$ ]- f# H% t# e1 k5 ?# @( ~/ K
Va1=p1;
+ G1 B: P; b. n8 `/ iOE=0;
* e" m. y' a+ g% n  N3 [( yif(Va1==0)8 Q4 u+ b7 Q1 C
{
) x: ?! ~0 d. PPWM=0;, G) E& V9 T9 l+ K. @  r& L
if(Va1==0xff);
# M0 P9 O6 g8 fcontinue;* [% C* t, m& l$ F
}
$ V* b. i& e/ y" v( h: xif(Va1==0xff)6 I/ Q# Q  @) y$ h
{
8 E, X( C" w% }PWM=1;
5 m& F$ p. e& L/ L$ ]: bDelayMS(0xfff);: a: _. x- B3 y. k- M9 N
continue;9 v1 i, P8 K; j$ h; ^
}) y8 d  l4 z1 u8 P7 m3 F
PWM=1;1 R$ }5 l; B/ c* t+ M
DelayMS(Va1);) u, b* X8 P7 Z/ E# j: _
PWM=0;9 j2 f; r: ]( n, B2 Y, y
DelayMS(0xff-Val);
3 |+ ?7 q8 b8 F3 i- e}
4 j4 _& \$ u% j. V- D, |; b}8 t, s$ d; u" W6 }7 N
7 p( K8 y2 M8 Z& y* J4 V
void Timer0_INT() interrupt 1
8 L- I: x; G% V0 Q{
9 ^! F* W& @! p1 D) Y( t8 ~2 }CLK=~CLK;
- B! q: s" w& k) F+ [, h+ d  R$ ]}+ ?. Z& X9 m- }

该用户从未签到

2#
发表于 2022-6-21 11:01 | 只看该作者
//写写说明啊

该用户从未签到

3#
发表于 2022-6-21 14:31 | 只看该作者
幸亏代码短,要不然很不好看懂。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

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

EDA365公众号

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

GMT+8, 2025-8-24 14:43 , Processed in 0.109375 second(s), 23 queries , Gzip On.

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

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

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