密碼鎖單片機程序

『壹』 單片機c語言密碼鎖程序

include<reg52.h> //包含頭文件，一般情況不需要改動，頭文件包含特殊功能寄存器的定義

#define DataPort P0 //定義數據埠 程序中遇到DataPort 則用P0 替換
#define KeyPort P1
sbit LATCH1=P2^2;//定義鎖存使能埠 段鎖存
sbit LATCH2=P2^3;// 位鎖存

unsigned char code dofly_DuanMa[]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f,
0x77,0x7c,0x39,0x5e,0x79,0x71};// 顯示段碼值0~F
unsigned char code dofly_WeiMa[]={0xfe,0xfd,0xfb,0xf7,0xef,0xdf,0xbf,0x7f};//分別對應相應的數碼管點亮,即位碼
unsigned char TempData[10]; //存儲顯示值的全局變數
unsigned char code password[8]={1,2,3,4,5,6,7,8};
//可以更改此密碼做多組測試

void DelayUs2x(unsigned char t);//us級延時函數聲明
void DelayMs(unsigned char t); //ms級延時
void Display(unsigned char FirstBit,unsigned char Num);//數碼管顯示函數
unsigned char KeyScan(void);//鍵盤掃描
unsigned char KeyPro(void);
void Init_Timer0(void);//定時器初始化
/*------------------------------------------------
主函數
------------------------------------------------*/
void main (void)
{
unsigned char num,i,j;
unsigned char temp[8];
bit Flag;
Init_Timer0();

while (1) //主循環
{

num=KeyPro();
if(num!=0xff)
{
if(i==0)
{
for(j=0;j<8;j++)//清屏
TempData[j]=0;
}
if(i<8)
{
temp[i]=dofly_DuanMa[num];//把按鍵值輸入到臨時數組中
for(j=0;j<=i;j++) //通過一定順序把臨時數組中
//的值賦值到顯示緩沖區，從右往左輸入
TempData[7-i+j]=temp[j];
}
i++; //輸入數值累加
if(i==9)//正常等於8即可，由於我們需要空一個用於清屏，
//清屏時的按鍵不做輸入值
{
i=0;
Flag=1;//先把比較位置1
for(j=0;j<8;j++)//循環比較8個數值，
//如果有一個不等 則最終Flag值為0
Flag=Flag&&(temp[j]==dofly_DuanMa[password[j]]);
//比較輸入值和已有密碼
for(j=0;j<8;j++)//清屏
TempData[j]=0;
if(Flag)//如果比較全部相同，標志位置1
{
TempData[0]=0x3f; // "o"
TempData[1]=0x73; // "p"
TempData[2]=0x79; // "E"
TempData[3]=0x54; // "n"
//說明密碼正確，輸入對應操作 顯示"open"
}
else
{
TempData[0]=0x79; // "E"
TempData[1]=0x50; // "r"
TempData[2]=0x50; // "r"
//否則顯示"Err"
}

}
}
}
}
/*------------------------------------------------
uS延時函數，含有輸入參數 unsigned char t，無返回值
unsigned char 是定義無符號字元變數，其值的范圍是
0~255 這里使用晶振12M，精確延時請使用匯編,大致延時
長度如下 T=tx2+5 uS
------------------------------------------------*/
void DelayUs2x(unsigned char t)
{
while(--t);
}
/*------------------------------------------------
mS延時函數，含有輸入參數 unsigned char t，無返回值
unsigned char 是定義無符號字元變數，其值的范圍是
0~255 這里使用晶振12M，精確延時請使用匯編
------------------------------------------------*/
void DelayMs(unsigned char t)
{

while(t--)
{
//大致延時1mS
DelayUs2x(245);
DelayUs2x(245);
}
}
/*------------------------------------------------
顯示函數，用於動態掃描數碼管
輸入參數 FirstBit 表示需要顯示的第一位，如賦值2表示從第三個數碼管開始顯示
如輸入0表示從第一個顯示。
Num表示需要顯示的位數，如需要顯示99兩位數值則該值輸入2
------------------------------------------------*/
void Display(unsigned char FirstBit,unsigned char Num)
{
static unsigned char i=0;

DataPort=0; //清空數據，防止有交替重影
LATCH1=1; //段鎖存
LATCH1=0;

DataPort=dofly_WeiMa[i+FirstBit]; //取位碼
LATCH2=1; //位鎖存
LATCH2=0;

DataPort=TempData[i]; //取顯示數據，段碼
LATCH1=1; //段鎖存
LATCH1=0;

i++;
if(i==Num)
i=0;

}
/*------------------------------------------------
定時器初始化子程序
------------------------------------------------*/
void Init_Timer0(void)
{
TMOD |= 0x01; //使用模式1，16位定時器，使用"|"符號可以在使用多個定時器時不受影響
//TH0=0x00; //給定初值
//TL0=0x00;
EA=1; //總中斷打開
ET0=1; //定時器中斷打開
TR0=1; //定時器開關打開
}
/*------------------------------------------------
定時器中斷子程序
------------------------------------------------*/
void Timer0_isr(void) interrupt 1
{
TH0=(65536-2000)/256; //重新賦值 2ms
TL0=(65536-2000)%256;

Display(0,8); // 調用數碼管掃描

}

/*------------------------------------------------
按鍵掃描函數，返回掃描鍵值
------------------------------------------------*/
unsigned char KeyScan(void) //鍵盤掃描函數，使用行列反轉掃描法
{
unsigned char cord_h,cord_l;//行列值中間變數
KeyPort=0x0f; //行線輸出全為0
cord_h=KeyPort&0x0f; //讀入列線值
if(cord_h!=0x0f) //先檢測有無按鍵按下
{
DelayMs(10); //去抖
if((KeyPort&0x0f)!=0x0f)
{
cord_h=KeyPort&0x0f; //讀入列線值
KeyPort=cord_h|0xf0; //輸出當前列線值
cord_l=KeyPort&0xf0; //讀入行線值

while((KeyPort&0xf0)!=0xf0);//等待松開並輸出

return(cord_h+cord_l);//鍵盤最後組合碼值
}
}return(0xff); //返回該值
}
/*------------------------------------------------
按鍵值處理函數，返回掃鍵值
------------------------------------------------*/
unsigned char KeyPro(void)
{
switch(KeyScan())
{
case 0x7e:return 0;break;//0 按下相應的鍵顯示相對應的碼值
case 0x7d:return 1;break;//1
case 0x7b:return 2;break;//2
case 0x77:return 3;break;//3
case 0xbe:return 4;break;//4
case 0xbd:return 5;break;//5
case 0xbb:return 6;break;//6
case 0xb7:return 7;break;//7
case 0xde:return 8;break;//8
case 0xdd:return 9;break;//9
case 0xdb:return 10;break;//a
case 0xd7:return 11;break;//b
case 0xee:return 12;break;//c
case 0xed:return 13;break;//d
case 0xeb:return 14;break;//e
case 0xe7:return 15;break;//f
default:return 0xff;break;
}
}

『貳』 c語言單片機密碼鎖控製程序，用4個按鍵輸入狀態分別代表4位二進制數，可組成16種密碼，范圍0000

用51單片機,假設啟握彎p1·0至p1·3接4個開關，悄悶P2·0接開鎖按鍵S1
While（s1！=0);//等待按開鎖按鈕
delayms(10);//延時
While(s1==0);//等待按鍵抬起
mima=0x0F＆P1;//讀取P1低4位
if(mima==12)lock=1;//如果與設皮檔定密碼相等開鎖
else Fmq=1；//否則，報警

『叄』 基於51單片機的密碼鎖程序

用STC52編的，下面是C程序，調試已經成功，自己看程序吧……
#include<reg52.h>
#include <intrins.h>

#define uchar unsigned char
#define uint unsigned int

#define LCD_data P0
sbit SDA=P3^5;
sbit SCL=P3^4;//24C08控制口設置
sbit LCD_RS = P3^3; //寄存器選擇輸入
sbit LCD_RW = P3^6; //液晶讀/寫控制
sbit LCD_EN = P3^7; //液晶使能控制
sbit LCD_PSB = P3^2; //串/並方式控制
sbit FM=P2^4;//蜂鳴器控制口
sbit RS=P2^5;
sbit T_CLK = P2^0; //實時時鍾時鍾線引腳 //
sbit T_IO = P2^1; //實時時鍾數據線引腳 //
sbit T_RST = P2^2; //實時時鍾復位線引腳 //
sbit ds=P2^3;
sbit EN=P2^6;
sbit ZZ=P2^7;
sbit FZ=P3^1;
sbit ACC0=ACC^0;
sbit ACC7=ACC^7;

