6、输入控制电路源程序key-buffer：.txt

该数字闹钟包括以下几个组成部分: (1) 显示屏,由6个七段数码管组成,用于显示当前时间(时 分 秒)或设置的闹钟时间 (2) KEY键:用于输入新的时间或新的闹钟时间时,对每位输入数字的确认 (3)

 LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
PACKAGE P_ALARM IS
SUBTYPE T_DIGITAL IS INTEGER RANGE 0 TO 9;
SUBTYPE T_SHORT IS INTEGER RANGE 0 TO 65535;
TYPE T_CLOCK_TIME IS ARRAY(5 DOWNTO 0)OF T_DIGITAL;
TYPE T_DISPLAY IS ARRAY (5 DOWNTO 0)OF T_DIGITAL;
END PACKAGE P_ALARM;
LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;
USE WORK.P_ALARM.ALL;
ENTITY KEY_BUFFER IS
PORT(KEY:IN STD_LOGIC;
     CLK:IN STD_LOGIC;
     RESET:IN STD_LOGIC;
     KEYNUM:OUT STD_LOGIC_VECTOR(3 DOWNTO 0);
     NEW_TIME:OUT T_CLOCK_TIME);
END ENTITY KEY_BUFFER;
ARCHITECTURE ART OF KEY_BUFFER IS
  SIGNAL N_T:T_CLOCK_TIME;
  SIGNAL CNT:STD_LOGIC_VECTOR(3 DOWNTO 0);
  SIGNAL TEMP:T_DIGITAL;
  BEGIN
     PROCESS(CLK)IS
  BEGIN
    IF(CLK'EVENT AND CLK='1')THEN
      IF CNT=9 THEN
        CNT<="0000";
      ELSE CNT<=CNT+'1';
      END IF;
    END IF;
  TEMP<=CONV_INTEGER(CNT);
  KEYNUM<=CNT;
END PROCESS;
SHIFT:PROCESS(RESET,KEY)IS
BEGIN
  IF(RESET='1')THEN
    N_T(5)<=0;
    N_T(4)<=0;
    N_T(3)<=0;
    N_T(2)<=0;
    N_T(1)<=0;
    N_T(0)<=0;
  ELSIF(KEY'EVENT AND KEY='1')THEN
    FOR I IN 5 DOWNTO 1 LOOP
      N_T(I)<=N_T(I-1);
    END LOOP;
   N_T(0)<=TEMP;
   END IF;
 END PROCESS;
  NEW_TIME<=N_T;
END ARCHITECTURE ART;