求51单片机实现AD转换及串口数据发送的程序？谢谢了！

求51单片机控制AD转换及串口数据发送的程序？~

AD:
/*-----------------------------------------------
名称：IIC协议 PCF8591 AD/DA转换
论坛：www.doflye.net
编写：shifang
修改：无
内容：使用4路AD中的1路检测外部模拟量输入
------------------------------------------------*/
#include
#include "i2c.h"
#include "delay.h"
#include "display.h"
#define AddWr 0x90 //写数据地址
#define AddRd 0x91 //读数据地址
extern bit ack;
unsigned char ReadADC(unsigned char Chl);
bit WriteDAC(unsigned char dat);
/*------------------------------------------------
主程序
------------------------------------------------*/
main()
{
unsigned char num=0;
Init_Timer0();
while (1) //主循环
{

num=ReadADC(0);
TempData[0]=dofly_DuanMa[num/100];
TempData[1]=dofly_DuanMa[(num%100)/10];
TempData[2]=dofly_DuanMa[(num%100)%10];
//主循环中添加其他需要一直工作的程序
DelayMs(100);
}
}
/*------------------------------------------------
读AD转值程序
输入参数 Chl 表示需要转换的通道，范围从0-3
返回值范围0-255
------------------------------------------------*/
unsigned char ReadADC(unsigned char Chl)
{
unsigned char Val;
Start_I2c(); //启动总线
SendByte(AddWr); //发送器件地址
if(ack==0)return(0);
SendByte(0x40|Chl); //发送器件子地址
if(ack==0)return(0);
Start_I2c();
SendByte(AddWr+1);
if(ack==0)return(0);
Val=RcvByte();
NoAck_I2c(); //发送非应位
Stop_I2c(); //结束总线
return(Val);
}
串口：
#include
void main()
{
TMOD=0x20;
TH1=0xfd;
TL1=0xfd;
TR1=1;
REN=1;
SM0=0;
SM1=1;
while(1)
{
if(RI==1)
{
RI=0;
P1=SBUF;
}
}
}
void s() interrupt 0
{
RI=0;
P1=SBUF;
}

兄弟：不知道你玩不玩32 ，有个32 的在工程上用过，直接刷程序，串口连接电脑就可以输出AD 转换的结果。如果不玩32 的话。
首先第一步排查： 排查单片机能不能正确显示 你测试到的 AD 信号，显示正确不？
比如给他 3V 电压 ，用数码管显示出来。
第二： 串口发送，找个能正确发送数据的代码 ，直接把 ，你检查的数值给这个变量，让串口发送，
一步一步找问题，你绝对能解决的。我把AD0809 的代码给你用数码管测试

#include
#define uint unsigned int
#define uchar unsigned char
uchar code LEDData[]=
{
0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f
};
sbit OE = P1^0;
sbit EOC = P1^1;
sbit ST = P1^2;
sbit CLK = P1^3;
void DelayMS(uint ms)
{
uchar i;
while(ms--)
{
for(i=0;i<120;i++);
}
}
void Display_Result(uchar d)
{
P2 = 0xf7;
P0 = LEDData[d%10];
DelayMS(5);
P2 = 0xfb;
P0 = LEDData[d%100/10];
DelayMS(5);
P2 = 0xfd;
P0 = LEDData[d/100];
DelayMS(5);
}
void main()
{
TMOD = 0x02;
TH0 = 0x14;
TL0 = 0x00;
IE = 0x82;
TR0 = 1;
P1 = 0x3f;
while(1)
{
ST = 0;
ST = 1;
ST = 0;
while(EOC == 0);
OE = 1;
Display_Result(P3);
OE = 0;
}
}
void Timer0_INT() interrupt 1
{
CLK = !CLK;
}

#include<reg52.h>
#include<intrins.h>
#define uchar unsigned char
#define uint unsigned int
uchar A1,A2,A3,A4;
sbit wr=P3^7;
sbit rd=P3^6;
sbit cs=P3^5;
sbit dian=P0^7;
uchar code tab[]={ 0x3f,0x06,0x5b,0x4f,
0x66,0x6d,0x7d,0x07,0x7f,0x6f}; //共阴数码管显示0到9的代码
void delay(uint z) //延时函数
{
uint x,y;
for(x=z;x>0;x--)
for(y=110;y>0;y--);
}

void display(uchar A1,uchar A2,uchar A3,uchar A4)//显示函数
{

P0=tab[A1];
P2=0x7f;
delay(1);

P0=tab[A2];
dian=1;
P2=0xbf;
delay(1);

P0=tab[A3];
P2=0xdf;
delay(1);

P0=tab[A4];
P2=0xef;
delay(1);
}

