- 11
- 0
- 约7.53千字
- 约 11页
- 2018-02-01 发布于河北
- 举报
电子时钟C语言程序和涡流传感器称重C语言程序
传感器课程设计
软时钟实验源程序:
#pragma db oe
#include reg52.h
#include absacc.h
#include string.h
#include stdio.h
#include intrins.h
#include MATH.H
#define uint unsigned int
#define uchar unsigned char
#define ulong unsigned long
void display(void);
void initsiu(void);
void delay(void);
void sztz(void);
void jssz(void);
void setsz(void);
void tzszw(uchar zj);
uchar inkey(void);
uchar sec,min,hour;
uchar disdat[6];
uchar code tab[]={0x3f,0x6,0x5b,0x4f,0x66,0x6d,0x7d,0x7,0x7f,0x6f};
uint count;
uchar set_state,xsd;
sbit zsd=P1^0;
main()
{
uchar i;
for (i=0;i6;i++)
{
disdat[i]= 0; //将显示缓存清零
}
initsiu(); //初始化单片机
set_state=0;
do
{
i=inkey(); //读取键盘值
if(i==0xe0)//如果读取i=0xe0,进入设置时钟
setsz(); //设置时钟
jssz(); //计算数值
display(); //显示
if((sec 0x01))//指示灯闪烁
zsd=1;
else
zsd=0;
}
while(1);
}
void display(void) //6位数码管显示程序,disdat[]是要显示的内容(是0~9的数字),xsd是在那一位显示小数点
{
uchar i,disa,disb,disc;
disb = 0x00; //显示第n位
for (i=0;i6;i++) //共显示6个数据
{
disa = disdat[i]; //显示数据
if (disa 10)
{
P2 = disb;
disc = tab[disa]; //显示段码
if (set_state==0) //显示时钟
{
if ((i == 1) || (i == 3))
disc = disc | 0x80;//增加小数点显示
}
else //设置时显示
{
if (xsd == i)
disc = disc | 0x80;//增加小数点显示
}
P0 = disc; //送显示
delay (); //延时
P0 = 0x0;
disb++; //下一个要显示的位置
}
}
P2 = 0xff;
}
void setsz(void) //设置时间
{
uchar i,k;
set_state=1; //改变显示状态
xsd=0; //设置位置
TR0=0; //停止时钟运行
jssz(); //将现在的结果放到数组disdat[]
do
{
display(); //显示
i=inkey(); //读键
switch (i)
{
case 0xd0: k=0xff; //退出设置,3号键,左
break;
case 0xb0: k=0; //改变设置位置,每按下一次右移一个,2号键,次左
xsd++; //数码管转换
if(xsd==6)
xsd=0;
break;
case 0x70: //加1,1号键,右
k=0;
tzszw(0);
break;
default:
k=0;
break;
}
您可能关注的文档
- 生产1.2亿块粉煤灰蒸压砖厂项目监理实施细则.doc
- 生产主管效率改善手法.doc
- 生产主管管理方法之生产与物料控制.doc
- 生产企业出口退税账务处理注意事项.doc
- 生产企业企业质量管理制度.doc
- 生产企业相制度.doc
- 生产保温板)生产项目可行性研究报告.doc
- 生产制造企业工厂及车间安全生产管理制度.doc
- 生产制造企业工厂安全生产管理制.doc
- 生产制造企业工厂车间安全生产责任制.doc
- 伟明环保-市场前景及投资研究报告-境内业务稳健运行,印尼市场贡献边际增量.pdf
- 桂东县法院系统招聘考试真题2025.pdf
- 贵州省黔南布依族2026年中考三模物理试题及答案.pdf
- 贵州省黔南州2026年中考语文二模试卷附答案.pdf
- 贵州省铜仁市2026年中考语文二模试卷附答案.pdf
- 2026上半年安徽事业单位联考合肥市庐江县招聘36人备考题库及一套完整答案详解.docx
- 贵州省毕节市2026年中考语文一模试卷附答案.pdf
- 贵州省贵阳市南明区2026年中考语文一模试卷附答案.pdf
- 2026上半年安徽事业单位联考合肥市庐江县招聘36人备考题库及一套参考答案详解.docx
- 贵州省贵阳市白云区2026年中考二模物理试题附答案.pdf
原创力文档

文档评论(0)