uint temp1,s_temp; //定義整形變數
float f_temp; //定義浮點型變數

uchar time[]=" : : ";
uchar day[]=" 20 / / ( ) ";
uchar temp0[]=" 溫度: . 度 ";
uchar num,num1,flag,count,a,b;
uchar unlock_i;//解密標志位

uchar t[4];
uchar t1[4];

void delay_ms(uint z)//長延時
{
uint x,y;
for(x=z;x>0;x--)
for(y=110;y>0;y--);
}

void delay() //短延時，大約5us
{
; ;
}
void reshi()
{
if(RS==1)
{ unlock_i=1;
}
else
{
unlock_i=0;
}
}
uchar code mima[]={'0','1','2','3','4','5','6','7','8','9','0','*'};

void lcd_xieping0(uchar x,uchar y,uchar date);
void lcd_xieping(uchar x,uchar y,uchar *str);
//********************************************************
// 開機顯示
//********************************************************
void kjxs()
{
uint i,j;
lcd_xieping(0,0,"****************");
lcd_xieping(1,0," 歡迎進入 ");
lcd_xieping(2,0," 密碼鎖系統！ ");
lcd_xieping(3,0,"****************");
delay_ms(4000);
lcd_xieping(0,0," 系統初始化中 ");
lcd_xieping(1,0," 請稍後… ");
lcd_xieping(2,0,"————————");
lcd_xieping(3,0," ");
for(j=3;j>0;j--)
{
for(i=0;i<8;i++)
{
lcd_xieping(3,i,"*");
delay_ms(250);
}
lcd_xieping(3,0," ");
}
}
//********************************************************
// 12864顯示
//********************************************************
void write_cmd(uchar cmd)
{
LCD_RS = 0;
LCD_RW = 0;
LCD_EN = 0;
P0 = cmd;
delay_ms(5);
LCD_EN = 1;
delay_ms(5);
LCD_EN = 0;
}
void write_dat(uchar dat)
{
LCD_RS = 1;
LCD_RW = 0;
LCD_EN = 0;
P0 = dat;
delay_ms(5);
LCD_EN = 1;
delay_ms(5);
LCD_EN = 0;
}
void lcd_xieping0(uchar x,uchar y,uchar date)
{
switch(x)
{
case 0: write_cmd(0x80+y); break;
case 1: write_cmd(0x90+y); break;
case 2: write_cmd(0x88+y); break;
case 3: write_cmd(0x98+y); break;
}
write_dat(date);
}
void lcd_xieping(uchar x,uchar y,uchar *str)
{
switch(x)
{
case 0: write_cmd(0x80+y); break;
case 1: write_cmd(0x90+y); break;
case 2: write_cmd(0x88+y); break;
case 3: write_cmd(0x98+y); break;
}
while (*str)
{
write_dat(*str);
str++;
}
}
void lcd_init()
{
LCD_PSB = 1; //並口方式
write_cmd(0x30); //基本指令操作
delay_ms(5);
write_cmd(0x0C); //顯示開，關游標
delay_ms(5);
write_cmd(0x01); //清除LCD的顯示內容
delay_ms(5);
}
//**************************************************************
// 鍵盤掃描函數
//**************************************************************
uchar keyscan1() //矩陣鍵盤掃描函數
{
uchar temp;
while(!num)
{P1=0xfe; //賦值
temp=P1; //讀回數據
temp=temp&0xf0; //與運算
if(temp!=0xf0) //判斷
{
delay_ms(2); //延時消抖
temp=P1; //讀回數據
temp=temp&0xf0;
if(temp!=0xf0)
{
switch(temp) //多分支選擇
{
case 0x70:num=1;break; //跳出
case 0xb0:num=2;break;
case 0xd0:num=3;break;
case 0xe0:num=4;break;
}
while(temp!=0xf0)
{
temp=P1;
temp=temp&0xf0;
}//等待按鍵釋放
}
}
P1=0xfd; //賦值
temp=P1; //讀回數據
temp=temp&0xf0; //與運算
if(temp!=0xf0) //判斷
{
delay_ms(2); //延時消抖
temp=P1; //讀回數據
temp=temp&0xf0;
if(temp!=0xf0)
{
switch(temp) //多分支選擇
{
case 0x70:num=5;break; //跳出
case 0xb0:num=6;break;
case 0xd0:num=7;break;
case 0xe0:num=8;break;
}
while(temp!=0xf0)
{
temp=P1;
temp=temp&0xf0;
}//等待按鍵釋放
}
}
P1=0xfb; //賦值
temp=P1; //讀回數據
temp=temp&0xf0; //與運算
if(temp!=0xf0) //判斷
{
delay_ms(2); //延時消抖
temp=P1; //讀回數據
temp=temp&0xf0;
if(temp!=0xf0)
{
switch(temp) //多分支選擇
{
case 0x70:num=9;break; //跳出
case 0xb0:num=10;break;
case 0xd0:num=11;break;
case 0xe0:num=12;break;
}
while(temp!=0xf0)
{
temp=P1;
temp=temp&0xf0;
}//等待按鍵釋放
}
}
}
return(num); //返回值
}

uchar keyscan2()
{
uchar temp;
while(!num1)
{P1=0xf7; //賦值
temp=P1; //讀回數據
temp=temp&0xf0; //與運算
if(temp!=0xf0) //判斷
{
delay_ms(2); //延時消抖
temp=P1; //讀回數據
temp=temp&0xf0;
if(temp!=0xf0)
{
switch(temp) //多分支選擇
{
case 0x70:num1=1;break; //跳出
case 0xb0:num1=2;break;
case 0xd0:num1=3;break;
case 0xe0:num1=4;break;
}
while(temp!=0xf0)
{
temp=P1;
temp=temp&0xf0;
}//等待按鍵釋放
}
}
}
return(num1);
}
//**************************************************************
// 直流電機
//**************************************************************
void dianjiZZ()
{
EN=1;
ZZ=1;
FZ=0;
}
void dianjiFZ()
{
EN=1;
ZZ=0;
FZ=1;
}
void dianji_stop()
{
EN=0;
}
//**************************************************************
// EPPROM
//**************************************************************
void start() //啟動信號
{
SDA=1;
delay();
SCL=1;
delay();
SDA=0;
delay();
}

void stop() //停止信號
{
SDA=0;
delay();
SCL=1;
delay();
SDA=1;
delay();
}

void respons() //響應信號
{
uchar i;
SCL=1;
delay();
while((SDA==1)&&(i<250))
i++;
SCL=0;
delay();

}

void writebyte(uchar date) //寫一個位元組
{
uchar i,temp;
temp=date;
for(i=0;i<8;i++)
{
temp=temp<<1;
SCL=0;
delay();
SDA=CY;
delay();
SCL=1;
delay();
}
SCL=0;
delay();
SDA=1; //釋放匯流排
delay();

}

