EDA电子密码锁课程设计

概述在当今社会中，人们对于隐私的保护和对物品安全的重视程度与日俱增。

因此，使用了现代电子技术的电子密码锁便有了广泛的应用前景。

本次所设计的电子密码锁，能够实现该六位十进制并行密码保护，当输入的密码与锁内密码一致时，绿灯亮，开锁；当输入的密码与锁内的密码不一致时，红灯亮，不能开锁。

密码锁的密码可由用户自行设置，并可在液晶显示屏上显示所输入的密码。

为人们的财产、信息安全提供了可靠地保障。

本次设计基于VHDL语言，对并行六位电子密码锁进行设计，并对设计过程进行了详细描述。

采用VHDL语言进行电子密码锁的设计可使设计工作简洁直观，快速实现既定功能。

电子密码锁在对财产安全保护等方面都有着重要作用，应用前景非常广泛。

开锁代码为六位十进制数，当输入代码的位数和位值与锁内给定的密码一致，且按规定程序开锁时，方可开锁，并点亮开锁指示灯。

否则，系统进入“错误”状态，并发出报警信号。

开锁程序由设计者确定，并要求锁内给定的密码是可调的，且预置方便，保密性好。

并行数字锁的报警方式是点亮指示灯，并使喇叭鸣叫来报警，直到按下复位开关，报警才停止。

此时，数字锁又自动进入等待下一次开锁的状态。

一、设计主要内容1、密码锁串行输入几位十进制数字口令2、输入口令全部正确即开锁并有绿灯显示3、口令输入最大次数3次，要求在完全输入六位之后进行判断口令正确与否；输入3次之后还不能开锁，进入死锁状态并报警4、有相应的显示功能5、开锁后能再次上锁二、系统设计方案作为通用电子密码锁，主要由三个部分组成：数字密码输入电路、密码锁控制电路和密码锁显示电路。

（1）密码锁输入电路包括时序产生电路、键盘扫描电路、键盘译码电路等几个小的功能电路。

(2) 密码锁控制电路包括按键数据的缓冲存储电路，密码的清除、存储、激活电锁电路(寄存器清除信号发生电路)，密码核对(数值比较电路)，解锁电路(开/关门锁电路)等几个小的功能电路。

（3）密码显示电路主要是在液晶显示屏显示输入的数值。

2.1密码锁输入电路的设计是电子密码锁的输入电路框图，由键盘扫描电路、弹跳消除电路、键盘译码电路、按键数据缓存器，加上外接的一个4×4矩阵式键盘组成。

图1-1密码锁的输入电路框图1．矩阵式键盘的工作原理矩阵式键盘是一种常见的输入装置，在日常的生活中，矩阵式键盘在计算机、电话、手机、微波炉等各式电子产品上已经被广泛应用。

图1-2是一个3×4矩阵式键盘的面板配置图，其中数字0～2.2密码锁输入电路各主要功能模块的设计1) 时序产生电路本时序产生电路中使用了三种不同频率的工作脉冲波形：系统时钟脉冲(它是系统内部所有时钟脉冲的源头，且其频率最高)、弹跳消除取样信号、键盘扫描信号。

2) 键盘扫描电路扫描电路的作用是用来提供键盘扫描信号的，扫描信号变化的顺序依次为1110－1101－1011－0111－1110......依序地周而复始。

3) 弹跳消除电路由于本设计中采用的矩阵式键盘是机械开关结构，因此在开关切换的瞬间会在接触点出现信号来回弹跳的现象，对于电子密码锁这种灵敏度较高的电路这种弹跳将很可能会造成误动作输入，从而影响到密码锁操作的正确性。

从图1-3中可以观察出弹跳现象产生的原因，虽然只是按下按键一次然后放掉，然而实际产生的按键信号却不止跳动一次，经过取样信号的检查后，将会造成误判断，以为键盘按了两次。

如果调整抽样频率(如图4.5所示)，可以发现弹跳现象获得了改善。

图1-3弹跳现象产生错误的抽样结果图1-4 调整抽样频率后得到的抽样结果 4) 键盘译码电路上述键盘中的按键可分为数字按键和文字按键，每一个按键可能负责不同的功能，例如清除数码、退位、激活电锁、开锁等。

