十年专注单片机方案开发的方案公司英锐恩，分享PIC单片机开发闹钟程序。英锐恩现提供服务产品涉及主控芯片：8位单片机、16位单片机、32位单片机及各类运算放大器等。
#include
#include
#define uchar unsigned char
#define uint unsigned int
#define T_IOIO TRISA1
#define KS1 RA3
#define KS2 RA4
#define KS3 RA5
#define T_CLK RA0
#define T_IO RA1
#define T_RST RA2
#define Fm RC0
union {
struct {
unsigned b0:1;
unsigned b1:1;
unsigned b2:1;
unsigned b3:1;
unsigned b4:1;
unsigned b5:1;
unsigned b6:1;
unsigned b7:1;
}oneBit;
unsigned char allBits;
} myFlag;
union {
struct {
unsigned b0:1;
unsigned b1:1;
unsigned b2:1;
unsigned b3:1;
unsigned b4:1;
unsigned b5:1;
unsigned b6:1;
unsigned b7:1;
}tpBit;
unsigned char tpBits;
} tp;
#define acc0 tp.tpBit.b0
#define acc7 tp.tpBit.b7
#define acc tp.tpBits
#define FMbit myFlag.oneBit.b2
const unsigned char table[11]={ 0x0C0, 0x0F9, 0x0A4,0x0B0, 0x99, 0x92,0x82, 0x0F8,0x80,0x90,0xff};
const unsigned char Ds1302[] = {2, 9, 5,9};//被调整数据上下对比值
// // 时 分
//////////ROM区///////////////
uchar BCD[4];//数据送LED的数据 暂存区
//uchar Reeprom[6];
uchar appear[8];//2送LED的数据 暂存区
uchar get1302[4];//从1302读出 秒 分 时 日 月 星期 年 暂存区
uchar DisCash[3];//合字->1302
unsigned char temp,temp1;
//延时子程序
void delay(unsigned int i )
{
while(i--);
}
void display(unsigned char x)//显示程序
{
unsigned char b,c ,i;
i=x;
b=0x10;
for(c=0;c<4;c++)
{
PORTB=table[ appear[i]] ;
if(( myFlag.oneBit.b0==1)&& (c==1)) RB7=0;//点闪
if(( myFlag.oneBit.b1==1)&& (c==2)) RB7=0;//点闪
PORTC=(PORTC&0x0f)|b;
CLRWDT();
delay(300);//延时子程序
b=b<<1;
i=i++;
}
}
/////往1302写入1Byte数据////////////////////////////////////////////////
void RTInputByte(uchar d) ////
{ ////
uchar i; ////
acc = d; // tp.tpBits// ////
T_IOIO=0; ////
for(i=8; i>0; i--) ////
{ ////
T_IO = acc0;//CARRY;//ACC0; //*相当于汇编中的 RRC */ ////
T_CLK = 1; ////
T_CLK = 0; ////
acc = acc >> 1; ////
} ////
} ////
///////从1302读取1Byte数据//////////////////////// ////
uchar RTOutputByte(void) ////
{ ////
uchar i; ////
T_IOIO=1; ////
for(i=8; i>0; i--) ////
{ ////
acc = acc >>1; //*相当于汇编中的 RRC */ ////
acc7= T_IO;// CARRY ////
T_CLK = 1; ////
T_CLK = 0; ////
} ////
return(acc); ////
} ////
///////先写地址，后写命令/数据////////////////////////// ////
void W1302(uchar ucAddr, uchar ucDa) ////
{ ////
T_RST = 0; ////
T_CLK = 0; ////
T_RST = 1; ////
RTInputByte(ucAddr); // /* 地址，命令 */ ////
RTInputByte(ucDa); // /* 写1Byte数据*/ ////
T_CLK = 1; ////
T_RST = 0; ////
} ////
///////先写地址，后读命令/数据//////////////////////// ////
uchar R1302(uchar ucAddr) ////
{ ////
uchar ucData; ////
T_RST = 0; ////
T_CLK = 0; ////
T_RST = 1; ////
RTInputByte(ucAddr); // /* 地址，命令 */ ////
ucData = RTOutputByte(); // /* 读1Byte数据 */ ////
T_CLK = 1; ////
T_RST = 0; ////
return(ucData); ////
} ////
/////////向1302写入 秒 分 时 日 月 星期 年 *///////////// ////
void Set1302(uchar *pClock ,uchar a ) ////
{ ////
uchar i; ////
uchar ucAddr = a;//0x80;// 秒. 分 /0x0C0 RAM ////
W1302(0x8e,0x00); ///* 控制命令,WP=0,允许写操作*/ ////
for(i =3; i>0; i--) ////
{ ////
W1302(ucAddr,*pClock); ///* 秒 分 时 日 月 星期 年 */ ////
pClock++; ////
ucAddr +=2; ////
} ////
W1302(0x8e,0x80); // /* 控制命令,WP=1,写保护*/ ////
} ////
////////从1302读出 秒 分 时 日 月 星期 年 *////////////////// ////
void v_Get1302(unsigned char ucCurtime[],uchar a) ////
{ ////
unsigned char i; ////
unsigned char ucAddr = a;//0x83 分 0x0C1 RAM ////
for (i=0;i<2;i++) ////
{ ////
ucCurtime[i] = R1302(ucAddr);///*格式为: 秒 分 时 日 月 星期 年 */
ucAddr += 2; ////
} ////
} ////
//////////拆字子程序////////////////////////////////////////////////////
void bcd_bcd( uchar x )
{ uchar i,b, a=1;
i=x;
for (b=0;b<2;b++)
{
appear[i]=(get1302[a]&0xf0)>>4;
i++;
appear[i]=get1302[a]&0x0f;
i++;
a--;
}
} ////
////////蜂名器//////////////////////////////////////////////////////////
void F_m()
{
（文源网络，侵删）
.png)
2.png)