uchar readbyte() //讀一個位元組
{
uchar i,k;
SCL=0;
delay();
SDA=1;
for(i=0;i<8;i++)
{
SCL=1;
delay();
k=(k<<1)|SDA;
SCL=0;
delay();
}
delay();
return(k);

}
void write(uchar add,uchar date) //在一個地址寫一個位元組
{
start();
writebyte(0xa0);
respons();
writebyte(add);
respons();
writebyte(date);
respons();
stop();

}
uchar read(uchar add) //在一個地址讀一個位元組
{
start();
writebyte(0xa0);
respons();
writebyte(add);
respons();
start();
writebyte(0xa1);
respons();
b=readbyte();
respons();
stop();
return(b);
}
//**************************************************************
// 時間日期函數
//**************************************************************
void v_WTInputByte(uchar ucDa)
{
uchar i;
ACC= ucDa;
for(i=8; i>0; i--)
{
T_IO = ACC0; //*相當於匯編中的 RRC
T_CLK = 1;
T_CLK = 0;
ACC =ACC>> 1;
}
}
uchar uc_RTOutputByte(void)
{
uchar i;
for(i=8; i>0; i--)
{
ACC = ACC>>1; //*相當於匯編中的 RRC
ACC7 = T_IO;
T_CLK = 1;
T_CLK = 0;
}
return(ACC);
}
void v_W1302(uchar ucAddr, uchar ucDa)
{
T_RST = 0;
T_CLK = 0;
T_RST = 1;
v_WTInputByte(ucAddr); /* 地址，命令 */
v_WTInputByte(ucDa); /* 寫1Byte數據*/
T_CLK = 1;
T_RST =0;
}
uchar uc_R1302(uchar ucAddr)
{
uchar ucDa;
T_RST = 0;
T_CLK = 0;
T_RST = 1;
v_WTInputByte(ucAddr); // 地址，命令 //
ucDa = uc_RTOutputByte(); // 讀1Byte數據 //
T_CLK = 1;
T_RST =0;
return(ucDa);
}
void Init1302(void)
{
v_W1302(0x8e,0x00); //控制寫入WP=0
v_W1302(0x80,0x80);
v_W1302(0x90,0xa9);
v_W1302(0x80,0x00); //秒
v_W1302(0x82,0x24); //分
v_W1302(0x84,0x12); //時
v_W1302(0x86,0x29); //日
v_W1302(0x88,0x10); //月
v_W1302(0x8a,0x05); //星期
v_W1302(0x8c,0x10); //年 //
v_W1302(0x8e,0x80);
}
void donetime(void)
{
uchar d;
d=uc_R1302(0x87);
day[10]=(d&0x0f)+48;
day[9]=((d>>4)&0x03)+48;
d=uc_R1302(0x89);
day[7]=(d&0x0f)+48;
day[6]=((d>>4)&0x01)+48;
d=uc_R1302(0x8b);
day[13]=(d&0x07)+48;
d=uc_R1302(0x8d);
day[4]=(d&0x0f)+48;
day[3]=(d>>4)+48;
d=uc_R1302(0x81);
time[15]=(d&0x0f)+48;
time[14]=(d>>4)+48;
d=uc_R1302(0x83);
time[12]=(d&0x0f)+48;
time[11]=(d>>4)+48;
d=uc_R1302(0x85);
time[9]=(d&0x0f)+48;
time[8]=(d>>4)+48;
}
//**************************************************************
// 溫度檢測函數
//**************************************************************
void dsreset(void) //18B20復位，初始化函數
{
uint i;
ds=0;
i=103;
while(i>0)i--;
ds=1;
i=4;
while(i>0)i--;
}
bit tempreadbit(void) //讀1位函數
{
uint i;
bit dat;
ds=0;i++; //i++ 起延時作用
ds=1;i++;i++;
dat=ds; //讀數據
i=8;while(i>0)i--;
return (dat);
}
uchar tempread(void) //讀1個位元組
{
uchar i,j,dat;
dat=0;
for(i=1;i<=8;i++)
{
j=tempreadbit();
dat=(j<<7)|(dat>>1); //讀出的數據最低位在最前面，這樣剛好一個位元組在DAT里
}
return(dat);
}
void tempwritebyte(uchar dat) //向18B20寫一個位元組數據
{
uint i;
uchar j;
bit testb;
for(j=1;j<=8;j++)
{
testb=dat&0x01; //判斷最後一位是1還是0
dat=dat>>1;
if(testb) //寫 1
{
ds=0;
i++;i++;
ds=1;
i=8;while(i>0)i--;
}
else
{
ds=0; //寫 0
i=8;while(i>0)i--;
ds=1;
i++;i++;
}
}
}

void tempchange(void) //DS18B20 開始獲取溫度並轉換
{
dsreset(); //初始化，每次對18B20的操作都首先要初始化
delay_ms(1);
tempwritebyte(0xcc); // 寫跳過讀ROM指令
tempwritebyte(0x44); // 寫溫度轉換指令
}
void get_temp() //讀取寄存器中存儲的溫度數據
{
uchar a,b;
dsreset(); //初始化
delay_ms(1);
tempwritebyte(0xcc); // 寫跳過讀ROM指令
tempwritebyte(0xbe); //寫讀指令
a=tempread(); //讀低8位
b=tempread(); //讀高8位
temp1=b;
temp1<<=8; //兩個位元組組合為1個字
temp1=temp1|a;
f_temp=temp1*0.0625; //溫度在寄存器中為12位 解析度位0.0625°
}
//**************************************************************
// 解密函數
//**************************************************************
void unlock()
{
uchar in,i;
if(num==0)
{
lcd_xieping(0,0,"**密碼鎖系統** ");
lcd_xieping(1,0,"—————————");
lcd_xieping(2,0," 請輸入密碼： ");
lcd_xieping(3,0," ");
for(i=0;i<4;i++)
{
t1[i]=keyscan1();
lcd_xieping(3,i,"*");
num=0;
}//輸密碼
}
in=keyscan1();
if(in==12)//in-確定鍵標志位
{
in=0;
num=0;
if((t1[0]==t[0])&&(t1[1]==t[1])&&(t1[2]==t[2])&&(t1[3]==t[3]))
{
flag=1;//解密成功與否標志位
//unlock_i=1;
a=0;//功能鍵標志
lcd_xieping(0,0,"**密碼鎖系統** ");
lcd_xieping(1,0,"——————————");
lcd_xieping(2,0," 密碼正確！ ");
lcd_xieping(3,0," 您的身份已確認");
delay_ms(1500);
lcd_xieping(1,0,"————————");
lcd_xieping(2,0,"功能 I 開鎖 ");
lcd_xieping(3,0," II修改密碼");
}
else
{
flag=0;
count++;
if(count==3)
{
count=0;
num=1;
lcd_xieping(1,0,"——————————");
lcd_xieping(2,0,"您的機會已用完 ");
lcd_xieping(3,0,"對不起**無法進入");
FM=0;
delay_ms(1000);
FM=1;
}
}
}
}
//**************************************************************
// 修改密碼函數
//**************************************************************
void xiugaimima()
{ uchar i,j,l,im,ib;
uchar t2[4];
uchar t3[4];
num=0;
lcd_xieping(1,0,"————————");
lcd_xieping(2,0,"請輸入新密碼： ");
lcd_xieping(3,0," ");
for(i=0;i<4;i++)
{
t2[i]=keyscan1();
lcd_xieping0(3,i,mima[num]);
num=0;
}
im=keyscan1();
if(im==12)//im,in,ib,同為確定鍵標志位
{
im=0;
num=0;
lcd_xieping(1,0,"————————");
lcd_xieping(2,0,"請再次輸入新密碼");
lcd_xieping(3,0," ");
for(i=0;i<4;i++)
{
t3[i]=keyscan1();
lcd_xieping0(3,i,mima[num]);
num=0;
}
}
ib=keyscan1();
if(ib==12)
{
ib=0;
num=0;
if(t2[0]==t3[0]&&t2[1]==t3[1]&&t2[2]==t3[2]&&t2[3]==t3[3])
{
t[0]=t3[0];
t[1]=t3[1];
t[2]=t3[2];
t[3]=t3[3];
lcd_xieping(1,0,"————————");
lcd_xieping(2,0," 祝賀您！ ");
lcd_xieping(3,0," 密碼修改成功 ");
flag=0;
for(j=0;j<4;j++)
{
l=j+1;
write(l,t[j]);
delay_ms(10);
}//24C08寫數據
delay_ms(1000);
}
else
{
lcd_xieping(2,0,"兩次輸入密碼不同");
lcd_xieping(3,0," 密碼修改失敗 ");
flag=1;
delay_ms(500);
}
}
}
//**************************************************************
// 顯示函數
//**************************************************************
void xianshi()
{
donetime();
tempchange();
get_temp();
s_temp=f_temp*100;
temp0[7]=(s_temp/1000)+48;
temp0[8]=(s_temp%1000/100)+48;
temp0[10]=(s_temp%100/10)+48;
temp0[11]=(s_temp%10)+48;
lcd_xieping(0,0,"**密碼鎖系統** ");
lcd_xieping(1,0,temp0);
lcd_xieping(2,0,day);
lcd_xieping(3,0,time);
num=0;
}
//**************************************************************
// 開鎖函數
//**************************************************************
void kaisuo()
{
uchar i;
lcd_xieping(2,0," 開鎖中…… ");
lcd_xieping(3,0,"——耐心等待——");
for(i=3;i>0;i--)
{
FM=0;
delay_ms(100);
FM=1;
delay_ms(100);
flag=0;
}
dianjiZZ();
delay_ms(10000);
dianji_stop();
lcd_xieping(2,0,"—開鎖過程結束—");
lcd_xieping(3,0," 請開門 ");
delay_ms(5000);
dianjiFZ();
delay_ms(10000);
dianji_stop();
flag=0;
}
//**************************************************************
// 主函數
//**************************************************************
void main()
{
uchar m;
unlock_i=1;
lcd_init(); //液晶初始化
//Init1302();
kjxs(); //開機顯示
for(m=0;m<4;m++)
{
t[m]=read(m+1);
delay_ms(10);
}//24C08讀數據
while(1)
{
reshi();
if(!unlock_i)
{
unlock();//解密函數
}
else
{
xianshi();//時間、日期、溫度顯示函數
}
if(flag==1)
{
num1=0;
a=keyscan2();
if(a==1)
{
kaisuo();//開鎖函數
}
if(a==2)
{
xiugaimima();//修改密碼函數
}
}
}
}

