(密码锁程序.docVIP

1、设计一个密码锁的控制电路，当输入正确代码时，输出开锁信号以推动执行机构工作，用红灯亮、绿灯熄灭表示关锁，用绿灯亮、红灯熄灭表示开锁；2、在锁的控制电路中储存一个可以修改的4位二进制代码，当开锁按钮开关的输入代码等于储存代码时，开锁；3、 从第一个按钮触动后的30秒内若未将锁打开，则电路长报警5S，若输入密码错误1或2次，则每次短报警1S，若输错三次密码则长报警。 ? library ieee;use ieee.std_logic_1164.all;use ieee.std_logic_unsigned.all;entity lock is? port(clk_1k:in std_logic;????????????????????????? --1024HZ频率输入管脚enter_2,enter_1: in std_logic;??????????????????????? --设密码确认及输入密码确认?????? datain:in std_logic_vector(3 downto 0);?????? --密码数据输入???? speaker:out std_logic;????????????????????????? --喇叭? led_g,led_r:out std_logic);??????????????????????? --绿灯及红灯end entity lock; architecture behave of lock issignal ram:std_logic_vector(3 downto 0);signal judge:std_logic;signal clk:std_logic;signal turn_on,turn_off:std_logic;beginprocess(Clk_1k)variable clk_count:std_logic_vector(8 downto 0):=000000000;?begin?if clk_1kevent and clk_1k=1 then??????????????? --分频??? if clk_count511 then?????????????????????????? ?????? clk_count:=clk_count+1;??? else ?????? clk_count:=000000000;?????? clk=not clk;??? end if;?? ?end if;?end process; process(datain,enter_1)????????????????????????????? --设置密码beginif enter_1event and enter_1=1 thenram=datain;end if;end process; process(clk_1k)??????????????????????????????????????? --判断第一位密码按下时开始计时beginif clk_1kevent and clk_1k=1 then?? if enter_1=0 then ????? judge=0; ?? end if;?? if judge=0 and enter_1=1 then ????? if datain/=ram then judge=1;end if;?? end if;end if;end process; process(judge,clk,enter_2)variable count:std_logic_vector(4 downto 0):=00000;??? --判断自第一个按键开始的时间是否超30秒variable judge_sh:std_logic_vector(1 downto 0):=00;???? --判断输入错误密码次数variable switch:std_logic:=0;????????????????????????? --判断是否锁定键盘? begin? if clkevent and clk=1 then ???? if enter_1=0 then???????????????????????????????? --数据复位??????? count:=00000;judge_sh:=00;switch:=0;???? end if;??? if switch=0 then???? if judge=1 then ??????? if count11110 then??????????????????????????? --30 秒计时????