PICFA万历程序.docx
《PICFA万历程序.docx》由会员分享，可在线阅读，更多相关《PICFA万历程序.docx（29页珍藏版）》请在冰豆网上搜索。
PICFA万历程序
PIC16F877A万年历程序
时间:
2009-03-05 来源:
作者:
Wujieflash 点击：
1581 字体大小:
【大中小】
为了把KS0108系列的液晶吃透,特别制作了这款万年历,感觉效果还是不错的.希望大家分享我的喜悦,毕竟有了更多志同道合的朋友支持,我才能更进一步提高.
一,原理介绍
说明:
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显示空白边框子程序
voidLCDShowTable（）
{
uchi。
SlectScreen
（1）。
//写左半屏
SetLine（0）。
//起使页
SetColumn（0）。
//起使列
for（i=0。
i
//显示固定字符子程序
voidLCDShowGudingWord（）
{
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初始化子程序
voidTMR1init（）
{
//TRM1INITIAL
T1CON=0X30。
//8分频
TMR1IF=0。
//清中断标志
TMR1IE=1。
//使能定时器1中断
TMR1L=0XDB。
//初始值（定时0.5S）
TMR1H=0X0B。
TMR1ON=1。
//开定时器1
}
//冒号闪烁子程序
voidFlashMaohao（）
{
staticuchtimecount=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）。
}
}
//主程序
voidmain（）
{
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芯片测温 *
***************************************************/
#defineDQRC3 //定义18B20数据端口
#defineDQ_DIRTRISC3 //定义18B20D口方向寄存器
#defineDQ_HIGH（）DQ_DIR=1 //设置数据口为输入
#defineDQ_LOW（）DQ=0。
DQ_DIR=0 //设置数据口为输出
unsignedchar TLV=0。
//采集到的温度高8位
unsignedchar THV=0。
//采集到的温度低8位
unsignedcharTZ=0。
//转换后的温度值整数部分
//------------------------------------------------
//延时函数
//系统初始化函数
voidinit（）
{
ADCON1=0X07。
//设置A口为普通数字口
TRISA=0X00。
//设置A口方向为输出
//TRISC3=0。
//设置D口方向为输出
}
//-----------------------------------------------
//复位DS18B20函数
reset（void）
{
charpresence=1。
while（presence）
{
DQ_LOW（）。
//主机拉至低电平
delay（2,90）。
//延时503us
DQ_HIGH（）。
//释放总线等电阻拉高总线,并保持15~60us
delay（2,8）。
//延时70us
if（DQ==1）presence=1。
//没有接收到应答信号，继续复位
elsepresence=0。
//接收到应答信号
delay（2,70）。
//延时430us
}
}
//-----------------------------------------------
//写18b20写字节函数
voidwrite_byte（uchval）
{
uchi。
uchtemp。
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读字节函数
uchread_byte（void）
{
uchi。
uchvalue=0。
//读出温度
staticbitj。
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）。
}
//-------------------------------------------------
//启动温度转换函数
voidget_temp（）
{
inti。
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 SCLKRC1
#define IO RC2
uchflag=0。
uchsecond=1,minute=1,hour=1,year=1,month=1,date=1,day=1。
uchclock[]={0}。
uchDisCash[]={0x00,0x30,0x09,0x16,0x01,0x03,0x09}。
/////往1302写入1Byte数据////////////////////////
voidRTInputByte（uchd）
{
uchi。
TRISC=0x00。
for（i=8。
i>0。
i--）
{
IO=d&0x01。
//取最低位
SCLK=1。
//上升沿发送
SCLK=0。
//恢复
d=d>>1。
}
}
///////从1302读取1Byte数据////////////////////////
uchRTOutputByte（void）
{
uchi,val=0。
TRISC2=1。
//设置为输入
for（i=8。
i>0。
i--）
{
val=val>>1。
if（IO）val=val|0x80。
//从最低位开始接收
SCLK=1。
//下降沿接收
SCLK=0。
}
return（val）。
}
///////先写地址，后写命令/数据//////////////////////////
voidW1302（uchucAddr,uchucDa）
{
RST=0。
SCLK=0。
RST=1。
//打开DS1302
RTInputByte（ucAddr）。
///*地址，命令*/
RTInputByte（ucDa）。
///*写1Byte数据*/
SCLK=1。
RST=0。
//关闭DS1302
}
///////先写地址，后读命令/数据////////////////////////
uchR1302（uchucAddr）
{
uchucData。
RST=0。
SCLK=0。
RST=1。
RTInputByte（ucAddr）。
///*地址，命令*/
ucData=RTOutputByte（）。
///*读1Byte数据*/
SCLK=1。
RST=0。
return（ucData）。
}
/////////向1302写入秒分时日月星期年*/////////////
voidSet1302（uch*pClock）
{
uchi。
uchucAddr=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读出秒分时日月星期年*//////////////////
voidv_Get1302（unsignedchar ucCurtime[]）
{
unsignedchari。
unsignedcharucAddr=0x81。
for（i=0。
i
/////////与LCD的显示接口//////////////////////
voiddisplay（）
{
uchi。
for（i=0。
i
4.按键扫描与服务程序
/***************************************************
*标题：
按键扫描和服务 *
*作者：
Wujieflash *
*日期：
2008年1月17日 *
*说明：
当按键按下，选中的单元就会闪烁*
***************************************************/
uchk=0。
//键盘初始化子程序
voidkeyinit（）
{
TRISD0=1。
TRISD0=1。
TRISD0=1。
}
/*----------------------------------------------------------*/
//键盘扫描子程序
voidKeyScan（）
{
intd。
if（RD0==0） //设置键按下
{
k++。
//选定入口值
k=k%8。
}
while
（1）
{
if（RD0==1）break。
//等待按键松开
}
switch（k）//键盘服务入口
{
case1:
//设置秒
{
d=R1302（0x81）。
//读取秒
d=d/16*10+d%16。
//转换为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%10。
W1302（0x80,d）。
//写入DS1302
while
（1）
{
if（RD1==1）break。
//等待键松开
}
}
if（RD2==0）//
升级会员 