『肆』 求51單片機C語言編的簡易密碼鎖程序

假設晶振為12M，數碼管共陰，且由P1口控制器；LED高電平點亮。
#include<reg51.h>
void
delay(int);
/*延時程序*/
sbit
P3_0=P3^0;
int
main()
{
P3_0=0;
/*發光二極體的初始狀態為滅，即：未解鎖*/
while(1)
/*等待解鎖*/
{
P0=0x0FF;
/*P0初始化，先全寫1，等待輸入*/團汪
if(P0&0x0f==0x02)
/*驗證密碼是否為2*/
break;
P1=0x79;
/*密碼錯誤，數碼管顯示為E*/
delay(3);
/*延時大約3秒*/
}
P1=0x73;
/*密搜敬碼正確，數碼管顯示為P*/
delay(3);
/*延時大世或慎約3秒*/
P3_0=1;
/*LED點亮，密碼鎖解開*/
...
/*解鎖後的其他任務*/
return
0;
}
void
delay(int
t)
{
int
i=125;
for(;t>0;t--)
for(;i>0;i--);
}

『伍』 51單片機4*3矩陣鍵盤6位密碼鎖c語言程序

#include<stdio.h>
#include<reg51.h>
#define uchar unsigned char

uchar key;
int i=0;
char b[4]={'0','0','0','0'};//輸入的密碼放這里和初始的比較來判斷是否密碼正確
void keyscan() //掃描按鍵是否按下
{
uchar temp;
P3=0xfe; //掃描第一行
temp=P3;
temp=temp&0xf0;
if(temp!=0xf0) //判斷按鍵是否按下
{
delayms(10);//去抖動
temp=P3;
temp=temp&0xf0;
if(temp!=0xf0)//確認按鍵按下
{
temp=P3;
switch(temp)
{
case 0xee:key='0';break;
case 0xde:key='1';break;
case 0xbe:key='2';break;
case 0x7e:key='3';break;
}
while(temp!=0xf0) //判斷按鍵是否松開
{
temp=P3;
temp=temp&0xf0;
}
b[i]=key;i++;if(i==3)i=0;
}
}
P3=0xfd; //掃描第二行
temp=P3;
temp=temp&0xf0;
if(temp!=0xf0)
{
delayms(10);
temp=P3;
temp=temp&0xf0;
if(temp!=0xf0)
{
temp=P3;
switch(temp)
{
case 0xed:key='4';break;
case 0xdd:key='5';break;
case 0xbd:key='6';break;
case 0x7d:key='7';break;
}
while(temp!=0xf0)
{
temp=P3;
temp=temp&0xf0;
}
b[i]=key;i++;if(i==3)i=0;
}
}
P3=0xfb; //掃描第三行
temp=P3;
temp=temp&0xf0;
if(temp!=0xf0)
{
delayms(10);
temp=P3;
temp=temp&0xf0;
if(temp!=0xf0)
{
temp=P3;
switch(temp)
{
case 0xeb:key='8' ;break;
case 0xdb:key='9' ;break;
case 0xbb:key='A';break;
case 0x7b:key='B';break;
}
while(temp!=0xf0)
{
temp=P3;
temp=temp&0xf0;
}
b[i]=key;i++;if(i==3)i=0;
}
}
P3=0xf7; //掃描第四行
temp=P3;
temp=temp&0xf0;
if(temp!=0xf0)
{
delayms(10);
temp=P3;
temp=temp&0xf0;
if(temp!=0xf0)
{
temp=P3;
switch(temp)
{
case 0xe7:key='C';break;
case 0xd7:key='D';break;
case 0xb7:key='E';break;
case 0x77:key='F';break;
}
while(temp!=0xf0)
{
temp=P3;
temp=temp&0xf0;
}
b[i]=key;i++;if(i==3)i=0;
}
}
}

main()
{
char a[4]={'3','5','A','C'}; //這個做初始密碼
while(1)//無限循環，保證了b 0-3 四個數有值
{
keyscan();
if(a[0]==b[0]&&a[1]==b[1]&&a[2]==b[2]&&a[3]==b[3])
{
//這里寫密碼正確程序要怎麼處理
}
}
}

『陸』 51單片機的電子密碼鎖程序，用KEIL C寫的

以前幫別人做過一個類似的

#include<reg52.h>

#include <def.h>

#include"lcd.c"

uchar key;

uchar num;

sbit alarm=P2^4;

sbit open=P2^1;

uchar code table[]={' ','1','2','3',

'4','5','6','7',

'8','9','0'};

void keyscan();

uchar hptable[10];

uchar password[6];

uchar wordbuf[6];

uchar fom[]="input password:";

uchar change[]="set mask:";

uchar state1[]="right";

uchar state2[]="error";

uchar sflag;

uchar dflag,cnt;

uchar setf,fset;

uchar flag;

void main ()

{

uchar hp;

alarm=0;

flag=0;

setf=0;

fset=0;

dflag=0;

lcden=0;

lcdrw=1;

lcdrs=1;

P3=0x0f;

for(hp=0;hp<6;hp++)

{

password[hp]='8';

}

write(0x38,0); //0為寫命令

delay(9);

write(0x08,0);

write(0x01,0);

write(0x06,0);

write(0x0c,0);

write(0x80,0);

for(hp=0;hp<15;hp++)

{

write(fom[hp],1);

}

while(1)

{

// alarm=!alarm;

keyscan();

if(setf==0)

{

if(num>=1&&num<=10)

{

write(0x80+0x40+cnt,0);

write('*',1);

wordbuf[cnt]=table[num];

cnt++;

num=0;

}

}

else

{

write(0x01,0);

write(0x80,0);

for(hp=0;hp<9;hp++)

{

write(change[hp],1);

}

fset=1;

cnt=0;

while(fset)

{

keyscan();

if(num>=1&&num<=10)

{

write(0x80+0x40+cnt,0);

write('*',1);

password[cnt]=table[num];

cnt++;

num=0;

}

if(num==11)

{

write(0x80+0x40+cnt-1,0);

write('',1);

cnt--;

num=0;

}

if(num==13)

{

flag=1;

num=0;

fset=0;

setf=0;

// goto chuz;

}

}

cnt=0;

}

if(flag==1)

{

write(0x01,0);

write(0x80,0);

for(hp=0;hp<15;hp++)

{

write(fom[hp],1);

}

flag=0;

}

if(num==11)

{

write(0x80+0x40+cnt-1,0);

write('',1);

cnt--;

num=0;

}

if(num==12)

{

if(dflag==1)

setf=1;

num=0;

}

if(num==13)

{

num=0;

write(0x80+0x40+10,0);

if(wordbuf[0]==password[0]&&wordbuf[1]==password[1]&&wordbuf[2]==password[2]&&wordbuf[3]==password[3]&&wordbuf[4]==password[4]&&wordbuf[5]==password[5])

{

for(hp=0;hp<5;hp++)

{

write(state1[hp],1);

}

sflag=0;

dflag=1;

}

else

{

for(hp=0;hp<5;hp++)

{

write(state2[hp],1);

}

sflag++;

}

}

if(sflag==3)

{

alarm=!alarm;

//delay(9);

}

if(num==14)

{

num=0;

cnt=0;

write(0x01,0);

write(0x80,0);

for(hp=0;hp<15;hp++)

{

write(fom[hp],1);

}

}

if(num==15)

{

if(dflag==1)

{

open=0;

dflag=0;

}

}

}

}

