1302__.c

DS1302时钟驱动程序

}
//************************************




//************************************
//显示英文字符串函数
//说明：输入参数x_h:字符串行坐标(0-15),y_l:字符串起始列坐标(0-29)，word_list：字符串指针，（提示：当本行写满时，会自动换行）
//************************************
void En_List(unsigned char x_h,unsigned char y_l,unsigned char *word_list)
{
  unsigned char length=0;
  while(word_list[length]!=0x00)    	   //判断是否字符串结束,将字符串拆分成为单个字符轮流显示
	{
	  word(x_h+length/Line_Len,y_l+length%256,word_list[length++]-32);	   //得到实际行坐标和列坐标，调用显示当前单字符
	}
  Send_lcd(2,0,0,0x24);					   //光标回位
}
//************************************
 
void chinese(unsigned char x_h,unsigned char y_l,unsigned char dat)
{
   unsigned int sum;
   dat=0x80+dat*4;                                 //得到实际地址

   sum=(unsigned int)(x_h)*(unsigned int)(Line_Len)+(unsigned int)y_l;					   //得到当前字符位置
   y_l=sum%256;                                    //得到显示列数
   x_h=sum/256;									   //得到显示行数
   Send_lcd(2,y_l,x_h,0x24);					   //置显示地址
   Send_lcd(1,dat,0x00,0xc0);					   //送显示值--汉字左上部分 
   Send_lcd(1,dat+2,0x00,0xc0);					   //送显示值--汉字右上部分
   sum=sum+Line_Len;							   //修正下半部分字符位置
   y_l=sum%256;									   //得到显示列数
   x_h=sum/256;									   //得到显示行数
   Send_lcd(2,y_l,x_h,0x24);					   //置显示地址
   Send_lcd(1,dat+1,0x00,0xc0);					   //送显示值--汉字左下部分 
   Send_lcd(1,dat+3,0x00,0xc0);					   //送显示值--汉字右下部分
   Send_lcd(2,0,0,0x20);
}

//************************************
//画实点函数
//说明：该函数可以产行屏幕上的任意位置上的点,输入参数,X:行坐标(0-127)Ｙ:列坐标(0-239)
//************************************ 

void Point(unsigned char X,unsigned char Y)
{
   unsigned int Sum;						       
   Sum=(unsigned int)(X)*(unsigned int)(Line_Len)*8+(unsigned int)Y;							   //得到当单位置前的点阵和
   Send_lcd(2,Sum/8,Sum/2048+0x08,0x24);		   //换算出实际行列坐标，并将操作地址写入lcd
   Send_lcd(0,0x00,0x00,(0x07-Y%8)|0xf8); 		   //换算出当前位，将该位置１显示
} /**/
void shuxian(unsigned char x,unsigned char y,unsigned int w,unsigned char weishu)
{unsigned char i;
 for(i=0;i<weishu;i++)
 {word(x,y+weishu-i-1,w%10+16);
  w=w/10;
  if(w==0)break;
  }
 }
//*************************************

//*************************************
//画直线函数
//说明:需要用到画实心点函数Point(x,y),无需借助全局变量
//传入参数:x1,y1:直线起点行列坐标值(0<=x1<=127)(0<=y1<=239)
//传入参数:x2,y2:直线终点行列坐标值(0<=x2<=127)(0<=y2<=239)
//提示:本函数数支持斜率为0和无穷大直线的描绘,当起点和终点相同量,将产生一个实心点
//************************************* 
/*
void Line(unsigned char x1,unsigned char y1,unsigned char x2,unsigned char y2)
{
   unsigned char temp,i;
   float k;
   signed char j;				   
   if(y1>y2){temp=x2;x2=x1;x1=temp;temp=y2;y2=y1;y1=temp;}    //变换次序,得到y2>y1的形式;
   if(y1==y2)												  //当斜率无穷时
     {
	   if(x1>x2)											  //对行坐标排序
	     {for(i=x2;i<=x1;i++)Point(i,y1);}					  //画竖线从上到下
	   else
	     {for(i=x1;i<=x2;i++)Point(i,y1);}	 
	 }
   else														  //当斜率为有限值时
   {  
      k=(float)y1-y2;									      //得到列差
	  j=x2-x1;												  //得到行差
      k=(float)j/k;	  	  	  								  //得到直线斜率
      if(k==0)												  //当斜率为零时
        {for(i=y1;i<=y2;i++)Point(x1,i);}					  //从左至右画直线
      else													  //当斜率不为零时
	    {for(i=y1;i<=y2;i++)Point(x1-(i-y1)*k,i);}	 	 	  //按列值从左至右画直线	
    }
}        */
//**************************************



