单片机提高WWW.51C51.COM 自学单片机的网站:作中国单片机编程技术普及推广第一站!倚天一出宝刀屠龙返回主页 给我留言 单片机教程 单片机提高  品质技术  软件下载  学液晶显示产品介绍 如何购买

;********************************************************************************
;0804的基本应用,转动电位器,P0口显示取到的数 *
;********************************************************************************
;* 日期: 2007-3-25 *
;* 版本: 3.0 *
;* 作者: 深圳学林电子有限公司 专业8051单片机教程站 *
;* 邮箱: sxj1974@163.com *
;* 网站: http://www.51c51.com http://www.8951.com 更多例程请登陆网站 *
;********************************************************************************
;* 硬件:此程序在本公司xlisp系列单片机实验仪运行通过 *
;********************************************************************************
;* 【版权】 Copyright(C)深圳学林电子有限公司 www.51c51.com All Rights Reserved *
;* 【声明】 此程序仅用于学习与参考,引用请注明版权和作者信息! *
;********************************************************************************

hex格式文件下载(点右键,目标另存为hex即可直接烧写)


;//定义ADC的连接端口
ad_cs equ P3.6
ad_wr equ P2.0
ad_rd equ P3.7
ad_input_port equ p1
org 0000h
ajmp main
org 0030h
main:
lcall adc_demo
ajmp main
;//==========================================
;// 启动AD转换
;//==========================================
Adc_Start:
clr ad_cs
nop
clr ad_wr
nop
setb ad_wr
nop
setb ad_cs
nop
ret
;//==========================================
;// 读AD转换
;//==========================================
Adc_Read:
mov ad_input_port,#0ffh
clr ad_cs
nop
clr ad_rd
nop
nop
mov a,AD_INPUT_PORT
nop
setb ad_rd
nop
setb ad_cs
ret
;//==========================================
;// AD转换读取延时程序,显示读到的数值
;//==========================================
Adc_Demo:
lcall Adc_Start
lcall delay1ms
lcall adc_read
clr p2.0
clr p2.3
mov p0,a
ret

delay1ms:
movr7,#10
tt1:
movr6,#50
djnzr6,$;2us
djnzr7,tt1
ret
end