void keyscan ()

{

uchar tem,temp;

P3=0xfe;

temp=P3;

tem=temp&0xf0;

if (tem!=0xf0) //沒有鍵按下時它的值是不變的，即仍為0XF0，而有鍵接下時要變

{

delay(5); //延時消抖

temp=P3;

tem=temp&0xf0;

if (tem!=0xf0) //確認有鍵按下

{

temp=P3;

tem=temp&0xf0; //這里也可以不要這一步，但下面的case里的值也要變

switch (tem)

{

case 0xe0: num=0; break;

case 0xd0: num=1; break;

case 0xb0: num=2; break;

case 0x70: num=3; break;

default : ; break ;

}

while(tem!=0xf0) //等待鬆手

{

temp=P3;

tem=temp&0xf0;

}

}

}

P3=0xfd;

temp=P3;

tem=temp&0xf0;

if (tem!=0xf0)

{

delay(5);

temp=P3;

tem=temp&0xf0;

if (tem!=0xf0)

{

temp=P3;

tem=temp&0xf0;

switch (tem)

{

case 0xe0: num=4; break;

case 0xd0: num=5; break;

case 0xb0: num=6; break;

case 0x70: num=7; break;

default : ; break ;

}

while(tem!=0xf0)

{

temp=P3;

tem=temp&0xf0;

}

}

}

P3=0xfb;

temp=P3;

tem=temp&0xf0;

if (tem!=0xf0)

{

delay(5);

temp=P3;

tem=temp&0xf0;

if (tem!=0xf0)

{

temp=P3;

tem=temp&0xf0;

switch (tem)

{

case 0xe0: num=8; break;

case 0xd0: num=9; break;

case 0xb0: num=10; break;

case 0x70: num=11; break;

default : ; break ;

}

while(tem!=0xf0)

{

temp=P3;

tem=temp&0xf0;

}

}

}

P3=0xf7;

temp=P3;

tem=temp&0xf0;

if (tem!=0xf0)

{

delay(5);

temp=P3;

tem=temp&0xf0;

if (tem!=0xf0)

{

temp=P3;

tem=temp&0xf0;

switch (tem)

{

case 0xe0: num=12; break;

case 0xd0: num=13; break;

case 0xb0: num=14; break;

case 0x70: num=15; break;

default : ; break ;

}

while(tem!=0xf0)

{

temp=P3;

tem=temp&0xf0;

}

}

}

}

『柒』 求51單片機C語言編的簡易密碼鎖程序

首先得說明我這個可是自己原創手打的，但是沒去模擬了，程序可能有錯誤，你自己修改下吧
#include<reg52.h>
typedef unsigned char uchar;
typedef unsigned int uint;

sbit key1=P0^0;
sbit key2=P0^1;
sbit key3=P0^2;
sbit key4=P0^3;

sbit wela=P2^0;//位鎖存端
#define SMG P1

sbit LED=P3^0;//低電平亮

uchar code table[]={0x8d,0x86};//共陽數碼管 P,E
uchar chushi_mima[]={2,1,3};
uchar shuru_mima[3];
uchar index;//控制輸入密碼的位數
uchar flag_3s=0;//3s標志位
uchar keydown;//確定按鍵變數
#define times 15//去抖時間15Ms
uchar key1_count,key2_count,key3_count,key4_count;
void init()
{
wela=0;
SMG=0xff;
TMOD=0x01;
TH0=(65536-1000)/256;
TL0=(65536-1000)%256;
ET0=1;
EA=1;
TR0=1;
LED=1；
}
void main()
{
init();
while(1)
{
switch(keydown)
{
if(index>2)index=0;
case 1:
shuru_mima[index]=0;
index++;
break;
case 2:
shuru_mima[index]=1;
index++;
break;
case 3:
shuru_mima[index]=2;
index++;
break;
case 4:
shuru_mima[index]=3;
index++;
break;
}

flag_3s=0;
for(i=0;i<3;i++)
{
if(shuru_mima[i]==chushi_mima[i])
{
LED=0;
wela=1;
SMG=table[0];
if(flag_3s)
{
flag_3s=0;
wela=0;
}
}
else
{
LED=1;
wela=1;
SMG=table[1];
if(flag_3s)
{
flag_3s=0;
wela=0;
}
}
}
}
}
void timer0() interrupt 1
{
uchar count;
TH0=(65536-1000)/256;
TL0=(65536-1000)%256;
if(++count>=600)
{
count=0;
flag_3s=1;
}
/*********1ms中斷掃描按鍵(包含去抖程序)********/
if(!key1&&key1_count!=0)
{
key1_count--;
if(key1_count==0)
{
keydown=1;
}
}
else if(!key1) key1_count=times;

// key2,key3,key4你自己寫吧
}

『捌』 求一個51單片機的簡易密碼鎖程序

你好！

從你的功能要求來看，這個密碼鎖不簡易，功能很強很全了；

你這個是模擬驗證程序還是要做出實物來驗證程序。

採用模擬軟體模擬出的密碼鎖

『玖』 89C51單片機 電子密碼鎖 匯編程序求解

TLOW EQU 00H
THIGH EQU 0EEH
COUN0 EQU 200 ;5ms * 200 = 1S
COUN1 EQU 3FH ;密碼的位數
D_TIME EQU 3EH ;設置密碼時的時間限制
SEC EQU 3DH ;秒單元

PASS_OLD EQU 30H
PASS_NEW EQU 40H

SDA EQU P3.4 ;24C01的串列數據線
SCLK24 EQU P3.3 ;24C01的串列時鍾線

;20H.0 為時間限制標記
;20H.1 為按錯鍵標記
;20H.2 為比較對錯標記
;20H.3 為3秒時間標記首祥

RS EQU P2.0
RW EQU P2.1
EN EQU P2.2
X EQU 2FH ;LCD 地址變數
BEEP EQU P3.7
;--------------------------------------------------
ORG 0000H
JMP MAIN
ORG 0BH
JMP T0_INT
;--------------------------------------------------
MAIN:
MOV SP,#60H
MOV A,#00H
MOV D_TIME,A
MOV SEC,A
MOV COUN1,A
MOV R5,#06H
MOV R0,#PASS_OLD

CLR_01: MOV @R0,A
INC R0
DJNZ R5,CLR_01
CLR EN
CLR 20H.0
CLR 20H.1
CLR 20H.2
CLR 20H.3
CALL INIT_TIMER
CALL SET_LCD
CALL MENU1
CALL PASS_READ ;讀出預攜芹姿定密碼。
LOOP1:
CALL SCAN_KEY
CALL DELAY2
CJNE A,#0fH,LOOP1 ;按F鍵啟動進入輸入密碼程序
SETB TR0

LP0: CALL SCAN_KEY ;按住F鍵3秒以上蜂鳴器不響為止
CALL DELAY2
CJNE A,#0fH,LP3
JB 20H.3,LP1 ;3秒到，20H.3置1。
JMP LP0

LP1: CLR TR0 ;停止中斷
MOV SEC,#00H ;秒單元清零
CLR 20H.3 ;清3秒標記位

LP2: MOV P1,#0F0H ;等待鍵釋放
MOV A,P1
CJNE A,#0F0H,LP2
CALL PASS_IN
JB 20H.2,LOOP2 ;密碼正確後方可轉下一步
JMP LP4

LP3: CLR TR0 ;停止中斷
CLR 20H.3 ;清3秒標記位
MOV SEC,#00H ;秒單元清零
LP4: CALL SYS_RST ;系統復位
RET
NOP
NOP
NOP
LJMP MAIN
LOOP2: MOV R4,#06H ;模擬輸出蜂鳴器響六聲
LOOP3: CALL BZ
DJNZ R4,LOOP3

