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

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

[复制链接]

该用户从未签到

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

EDA365欢迎您登录!

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

x
#include<reg51.h>6 O4 i9 z$ y  ~: ^0 ]( T# E
#define uchar unsigned char
. `. J$ \0 X6 \#define uint unsigned int
  W. c! `$ z4 Gsbit CLK=P2^4;
4 l& {+ i: R9 u8 d  q3 h9 c' Osbit ST=P2^5;) N$ e9 U# o2 a% T5 i- E& k
sbit EOC=P2^6;
  D; t# @3 i7 ^$ r2 T) m& V2 a8 ]8 l6 Bsbit OE=P2^7;8 P* d( `0 M: Z* L
sbit PWM=P3^0;
7 n9 t& E' B4 k( l) N
5 r2 M5 Q( w3 _# n" Gvoid DelayMS(uint ms)- M3 J8 |5 D% Q; ]/ s
{6 e: R8 ]8 I% Z' M/ @5 h! _
uchar i;
9 D7 R) n) N' `, K0 l* awhile(ms--) for(i=0;i<40;i++);
0 H3 `, W7 O" p7 M}& V) j6 `4 W5 ?& ~

+ z- }/ ?" H3 Tvoid main()! ]- k% z% z# {7 }# e
{
' B+ Z1 S: y/ |3 Fuchar Va1;
$ a, j4 q, r! t+ K; hTMOD=0x02;
2 F$ l  h. O' l5 B( b# ?) X) @" qTH0=0x14;, x$ a' |- b( G. p
TL0=0x00;
) V5 T, m; G! U9 u! T% }IE=0x82;
) [' P3 ?9 b! MTR0=1;
5 }2 A- ^8 |7 `+ k, ^% R8 C0 p, \while(1)0 {1 H( H0 B6 R1 P6 }# ~
{% O0 z% O* b4 X) F
ST=0;ST=1;ST=0;3 ^6 K* w2 H, |0 b+ b7 j3 [
while(!EOC);4 u. N5 n: I( f3 v6 O1 K
OE=1;
, R+ p% O$ t" A) sVa1=p1;: ^, M9 Z& k9 t
OE=0;
3 b+ O# W- G2 ]( w. ^7 }" [3 W  \( `if(Va1==0)' ~, u6 W/ _; @
{
, E! H* Y6 h/ Q; x! `PWM=0;& }, T3 e& f7 e9 Q0 Z
if(Va1==0xff);  d2 \* h' x  |# d7 p
continue;
1 J' z0 b& H+ E5 b& _}
6 I* {4 j6 b& w3 B  C/ Y7 ?if(Va1==0xff)3 S0 D2 h  a! x  p
{  B* R0 u& ~6 I  h6 u
PWM=1;
* S4 q) z. Z0 W& e' s  wDelayMS(0xfff);) s- [; _0 ^7 I( v) u2 I3 a
continue;
0 k4 p5 Z1 m1 ?, C' {2 c9 V6 ^, v}
, N4 S- N! J* z' ?% LPWM=1;7 v/ e' b2 b. f/ h0 `
DelayMS(Va1);
: F+ o# a: V0 }2 F5 y  r  ZPWM=0;$ v0 q" O+ y' `1 A4 V6 b
DelayMS(0xff-Val);. {) Y. f) x: V( R
}- M  z6 i& `& I5 `) n+ j8 H9 M
}) ?5 p1 E7 C8 W3 h6 P- x
+ L2 l* A! ?2 O$ M. e' o' {3 B
void Timer0_INT() interrupt 1
3 E- {  R9 n* H* A; j6 _2 d, S{
; {$ t4 n( o8 d& d" U0 k' Q, lCLK=~CLK;
: T! D7 R9 D. n0 W6 t! \$ j! X+ k}
4 ?7 r0 n% n5 z' D  _

该用户从未签到

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

该用户从未签到

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

本版积分规则

关闭

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

EDA365公众号

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

GMT+8, 2025-7-15 06:58 , Processed in 0.109375 second(s), 23 queries , Gzip On.

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

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

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