5) 按键存储电路因为每次扫描会产生新的按键数据，可能会覆盖前面的数据，所以需要一个按键存储电路，将整个键盘扫描完毕后的结果记录下来。

按键存储电路可以使用移位寄存器构成。

抽样结果抽样信号按键信号抽样结果抽样信号按键信号图1-5 输入电路仿真波形图2.3 密码锁控制电路的设计密码锁的控制电路是整个电路的控制中心，主要完成对数字按键输入和功能按键输入的响应控制。

1．数字按键输入的响应控制(1) 如果按下数字键，第一个数字会从显示器的最右端开始显示，此后每新按一个数字时，显示器上的数字必须左移一格，以便将新的数字显示出来。

(2) 假如要更改输入的数字，可以按倒退按键来清除前一个输入的数字，或者按清除键清除所有输入的数字，再重新输入六位数。

(3) 由于这里设计的是一个六位的电子密码锁，所以当输入的数字键超过四个时，电路不予理会，而且不再显示第六个以后的数字。

2.4功能按键输入的响应控制(1) 清除键：清除所有的输入数字，即做归零动作。

(2) 激活电锁键：按下此键时可将密码锁的门上锁。

(上锁前必须预先设定一个六位的数字密码。

)(3) 解除电锁键：按下此键会检查输入的密码是否正确，若密码正确无误则开门。

图1-5 电子密码锁的三种模式及关系2.5 密码锁显示电路的设计密码锁显示电路的设计比较复杂，这里直接采用12864液晶屏进行显示。

2.6 密码锁的整体组装设计将前面各个设计好的功能模块进行整合，可得到一个完整的电子密码锁系统的整体组装设计原理图，如图1-6所示。

图1-6 密码锁的整体组装设计原理图三、系统扩展思路(1) 本系统基本达到作为数字密码锁的绝大部分功能，但还有许多不足或需完善的地方。

比如说采用4×4的通用机械键盘受到键盘数量的限制，在很大的程度上限制了其功能的扩展。

（2)设计外围电路：系统用方波信号源，直流工作电源。

（3)可要求设计制作整个系统，包括PCB的制作。

四、实验收获课程设计是培养学生综合运用所学知识，发现，提出，分析和解决实际问题，锻炼实践能力的重要环节，是对学生实际工作能力的具体训练和考察过程。

随着科学技术发展的日新月异，FPGA已经成为当今计算机应用中空前活跃的领域，在生活中可以说无处不在。

因此作为二十一世纪的大学来说掌握eda的开发技术是十分必要的。

回顾此次课程设计，我感慨颇多，的确，从理论到实践，在很长的一段时间里，可以说是苦多于甜，但确实学到了很多东西，不仅可以巩固以前学到的知识，还学到许多没学过的知识。

通过此次课程设计，使我了解了理论与实际结合的重要性，只有理论知识是远远不够的。

在设计的过程中，发现自己以前学习的知识理解不够深刻，掌握不够牢固等等。

通过这次课设之后，一定要把以前学习的知识温故知新。

这次的课设终于完成，通过老师的细心讲解，我解决了很多问题。

在这里，感谢老师的细心指导。

同时对于帮助我的同学，也表示衷心感谢。