MOV A,#00H

LOOP4: CALL SCAN_KEY
CJNE A,#0AH,LOOP6 ;按A鍵進入PASS_LOOK
CALL PASS_LOOK

LOOP5: CALL SCAN_KEY
CJNE A,#0EH,LOOP5 ;按E鍵辯絕退出PASS_LOOK
CALL MENU1
CALL MENU2

LOOP6: CJNE A,#0BH,LOOP8 ;按B鍵進入PASS_SET
CALL PASS_SET

LOOP7: CALL SCAN_KEY
CJNE A,#0EH,LOOP7 ;按E鍵退出PASS_SET
CALL MENU1
CALL MENU2

LOOP8: CJNE A,#0DH,LOOP4 ;按D鍵退出
ACALL MAIN ;PASS_LOOK和PASS_SET狀態

JMP LOOP4
SYS_RST:
RST1: CALL SCAN_KEY
CJNE A,#0DH,RST1 ;"D" 鍵
LJMP MAIN
RET
NOP
NOP
NOP
LJMP MAIN
PASS_IN:

MOV 21H,#03H ;允許輸入三次密碼
P_IN1: MOV DPTR,#IN_PASS0 ;
MOV A,#1 ;
CALL LCD_SHOW
MOV DPTR,#INFO2 ;指針指到顯示信息2
MOV A,#2 ;顯示在第二行
CALL LCD_SHOW

MOV R0,#PASS_OLD
MOV R3,#00H
MOV R2,#09H ;設置LCD地址
MOV COUN1,#06H ;6位密碼
SETB TR0

P_IN2: JB 20H.0,P_IN4
MOV P1,#0F0H
MOV A,P1
CJNE A,#0F0H,P_IN3
jmp P_IN2
P_IN3:
CALL KEY_IN
CALL SETDATA0
CALL BZ
JB 20H.1,P_IN4
DJNZ COUN1,P_IN2
CLR TR0
CLR 20H.0
CALL PASS_COMP
JNB 20H.2,P_IN4 ;比較對錯標記
RET
P_IN4: CLR TR0
CLR 20H.0 ;
CLR 20H.1 ;
CALL INPUT_ERR
DJNZ 21H,P_IN1 ;
RET
IN_PASS0:
DB " INPUT PASSWORD ",0
PASS_COMP:
MOV COUN1,#06H ;比較6位數值
MOV R0,#PASS_OLD
MOV R1,#PASS_NEW
P_COMP0: MOV A,@R0
MOV B,@R1
CJNE A,B,P_COMP1
INC R0
INC R1
DJNZ COUN1,P_COMP0
CALL INPUT_OK
SETB 20H.2
RET
P_COMP1: CLR 20H.2
;CALL INPUT_ERR
RET
PASS_SET:

MOV 21H,#05H ;允許輸入三次密碼

P_SET1: MOV DPTR,#SET_PASS0 ;
MOV A,#1 ;
CALL LCD_SHOW
MOV DPTR,#INFO2 ;指針指到顯示信息2
MOV A,#2 ;顯示在第二行
CALL LCD_SHOW

MOV R3,#00H
MOV R2,#09H ;設置LCD地址
MOV R1,#PASS_NEW
MOV COUN1,#06H ;6位密碼
SETB TR0

P_SET2: JB 20H.0,P_SET4
MOV P1,#0F0H
MOV A,P1
CJNE A,#0F0H,P_SET3
jmp P_SET2
P_SET3:
CALL KEY_IN
CALL SETDATA1
CALL BZ
JB 20H.1,P_SET4
;MOV R5,#04H
;CALL DELAY
DJNZ COUN1,P_SET2
CLR TR0
CLR 20H.0
CALL RESET_OK
CALL EEPW
RET
P_SET4: CLR TR0
CLR 20H.0 ;
CLR 20H.1 ;
CALL RESET_ERR
DJNZ 21H,P_SET1 ;
RET

SET_PASS0:
DB " RESET PASSWORD ",0
MENU1: ;LCD 顯示工作菜單信息
MOV DPTR,#MENU01
MOV A,#1 ;在第一行顯示信息
CALL LCD_SHOW
RET
MENU01: DB "PASSWORD CONTROL",0
MENU2: ;LCD 顯示工作菜單信息
MOV DPTR,#MENU02
MOV A,#2 ;在第一行顯示信息
CALL LCD_SHOW
RET
SETDATA1:
MOV A,R3
ANL A,#0FH ;取出低四位二進制數
PUSH ACC
CLR C
SUBB A,#0AH ;減10
POP ACC
JC ASCII3 ;該數小於10，轉ASCII0
SETB 20H.1
RET
ADD A,#07H ;大於10的數加上37H
ASCII3: ADD A,#30H ;小於10的數加上30H
MOV @R1,A
MOV B,R2
CALL LCDP2
INC R2
INC R1
RET

SETDATA0:

MOV A,R3
ANL A,#0FH ;取出低四位二進制數
PUSH ACC
CLR C
SUBB A,#0AH ;減10
POP ACC
JC ASCII4 ;該數小於10，轉ASCII4
SETB 20H.1
RET
ASCII4: ADD A,#30H ;小於10的數加上30H
MOV @R0,A ;保存密碼值
MOV A,#2AH ;顯示" * "
MOV B,R2
CALL LCDP2
INC R2
INC R0
RET
PASS_LOOK:
MOV DPTR,#LOOK1 ;指針指到顯示信息1
MOV A,#1 ;顯示在第一行
CALL LCD_SHOW
MOV DPTR,#LOOK2 ;指針指到顯示信息2
MOV A,#2 ;顯示在第二行
CALL LCD_SHOW
MOV R1,#PASS_NEW
MOV R2,#09
MOV COUN1,#06
LOOK0: MOV A,@R1
MOV B,R2
CALL LCDP2
INC R2
INC R1
DJNZ COUN1,LOOK0
RET

LOOK1: DB " LOOK PASSWORD ",0 ;LCD 第一行顯示信息
LOOK2: DB "PASSWORD ------ ",0 ;LCD 第二行顯示信息
SCAN_KEY:
SCAN_K: MOV P1,#0F0H
MOV A,P1
CJNE A,#0F0H,KEY_NUM0 ;有鍵按下轉
JMP KEY_END
KEY_NUM0: CALL KEY_IN
CALL BZ
MOV R5,#04H
CALL DELAY
KEY_END: RET
KEY_IN: MOV P1,#0F0H ;置列線為0，行線為1
MOV A,P1
ANL A,#0F0H
MOV B,A
MOV P1,#0FH ;置列線為1，行線為0
MOV A,P1
ANL A,#0FH
ORL A,B ;高四位與低四位重新組合
CJNE A,#0FFH,KEY_IN1 ;0FFH為末按鍵
RET
KEY_IN1: MOV B,A
MOV DPTR,#KEYTABLE
MOV R3,#0FFH
KEY_IN2: INC R3
MOV A,R3
MOVC A,@A+DPTR
CJNE A,B,KEY_IN3
MOV A,R3 ;找到，取順序碼
RET
KEY_IN3: CJNE A,#0FFH,KEY_IN2 ;末完，繼續查
RET ;0FFH為結束碼
SET_LCD:
CLR EN
CALL INIT_LCD ;初始化 LCD
CALL DELAY1
MOV DPTR,#INFO1 ;指針指到顯示信息1
MOV A,#1 ;顯示在第一行
CALL LCD_SHOW
MOV DPTR,#INFO2 ;指針指到顯示信息2
MOV A,#2 ;顯示在第二行
CALL LCD_SHOW
RET
INFO1: DB " ",0 ;LCD 第一行顯示信息
INFO2: DB "PASSWORD ------ ",0 ;LCD 第二行顯示信息INIT_LCD: ;8位I/O控制 LCD 介面初始化
MOV A,#38H ;雙列顯示，字形5*7點陣
CALL WCOM
CALL DELAY1
MOV A,#38H ;雙列顯示，字形5*7點陣
CALL WCOM
CALL DELAY1
MOV A,#38H ;雙列顯示，字形5*7點陣
CALL WCOM
CALL DELAY1
MOV A,#0CH ;開顯示，關游標，
CALL WCOM
CALL DELAY1
MOV A,#01H ;清除 LCD 顯示屏
CALL WCOM
CALL DELAY1
RET
LCD_SHOW: ;在LCD的第一行或第二行顯示信息字元

