闹钟

winnie

#include<pic.h>
#include<string.h>
#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] ;
            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 = R1302(ucAddr);///*格式为: 秒 分 时 日 月 星期 年 */
      ucAddr += 2;                                                  ////
   }                                                                ////
}                                                                   ////
//////////拆字子程序////////////////////////////////////////////////////
void  bcd_bcd( uchar  x )
  {  uchar  i,b, a=1;
      i=x;
     for (b=0;b<2;b++)
     {
           appear=(get1302[a]&0xf0)>>4;
           i++;
           appear=get1302[a]&0x0f;
           i++;
           a--;
     }
}                                                                   ////
////////蜂名器//////////////////////////////////////////////////////////
void  F_m()
{   
    uchar a =8;
    while(a--)
   {
      Fm=!Fm;
      delay(10);//延时子程序
     // Fm=1;
    }  

}
//////////按键扫描//////////////////////////////////////////////////////
void   Key()
   {
       uchar a,b,i, d,c,e;
      if(( KS3==0)||(KS2==0))
      {  a=20;
        
           F_m();
          while(a--) display(0);//延时再判断
         if(56!=(PORTA&56))
         {
         
              if (KS3==0){b=0;i=4;c=0;e=0; myFlag.oneBit.b0=1;}//点长亮//是 时钟设置
              else       {b=0;i=8;c=4;e=4; myFlag.oneBit.b1=1;myFlag.oneBit.b0=0;}// 是 闹钟设置
               while( KS3==0||KS2==0) display(e);//等待抬起
                di();
                d=0;
                //b=0;i=4;
            while (c<i&&d<20)//选择被调整数
             {   
                 uchar  z,x;
                 for(z=50;z>0&&c<i;z--)//亮50次
                  {   z--;
                  
                      display(e);
                      a=PORTA&56 ;
                      switch(a)
                        {  // display(e);
                           case 48 : if( appear[c]!= Ds1302) //110 ks1=0
                                         appear[c]++;
                                          F_m();
                                       if(appear[e]==2&&appear[e+1]>3)appear[e+1]=0;
                                         
                                     for(x=20;x>0&&56!=(PORTA&56);x--)
                                        display(e);d=0; break;
                           case 40 : if(appear[c]!=0) //101 ks2=0
                                      appear[c]--;
                                       F_m();
                                    for(x=20;x>0&&56!=(PORTA&56);x--)
                                       display(e); d=0; break;
                            case 24 :  c++;b++; F_m();   while( KS3==0) display(e);d=0; break; //011 ks3=0
                         }
                    }
                       if (c<i)
                        {
                          for(z=50; z>0&&56==(PORTA&56);z--)//被调整数闪烁程序
                          {  uchar i;
                            i=appear[c];
                            appear[c]=10;
                            display(e);
                            appear[c]=i;
                          } d++;
                        }
                }
               
                 
                    while( KS3==0)display(0);
                      if(e==0)   { i=3; c=2;}
                      else       { i=7; c=6;}
                     for(b=1;b<3;b++)
                     {
                        DisCash=((appear[c]&0x0f)*16)|(appear&0x0f);//合字
                        i=i-2;
                        c=c-2;
                      }
                      if(e==0)  Set1302(&DisCash[0],0x80);//写1302 DisCash[0]=0;DisCash[1]=dtat;DisCash[2]=dtat
                       else     Set1302(&DisCash[0],0x0C0);//写1302 RAM
                  myFlag.oneBit.b1=0;         
           }
     }
}
//系统 各I/O初始化子程序
void  initial ()
{   TRISB=0;
    TRISC=2;
    ADCON1=7;;//设置RA为IO口
    TRISA=0x38;
    PORTC=1;
   
   
   }
void main()
  {
        initial ();  //系统 各I/O初始化子程序
        temp=50;
        temp1=10;
         v_Get1302(get1302,0x0C3);//从1302读出RAM  
         bcd_bcd(4);//拆字子程序  
       while(1)
       {  
          v_Get1302(get1302,0x83);//从1302读出 秒 分 时 日 月 星期 年
          bcd_bcd(0);//拆字子程序
          display(0);//显示程序  
          Key();
          temp=temp--;//点闪记时
          if( temp==0){ temp=50;  myFlag.oneBit.b0=!myFlag.oneBit.b0; FMbit=!FMbit; }
          if(appear[0]==appear[4]&&appear[1]==appear[5]&&appear[2]==appear[6]&&appear[3]==appear[7]&&FMbit)
               {
                  if(temp1==0)
                   {
                   Fm=!Fm; temp1=10;
                   }temp1--;
                 }
               
               else Fm=1;
        }
}