附录1、液晶显示程序library ieee;use ieee.std_logic_1164.all;use ieee.std_logic_unsigned.all;use IEEE.STD_LOGIC_ARITH.ALL;entity clock_lcd_disp isgeneric(divide_to_100k:integer:=500);port(clk:in std_logic;DATAIN:in std_logic_vector(31 downto 0);din: in INTEGER RANGE 15 DOWNTO 0;rw,rs,e,lcd_rst:out std_logic;lcd_data:out std_logic_vector(7 downto 0));end clock_lcd_disp;architecture tcl of clock_lcd_disp issignal mima:std_logic_vector(31 downto0):="00010010001101000101011001111000";signal clk_100k:std_logic;signal clkout:std_logic;signal temp:std_logic_vector(7 downto 0);type stateis(s0,s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13,s14,s15,s16,s17,s18, s19,s20,s21,s22,s23,s24,s25,s26,s27,s28,s29,s30,s31);signal current_s:state;type data_buffer is array(0 to 15)of std_logic_vector(7 downto 0);type data_buffer1 is array(0 to 7)of std_logic_vector(7 downto 0);signal time:std_logic_vector(23 downto 0);signal disp_time:data_buffer1:=(x"31",x"32",x"3a",x"33",x"34",x"3a",x"35",x"36");constant data_buf0:data_buffer:=(x"20",x"20",x"bb",x"aa", --华科武昌分校 80x"bf",x"c6",x"ce",x"e4",x"b2",x"fd", x"b7",x"d6",x"d0",x"a3",x"20",x"20");constant data_buf1:data_buffer:=(x"20",x"20",x"b5",x"e7", --电子密码锁90x"d7",x"d3",x"c3",x"dc",x"c2",x"eb",x"cb",x"f8",x"20",x"20",x"20",x"20");constant data_buf2:data_buffer:=(x"20",x"20",x"c7",x"eb",x"ca",x"e4",x"c8",x"eb", --请输入密码： 88x"c3",x"dc",x"c2",x"eb",x"3a",x"20",x"20",x"20");constant data_buf3:data_buffer:=(x"20",x"20",x"d6",x"d8",x"d0",x"c2",x"ca",x"e4", --重新输入x"c8",x"eb",x"20",x"20",x"20",x"20",x"20",x"20");constant data_buf4:data_buffer:=(x"20",x"20",x"bd",x"e2"，x"cb",x"f8",x"b3",x"c9", --解锁成功x"b9",x"a6",x"20",x"20",x"20",x"20",x"20",x"20");constant data_buf5:data_buffer:=( x"20",x"20", --进入死锁状态x"bd",x"f8",x"c8",x"eb",x"cb",x"c0",x"cb",x"f8",x"d7",x"b4",x"cc",x"ac",x"20",x"20");constant data_buf6:data_buffer:=(x"20",x"20",x"bd",x"e2", --x"cb",x"f8",x"b3",x"c9",x"b9",x"a6", x"21",x"20",x"20",x"20",x"20",x"20"); begin--U1:divclk1 port map(clk,clk_100k);process(clk)variable cnt:integer range 0 to divide_to_100k;beginif(clk'event and clk='1')then cnt:=cnt+1;if(cnt=divide_to_100k)then cnt:=0;end if;if(cnt<divide_to_100k/2) then clk_100k<='0';else clk_100k<='1';end if;end if;end process;div_1Hz:process(clk)variable cnttemp:integer range 0 to 49999999;beginif clk='1' and clk'event thenif cnttemp=49999999 then cnttemp:=0;elseif cnttemp<25000000 then clkout<='1';else clkout<='0';end if;cnttemp:=cnttemp+1;end if;end if;end process div_1Hz;disp_time(7)<=DATAIN(3 downto 0)+x"30";disp_time(6)<=DATAIN(7 downto 4)+x"30";disp_time(5)<=DATAIN(11 downto 8)+x"30";disp_time(4)<=DATAIN(15 downto 12)+x"30";disp_time(3)<=DATAIN(19 downto 16)+x"30";disp_time(2)<=DATAIN(23 downto 20)+x"30";disp_time(1)<=DATAIN(27 downto 24)+x"30";disp_time(0)<=DATAIN(31 downto 28)+x"30";read_time:process(time)beginend process;process(clk_100k)variable cnt1:integer range 0 to 10000;variable cnt_1:integer range 0 to 1000;variable code_cnt:integer range 0 to 13;variable data_cnt:integer range 0 to 480;beginif(clk_100k'event and clk_100k='1')thencase current_s iswhen s0=>rw<='1';rs<='1';e<='1';cnt1:=cnt1+1; if cnt1<500 then lcd_rst<='0';elsif cnt1<1000 then lcd_rst<='1';elsif cnt1=1000 thenlcd_rst<='1';cnt1:=0;current_s<=s1;end if;when s1=>cnt_1:=cnt_1+1;if cnt_1<1*3 then e<='1';rs<='0';rw<='0';elsif cnt_1<2*3 then lcd_data<=x"0c";elsif cnt_1<10*3 then e<='0';elsif cnt_1=10*3 then cnt_1:=0;current_s<=s2; end if;when s2=>cnt_1:=cnt_1+1;if cnt_1<1*3 then e<='1';rs<='0';rw<='0';elsif cnt_1<2*3 then lcd_data<=x"90";elsif cnt_1<10*3 then e<='0';elsif cnt_1=10*3 then cnt_1:=0;current_s<=s3; end if;when s3=>if cnt_1<1*3 then e<='1';rs<='1';rw<='0';elsif cnt_1<2*3 thenlcd_data<=data_buf1(data_cnt);elsif cnt_1=2*3 then data_cnt:=data_cnt+1;elsif cnt_1<100 then e<='0';end if;cnt_1:=cnt_1+1;if cnt_1=100 then cnt_1:=0;if data_cnt=16 then current_s<=s4; data_cnt:=0;end if;end if;when s4=>cnt_1:=cnt_1+1;if cnt_1<1*3 then e<='1';rs<='0';rw<='0';elsif cnt_1<2*3 then lcd_data<=x"88";elsif cnt_1<10*3 then e<='0';elsif cnt_1=10*3 then cnt_1:=0;current_s<=s5; end if;when s5=>if cnt_1<1*3 then e<='1';rs<='1';rw<='0';elsif cnt_1<2*3 thenlcd_data<=data_buf2(data_cnt);elsif cnt_1=2*3 then data_cnt:=data_cnt+1;elsif cnt_1<100 then e<='0';end if;cnt_1:=cnt_1+1;if cnt_1=100 then cnt_1:=0;if data_cnt=16 then current_s<=s6; data_cnt:=0;end if;end if;when s6=>cnt_1:=cnt_1+1;if cnt_1<1*3 then e<='1';rs<='0';rw<='0';elsif cnt_1<2*3 then lcd_data<=x"80";elsif cnt_1<10*3 then e<='0';elsif cnt_1=10*3 then cnt_1:=0;current_s<=s7; end if;when s7=>if cnt_1<1*3 then e<='1';rs<='1';rw<='0';elsif cnt_1<2*3 thenlcd_data<=data_buf0(data_cnt);elsif cnt_1=2*3 then data_cnt:=data_cnt+1;elsif cnt_1<100 then e<='0';end if;cnt_1:=cnt_1+1;if cnt_1=100 then cnt_1:=0;if data_cnt=16 then current_s<=s8;data_cnt:=0;end if;end if;--动态显示when s8=>cnt_1:=cnt_1+1;if cnt_1<1*3 then e<='1';rs<='0';rw<='0';elsif cnt_1<2*3 then lcd_data<=x"9a";elsif cnt_1<10*3 then e<='0';elsif cnt_1=10*3 then cnt_1:=0;current_s<=s9;end if;when s9=>if cnt_1<1*3 then e<='1';rs<='1';rw<='0'; elsif cnt_1<2*3 thenlcd_data<=disp_time(data_cnt);elsif cnt_1=2*3 then data_cnt:=data_cnt+1;elsif cnt_1<100 then e<='0';end if;cnt_1:=cnt_1+1;if cnt_1=100 then cnt_1:=0;if data_cnt=8 then current_s<=s10;data_cnt:=0;end if;end if;--------------------------------------------------------------when s10=>cnt_1:=cnt_1+1;if din<=10 thenif cnt_1<1*3 then e<='1';rs<='0';rw<='0';elsif cnt_1<2*3 then lcd_data<=x"88";elsif cnt_1<10*3 then e<='0';elsif cnt_1=10*3 then cnt_1:=0;current_s<=s11;end if;else current_s<=s12;end if;when s11=>if cnt_1<1*3 then e<='1';rs<='1';rw<='0'; elsif cnt_1<2*3 thenlcd_data<=data_buf4(data_cnt);elsif cnt_1=2*3 then data_cnt:=data_cnt+1;elsif cnt_1<100 then e<='0';end if;cnt_1:=cnt_1+1;if cnt_1=100 then cnt_1:=0;if data_cnt=8 then current_s<=s0;data_cnt:=0;end if;end if;when s12=>cnt_1:=cnt_1+1;if cnt_1<1*3 then e<='1';rs<='0';rw<='0';elsif cnt_1<2*3 then lcd_data<=x"88";elsif cnt_1<10*3 then e<='0';elsif cnt_1=10*3 then cnt_1:=0;current_s<=s13;end if;when s13=>if cnt_1<1*3 then e<='1';rs<='1';rw<='0'; elsif cnt_1<2*3 thenlcd_data<=data_buf3(data_cnt);elsif cnt_1=2*3 then data_cnt:=data_cnt+1;elsif cnt_1<100 then e<='0';end if;cnt_1:=cnt_1+1;if cnt_1=100 then cnt_1:=0;if data_cnt=8 then current_s<=s14;data_cnt:=0;end if;end if;when s14=>cnt_1:=cnt_1+1;if cnt_1<1*3 then e<='1';rs<='0';rw<='0';elsif cnt_1<2*3 then lcd_data<=x"98";elsif cnt_1<10*3 then e<='0';elsif cnt_1=10*3 then cnt_1:=0;current_s<=s15;end if;when s15=>if cnt_1<1*3 then e<='1';rs<='1';rw<='0';elsif cnt_1<2*3 thenlcd_data<=disp_time(data_cnt);elsif cnt_1=2*3 then data_cnt:=data_cnt+1;elsif cnt_1<100 then e<='0';end if;cnt_1:=cnt_1+1;if cnt_1=100 then cnt_1:=0;if data_cnt=8 then current_s<=s16;data_cnt:=0;end if;end if;------------------------------------------------------------------------------------------------when s16=>cnt_1:=cnt_1+1;if din<=10 thenif cnt_1<1*3 then e<='1';rs<='0';rw<='0';elsif cnt_1<2*3 then lcd_data<=x"88";elsif cnt_1<10*3 then e<='0';elsif cnt_1=10*3 then cnt_1:=0;current_s<=s17;end if;else current_s<=s18;end if;when s17=>if cnt_1<1*3 then e<='1';rs<='1';rw<='0'; elsif cnt_1<2*3 thenlcd_data<=data_buf4(data_cnt);elsif cnt_1=2*3 then data_cnt:=data_cnt+1;elsif cnt_1<100 then e<='0';end if;cnt_1:=cnt_1+1;if cnt_1=100 then cnt_1:=0;if data_cnt=8 then current_s<=s0;data_cnt:=0;end if;end if;when s18=>cnt_1:=cnt_1+1;if cnt_1<1*3 then e<='1';rs<='0';rw<='0';elsif cnt_1<2*3 then lcd_data<=x"88";elsif cnt_1<10*3 then e<='0';elsif cnt_1=10*3 then cnt_1:=0;current_s<=s19;end if;when s19=>if cnt_1<1*3 then e<='1';rs<='1';rw<='0'; elsif cnt_1<2*3 thenlcd_data<=data_buf3(data_cnt);elsif cnt_1=2*3 then data_cnt:=data_cnt+1;elsif cnt_1<100 then e<='0';end if;cnt_1:=cnt_1+1;if cnt_1=100 then cnt_1:=0;if data_cnt=8 then current_s<=s20;data_cnt:=0;end if;end if;when s20=>cnt_1:=cnt_1+1;if cnt_1<1*3 then e<='1';rs<='0';rw<='0';elsif cnt_1<2*3 then lcd_data<=x"98";elsif cnt_1<10*3 then e<='0';elsif cnt_1=10*3 then cnt_1:=0;current_s<=s21;end if;when s21=>if cnt_1<1*3 then e<='1';rs<='1';rw<='0'; elsif cnt_1<2*3 thenlcd_data<=disp_time(data_cnt);elsif cnt_1=2*3 then data_cnt:=data_cnt+1;elsif cnt_1<100 then e<='0';end if;cnt_1:=cnt_1+1;if cnt_1=100 then cnt_1:=0;if data_cnt=8 then current_s<=s22;data_cnt:=0;end if;end if;------------------------------------------------------------------------------when s22=>cnt_1:=cnt_1+1;if din<=10 thenif cnt_1<1*3 then e<='1';rs<='0';rw<='0';elsif cnt_1<2*3 then lcd_data<=x"88";elsif cnt_1<10*3 then e<='0';elsif cnt_1=10*3 then cnt_1:=0;current_s<=s23;end if;else current_s<=s24;end if;when s23=>if cnt_1<1*3 then e<='1';rs<='1';rw<='0'; elsif cnt_1<2*3 thenlcd_data<=data_buf4(data_cnt);elsif cnt_1=2*3 then data_cnt:=data_cnt+1;elsif cnt_1<100 then e<='0';end if;cnt_1:=cnt_1+1;if cnt_1=100 then cnt_1:=0;if data_cnt=8 then current_s<=s0;data_cnt:=0;end if;end if;when s24=>cnt_1:=cnt_1+1;if cnt_1<1*3 then e<='1';rs<='0';rw<='0';elsif cnt_1<2*3 then lcd_data<=x"88";elsif cnt_1<10*3 then e<='0';elsif cnt_1=10*3 then cnt_1:=0;current_s<=s25;end if;when s25=>if cnt_1<1*3 then e<='1';rs<='1';rw<='0'; elsif cnt_1<2*3 thenlcd_data<=data_buf3(data_cnt);elsif cnt_1=2*3 then data_cnt:=data_cnt+1;elsif cnt_1<100 then e<='0';end if;cnt_1:=cnt_1+1;if cnt_1=100 then cnt_1:=0;if data_cnt=8 then current_s<=s26;data_cnt:=0;end if;end if;when s26=>cnt_1:=cnt_1+1;if cnt_1<1*3 then e<='1';rs<='0';rw<='0';elsif cnt_1<2*3 then lcd_data<=x"98";elsif cnt_1<10*3 then e<='0';elsif cnt_1=10*3 then cnt_1:=0;current_s<=s27;end if;when s27=>if cnt_1<1*3 then e<='1';rs<='1';rw<='0'; elsif cnt_1<2*3 thenlcd_data<=disp_time(data_cnt);elsif cnt_1=2*3 then data_cnt:=data_cnt+1;elsif cnt_1<100 then e<='0';end if;cnt_1:=cnt_1+1;if cnt_1=100 then cnt_1:=0;if data_cnt=8 then current_s<=s28;data_cnt:=0;end if;end if;--------------------------------------------------------------------------------------when s28=>cnt_1:=cnt_1+1;if din<=10 thenif cnt_1<1*3 then e<='1';rs<='0';rw<='0';elsif cnt_1<2*3 then lcd_data<=x"88";elsif cnt_1<10*3 then e<='0';elsif cnt_1=10*3 then cnt_1:=0;current_s<=s29;end if;else current_s<=s30;end if;when s29=>if cnt_1<1*3 then e<='1';rs<='1';rw<='0'; elsif cnt_1<2*3 thenlcd_data<=data_buf4(data_cnt);elsif cnt_1=2*3 then data_cnt:=data_cnt+1;elsif cnt_1<100 then e<='0';end if;cnt_1:=cnt_1+1;if cnt_1=100 then cnt_1:=0;if data_cnt=8 then current_s<=s0;data_cnt:=0;end if;end if;when s30=>cnt_1:=cnt_1+1;if cnt_1<1*3 then e<='1';rs<='0';rw<='0';elsif cnt_1<2*3 then lcd_data<=x"88";elsif cnt_1<10*3 then e<='0';elsif cnt_1=10*3 then cnt_1:=0;current_s<=s31;end if;when s31=>if cnt_1<1*3 then e<='1';rs<='1';rw<='0'; elsif cnt_1<2*3 thenlcd_data<=data_buf4(data_cnt);elsif cnt_1=2*3 then data_cnt:=data_cnt+1;elsif cnt_1<100 then e<='0';end if;cnt_1:=cnt_1+1;if cnt_1=100 then cnt_1:=0;if data_cnt=8 then current_s<=s30;data_cnt:=0;end if;end if;when others=>current_s<=s0;end case;end if;end process;end tcl;2、键盘控制子程序LIBRARY ieee;USE ieee.std_logic_1164.all;USE ieee.std_logic_unsigned.all;use ieee.std_logic_arith.all;ENTITY bian_ma0 IS ------编码PORT(en,clk:IN std_logic;kr3,kr2,kr1,kr0:IN std_logic;kc3,kc2,kc1:IN std_logic;SDIN,lock,sec,CR,set,crack:out std_logic; dout:OUT std_logic);END bian_ma0;ARCHITECTURE one OF bian_ma0 ISsignal data:std_logic_vector(5 downto 0); signal ker:std_logic_vector(3 downto 0); signal kec:std_logic_vector(2 downto 0); BEGINker<=kr3&kr2&kr1&kr0;kec<=kc3&kc2&kc1;PROCESS(ker)BEGINif(ker="1111")thencase kec iswhen others=>data<=data;end case;elsif(ker="1110") thencase kec iswhen "100"=>data<="000001";when "010"=>data<="000010";when "001"=>data<="000100";when others=>data<=data;end case;elsif(ker="1101") thencase kec iswhen "001"=>data<="001000";when others=>data<=data;end case;elsif(ker="1011") thencase kec iswhen "001"=>data<="010000";when others=>data<=data;end case;elsif(ker="0111") thencase kec iswhen "001"=>data<="100000";when others=>data<=data;end case;end if;dout<=((not kr3)or(not kr2)or(not kr1)or(not kr0)); end PROCESS;SDIN<=data(5);lock<=data(4);sec<=data(3);CR<=data(2);set<=data(1);crack<=data(0);END one;LIBRARY ieee;USE ieee.std_logic_1164.all;USE ieee.std_logic_unsigned.all;use ieee.std_logic_arith.all;ENTITY bian_ma IS ------编码PORT(en,clk:IN std_logic;kr3,kr2,kr1,kr0:IN std_logic;kc2,kc1,kc0:IN std_logic;kk: out std_logic_vector(31 downto 0); dout:OUT std_logic);END bian_ma;ARCHITECTURE one OF bian_ma ISsignal data:std_logic_vector(3 downto 0);signal ker:std_logic_vector(3 downto 0);signal d7,d6,d5,d4,d3,d2,d1,d0: std_logic_vector(3 downto 0); signal kec:std_logic_vector(2 downto 0);BEGINker<=kr3&kr2&kr1&kr0;kec<=kc2&kc1&kc0;PROCESS(ker)BEGINif(ker="1111")thencase kec iswhen others=>data<=data;end case;elsif(ker="1110") thencase kec iswhen "001"=>data<="1010";when others=>data<=data;end case;elsif(ker="1101") thencase kec iswhen "001"=>data<="0001";when "010"=>data<="0010";when "100"=>data<="0011";when others=>data<=data;end case;elsif(ker="1011") thencase kec iswhen "001"=>data<="0100";when "010"=>data<="0101";when "100"=>data<="0110";when others=>data<=data;end case;elsif(ker="0111") thencase kec iswhen "001"=>data<="0111";when "010"=>data<="1000";when "100"=>data<="1001";when others=>data<=data;end case;end if;dout<=((not kr3)or(not kr2)or(not kr1)or(not kr0));end PROCESS; d7<=data;d6<=data;d5<=data;d4<=data; d3<=data;d2<=data;d1<=data;d0<=data;kk<=d7&d6&d5&d4&d3&d2&d1&d0;END one;(3)工作状态选择library IEEE;use IEEE.std_logic_1164.all;use IEEE.std_logic_unsigned.all; --包含库--use IEEE.std_logic_arith.all;entity kong_zhi_qi isport(SDIN: IN std_logic; -- 串行数据输入trig : IN std_logic; -- 触发时钟lock : in std_logic; -- 上锁信号sec : in std_logic; -- 选择消隐输出CR: IN std_logic; -- 确认输入SET: IN std_logic; -- 设口令CRACK:IN std_logic; -- 解锁din: out integer range 15 downto 0; --输入的数据进行显示 n_err: out std_logic_vector(1 downto 0); --错误次数 n_cr : out std_logic_vector(2 downto 0); -- 输入数据个数ALERT: OUT std_logic; --报警输出REDL: out std_logic; -- 上锁显示标志sc: out std_logic; -- 消隐显示标志dead_lock: out std_logic; -- 死锁标志GREL: out std_logic --解锁显示标志);end entity kong_zhi_qi;architecture behv of kong_zhi_qi is--signal 声明signal pW_reg0: INTEGER RANGE 15 DOWNTO 0; --口令寄存器signal pW_reg1: INTEGER RANGE 15 DOWNTO 0;signal pW_reg2: INTEGER RANGE 15 DOWNTO 0;signal pW_reg3: INTEGER RANGE 15 DOWNTO 0;signal pW_reg4: INTEGER RANGE 15 DOWNTO 0;signal pW_reg5: INTEGER RANGE 15 DOWNTO 0;signal pW_reg6: INTEGER RANGE 15 DOWNTO 0;signal pW_reg7: INTEGER RANGE 15 DOWNTO 0;signal pc_reg0: INTEGER RANGE 15 DOWNTO 0; --解锁暂存器signal pc_reg1: INTEGER RANGE 15 DOWNTO 0;signal pc_reg2: INTEGER RANGE 15 DOWNTO 0;signal pc_reg3: INTEGER RANGE 15 DOWNTO 0;signal pc_reg4: INTEGER RANGE 15 DOWNTO 0;signal pc_reg5: INTEGER RANGE 15 DOWNTO 0;signal pc_reg6: INTEGER RANGE 15 DOWNTO 0;signal pc_reg7: INTEGER RANGE 15 DOWNTO 0;signal data_cnt: integer range 15 downto 0; --输入数据累加器 signal cr_cnt : std_logic_vector(2 downto 0);signal err_cnt: std_logic_vector(1 downto 0);signal tag: std_logic;signal sb : std_logic;--signal bff: INTEGER RANGE 15 DOWNTO 0;beginprocess(trig)beginif trig'event and trig = '1' thenif sec = '0' then sb <= not sb; sc <= sb; --消隐控制end if;if lock = '0' then REDL <= '0'; GREL<='1'; ALERT <= '1'; --上锁end if ;if tag = '1' then din <=1;REDL <= '0';ALERT <= '0'; GREL<='1'; -- 死锁else if SDIN = '0' thendin <= data_cnt;end if;end if;if tag = '0' thenif CR = '0' then -- 确认键按下if SET = '0' then -- 设置口令case cr_cnt iswhen "000" => pW_reg0 <= data_cnt; cr_cnt <= cr_cnt + '1';when "001" => pw_reg1 <= data_cnt; cr_cnt <= cr_cnt + '1';when "010" => pw_reg2 <= data_cnt; cr_cnt <= cr_cnt + '1';when "011" => pw_reg3 <= data_cnt; cr_cnt <= cr_cnt + '1';when "100" => pw_reg4 <= data_cnt; cr_cnt <= cr_cnt + '1';when "101" => pw_reg5 <= data_cnt; cr_cnt <= cr_cnt + '1';when "110" => pw_reg6 <= data_cnt; cr_cnt <= cr_cnt + '1';when "111" => pw_reg7 <= data_cnt; cr_cnt <= cr_cnt + '1';REDL <= '0'; GREL<='1'; ALERT <= '1';when others => pw_reg0 <= 0;end case;else if crack = '0' then -- 解锁case cr_cnt iswhen "000" => pc_reg0 <= data_cnt; cr_cnt <= cr_cnt + '1'; when "001" => pc_reg1 <= data_cnt; cr_cnt <= cr_cnt + '1';when "010" => pc_reg2 <= data_cnt; cr_cnt <= cr_cnt + '1';when "011" => pc_reg3 <= data_cnt; cr_cnt <= cr_cnt + '1';when "100" => pc_reg4 <= data_cnt; cr_cnt <= cr_cnt + '1';when "101" => pc_reg5 <= data_cnt; cr_cnt <= cr_cnt + '1';when "110" => pc_reg6 <= data_cnt; cr_cnt <= cr_cnt + '1';when "111" => cr_cnt <= cr_cnt + '1';-- when "11" => cr_cnt <= cr_cnt + '1';if (pc_reg0 = pw_reg0) thenif (pc_reg1 = pw_reg1) thenif (pc_reg2 = pw_reg2) then-- if (data_cnt = pw_reg3) thenif (pc_reg3 = pw_reg3) thenif (pc_reg4 = pw_reg4) thenif (pc_reg5 = pw_reg5) thenif (pc_reg6 = pw_reg6) thenif (data_cnt = pw_reg7) then din <=10;err_cnt <= "00";REDL <= '1';GREL<='0'; ALERT <= '1'; --解锁成功输出开锁信号else err_cnt <= err_cnt + '1';end if;else err_cnt <= err_cnt + '1';end if;else err_cnt <= err_cnt + '1';end if;else err_cnt <= err_cnt + '1';end if;else err_cnt <= err_cnt + '1';end if;else err_cnt <= err_cnt + '1';end if;else err_cnt <= err_cnt + '1';end if;else err_cnt <= err_cnt + '1';end if;when others => ALERT <= '1';end case;end if;end if;end if;end if;case err_cnt is -- 判断错误次数 when "00" => tag <= '0';when "01" => tag <= '0';when "10" => tag <= '0';when "11" => tag <= '1'; ALERT <= '1'; --死锁when others => tag <= '1'; ALERT <= '1';end case;n_cr <= cr_cnt; --送显示 n_err <= err_cnt;end if;dead_lock <= tag ;end process;end behv;。