CJNE A,#1,LINE2 ;判斷是否為第一行
LINE1: MOV A,#80H ;設置 LCD 的第一行地址
CALL WCOM ;寫入命令
CALL CLR_LINE ;清除該行字元數據
MOV A,#80H ;設置 LCD 的第一行地址
CALL WCOM ;寫入命令
JMP FILL
LINE2: MOV A,#0C0H ;設置 LCD 的第二行地址
CALL WCOM ;寫入命令
CALL CLR_LINE ;清除該行字元數據
MOV A,#0C0H ;設置 LCD 的第二行地址
CALL WCOM
FILL: CLR A ;填入字元
MOVC A,@A+DPTR ;由消息區取出字元
CJNE A,#0,LC1 ;判斷是否為結束碼
RET
LC1: CALL WDATA ;寫入數據
INC DPTR ;指針加1
JMP FILL ;繼續填入字元
RET
CLR_LINE: ;清除該行 LCD 的字元
MOV R0,#24
CL1: MOV A,#' '
CALL WDATA
DJNZ R0,CL1
RET
ENABLE: ;寫指令使能
CLR RS ;RS=L,RW=L,D0-D7=指令碼，E=高脈沖
CLR RW
SETB EN
CALL DELAY0
CLR EN
RET
ENABLE1: ;寫數據使能
SETB RS ;RS=H,RW=L,D0-D7=數據，E=高脈沖
CLR RW
SETB EN
CALL DELAY0
CLR EN
RET

DELAY0: MOV R7,#250 ;延時500微秒
DJNZ R7,$
RET
WCOM: ;以8位控制方式將命令寫至LCD
MOV P0,A ;寫入命令
CALL ENABLE
RET
WDATA: ;以8位控制方式將數據寫至LCD
MOV P0,A ;寫入數據
CALL ENABLE1
RET
LCDP2: ;在LCD的第二行顯示字元
PUSH ACC ;
MOV A,B ;設置顯示地址
ADD A,#0C0H ;設置LCD的第二行地址
CALL WCOM ;寫入命令
POP ACC ;由堆棧取出A
CALL WDATA ;寫入數據
RET
CONV:
MOV X,#9 ;設置顯示起始位置
MOV A,R3
ANL A,#0F0H ;取出高四位二進制數
SWAP A ;高四位與低四位互換
PUSH ACC ;壓入堆棧
CLR C ;C=0
SUBB A,#0AH ;減10
POP ACC ;彈出堆棧
JC ASCII0 ;該數小於10，轉ASCII0
ADD A,#07H ;大於10的數加上37H
ASCII0: ADD A,#30H ;小於10的數加上30H
MOV B,X
CALL LCDP2

MOV A,R3
ANL A,#0FH ;取出低四位二進制數
PUSH ACC
CLR C
SUBB A,#0AH ;減10
POP ACC
JC ASCII1 ;該數小於10，轉ASCII1
ADD A,#07H ;大於10的數加上37H
ASCII1: ADD A,#30H ;小於10的數加上30H
INC X
MOV B,X
CALL LCDP2
RET
DELAY2: MOV R5,#15H
DELAY: ;延時R5×10MS
MOV R6,#50
D1: MOV R7,#100
DJNZ R7,$
DJNZ R6,D1
DJNZ R5,DELAY
RET
DELAY1: ;延時5MS
MOV R6,#25
D2: MOV R7,#100
DJNZ R7,$
DJNZ R6,D2
RET
KEYTABLE:
DB 0EEH,0EDH,0EBH,0E7H,0DEH ;0,1,2,3,4, 順序碼
DB 0DDH,0DBH,0D7H,0BEH,0BDH ;5,6,7,8,9,
DB 0BBH,0B7H,07EH,07DH,07BH ;A,B,C,D,E,
DB 077H,0FFH ;F 0FF為結束碼

DB 0DBH,0EEH,0DEH,0BEH,07EH ;0,1,2,3,4, 順序碼
DB 0EDH,0DDH,0BDH,07DH,0EBH ;5,6,7,8,9,
DB 0BBH,07BH,0E7H,0D7H,0B7H ;A,B,C,D,E,
DB 077H,067H,066H,065H,0FFH ;F,C+F,1+F,8+C
INIT_TIMER: ;初始化定時器
MOV TMOD,#01H ;設置定時器0 工作模式為模式1
MOV IE, #82H ;啟用定時器0 中斷產生
MOV TL0,#TLOW
MOV TH0,#THIGH
RET
T0_INT:
PUSH ACC
MOV TL0,#TLOW
MOV TH0,#THIGH
INC D_TIME
MOV A,D_TIME ;5ms 計數值加1
CJNE A,#COUN0,T0_T
MOV D_TIME,#0
INC SEC ;秒加1
MOV A,SEC
CJNE A,#03H,TO_INT0
SETB 20H.3
TO_INT0: CJNE A,#8,T0_T ;是否到8秒？
MOV SEC,#0 ;秒單元清0
SETB 20H.0
T0_T: POP ACC
RETI
PASS_READ:
CALL EEPR
RET

MOV COUN1,#06H ;6位密碼數值
MOV R7,#00H
MOV R1,#PASS_NEW
P_READ: MOV A,R7
MOV DPTR,#R_TABLE
MOVC A,@A+DPTR
MOV @R1,A
INC R1
INC R7
DJNZ COUN1,P_READ
RET
R_TABLE:
DB 35H,36H,34H,34H,38H,38H
COMP_ERR:
MOV DPTR,#COMP_ERR1 ;
MOV A,#2 ;
CALL LCD_SHOW
RET
COMP_ERR1:
DB " PASSWORD ERROR ",0
COMP_OK:
MOV DPTR,#COMP_OK0 ;
MOV A,#2 ;
CALL LCD_SHOW
RET
COMP_OK0:
DB " PASSWORD RIGHT ",0
RESET_ERR:
MOV DPTR,#RESET_ERR0 ;
MOV A,#2 ;
CALL LCD_SHOW
RET
RESET_ERR0:
DB " RESET ERROR ",0
RESET_OK:
MOV DPTR,#RESET_OK0 ;
MOV A,#2 ;
CALL LCD_SHOW
RET
RESET_OK0:
DB " RESET RIGHT ",0
INPUT_ERR:
MOV DPTR,#INPUT_ERR0 ;
MOV A,#2 ;
CALL LCD_SHOW
RET
INPUT_ERR0:
DB " INPUT ERROR ",0
INPUT_OK:
MOV DPTR,#INPUT_OK0 ;
MOV A,#2 ;
CALL LCD_SHOW
RET
INPUT_OK0:
DB " INPUT RIGHT ",0
EEPW: PUSH ACC
PUSH PSW
CLR PSW.3
SETB PSW.4
MOV R1,#PASS_NEW
MOV R7,#06H ;連續寫8個位元組
LCALL START
MOV A,#0A0H ;送器件地址
ACALL SUBS
MOV A,#00H ;送片內位元組地址
ACALL SUBS
AGAIN1:
MOV A,@R1
ACALL SUBS ;調發送單位元組子程序
INC R1
DJNZ R7,AGAIN1 ;連續寫8個位元組
LCALL STOP ;發停止信號
POP PSW
POP ACC
RET
SUBS:
MOV R0,#08H ;發送單位元組子程序
LOOP: CLR SCLK24
RLC A
MOV SDA,C
NOP
SETB SCLK24
ACALL DELAY24
DJNZ R0,LOOP ;循環8次送8個bit
CLR SCLK24
ACALL DELAY24
SETB SCLK24
REP: MOV C,SDA
JC REP ;判應答到否，未到則等待
CLR SCLK24
RET

DELAY24:
NOP
NOP
RET
EEPR: PUSH ACC
PUSH PSW
CLR PSW.3
SETB PSW.4
MOV R7,#06H
MOV R1,#PASS_NEW
LCALL START ;發開始信號
MOV A,#0A0H ;送器件地址
ACALL SUBS ;調發送單位元組子程序
MOV A,#00H ;送片內位元組地址
ACALL SUBS
LCALL START ;再發開始信號
MOV A,#0A1H
ACALL SUBS
MORE: ACALL SUBR
MOV @R1,A
MOV A,#00H
INC R1
DJNZ R7,MORE
LCALL STOP ;送停止信號
POP PSW
POP ACC
RET

