/*****************************************************************************
门禁体系项目驱动程序
(1)晶振 11.0592MHZ
(2)芯片 DS1302,AT24C64,HEF4053BP
(3)ZIMO21.EXE纵向、字节倒序取字模
(4)完好代码下载（包括头文件）：http://www.51hei.com/f/12154f.rar
*****************************************************************************/
#include “reg51.h”
#include “intrins.h”
#include “7041_Door.h”//字模
#define LCD_DATA P1//液晶屏数据输入
#define EEAddr EAddr.All//AT24C64片内地址
#define EAddrH EAddr.array[0]
#define EAddrL EAddr.array[1]
#define uchar unsigned char
#define uint unsigned int
union Add{ //界说EEPROM地址
uint All;
uchar array[2];
}EAddr;
uchar Sto = 1,Del = 0;
uint DelCount;//定时器中止中用于延时的变量DelCount
uchar Function = 0;//按键功用变量Function
uchar SCount = 0;//串行中止中用于计数卡号信息的循环变量
bit TimeDisFlag = 0,KEndFlag = 0,StoreFlag = 0,DeleteFlag = 0,SwitchFlag = 0,WXFlag = 0,NSK12Flag = 0;//操控时刻显现标志位TimeDisFlag,14位卡号接纳完的标志KEndFlag
uchar CardNo[14] = {0},GetTime[7],RD24C64[32] = 0,CardMax = 0,CardNum = 0;//存储读到的卡号CardNo[14],存储从1302读到的时刻GetTime[7],存入卡的个数CardMax
/*———————————界说P口———————————–*/
sbit LCD_RS = P2^7; //LCD12864
sbit LCD_RW = P2^6;
sbit LCD_E = P2^5;
sbit LCD_CS1 = P2^4;
sbit LCD_CS2 = P2^3;
sbit Busy = P1^7;
sbit Motor2 = P3^7;
sbit Motor1 = P3^6;
sbit SDA_24C64 = P3^5;//AT24C64
sbit SCL_24C64 = P3^4;
sbit CLK_1302 = P2^2;//DS1302
sbit IO_1302 = P2^1;
sbit RST_1302 = P2^0;
sbit RS_485 = P3^2;//485R/S，其为1时答应发送，为0时答应接纳
sbit CON_4053 = P3^3;//通讯操控，其为1时读卡，为0时485通讯
sbit KEY1 = P0^0;//界说按键
sbit KEY2 = P0^1;
sbit KEY3 = P0^2;
sbit KEY4 = P0^3;
/***************************液晶屏驱动程序*********************************/
void LCD_BusyCheck(bit BCS){//检测忙子程序
LCD_DATA = 0xff;//LCD_RS = 0,LCD_RW = 1,LCD_E = 高电平。
LCD_RS = 0;
LCD_RW = 1;
if(BCS){//检测片1忙状况
LCD_CS1 = 1;
LCD_E = 1;
while(Busy);
LCD_E = 0;
LCD_CS1 = 0;
}
else{//检测片2忙状况
LCD_CS2 = 1;
LCD_E = 1;
while(Busy);
LCD_E = 0;
LCD_CS2 = 0;
}
}
void LCD_Write_Code(uchar WCode,bit CS){//写指令子程序
LCD_BusyCheck(CS);//调用忙检测子程序：写前检测
LCD_DATA = WCode;
LCD_RS = 0;//LCD_RS = 0,LCD_RW = 0,LCD_E = 高脉冲。
LCD_RW = 0;
if(CS){//检测片1忙状况
LCD_CS1 = 1;
LCD_E = 1;
_nop_();
LCD_E = 0;
LCD_CS1 = 0;
}
else{//检测片2忙状况
LCD_CS2 = 1;
LCD_E = 1;
_nop_();
LCD_E = 0;
LCD_CS2 = 0;
}
}
void LCD_Write_Data(uchar WData,uchar CS){//写数据子程序
LCD_BusyCheck(CS);//调用忙检测子程序：写前忙状况检测
LCD_DATA = WData;
LCD_RS = 1;//LCD_RS = 1,LCD_RW = 0,LCD_E = 高脉冲。
LCD_RW = 0;
if(CS){//检测片1忙状况
LCD_CS1 = 1;
LCD_E = 1;
_nop_();
LCD_E = 0;
LCD_CS1 = 0;
}
else{//检测片2忙状况
LCD_CS2 = 1;
LCD_E = 1;
_nop_();
LCD_E = 0;
LCD_CS2 = 0;
}
}
void LCD_Write(uchar xpos,uchar ypos,uchar WData){//写屏子(地址转化)程序
uchar WCS;
if(xpos < 64)WCS = 1;//判别即将操作片1或片2：WCS = 1操作LCD_CS1
else WCS = 0;//WCS = 2 操作LCD_CS2
ypos &= 0x07;//页地址转化
ypos |= 0xb8;
LCD_Write_Code(ypos,WCS);//写入页地址到对应片
xpos &= 0x3f;//列地址转化
xpos |= 0x40;
LCD_Write_Code(xpos,WCS);//写入列地址到对应片
LCD_Write_Data(WData,WCS);//写入数据到对应片
}
void LCD_Data_DisWord(uchar xpos,uchar ypos,uchar array[]){//汉字显现子程序:12*16
uchar Cnt = 0,x = 0,y = 0;
for(y = ypos;y < ypos + 2;y ++){
for(x = xpos;x < xpos + 12;x ++,Cnt ++)
LCD_Write(x,y,array[Cnt]);//调用写屏子程序：在对应的地址上写入要显现的内容
}
}
void LCD_Data_DisNum(uchar xpos,uchar ypos,uchar array[]){//数字及符号显现子程序:6*16
uchar Cnt = 0,x = 0,y = 0;
for(y = ypos;y < ypos + 2;y ++){
for(x = xpos;x < xpos + 6;x ++,Cnt ++)
LCD_Write(x,y,array[Cnt]);//调用写屏子程序：在对应的地址上写入要显现的内容
}
}
void LCD_All_Clear(void){//清屏子程序：全屏清0
uchar x,y;
for(y = 0;y < 8;y ++)
for(x = 0;x < 128;x ++)
LCD_Write(x,y,0x00);//调用写屏子程序：全屏写0
}
void LCD_Page_Clear(uchar yPage){//清屏子程序：清除以所给页坐标为开始的两页的内容
uchar x,y;
for(y = yPage;y < yPage + 2;y ++)
for(x = 0;x < 128;x ++)
LCD_Write(x,y,0x00);//调用写屏子程序：以所给页坐标为开始的两页写0
}
void LCD_Reset(void){//液晶屏初始化设置
LCD_E = 0;
LCD_Write_Code(0x3f,1);//开片1显现
LCD_Write_Code(0x3f,0);//开片2显现
LCD_Write_Code(0xc0,1);//设片1开始行显现
LCD_Write_Code(0xc0,0);//设片2开始行显现
}
/******************************DS1302时钟程序*******************************/
void DS1302_WriteByte(uchar WData){ //写入一个字节
uchar Cnt;
for(Cnt=0;Cnt<8;Cnt++){
WData >>= 1;//写入数据时先写低位再写高位(D0—D7)
CLK_1302 = 0;
IO_1302 = CY;
CLK_1302 = 1; //上升沿将数据写入1302
}
}
uchar DS1302_ReadByte(){ //读出一个字节
uchar Cnt,RData = 0;
for(Cnt = 0;Cnt < 8;Cnt ++){
RData >>= 1;//读数据时先读低位再读高位(D0—D7)
CLK_1302 = 1;
CLK_1302 = 0; //下降沿将数据读出来
if(IO_1302)
RData |= 0x80;
elseRData &= 0x7f;
}
return RData;
}
void DS1302_WriteData(uchar Waddr,uchar Wdata){ //向某地址中写入一个字节的数据
RST_1302 = 0;
CLK_1302 = 0;
RST_1302 = 1;
DS1302_WriteByte(Waddr);//写入地址
DS1302_WriteByte(Wdata);//写入数据
CLK_1302 = 0;
RST_1302 = 0;
}
uchar DS1302_ReadData(uchar RAddr){ //读取1302某地址中一个字节的数据
uchar Rdata;
RST_1302 = 0;
CLK_1302 = 0;
RST_1302 = 1;
DS1302_WriteByte(RAddr);//写入读取数据的地址
Rdata = DS1302_ReadByte();//读取数据
RST_1302 = 0;
IO_1302 = 1;
return(Rdata);
}
void DS1302_SetTime(){ //设置1302时刻
uchar Cnt,Add = 0x80;//秒 寄存器的写地址0x80
// 秒 分 时 日 月 星期 年
uchar STime[7] = {0x00,0x19,0x14,0x18,0x07,5,0×08};
DS1302_WriteData(0x8e,0x00);//制止写保护(可写入数据)
for(Cnt = 0;Cnt < 7;Cnt ++,Add += 2)//循环写入秒,分,时,日,月,星期,年
DS1302_WriteData(Add,STime[Cnt]);
DS1302_WriteData(0x8e,0x80);//写保护(不能写入数据)
}
void DS1302_GetTime(){ //读取1302中当时时刻
uchar Cnt,Addr = 0x81;//秒 寄存器的读地址0x81
for(Cnt = 0;Cnt < 7;Cnt ++,Addr += 2)//循环读取秒,分,时,日,月,星期,年
GetTime[Cnt] = DS1302_ReadData(Addr);
}
/**************************液晶屏显现程序******************************/
void LCD_DisTime(){//显现从1302读取的时刻
DS1302_GetTime();
LCD_Data_DisNum(32,0,num[GetTime[6] >> 4]);//年（由1302循环读出显现）
LCD_Data_DisNum(38,0,num[GetTime[6] & 0x0f]);
LCD_Data_DisNum(50,0,num[GetTime[4] >> 4]);//月
LCD_Data_DisNum(56,0,num[GetTime[4] & 0x0f]);
LCD_Data_DisNum(68,0,num[GetTime[3] >> 4]);//日
LCD_Data_DisNum(74,0,num[GetTime[3] & 0x0f]);
LCD_Data_DisNum(122,0,num[GetTime[5]]);//星期
LCD_Data_DisNum(32,2,num[GetTime[2] >> 4]);//时
LCD_Data_DisNum(38,2,num[GetTime[2] & 0x0f]);
LCD_Data_DisNum(50,2,num[GetTime[1] >> 4]);//分
LCD_Data_DisNum(56,2,num[GetTime[1] & 0x0f]);
LCD_Data_DisNum(68,2,num[GetTime[0] >> 4]);//秒
LCD_Data_DisNum(74,2,num[GetTime[0] & 0x0f]);
}
void LCD_DisCell(){//显现固定不变的内容(日期，时刻等汉字及符号的显现)(图1~4)
LCD_Data_DisWord(2,0,ri);
LCD_Data_DisWord(14,0,qi);
LCD_Data_DisNum(26,0,maohao);
LCD_Data_DisNum(44,0,heng);
LCD_Data_DisNum(62,0,heng);
LCD_Data_DisWord(92,0,xing);
LCD_Data_DisWord(104,0,qi);
LCD_Data_DisNum(116,0,maohao);
LCD_Data_DisWord(2,2,shi);
LCD_Data_DisWord(14,2,jian);
LCD_Data_DisNum(26,2,maohao);
LCD_Data_DisNum(44,2,heng);
LCD_Data_DisNum(62,2,heng);
}
void LCD_Display1(){//无操作状况时显现内容
LCD_DisCell();
LCD_Data_DisWord(34,4,wu);//无操作状况
LCD_Data_DisWord(46,4,cao);
LCD_Data_DisWord(58,4,zuo);
LCD_Data_DisWord(70,4,zhuang);
LCD_Data_DisWord(82,4,tai);
}
void LCD_Display2(){//刷卡后显现此卡有用或无效
LCD_Data_DisWord(2,4,ka);//显现刷卡后的卡号
LCD_Data_DisWord(14,4,hao);
LCD_Data_DisNum(26,4,maohao);
}
void LCD_Display3(){//显现电机状况：翻开或封闭
//LCD_DisCell();//显现固定不变的内容
LCD_Data_DisWord(2,4,dian);//电机状况
LCD_Data_DisWord(14,4,ji);
LCD_Data_DisWord(26,4,zhuang);
LCD_Data_DisWord(38,4,tai);
LCD_Data_DisNum(50,4,maohao);
}
void LCD_Display4(){//显现数据上传进程：上传成功或失利
LCD_Data_DisWord(2,4,shu);//数据上传
LCD_Data_DisWord(14,4,ju);
LCD_Data_DisWord(26,4,shang);
LCD_Data_DisWord(38,4,chuan);
LCD_Data_DisNum(50,4,maohao);
LCD_Data_DisWord(56,4,kuang1);
LCD_Data_DisWord(68,4,kuang1);
LCD_Data_DisWord(80,4,kuang1);
LCD_Data_DisWord(92,4,kuang1);
LCD_Data_DisWord(104,4,kuang1);
LCD_Data_DisWord(116,4,kuang1);
LCD_Data_DisWord(35,6,cheng);
LCD_Data_DisWord(47,6,gong);
LCD_Data_DisWord(75,6,shibai);
LCD_Data_DisWord(87,6,bai);
}
void LCD_Display5(){//显现存卡进程：存入或撤销存储
LCD_Data_DisWord(2,0,cun);//存卡
LCD_Data_DisWord(14,0,ka);
LCD_Data_DisWord(2,2,ka);//卡号
LCD_Data_DisWord(14,2,hao);
LCD_Data_DisNum(26,2,maohao);
}
void LCD_Display6(){//显现卡号删去进程：承认删去或撤销删去
LCD_Data_DisWord(2,0,liu);//阅读卡号
LCD_Data_DisWord(14,0,lan);
LCD_Data_DisWord(26,0,ka);
LCD_Data_DisWord(38,0,hao);
LCD_Data_DisWord(2,2,ka);//卡号显现
LCD_Data_DisWord(14,2,hao);
LCD_Data_DisNum(26,2,maohao);
LCD_Data_DisWord(35,4,shan);
LCD_Data_DisWord(47,4,chu);
LCD_Data_DisWord(75,4,qu);
LCD_Data_DisWord(87,4,quxiao);
}
/******************************AT24C64存储程序*******************************/
void I2C_Start(void){//I2C总线发动
SCL_24C64 = 1;
_nop_();
SDA_24C64 = 1;
_nop_();
SDA_24C64 = 0;
}
void I2C_Stop(void){//I2C总线通讯完毕
SCL_24C64 = 0;
SDA_24C64 = 0;
_nop_();
SCL_24C64 = 1;
SDA_24C64 = 1;
}
void I2C_ACK_Send(bit ack){//发送回来帧
SDA_24C64 = ack;
SCL_24C64 = 1;
_nop_();
SCL_24C64 = 0;
SDA_24C64 = 1;//开释总线
}
bit I2C_ACK_Receive(){//接纳回来帧
bit ACKR;
SDA_24C64 = 1;//开释总线
SCL_24C64 = 1;
_nop_();
ACKR = SDA_24C64;
SCL_24C64 = 0;
return ACKR;
}
void I2C_SendByte(uchar WData){//写入一个字节的数据
uchar Count;
SCL_24C64 = 0;
for(Count = 0;Count < 8;Count ++){
WData <<= 1;
SDA_24C64 = CY;
SCL_24C64 = 1;//下降沿写入数据
_nop_();
SCL_24C64 = 0;
}
}
uchar I2C_ReceiveByte(){//读出一个字节的数据
uchar Count,RData;
SCL_24C64 = 0;
for(Count = 0;Count < 8;Count ++){
RData <<= 1;
SCL_24C64 = 1;//高电平读出数据
_nop_();
if(SDA_24C64)
RData |= 0x01;
elseRData &= 0xfe;
SCL_24C64 = 0;
}
return RData;
}
void I2C_Write_AT24C64(uchar WAddrH,uchar WAddrL,uchar *Point,uchar WNum){//向WAddrH，WAddrL为首地址的页中写入WNum个字节
bit ACK;uchar Cnt;
I2C_Start();//发动通讯
do{
I2C_SendByte(0xa0);//AT24C64的写地址
ACK = I2C_ACK_Receive();
}while(ACK);
do{
I2C_SendByte(WAddrH); //写字节高地址
ACK = I2C_ACK_Receive();
}while(ACK);
do{
I2C_SendByte(WAddrL); //写字节低地址
ACK = I2C_ACK_Receive();
}while(ACK);
for(Cnt = 0;Cnt < WNum;Cnt ++,Point ++){//循环写入WNum个字节
do{
I2C_SendByte(*Point); //写的内容
ACK = I2C_ACK_Receive();
}while(ACK);
}
I2C_Stop(); //通讯完毕
}
uchar I2C_Read_AT24C64(uchar WAddrH,uchar WAddrL,uchar RNum){//从WAddrH,WAddrL为首地址的页中读取RNum个字节
uchar Cnt;//一页最多32个字节
bit ACK;
I2C_Start();//发动通讯
do{
I2C_SendByte(0xa0);//AT24C64的写地址
ACK = I2C_ACK_Receive();
}while(ACK);
do{
I2C_SendByte(WAddrH);//写入地址的高5位
ACK = I2C_ACK_Receive();
}while(ACK);
do{
I2C_SendByte(WAddrL);//写入地址的低8位
ACK = I2C_ACK_Receive();
}while(ACK);
I2C_Start();//再次发动通讯
do{
I2C_SendByte(0xa1);//AT24C64的读地址
ACK = I2C_ACK_Receive();
}while(ACK);
for(Cnt = 0;Cnt < RNum;Cnt ++){//循环读取RNum个字节
RD24C64[Cnt] = I2C_ReceiveByte();
if(Cnt != RNum – 1)
I2C_ACK_Send(0);
}
I2C_ACK_Send(1);//读取最终一个字节的数据后的回来帧
I2C_Stop();//通讯完毕
}
void AT24C64Init(){//24C64初始化
//I2C_Write_AT24C64(0x00,0x1f,&CardMax,1);//将存储卡的最大数目初始化为0
//I2C_Write_AT24C64(0x00,0x1e,&CardNum,1);//将存储卡的数目初始化为0
I2C_Read_AT24C64(0x00,0x1f,1);//读取0x00,0x1f地址中的内容，其为存储卡进程中曾存卡的最多个数
CardMax = RD24C64[0];//将读取的数据存入卡数目最大值变量CardMax中
I2C_Read_AT24C64(0x00,0x1e,1);//读取0x00,0x1e地址中的内容，其为存储卡的数目
CardNum = RD24C64[0];//将读取的数据存入卡数目变量CardNum中
EEAddr = 0x0000;//将24C64的地址初始化到首地址
}
