×
一,原理介绍
说明:
1. 单片机 还是采用pic中最经典的pic16f877a,端口多,功能全,特别是他有8k的rom,这是我选择的主要原因,因为储存液晶的字库需要很大的空间.
2.液晶显示还是用的ks0108系列,主要是他性价比高,指令简单,特别是公司也在用.
3.时钟/日历芯片用的dallos的ds1302芯片,他可以储存从2000-2099年的日历,及实时时钟,可以方便的读写.
4.温度测量还是用的ds18b20,这在我上一实例中已经用过,有兴趣可以查阅.
5.本万年历可以显示实时时钟,精确到秒,年,月,日,星期,阴历,温度,生肖等,显示的信息量大.
6,可以通过按键自由设定时钟及日历,按"设置"键可以在秒,分,时,日,月,星期,年之间来回切换,要设置的单元以闪烁提醒.通过" "."-"按键可以把要设置的单元设定到预想状态.
二,程序说明:
本程序有许多小的模块,现分列如下:
1.主程序
/***************************************************
* 标题：万年历 *
* 作者：wujieflash *
* 日期：2008年1月13日 *
* 说明：包含文件
***************************************************/
#include
#include "ziku.h"
#include "lcd_init.h"
#include "ds1302.h"
#include "ds18b20.h"
#include "keyscan.h"
#include "yinli.h"
//子程序
//lcd显示空白边框子程序
void lcdshowtable()
{
uch i;
slectscreen(1); //写左半屏
setline(0); //起使页
setcolumn(0); //起使列
for(i=0;i
//显示固定字符子程序
void lcdshowgudingword()
{
show8x16_2(0,24,s0);
show8x16_2(0,32,s0);
show8x16(2,1,s0);
show8x16(2,9,s0);
show16x16_3(6,40,ri);
show16x32(2,24,ss0);
show16x32(2,40,ss0);
show8x16_2(0,64,s0);
show8x16_2(0,72,s0);
show8x16_2(0,80,maohao);
show8x16_2(0,88,s0);
show8x16_2(0,96,s0);
show8x16_2(0,104,maohao);
show8x16_2(0,112,s0);
show8x16_2(0,119,s0);
show8x16(2,80,s0);
show8x16(2,88,s0);
show16x16_2(4,64,shiyi);
show16x16_2(4,80,yue);
show16x16_2(4,95,chu);
show16x16_2(4,111,yi);
show16x16_3(6,72,sheng);
show16x16_3(6,88,xiao);
show16x16_3(6,104,shu);
show16x16_2(0,40,nian);
show16x16(4,2,yue);
show16x16_3(6,8,xing);
show16x16_3(6,24,qi);
show16x16(2,96,danwei1);
show8x16_2(0,8,s2);
show8x16_2(0,16,s0);
}
/*----------------------------------------------------------*/
//trm1初始化子程序
void tmr1init()
{
//trm1 initial
t1con=0x30; //8分频
tmr1if=0; //清中断标志
tmr1ie=1; //使能定时器1中断
tmr1l=0xdb; //初始值（定时0.5s）
tmr1h=0x0b;
tmr1on=1; //开定时器1
}
//冒号闪烁子程序
void flashmaohao()
{
static uch timecount=0;
if(tmr1if==1)
{
tmr1on=0;
tmr1if=0;
tmr1l=0xdb; //重新付初值
tmr1h=0x0b;
flag ;
flag=flag%2; //闪烁标志在0-1间翻转
tmr1on=1;
timecount ;
if(timecount==120)//1分钟采样一次温度
{
timecount=0;
get_temp(); //温度转换子程序
}
}
if(flag==0)
{
show8x16_2(0,80,maohao);
show8x16_2(0,104,maohao);
}
if(flag==1)
{
show8x16_2(0,80,noshu);//清除
show8x16_2(0,104,noshu);
}
}
//主程序
void main()
{
tmr1init(); //定时器1初始化
keyinit(); //键盘初始化
lcdinit(); //lcd操作初始化
lcdshowtable(); //显示空白表格
lcdshowgudingword(); //显示固定字符
//set1302(discash); //设置初始时间（默认写入我写程序的时间）
get_temp(); //读取温度
while(1)
{
v_get1302(clock); //读取时间、日历
display();
yangtoyin(clock[6]/16*10 clock[6]&0x0f,clock[4]/16*10 clock[4]&0x0f,clock[3]/16*10 clock[3]&0x0f);
flashmaohao(); //冒号闪烁
keyscan(); //键盘扫描
}
}
2.测温程序:
/***************************************************
* 标题：ds18b20测温 *
* 作者：wujieflash *
* 日期：2008年1月13日 *
* 说明：使用ds18b20芯片测温 *
***************************************************/
# define dq rc3 //定义18b20数据端口
# define dq_dir trisc3 //定义18b20d口方向寄存器
# define dq_high() dq_dir =1 //设置数据口为输入
# define dq_low() dq = 0; dq_dir = 0 //设置数据口为输出
unsigned char tlv=0 ; //采集到的温度高8位
unsigned char thv=0; //采集到的温度低8位
unsigned char tz=0; //转换后的温度值整数部分
//------------------------------------------------
//延时函数
//系统初始化函数
void init()
{
adcon1=0x07; //设置a口为普通数字口
trisa=0x00; //设置a口方向为输出
//trisc3=0; //设置d口方向为输出
}
//-----------------------------------------------
//复位ds18b20函数
reset(void)
{
char presence=1;
while(presence)
{
dq_low() ; //主机拉至低电平
delay(2,90); //延时503us
dq_high(); //释放总线等电阻拉高总线,并保持15~60us
delay(2,8); //延时70us
if(dq==1) presence=1; //没有接收到应答信号，继续复位
else presence=0; //接收到应答信号
delay(2,70); //延时430us
}
}
//-----------------------------------------------
//写18b20写字节函数
void write_byte(uch val)
{
uch i;
uch temp;
for(i=8;i>0;i--)
{
temp=val&0x01; //最低位移出
dq_low();
nop();
nop();
nop();
nop();
nop(); //从高拉至低电平,产生写时间隙
if(temp==1) dq_high(); //如果写1,拉高电平
delay(2,7); //延时63us
dq_high();
nop();
nop();
val=val>>1; //右移一位
}
}
//------------------------------------------------
//18b20读字节函数
uch read_byte(void)
{
uch i;
uch value=0; //读出温度
static bit j;
for(i=8;i>0;i--)
{
value>>=1;
dq_low();
nop();
nop();
nop();
nop(); //6us
dq_high(); //拉至高电平
nop();
nop();
nop(); //4us
j=dq;
if(j) value|=0x80;
delay(2,7); //63us
}
return(value);
}
//-------------------------------------------------
//启动温度转换函数
void get_temp()
{
int i;
dq_high();
reset(); //复位等待从机应答
write_byte(0xcc); //忽略rom匹配
write_byte(0x44); //发送温度转化命令
for(i=10;i>0;i--)
{
delay(201,132); //调用多次延迟函数，确保温度转换完成所需要的时间
}
reset(); //再次复位，等待从机应答
write_byte(0xcc); //忽略rom匹配
write_byte(0xbe); //发送读温度命令
tlv=read_byte(); //读出温度低8
thv=read_byte(); //读出温度高8位
dq_high(); //释放总线
tz=(tlv>>4)|(thv<<4);
}
3.日历显示程序
/***************************************************
* 标题：ds1302读写 *
* 作者：wujieflash *
* 日期：2008年1月14日 *
* 说明：日历显示范围：2000年--2099年 *
***************************************************/
#define rst rc0
#define sclk rc1
#define io rc2
uch flag=0;
uch second=1,minute=1,hour=1,year=1,month=1,date=1,day=1;
uch clock[]={0};
uch discash[]={0x00,0x30,0x09,0x16,0x01,0x03,0x09};
/////往1302写入1byte数据////////////////////////
void rtinputbyte(uch d)
{
uch i;
trisc=0x00;
for(i=8; i>0; i--)
{
io = d&0x01; //取最低位
sclk = 1; //上升沿发送
sclk = 0; //恢复
d = d >> 1;
}
}
///////从1302读取1byte数据////////////////////////
uch rtoutputbyte(void)
{
uch i,val=0;
trisc2=1; //设置为输入
for(i=8; i>0; i--)
{
val = val >>1;
if(io)val=val|0x80;// 从最低位开始接收
sclk = 1; //下降沿接收
sclk = 0;
}
return(val);
}
///////先写地址，后写命令/数据//////////////////////////
void w1302(uch ucaddr, uch ucda)
{
rst = 0;
sclk = 0;
rst = 1; //打开ds1302
rtinputbyte(ucaddr); // /* 地址，命令 */
rtinputbyte(ucda); // /* 写1byte数据*/
sclk = 1;
rst = 0; //关闭ds1302
}
///////先写地址，后读命令/数据////////////////////////
uch r1302(uch ucaddr)
{
uch ucdata;
rst = 0;
sclk = 0;
rst = 1;
rtinputbyte(ucaddr); // /* 地址，命令 */
ucdata = rtoutputbyte(); // /* 读1byte数据 */
sclk = 1;
rst = 0;
return(ucdata);
}
/////////向1302写入 秒 分 时 日 月 星期 年 */////////////
void set1302(uch *pclock)
{
uch i;
uch ucaddr = 0x80; //起使地址
w1302(0x8e,0x00); ///* 控制命令,wp=0,允许写操作*/
for(i =7; i>0; i--)
{
w1302(ucaddr,*pclock); ///* 秒 分 时 日 月 星期 年 */
pclock ;
ucaddr =2; //写地址加2
}
w1302(0x8e,0x80); // /* 控制命令,wp=1,写保护*/
}
////////从1302读出 秒 分 时 日 月 星期 年 *//////////////////
void v_get1302(unsigned char uccurtime[])
{
unsigned char i;
unsigned char ucaddr = 0x81;
for(i=0;i
/////////与lcd的显示接口//////////////////////
void display()
{
uch i;
for(i=0;i
4.按键扫描与服务程序
/***************************************************
* 标题：按键扫描和服务 *
* 作者：wujieflash *
* 日期：2008年1月17日 *
* 说明：当按键按下，选中的单元就会闪烁 *
***************************************************/
uch k=0;
//键盘初始化子程序
void keyinit()
{
trisd0=1;
trisd0=1;
trisd0=1;
}
/*----------------------------------------------------------*/
//键盘扫描子程序
void keyscan()
{
int d;
if(rd0==0) //设置键按下
{
k ; //选定入口值
k=k%8;
}
while(1)
{
if(rd0==1)break;//等待按键松开
}
switch(k)//键盘服务入口
{
case 1://设置秒
{
d=r1302(0x81);//读取秒
d=d/16*10 d;//转换为16进制
second=flag; //设置秒的闪烁标志
minute=1; //其余变量不闪烁
hour=1;
year=1;
month=1;
date=1;
day=1;
if(second==0) //闪烁
{
show8x16_2(0,111,noshu);
show8x16_2(0,119,noshu);
}
if(rd1==0) //秒数值加1
{
d ;
if(d>0x3b)d=0;//大于59就为0
d=d/10*16 d;
w1302(0x80,d);//写入ds1302
while(1)
{
if(rd1==1)break;//等待键松开
}
}
if(rd2==0)//数值减1
{
d--;
if(d0x3b)d=0;
d=d/10*16 d;
w1302(0x82,d);
while(1)
{
if(rd1==1)break;
}
}
if(rd2==0)
{
d--;
if(d0x17)d=0;
d=d/10*16 d;
w1302(0x84,d);
while(1)
{
if(rd1==1)break;
}
}
if(rd2==0)
{
d--;
if(d0x1f)d=1;
d=d/10*16 d;
w1302(0x86,d);
while(1)
{
if(rd1==1)break;
}
}
if(rd2==0)
{
d--;
if(d0x0c)d=1;
d=d/10*16 d;
w1302(0x88,d);
while(1)
{
if(rd1==1)break;
}
}
if(rd2==0)
{
d--;
if(d0x07)d=1;
d=d/10*16 d;
w1302(0x8a,d);
while(1)
{
if(rd1==1)break;
}
}
if(rd2==0)
{
d--;
if(d0x63)d=0;
d=d/10*16 d;
w1302(0x8c,d);
while(1)
{
if(rd1==1)break;
}
}
if(rd2==0)
{
……
『本文转载自网络,皇冠最新app版本的版权归原作者所有,如有侵权请联系删除』
热门文章