//**********************************************************************************************************
//画直角坐标系
//说明:本函数功能的实现要用到画实心点函数Point(x,y),Line(x1,y1,x2,y2)无需用到全局变量参数
//传入参数:xo,yo:直角坐标系的原点行列坐标值,x_t,y_t:直角坐标系竖轴和横轴的长度值
//传入参数:x,y:直角坐标系的竖轴和横轴上该度间距,mark:直角坐标系标志:mark=0时,将以起点坐标为原点仅画出第一象限,
//         mark=1时将以起点坐标为原点画出四象限坐标系,但会占满全屏幕,并且x_t和y_t此时将被忽略
//提示:当x和y值超过240时,将会失去轴线上的该度标识,本函数画出的坐标系在轴的末端带有实心箭步头
//********************************************************************************************************** 
/*
void Zjzb(unsigned char xo,unsigned char yo,unsigned char x_t,unsigned char y_t,unsigned char x,unsigned char y,unsigned char mark)
{
    unsigned char P_x,P_y,i;
	P_x=xo-x_t;											 //得到竖轴终点行坐标值
	P_y=yo+y_t;											 //得到横轴终点列坐标值
    switch (mark)										 //判断坐标系的类型
	  {
	      case 0: 										 //第一象限坐标系
		      Line(xo,yo,P_x,yo);Line(xo,yo,xo,P_y);	 //画纵轴和横轴
			  //------------------------------------------纵轴末端打箭头
			  P_x+=1;Point(P_x,yo-1);Point(P_x,yo+1);
			  P_x+=1;Point(P_x,yo-2);Point(P_x,yo-1);
			  Point(P_x,yo+1);Point(P_x,yo+2);	  
			  //------------------------------------------横轴末端打箭头
			  P_y-=1;Point(xo-1,P_y);Point(xo+1,P_y);
			  P_y-=1;Point(xo-2,P_y);Point(xo-1,P_y);
			  Point(xo+1,P_y);Point(xo+2,P_y);	  
			  //--------------------------------------------
			  P_x=(x_t-3)/x;							  //得到竖轴刻度标志总数
			  for(i=0;i<=P_x;i++)						  //画竖轴刻度标志
			     {Point(xo-i*x,yo+1);Point(xo-i*x,yo+2);Point(xo-i*x,yo+3);}
		      P_y=(y_t-3)/y;							  //得到横轴刻度标志总数
			  for(i=0;i<=P_y;i++)						  //画横轴刻度标志
			     {Point(xo-1,yo+i*y);Point(xo-2,yo+i*y);Point(xo-3,yo+i*y);}
			  break;
		  	  //-------------------------------------------			  
		  case 1:										  //四象限坐标系
		       Line(0,yo,127,yo);Line(xo,0,xo,239);       //画横竖轴
			   break; 
	      default:break;	  
	  }
}   */
//***********************************************************************************************************
#define sck    PORTA.0
#define io     PORTA.1
#define io_in  PINA.1
#define io_en  DDRA.1
#define rest   PORTA.2
unsigned char DAA(unsigned char w)
{unsigned char k1;
 unsigned char k2;
 k1=w&0x0f;
 k2=w>>4;
 k2=k2&0x0f;
 return k2*10+k1;
 }
