PIC时钟程序

#include <pic.h>__CONFIG (0x20F1); //运行用__CONFIG (0x3FFF);#define LCD_RS RD4 //LCD 寄存器选择数据H/指令L#define LCD_RW RD5 //LCD 读H/L写控制线#define LCD_E RD6 //LCD E 时钟//定义常数#define TC74_ADD 0b1001101 //TC74的7位地址#define RTR 0b00000000 //TC74的读温度命令#define COM 0 //在LCD_WRITE()中的第2参数为0表示写命令#define DA T 1 //在LCD_WRITE()中的第2参数为1表示写数据bank1 char DD[16]; //一行LCD显示数据暂存char SET=0,CK=0; //功能键判断，选着键#define YEAR LINE1+3 //年的显示位置（4位）#define MONTH LINE1+6 //月的显示位置（2位）#define DAY LINE1+9 //日的显示位置（2位）#define WEEK LINE1+15 //星期的显示位置（1位）#define HOUR LINE2+3 //时的显示位置（2位）#define MINUTE LINE2+6 //分的显示位置（2位）#define SECOND LINE2+9 //秒的显示位置（2位）#define TEMP LINE2+12 //温度的显示位置（4位）#define ADDR 0b11010000 //DS1307地址固定为0b11010000//宏定义，清屏#define CLR_LCD() \LCD_WRITE(0b00000001,COM); \DELAY(2)void CSH(void); //初始化void LCD_CSH(void); //LCD初始化void LCD_BUSY(void); //检测LCD是否忙char LCD_READ(void); //读LCD，忙检测用void LCD_WRITE(char,char); //LCD写1字节,命令或数据void DS1307(void); //DS1307显示程序void LCD_WRITE_4(char,char); //LCD写半字节void DISP_C(char); //在指定行中显示字符,字符在数组DD中void WRITE_DS1307(char,char); //写DS1307程序void READ_DS1307(char,char); //读DS1307程序void IIC_CSH(void);void IIC_SEND(char);signed char READ_TC74(void);void DISP_TC74(signed char);void DISP_MENU(const char *); //由常数数组显示整屏字符void BCD(unsigned int);void DELAY_US(char);void DELAY(unsigned int);void DELAY_I(unsigned int);void BCD_2(char,char); //2位BCD数转换成10进制void interrupt ISR(void);//修改中断void CHG_YEAR(void);//修改年void CHG_MONTH(void);//修改月void CHG_DAY(void);//修改日void CHG_WEEK(void);//修改星期void CHG_HOUR (void);//修改时void CHG_MINUTE(void);//修改分void CHG_SECOND(void);//修改秒//整屏界面,每行16个字符，最后加一个结束符const char MENU0[2][17]={{" WELCOME "},{" 010900411 "}};char SW,GW;#define LINE1 0b10000000#define LINE2 0b11000000const char LINE[2]={LINE1,LINE2};//定义结构体类型STRU的变量KEY//========主程序main(void){ signed char R1;DELAY(100);CSH();DISP_MENU(*MENU0); //显示整屏DELAY(2000);CLR_LCD();DS1307();while(1){R1=READ_TC74(); //读温度传感器的温度值DISP_TC74(R1); //显示温度值WRITE_DS1307(0x07,0b00010000); //OUT口输出方波，频率为1Hz READ_DS1307(0x00,7);BCD_2(SECOND,DD[0]); //显示时，分，秒BCD_2(MINUTE,DD[1]);BCD_2(HOUR,DD[2]);LCD_WRITE(WEEK,COM);LCD_WRITE(DD[3]+0x30,DA T); //WEEK就一位，可直接转换为ASCII 码BCD_2(DAY,DD[4]); //显示年，月，日BCD_2(MONTH,DD[5]);BCD_2(YEAR,DD[6]);if((DD[1]==0)&&DD[0]==0)//当整点时蜂鸣器响{ RC1=1;DELAY(200);}elseRC1=0;while(SET>=1) //功能键按下{ READ_DS1307(0x00,7);BCD_2(SECOND,DD[0]); //显示时，分，秒BCD_2(MINUTE,DD[1]);BCD_2(HOUR,DD[2]);LCD_WRITE(WEEK,COM);LCD_WRITE(DD[3]+0x30,DA T); //WEEK就一位，可直接转换为ASCII 码BCD_2(DAY,DD[4]); //显示年，月，日BCD_2(MONTH,DD[5]);BCD_2(YEAR,DD[6]);if(RB1==0){DELAY(150);CK++;if(CK>6)//总共7个数据，年...秒CK=0;}if(CK==0)CHG_YEAR();//修改年if(CK==1)CHG_MONTH();//修改月if(CK==2)CHG_DAY();//修改日if(CK==3)CHG_WEEK();//修改星期if(CK==4)CHG_HOUR();//修改时if(CK==5)CHG_MINUTE();//修改分if(CK==6)CHG_SECOND();//修改秒if(DD[0]&0x80==0x80) //判断CH=0?（且设定了初始值）{ WRITE_DS1307(0x00,DD[0]); //秒WRITE_DS1307(0x01,DD[1]); //分WRITE_DS1307(0x02,DD[2]); //时WRITE_DS1307(0x03,DD[3]); //星期WRITE_DS1307(0x04,DD[4]); //号WRITE_DS1307(0x05,DD[5]); //月WRITE_DS1307(0x06,DD[6]); //年}}}}//========初始化端口void CSH(){ INTCON=0b10011000;TRISD=0b00000000; //控制LCD1604,全为输出TRISB=0b00000111; //键盘输入TRISC=0b00011000; //RC3,RC4为IIC接口，必须设置为输入，RC1为输出TRISA=0b00010000; //A4为输入口ANSEL=0b00000000; //A、E口为口做I/O口ANSELH=0b00000000; //B口为口做I/O口OPTION=0b00000000; //B口若上拉WPUB=0b11111111; //弱上拉使能LCD_CSH(); //LCD初始化IIC_CSH(); //IIC初始化RC1=0; //蜂鸣器不响RD7=1; //背光}void DS1307(void){ WRITE_DS1307(0x07,0b00010000); //OUT口输出方波，频率为1HzREAD_DS1307(0x00,7); //读取DS1307值(7个数据）if(DD[0]&0x80==0x80) //判断CH=0?（且设定了初始值）{ WRITE_DS1307(0x00,0x00); //秒，55sWRITE_DS1307(0x01,0x59); //分，56minWRITE_DS1307(0x02,0x03); //时，23hWRITE_DS1307(0x03,0x04); //星期4WRITE_DS1307(0x04,0x27); //3号WRITE_DS1307(0x05,0x02); //5月WRITE_DS1307(0x06,0x08); //12年}LCD_WRITE(0b00001100,COM); //不闪LCD_WRITE(LINE1+1,COM); //第一行第1个字符LCD_WRITE(0x32,DA T); //在当前位置显示2LCD_WRITE(LINE1+2,COM); //第一行第2个字符LCD_WRITE(0x30,DA T); //在当前位置显示0LCD_WRITE(LINE1+5,COM); //第一行第5个字符LCD_WRITE('-',DA T); //在当前位置显示字符‘-’LCD_WRITE(LINE1+8,COM); //第一行第8个字符LCD_WRITE('-',DA T); //在当前位置显示字符‘-’LCD_WRITE(LINE1+11,COM); //第一行第11个字符LCD_WRITE('-',DA T); //在当前位置显示字符‘-’LCD_WRITE(LINE1+12,COM); //第一行第11个字符LCD_WRITE('W',DA T); //在当前位置显示字符‘W’LCD_WRITE(LINE1+13,COM); //第一行第11个字符LCD_WRITE('E',DA T); //在当前位置显示字符‘E’LCD_WRITE(LINE1+14,COM); //第一行第11个字符LCD_WRITE(':',DA T); //在当前位置显示字符‘:’LCD_WRITE(LINE2+5,COM); //第二行第5个字符LCD_WRITE(':',DA T); //在当前位置显示字符‘：’LCD_WRITE(LINE2+8,COM); //第二行第8个字符LCD_WRITE(':',DA T); //在当前位置显示字符‘：’LCD_WRITE(LINE2+14,COM); //第二行第14个字符LCD_WRITE(0xDF,DA T); //在当前位置显示字符‘°’LCD_WRITE(LINE2+15,COM); //第二行第15个字符LCD_WRITE('C',DA T); //在当前位置显示字符‘C’READ_DS1307(0x00,7);BCD_2(SECOND,DD[0]); //显示时，分，秒BCD_2(MINUTE,DD[1]);BCD_2(HOUR,DD[2]);LCD_WRITE(WEEK,COM);LCD_WRITE(DD[3]+0x30,DA T); //WEEK就一位，可直接转换为ASCII码BCD_2(DAY,DD[4]); //显示年，月，日BCD_2(MONTH,DD[5]);BCD_2(YEAR,DD[6]);}void DISP_TC74(signed char R1) //温度在R1{ LCD_WRITE(0b00001100,COM); //不闪LCD_WRITE(LINE2+12,COM); //DDRAM地址,第2行的第12个字符BCD(R1);LCD_WRITE(SW+0x30,DA T); //显示十位，数字加上0x30即为相应的ASCII码LCD_WRITE(GW+0x30,DA T); //显示个位，数字加上0x30即为相应的ASCII码}//LCD模块初始化void LCD_CSH(void){ DELAY(20); //延时20msLCD_WRITE_4(0b0011,COM); //发送控制序列DELAY_US(10); //延时100usLCD_WRITE_4(0b0011,COM); //发送控制序列DELAY_US(10); //延时100usLCD_WRITE_4(0b0011,COM); //发送控制序列DELAY_US(10); //延时100usLCD_WRITE_4(0b0010,COM); //4位数据格式LCD_BUSY(); //LCD忙检测LCD_WRITE(0b00101000,COM); //4位数据格式，4行，5×7点阵LCD_WRITE(0b00001100,COM); //D(d2)=1:打开显示,C(d1)=1:光标打开，B(d0)=1:光标闪烁LCD_WRITE(0b00000001,COM); //清除显示DELAY(2); //延时2msLCD_WRITE(0b00000110,COM); //输入模式,I/D(d1)=1:地址加1,S(d0)=1:显示移位关闭}//========读LCD状态char LCD_READ(void){ char R1;TRISD|=0x0F; //LCD数据线为输入LCD_RS=0; //寄存器选择LCD_RW=1;NOP(); //读为1LCD_E=1;NOP(); //使能R1=0; //短延时R1=PORTD&0x0F;LCD_E=0;NOP();LCD_E=1;NOP(); //使能R1=R1<<4; //读数据的高4位给R1高4位R1|= PORTD&0x0F; //读PORTD的0-3位,R1的高4位不变LCD_E=0;NOP(); //读数据结束LCD_RW=0;TRISD&=0xF0; //LCD数据线为输出return (R1);}//写一字节数R1,FLAG为写命令或数据选择,0为写命令,1为写数据//写之前先检查是否忙,写完后延时100us，分二次写4位数据/命令void LCD_WRITE(char R1,char FLAG){ char R2;LCD_BUSY();R2=R1&0xF0; //低4位清0R2=R2>>4; //取高4位LCD_WRITE_4(R2,FLAG); //先写高4位R2=R1 & 0x0F; //高4位清0，取低4位LCD_WRITE_4(R2,FLAG); //再写低4位DELAY_US(10); //延时100us}//写R1的低4位,FLAG为寄存器选择,1为命令,0为数据void LCD_WRITE_4(char R1,char FLAG){ LCD_RW=0; //写模式LCD_RS=FLAG; //寄存器选择PORTD&= 0xF0;; //RD的数据4位清0LCD_E=1; //使能PORTD|=R1; //送R1的低4位至RD口的高4位NOP();NOP(); //短延时LCD_E=0; //数据送入有效LCD_RS=0;PORTD&=0xF0; //RD的数据低4位清0}//========检测LCD是否忙void LCD_BUSY(void){ unsigned char R1;while(1){ R1=LCD_READ(); //读寄存器if ((R1 & 0x80)==0x00) //最高位为忙标志位break;};}//在line行显示整行,共16个字符,字符在数组DD中,注意显示字符直接将字符放入DD数组//而显示数字时则要将数值转换成显示的ASC码void DISP_C(char line){char i;LCD_WRITE(line,COM); //写行命令for (i=0;i<16;i++)LCD_WRITE(DD[i],DA T); //写16个数据,即显示1行}//完全按照数组中的字符显示整屏void DISP_MENU(const char *A){char i,j;for (i=0;i<2;i++){ for (j=0;j<16;j++)DD[j]=*A++;A++; //因为末尾还有结束字符!DISP_C(LINE[i]);}}//写DS1307，地址为address,数为datavoid WRITE_DS1307(char address,char data){ SEN=1;while(SEN==1); //起始位发送完成IIC_SEND(ADDR);IIC_SEND(address);IIC_SEND(data);PEN=1; //发送停止位while(PEN==1);}//读DS1307，读出的结果在START_ADDR,要读的数字节数位n //当START_ADDR=0，n=7时为时间void READ_DS1307(char START_ADDR,char n){ char i;SEN=1;while(SEN==1); //起始位发送完成IIC_SEND(ADDR); //写寄存器地址IIC_SEND(START_ADDR); //设定寄存器初始地址PEN=1; //发送停止位while(PEN==1);RSEN=1; //发送重新起始位while(RSEN==1); //发送重新起始位完成IIC_SEND(ADDR+1); //最后低位为1表示读for(i=0;i<n;i++) //共n个数{ RCEN=1; //读使能while(RCEN==1); //等待读完成DD[i]=SSPBUF; //读1字节if(i<n-1){ACKDT=0;ACKEN=1;while(ACKEN==1);}else{ACKDT=1;ACKEN=1;while(ACKEN==1);} //最后一个字节不应答}PEN=1; //发送停止位while(PEN==1);}//读TC74的温度值signed char READ_TC74(void){ signed char R1;SEN=1; //开始条件while (SEN==1); //检测开始条件是否完成？IIC_SEND(TC74_ADD<<1);//送TC74地址（写）IIC_SEND(RTR); //写RTR命令(写)RSEN=1; //重新开始条件while (RSEN==1); //等待重新开始条件结束IIC_SEND((TC74_ADD<<1)+1);//发送TC74地址（读）RCEN=1; //接收使能while (RCEN==1); //等待接收完成R1=SSPBUF; //接收数据存入R1PEN=1; //停止位while(PEN==0);return(R1);}//发送数R并等待发送完成，收到从机的应答信号void IIC_SEND(char R){ SSPBUF=R; //发送while (RW==1); //在主动模式下，判断发送是否完成while (SSPIF==0); //等待发送完成while (ACKSTA T==1); //等待从机发送应答信号}//IIC初始化void IIC_CSH(void){ TRISC&=0b00011000; //SDA,SCL设置为输入！SSPCON=0b00101000; //同步串口使能(SSPEN)，主控方式SMP=0; //使能高速模式(400 kHz) 的压摆率控制SSPADD=4; //主控模式为波特率值,每位时间T=(SSPADD+1)/Tcy=5us}void BCD_2(char add,char dat) //两位数显示{char shi,ge;shi=dat>>4; //取高位ge=dat&0x0F; //取低位LCD_WRITE(add,COM);LCD_WRITE(shi+0x30,DA T);LCD_WRITE(ge+0x30,DA T);}//从R1双字节数转换为十进制数十位-个位:SW,GWvoid BCD(unsigned int R1){ SW=0;GW=0;while(R1>=10){R1-=10; SW++;}GW=R1;}//======延时(n)msvoid DELAY(unsigned int n){unsigned int j;char k;for (j=0;j<n;j++)for (k=246;k>0;k--) NOP();}//======延时(n)ms,中断专用void DELAY_I(unsigned int n){ unsigned int j;char k;for (j=0;j<n;j++)for (k=246;k>0;k--) NOP();}//======延时(n×10)usvoid DELAY_US(char n){ char j;for (j=0;j<n;j++){NOP();NOP();}}void interrupt ISR(void)//INT中断，统计功能键{if(INTF==1){DELAY_I(30);//躲过震荡INTF=0;//清中断标志位SET++;//按下一次if(SET>=2)//按下两次，清零SET=0;}}void CHG_YEAR(void){if(RA4==1){ LCD_WRITE(YEAR+1,COM);//修改年，显示空LCD_WRITE(' ',DA T);}if(RB2==0){DELAY(150);DD[6]++;if((DD[6]&0X0F)>9)//低位大于9{DD[6]=DD[6]+6;}if(DD[6]>0x99)DD[6]=0x00; //大于2099年，复位2000年BCD_2(YEAR,DD[6]);//显示修改后的值}BCD_2(YEAR,DD[6]);}void CHG_MONTH(void){if(RA4==1){LCD_WRITE(MONTH+1,COM);//修改年，显示空LCD_WRITE(' ',DA T);}if(RB2==0){DELAY(150);DD[5]++;if((DD[5]&0X0F)>9)//低位大于9{DD[5]=DD[5]+6;}if(((DD[5]&0X0F)>2)&&((DD[5]&0xF0)>0))//月份大于12DD[5]=0X01;BCD_2(MONTH,DD[5]);//显示修改后的值}BCD_2(MONTH,DD[5]);}void CHG_DAY(void){if(RA4==0){LCD_WRITE(DAY+1,COM);//修改年，显示空LCD_WRITE(' ',DA T);}if(RB2==0){DELAY(150);DD[4]++;if((DD[5]==1)||(DD[5]==3)||(DD[5]==5)||(DD[5]==7)||(DD[5]==8)||(DD[5]==0x10)||(DD[5]==0x 12))//大月{if((DD[4]&0x0F)>9) //低位大于9,进十位DD[4]=DD[4]+6;if(DD[4]>0x31)DD[4]=0x01; //大于31号，复位1号}if(DD[5]==2) //月份2{if((DD[4]&0x0F)>9) //低位大于9,进十位DD[4]=DD[4]+6;if(DD[6]%4==0||(DD[ 6]==0x12)||(DD[6]==0x16)||(DD[6]==0x32)||(DD[6]==0x36)||(DD[5]==0x 52)||(DD[5]==0x56)){if(DD[4]>0x29)DD[4]=0x01; //大于29号，复位1号}else{if(DD[4]>0x28)DD[4]=0x01; //大于28号，复位1号}}if((DD[5]==4)||(DD[5]==6)||(DD[5]==9)||(DD[5]==0x11))//小月{if((DD[4]&0x0F)>9) //低位大于9,进十位DD[4]=DD[4]+6;if(DD[4]>0x30)DD[4]=0x01; //大于30号，复位1号}BCD_2(DAY,DD[4]);//显示修改后的值}BCD_2(DAY,DD[4]);//显示修改后的值}void CHG_WEEK(void){if(RA4==0){LCD_WRITE(WEEK,COM);//修改年，显示空LCD_WRITE(' ',DA T);DELAY(300);}if(RB2==0){DELAY(150);DD[3]++;if(DD[3]>7)//星期大于7DD[3]=1;LCD_WRITE(WEEK,COM);LCD_WRITE(DD[3]+0x30,DA T);}LCD_WRITE(WEEK,COM);LCD_WRITE(DD[3]+0x30,DA T);}void CHG_HOUR(void){if(RA4==0){LCD_WRITE(HOUR+1,COM); //修改小时，显示空LCD_WRITE(' ',DA T);DELAY(300);}if(RB2==0){DELAY(150);DD[2]++;if((DD[2]&0X0F)>9) //低位大于9{DD[2]=DD[2]+6;}if(((DD[2]&0X0F)==4)&&((DD[2]&0xF0)==0x20))//时间大于24DD[2]=0X00;BCD_2(HOUR,DD[2]); //显示修改后的值}BCD_2(HOUR,DD[2]); //显示修改后的值}void CHG_MINUTE(void){if(RA4==1){LCD_WRITE(MINUTE+1,COM); //修改年，显示空LCD_WRITE(' ',DA T);DELAY(300);}if(RB2==0){DELAY(150);DD[1]++;if((DD[1]&0x0F)>9) //低位大于9{DD[1]=DD[1]+6;}if((DD[1]&0xF0)>0x59) //时间>=60DD[1]=0x00;BCD_2(MINUTE,DD[1]); //显示修改后的值}BCD_2(MINUTE,DD[1]); //显示修改后的值}void CHG_SECOND(void){if(RA4==1){LCD_WRITE(SECOND+1,COM); //修改年，显示空LCD_WRITE(' ',DA T);DELAY(300);}if(RB2==0){DELAY(150);DD[0]++;if((DD[0]&0x0F)>9) //低位大于9{DD[0]=DD[0]+6;}if(DD[0]>0x59) //时间>=60DD[0]=0x00;BCD_2(SECOND,DD[0]); //显示修改后的值}BCD_2(SECOND,DD[0]); //显示修改后的值}。