SUBR: MOV R0,#08H ;接受單位元組子程序
SUBR2: SETB SCLK24
ACALL DELAY24
MOV C,SDA
RLC A
CLR SCLK24
ACALL DELAY24
DJNZ R0,SUBR2
CJNE R7,#01H,ALOW
SETB SDA ;若是最後一個位元組置SDA=1
AJMP SETOK
ALOW:
CLR SDA ;否則置SDA=0
SETOK: ACALL DELAY24
SETB SCLK24
ACALL DELAY24
CLR SCLK24
ACALL DELAY24
SETB SDA ;應答畢,SDA置1
RET
START:
CLR SDA
ACALL DELAY24
SETB SDA
SETB SCLK24
ACALL DELAY24
CLR SDA
SETB SCLK24
RET
STOP:
CLR SDA
SETB SCLK24
ACALL DELAY24
SETB SDA
ACALL DELAY24
RET
BZ: ;蜂鳴器
MOV R6,#100
B1: CALL DEX
CPL BEEP
DJNZ R6,B1
MOV R5,#20
CALL DELAY
RET
DEX: MOV R7,#180
DE1: NOP
DJNZ R7,DE1
RET
END

『拾』 求51單片機C語言編的密碼鎖程序

#include <reg52.h>
#define uint unsigned int
#define uchar unsigned char
#define BIN(a,b,c,d,e,f,g,h) ((a<<7)+(b<<6)+(c<<5)+(d<<4)+(e<<3)+(f<<2)+(g<<1)+(h<<0))
//下面的code表示數組存放在ROM中，因為這個數組的值不需要改寫
uchar code KeyCode[16]={15,14,12,8,30,28,24,16,60,56,48,32,120,112,96,64};//值為m*(n+1)的乘積，用於Key()
uchar dis[6];
msdelay(uint x)//延時子函數
{uchar j;
while(x--)
{for(j=0;j<125;j++){;}
}
}
//鍵盤子程序一,鍵盤值與數組值對比得到
uchar Key(void)
{uchar temp,m,n,i,j,matrix,k;
P1=0xF0; /*行線電平為高,列線為低*/
temp=P1&0xf0;
if (temp==0xf0) return(16); /*行仍為高,無按健,退出*/
else msdelay(10);
for(i=1;i<16;i=i*2)
{m=i;
for(j=1;j<16;j=j*2)
{n=(~j)&0x0f;
P1=(m<<4)|n; /*m為P1的行值由i循環得到,n為列值,由j循環並取反得到*/
temp=P1&0xf0;
if (!temp)
{do{temp=P1&0xf0;}while(!temp);
matrix=m*(n+1);/*為避免乘積重復,n+1*/
for(k=0;k<16;k++){if (matrix==KeyCode[k]) return(k);} //KeyCode：見前
return(16);
} //if loop
}//j loop
}//i loop
}//Key end
//用Switch...case語句得到鍵盤值*/
uchar Key1(void)
{uchar temp,m,n,i,j,matrix;
P1=0xF0; /*行線電平為高,列線為低*/
temp=P1&0xf0;
if (temp==0xf0) return(16); /*行仍為高,無按健,退出*/
else msdelay(10);
for(i=1;i<16;i=i*2)
{m=i;
for(j=1;j<16;j=j*2)
{n=(~j)&0x0f;
P1=(m<<4)|n;/*m為P1的行值由i循環得到,n為列值,由j循環並取反得到*/
temp=P1&0xf0;
if (!temp)
{do{temp=P1&0xf0;}while(!temp);
matrix=m*(n+1);
switch(matrix) //此方法的基本思路：
{case 15:return(1); break; //由循環得到的m,n值賦於P1埠實現逐個鍵掃描
case 14:return(2); break; //同時由m,n+1的值相乘得到對應鍵點de的積
case 12:return(3); break; //m*(n+1)值掃描鍵點對應而得出鍵值
case 8:return(4); break; //
case 30:return(5); break; //
case 28:return(6); break; //
case 24:return(7); break; //
case 16:return(8); break;
case 60:return(9); break;
case 56:return(0); break;
case 48:return(10); break;
case 32:return(11); break;
case 120:return(12); break;
case 112:return(13); break;
case 96:return(14); break;
case 64:return(15); break;
default:return(16);
} //switch end
} //if loop
}//j loop
}//i loop
}//Key end
//依次掃描16個按鍵
uchar Key2(void)
{uchar temp;
P1=0xF0; /*使P1=1111 0000,行線電平為高,列線為低*/
temp=P1&0xf0;
if (temp==0xf0) return(16); /*讀P1=1111 xxxx,表示行仍為高,無按健,退出(x表示不關心)?/
else msdelay(10);
P1=0x1e; /*P1=0001 1110,行一為高，列一為低，掃描第一個按鍵*/
temp=P1&0xf0;
if (!temp) {do{temp=P1&0xf0;}while(!temp);
return(1);}
P1=0x1d; /*P1=0001 1101,行一為高，列二為低，掃描第二個按鍵，下面掃描其餘按鍵*/
temp=P1&0xf0;
if (!temp) {do{temp=P1&0xf0;}while(!temp);
return(2);}
P1=0x1b;
temp=P1&0xf0;
if (!temp) {do{temp=P1&0xf0;}while(!temp);
return(3);}
P1=0x17;
temp=P1&0xf0;
if (!temp) {do{temp=P1&0xf0;}while(!temp);
return(4);}
P1=0x2e;
temp=P1&0xf0;
if (!temp) {do{temp=P1&0xf0;}while(!temp);
return(5);}
P1=0x2d;
temp=P1&0xf0;
if (!temp) {do{temp=P1&0xf0;}while(!temp);
return(6);}
P1=0x2b;
temp=P1&0xf0;
if (!temp) {do{temp=P1&0xf0;}while(!temp);
return(7);}
P1=0x27;
temp=P1&0xf0;
if (!temp) {do{temp=P1&0xf0;}while(!temp);
return(8);}
P1=0x4e;
temp=P1&0xf0;
if (!temp) {do{temp=P1&0xf0;}while(!temp);
return(9);}
P1=0x4d;
temp=P1&0xf0;
if (!temp) {do{temp=P1&0xf0;}while(!temp);
return(0);}
P1=0x4b;
temp=P1&0xf0;
if (!temp) {do{temp=P1&0xf0;}while(!temp);
return(10);}
P1=0x47;
temp=P1&0xf0;
if (!temp) {do{temp=P1&0xf0;}while(!temp);
return(11);}
P1=0x8e;
temp=P1&0xf0;
if (!temp) {do{temp=P1&0xf0;}while(!temp);
return(12);}
P1=0x8d;
temp=P1&0xf0;
if (!temp) {do{temp=P1&0xf0;}while(!temp);
return(13);}
P1=0x8b;
temp=P1&0xf0;
if (!temp) {do{temp=P1&0xf0;}while(!temp);
return(14);}
P1=0x87;
temp=P1&0xf0;
if (!temp) {do{temp=P1&0xf0;}while(!temp);
return(15);}

return(16); //掃描all按鍵都未按下，則輸出16
}//Key2 end.
////////時鍾中斷顯示子程序
void T0_int() interrupt 1
{static uchar i;
if (i==6){i=0;}
P0=5-i;
P0=P0|(dis[i]<<4);
i++;
TL0=0;
TH0=252;}

void distri(uint disnum)
{uint temp;
dis[0]=0;
dis[1]=disnum/10000;
temp=disnum%10000;
dis[2]=temp/1000;
temp=temp%1000;
dis[3]=temp/100;
temp=temp%100;
dis[4]=temp/10;
dis[5]=temp%10;
}
Main()
{uchar KeyVal,i=0;
TMOD=0x01;
IE=0x82;
TH0=252;
TL0=0;
TR0=1;
distri(0);
do{
KeyVal=Key();
if (KeyVal!=16) dis[1]=KeyVal; //注意：當有按鍵時才賦於顯示位dis[1]，否則出錯，請分析！
}while(1);
}