void sendbyte(unsigned char w)
{unsigned char i=0;
 rest=1;  //启动数据传输，开始传输数据
 for(i=0;i<8;i++)
 //while(1)
  {if(w&0x01)
     io=1;
       else 
        io=0;
   #asm
   NOP 
   NOP 
   #endasm
   sck=0;
   #asm
   NOP 
   NOP 
   #endasm
   sck=1;
   w=w>>1;
   }
 } 

unsigned char  receive()
{unsigned char temp=0;
 unsigned char i=0;
 rest=1;//启动数据传输
 io_en=0;//将数据口置位输入模式
 for(i=0;i<8;i++)
  {temp=temp>>1;
   sck=1;
   #asm
   NOP 
   NOP 
   #endasm
   sck=0;
   #asm
   NOP 
   NOP 
   #endasm
   if(io_in)temp|=0x80;
    else temp&=0x7f;
   
   }
 io_en=1;
 return temp;  
 } 
void wr1302(unsigned char address,unsigned char data)
{io_en=1;//将数据口置为输出状态
 rest=0;
 sck=0;
 rest=1;
 sendbyte(address);
 sendbyte(data);
 rest=0;
 io=1;
 }
unsigned char  read1302(unsigned char address)
{unsigned char temp=0;
 io_en=1;//将数据口置为输出状态
 rest=0;
 #asm
 NOP 
 NOP 
 #endasm
 sck=0;
 rest=1;
 sendbyte(address);
 temp=receive();
 rest=0;
 io=1; 
 return temp;
 }
main()
{unsigned char k=0;
 unsigned char k2=0;
 unsigned char k3=0;
 unsigned char i=0;
 DDRA=0x0f;
 PORTA=0x0f;
 delay_ms(300);
 rest_lcd(); 
 for(i=0;i<11;i++)chinese(0,4+2*i,i);
 chinese(2,9,18);
 chinese(2,11,19);
 chinese(2,13,11);
 chinese(2,15,12);  //1302时钟
 
 chinese(6,9,13);
 chinese(6,13,14);
 chinese(6,17,15);  //年月日 
 word(7,5,18);
 word(7,6,16);
 word(7,7,16);
 
 chinese(9,9,11);
 chinese(9,13,16);
 chinese(9,17,17);  //时分秒 
 
 chinese(12,11,20);
 chinese(12,13,21); 
 
 
 xianshi(12345678,0);
 wr1302(0x8e,0x00);//允许写入数据
 //wr1302(0xbf,0x00);
 //wr1302(0x84,0x16);
 //wr1302(0x82,0x56);
 
 k=read1302(0x81);
 wr1302(0x90,0xa7);
 //k=DAA(k); 
 if(k&0x80)
 {wr1302(0x80,0x00);
  } 
  /*
 //初始化程序
 wr1302(0x80,0x00);//秒
 wr1302(0x82,0x17);//分
 wr1302(0x84,0x13);//时
 wr1302(0x86,0x27);//日
 wr1302(0x88,0x01);//月
 wr1302(0x8a,0x06);//周
 wr1302(0x8c,0x07);//年
 ///
*/
 while(1)
 {//wr1302(0xc0,0x08);
  k=read1302(0x81);
  k=DAA(k);
  k2=read1302(0x83);
  k2=DAA(k2);
  k3=read1302(0x85);
  k3=DAA(k3);
  shuxian(10,15,k,2);
  shuxian(10,11,k2,2);
  shuxian(10,7,k3,2);
  
  //xianshi((long)k3*10000+(long)k2*100+k,0);
   
  k=read1302(0x87);
  k=DAA(k);
  k2=read1302(0x89);
  k2=DAA(k2);
  k3=read1302(0x8d);
  k3=DAA(k3);
  shuxian(7,15,k,2);
  shuxian(7,11,k2,2);
  shuxian(7,7,k3,2);
  
  k=read1302(0x8b);
  k=DAA(k);
  shuxian(13,15,k,2);
  
  delay_ms(1000);
  }
 }