4169|5

141

帖子

0

TA的资源

一粒金砂(高级)

楼主
 

自制数字功率表数据采集程序 [复制链接]

//--------QQ:1239300456------------------------------------------
#include <AT89X52.H>
#include<lcm045a.h>
#include<adc0832.h>
#define uchar unsigned char
#define uint  unsigned int
uchar adc0,adc1;
uchar ad8;
uint ad16;
uchar keycount;
sbit mode=P3^7;//模式
//---------------------------------------------------------------
void delay(uint k)
{
uint i,j;
for(i=0;i<k;i++){
for(j=0;j<59;j++)
{;}}
}
//---------------------------------------------------------------
void beep(void)
{
TR0=0;
wrt_com(0x8c0);
wrt_com(0x812);
delay(20);
wrt_com(0x810);
TR0=1;
}
//---------------------------------------------------------------
void display(void)
{
if(keycount==0|keycount==1){ds0=10;ds1=ad8/100;ds2=ad8/10%10;ds3=ad8%10;}
if(keycount==2){ds0=ad16/10000;ds1=ad16/1000%10;ds2=ad16/100%10;ds3=ad16/10%10;}
wrt_s(ds0,ds1,ds2,ds3);//显示数字
}
//---------------------------------------------------------------
void key(void)
{
if(mode==0){beep();
if(mode==0){keycount++;
if(keycount>2)keycount=0;
while(mode==0);delay(15);}}
}
//---------------------------------------------------------------
void main(void)
{
TMOD=0x01;
TH0=0x9e;
TL0=0x58;
EA=1;
ET0=1;
TR0=1;
keycount=2;
set_lcm045();
while(1){
key();
}}
//---------------------------------------------------------------
void Timer0Interrupt(void) interrupt 1
{
uchar i;
TH0=0x9e;
TL0=0x58;
i++;
if(i==2){i=0;
if(keycount==0){ad8=Adc0832(0);d0=d1=d2=d3=0;wrt_data(disbit[4]);}//电压
if(keycount==1){ad8=Adc0832(1);d0=d2=d3=0;d1=1;wrt_data(disbit[5]);}//电流
if(keycount==2){adc0=Adc0832(0);adc1=Adc0832(1);d0=d1=d3=0;d2=1;ad16=adc0*adc1;wrt_data(disbit[6]);}//功率
display();}
}
//---------------------------------------------------------------

自制数字功率表数据采集程序.zip

3.41 KB, 下载次数: 16

售价: 1 分芯积分  [记录]

全部文件

此帖出自51单片机论坛

最新回复

没有原理图光有程序没有太大用处吧。楼主想公开的话把原理图也贴出来吧!  详情 回复 发表于 2014-4-17 11:22
点赞 关注
 

回复
举报

3404

帖子

6

TA的资源

裸片初长成(初级)

沙发
 
没有原理图光有程序没有太大用处吧。楼主想公开的话把原理图也贴出来吧!
此帖出自51单片机论坛
 
 
 

回复

6

帖子

0

TA的资源

一粒金砂(初级)

板凳
 
没有原理图,想让别人给你看,难
此帖出自51单片机论坛
 
 
 

回复

65

帖子

0

TA的资源

一粒金砂(中级)

4
 
求图求真相
此帖出自51单片机论坛
 
 
 

回复

96

帖子

0

TA的资源

一粒金砂(初级)

5
 
有没有图啊。
此帖出自51单片机论坛
 
 
 

回复

43

帖子

0

TA的资源

一粒金砂(中级)

6
 
没有原理图光有程序没有太大用处吧。楼主想公开的话把原理图也贴出来吧!
此帖出自51单片机论坛
 
 
 

回复
您需要登录后才可以回帖 登录 | 注册

猜你喜欢
随便看看
查找数据手册?

EEWorld Datasheet 技术支持

相关文章 更多>>
关闭
站长推荐上一条 1/10 下一条
艾睿电子& Silicon Labs 有奖直播 | 全新蓝牙信道探测:从技术创新到实际应用
直播时间:3月12日(周三)上午10:00
直播奖励:多功能榨汁机、蓝牙音箱、手机支架

查看 »

 
EEWorld订阅号

 
EEWorld服务号

 
汽车开发圈

About Us 关于我们 客户服务 联系方式 器件索引 网站地图 最新更新 手机版

站点相关: 国产芯 安防电子 汽车电子 手机便携 工业控制 家用电子 医疗电子 测试测量 网络通信 物联网

北京市海淀区中关村大街18号B座15层1530室 电话:(010)82350740 邮编:100190

电子工程世界版权所有 京B2-20211791 京ICP备10001474号-1 电信业务审批[2006]字第258号函 京公网安备 11010802033920号 Copyright © 2005-2025 EEWORLD.com.cn, Inc. All rights reserved
快速回复 返回顶部 返回列表