求一单片机程序(用光敏电阻,PWM输出控制LED亮度)

下图是单片机电路和LED驱动电路,这里P20错了,应该是接P3.7/PWM0接口,可以无视了,我是初学,求程序,汇编或者C都可以,谢谢了... 下图是单片机电路和LED驱动电路,

这里P20错了,应该是接P3.7/PWM0接口,可以无视了,我是初学,求程序,汇编或者C都可以,谢谢了
展开
 我来答
GUEL86
2013-04-18 · TA获得超过5855个赞
知道大有可为答主
回答量:5538
采纳率:86%
帮助的人:2719万
展开全部
ORG 0000H
L0000: LJMP MIN00 ; 主程序
; / *** *** *** *** / 初始化 PWM
PCA00: MOV CMOD, #82H ; (fSYS/2)
MOV CCON, #00H
MOV CL, #00H
MOV CH, #00H
MOV CCAPM0, #00H ; PWM0 输出
MOV PCA_PWM0, #00H
SETB CR ; 开 PWM
RET
; / *** *** *** *** / 主程序
P1M0 EQU 91H
P1M1 EQU 92H
P3M0 EQU 0B1H
P3M1 EQU 0B2H
ADC_CONTR EQU 0C5H ; A/D 转缺岁缓换寄存器
ADC_DATA EQU 0C6H ; A/D 结果寄存器
MIN00: MOV P1M0, #08H ; 设置 P1.3 为高阻状态
MOV P1M1, #08H
MOV ADC_CONTR, #0E3H ; 开A/D 转换电源 P1.3
LCALL PCA00 ; 初始化 PWM
MIN10: NOP ; 主程序 入口
LCALL ADC00 ; 测光敏电阻电压
MOV CCAP0H, A ; 写入PWM 控制 发光亮度
LJMP MIN10
RET
; / *** *** *** *** / A/D 转换通道 测电压
ADC00: MOV ADC_DATA, #00H
ORL ADC_CONTR, #08H ; 启动 AD 转换
MOV A, #10H ; 判断 AD 转换是否完成
ANL A, ADC_CONTR
JZ ADC32 ; AD 转换尚未完成, 继续等待
ANL ADC_CONTR, #0E7H ; 清0 ADC_FLAG, ADC_START 位, 停伏模止A/D 转换
MOV A, ADC_DATA ; A = AD 转换雀激结果
RET
END
追问
请问ADC00 里面, JZ ADC32  这句语句是什么意思啊,就这里不懂啦,帮我帮到底吧,谢谢啦
追答
等待可以这样
JZ $
lake_rd
2013-04-18 · TA获得超过1311个赞
知道小有建树答主
回答量:1434
采纳率:0%
帮助的人:832万
展开全部
电源的5V那你不要接祥衫枣在地线上面了啦塌察。呵呵 电都通不上,程序也很简单的嘛。谨拆单片机采集光敏电阻节点上的电压,根据这个电压输出一定的占空比的PWM。
A/D:
ORG 0000H
LJMP MAIN
;-----------------------------------------
ORG 0100H
MAIN:
LCALL INIT_UART ;Init UART, use to show ADC result
LCALL INIT_ADC ;Init ADC sfr
;-------------------------------
NEXT:
MOV A,#0
LCALL SHOW_RESULT ;Show channel0 result
MOV A,#1
LCALL SHOW_RESULT ;Show channel1 result
MOV A,#2
LCALL SHOW_RESULT ;Show channel2 result
MOV A,#3
LCALL SHOW_RESULT ;Show channel3 result
MOV A,#4
LCALL SHOW_RESULT ;Show channel4 result
MOV A,#5
LCALL SHOW_RESULT ;Show channel5 result
MOV A,#6
LCALL SHOW_RESULT ;Show channel6 result
MOV A,#7
LCALL SHOW_RESULT ;Show channel7 result

SJMP NEXT
;/*----------------------------
;Send ADC result to UART
;Input: ACC (ADC channel NO.)
;Output:-
;----------------------------*/
SHOW_RESULT:
LCALL SEND_DATA ;Show Channel NO.
LCALL GET_ADC_RESULT ;Get high 8-bit ADC result
LCALL SEND_DATA ;Show result

;//if you want show 10-bit result, uncomment next 2 lines
; MOV A,ADC_LOW2 ;Get low 2-bit ADC result
; LCALL SEND_DATA ;Show result
RET

;/*----------------------------
;Read ADC conversion result
;Input: ACC (ADC channel NO.)
;Output:ACC (ADC result)
;----------------------------*/
GET_ADC_RESULT:
ORL A,#ADC_POWER | ADC_SPEEDLL | ADC_START
MOV ADC_CONTR,A ;Start A/D conversion
NOP ;Must wait before inquiry
NOP
NOP
NOP
WAIT:
MOV A,ADC_CONTR ;Wait complete flag
JNB ACC.4,WAIT ;ADC_FLAG(ADC_CONTR.4)
ANL ADC_CONTR,#NOT ADC_FLAG ;Clear ADC_FLAG
MOV A,ADC_RES ;Return ADC result
RET

;/*----------------------------
;Initial ADC sfr
;----------------------------*/
INIT_ADC:
MOV A,#0FFH
MOV P1,A
MOV P1M0,A
MOV P1M1,A ;Set all P1 as Open-Drain mode
MOV ADC_RES,#0 ;Clear previous result
MOV ADC_CONTR,#ADC_POWER | ADC_SPEEDLL
MOV A,#2 ;ADC power-on and delay
LCALL DELAY
RET

;/*----------------------------
;Initial UART
;----------------------------*/
INIT_UART:
MOV SCON,#5AH ;8 bit data ,no parity bit
MOV TMOD,#20H ;T1 as 8-bit auto reload
MOV A,#-5 ;Set Uart baudrate -(18432000/12/32/9600)
MOV TH1,A ;Set T1 reload value
MOV TL1,A
SETB TR1 ;T1 start running
RET

;/*----------------------------
;Send one byte data to PC
;Input: ACC (UART data)
;Output:-
;----------------------------*/
SEND_DATA:
JNB TI,$ ;Wait for the previous data is sent
CLR TI ;Clear TI flag
MOV SBUF,A ;Send current data
RET

;/*----------------------------
;Software delay function
;----------------------------*/
DELAY:
MOV R2,A
CLR A
MOV R0,A
MOV R1,A
DELAY1:
DJNZ R0,DELAY1
DJNZ R1,DELAY1
DJNZ R2,DELAY1
RET

END
////////////////////////////////
A/D转换的模板如上,PWM比较简单,你自己看资料配置一下寄存器就可以了,
追问
刚才手滑了,想点追问却点到采纳了楼上的,今天快断网了,明天能把PWM的部分也说以下吗,顺便把分给你,谢谢了
追答
你要看新片资料嘛,没有PWM口也可以做一个模拟,让P3.7输出的波形频率高就是电压高,反之就低(LED就暗)
比如:
LEDPWM:
SETB P3.7;点亮了LED
Call DELAY4 ; 延时,这个时间就决定LED的亮度
CLR P3.7
Call DELAY 4
....
JUP LEDPWM
DELAY4:
MOV R2,A;(这个A可以是采集的到的相关数据,也可以设定一个数字,比如 100)
MOV R0,A
MOV R1,A
DELAY10:
DJNZ R0,DELAY10
DJNZ R1,DELAY10
DJNZ R2,DELAY10
RET
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
hai3zei3wang3
2013-04-18 · TA获得超过173个赞
知道小有建树答主
回答量:168
采纳率:0%
帮助的人:92.5万
展开全部
你用的是哪种型号的单片机
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式