void main()
{ uchar a;
uint temp=0,sum=0;
P3=0xdf;//令AD 片选CS一直为选通状态
P1=0xff;
while(1)
{

for(a=255;a>0;a--)
{
display(A1,A2,A3,A4);
}

wr=1;
_nop_();
wr=0;
_nop_();
wr=1;
_nop_();
rd=1;
_nop_();
rd=0;
_nop_();
temp=P1;
rd=1;
temp=(temp*100*0.01961);//8位的ADC0804的分辨率为1/256,5x1/255=0.01961;
A1=temp/1000; // 数码管第一位显示数据
A2=temp%1000/100; // 数码管第二位显示数据
A3=temp%1000%100/10;//数码管第三位显示数据
A4=temp%1000%100%10; //数码管第四位显示数据
}
}

你按照AD的数据手册些时序就好了，AD不难，

单片机需要具体的型号吗？

---

信阳市17876867348： 求51单片机实现AD转换及串口数据发送的程序?谢谢了! - ？
莫费安内： #include#include#define uchar unsigned char#define uint unsigned int uchar A1,A2,A3,A4; sbit wr=P3^7; sbit rd=P3^6; sbit cs=P3^5; sbit dian=P0^7; uchar code tab[]={ 0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f}; //共阴数码管显示0到9...

信阳市17876867348： 求51单片机控制AD转换及串口数据发送的程序? - ？
莫费安内： AD采集到0-5V电压信号转换为数值信号,经过单片机处理 通过串口发送给电脑,电脑用串口助手这个问题不是很慢解决啊,网上没有现成的程序的 需要解决说明编写的啊可以交流

信阳市17876867348： 51单片机怎么设置AD转换 - ？
莫费安内： 内部带AD转换器的可以对相关寄存器进行操作,然后进行采集,外置的可以编写相应的驱动函数,然后进行采集.

信阳市17876867348： 输入电压值到51单片机,求内部自带的ad转换的程序,谢谢大神们 - ？
莫费安内： stc的 PDF文档有例子,以下是STC12C5410AD单片机的AD程序 void adchange()//AD采集程序 {ADC_CONTR=ADC_CONTR|0X80; //10000000 开启转换电源 Delay1ms(1); //延时,等待内部电源稳定 P1M0=P1M0|0X07; //设置p1.0 P1.1和 ...

信阳市17876867348： 51单片机与AD转换程序 - ？
莫费安内： #include<reg51.h>#define uchar unsigned char#define uint unsigned int sbit wr=P2^6; sbit rd=P2^7; sbit adint=P2^5; delay(uint z) { uchar w; while(z--) { for(w=0;w<125;w++); } } ad_star() { wr=1; wr=0; wr=1; } main() { uchar a; while(1) { ad_star(); ...

信阳市17876867348： 51单片机怎么样转换AD数据 - ？
莫费安内： 如果用单 片机内部AD,可以参照厂商给的说文档,单 片机AD有8位和10位的,高档的有12位的,基准电压一般 是电源电压,对应输出数字量分别是0-255和0-1023 及0-4093,像 STC单 片机内AD是10位的,其说明文档中有C语言和汇编语言的例子

信阳市17876867348： 单片机AD采样结果如何以十进制发送到串口调试助手 - ？
莫费安内： 思路:假如你得到AD值是“1314”,那么就用除法把每位数据分出来并且变成ASCII码:'1' '3' '1' '4',然后通过串口发送.

信阳市17876867348： 求一个AD转换加上RS232的单片机串口通信程序 - ？
莫费安内： 用STC12C5201AD单片机就可以了,16脚的!#include #include #include #include #include #define uchar unsigned char#define uint unsigned int#define ADC_FLAG 0x10 #define ADC_START 0x08 uchar datt1=0; void delay(uint z) { uint x,y; for(x...

信阳市17876867348： 单片机AD转换 串行通讯 - ？
莫费安内： /*****************主函数**************/ void main() { init(); while(1) { AD(); P1 = ~AD_DATA[1]; ES=1; //允许串口中断--允许它中断,却没有它的处理函数! SBUF=AD_DATA[1];while(!TI); //--等待TI=1,但是,一旦TI=1,程序就跑飞了 TI=0; ES=0; } } 把:ES=1; //允许串口中断 删除试试.

信阳市17876867348： 求自带AD转换的51单片机,列举一下,举例应用电路及程序举例.？
莫费安内： 带AD的话,51都没有带的,一般是使用外置AD芯片,例如ADC0809 ;带AD的话,你可以选用Mega8,他内置AD转换模块的