5、显示器源程序driver：.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 WORK.P_ALARM.ALL;
USE IEEE.STD_LOGIC_ARITH.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;
ENTITY DRIVER IS 
PORT(KEYNUM:IN STD_LOGIC_VECTOR(3 DOWNTO 0);
CLK:IN STD_LOGIC;
ALARM_TIME:IN T_CLOCK_TIME;
CURRENT_TIME:IN T_CLOCK_TIME;
NEW_TIME:IN T_CLOCK_TIME;
SHOW_NEW_TIME:IN STD_LOGIC;
SHOW_A:IN STD_LOGIC;
SOUND_ALARM:OUT STD_LOGIC;
LEDW:OUT STD_LOGIC_VECTOR(2 DOWNTO 0);
SEG7:OUT STD_LOGIC_VECTOR(7 DOWNTO 0));
END ENTITY DRIVER;
ARCHITECTURE ART OF DRIVER IS 
SIGNAL DISPLAY_TIME:T_CLOCK_TIME;
SIGNAL TEMP:INTEGER RANGE 0 TO 9;
SIGNAL CNT:STD_LOGIC_VECTOR(2 DOWNTO 0);
BEGIN
CTRL:PROCESS(ALARM_TIME,CURRENT_TIME,NEW_TIME,SHOW_A,SHOW_NEW_TIME)IS
BEGIN
SOUND_LP:FOR I IN ALARM_TIME'RANGE LOOP
IF NOT(ALARM_TIME(I)=CURRENT_TIME(I))THEN
  SOUND_ALARM<='0';
  ELSE
SOUND_ALARM<='1';
END IF;
END LOOP SOUND_LP;
IF SHOW_NEW_TIME='1' THEN
DISPLAY_TIME<=NEW_TIME;
ELSIF SHOW_A='1' THEN
DISPLAY_TIME<=ALARM_TIME;
ELSIF SHOW_A='0'THEN
  DISPLAY_TIME<=CURRENT_TIME;
ELSE
ASSERT  FALSE REPORT "UNCERTAIN  DISPLAY_DEIVER CONTROL!"
SEVERITY WARNING;
END IF;
END PROCESS;
PROCESS(CLK)IS 
BEGIN
IF CLK'EVENT AND CLK='1' THEN
IF CNT="111" THEN
CNT<="000";
ELSE
CNT<=CNT+'1';
END IF;
END IF;
END PROCESS;
LEDW<=CNT;
PROCESS(CNT)IS 
BEGIN
CASE CNT IS
WHEN "000"=>TEMP<=DISPLAY_TIME(0);
WHEN "001"=>TEMP<=DISPLAY_TIME(1);
WHEN "010"=>TEMP<=DISPLAY_TIME(2);
WHEN "011"=>TEMP<=DISPLAY_TIME(3);
WHEN "100"=>TEMP<=DISPLAY_TIME(4);
WHEN "101"=>TEMP<=DISPLAY_TIME(5);
WHEN "111"=>TEMP<=CONV_INTEGER(KEYNUM);
WHEN OTHERS=>TEMP<=0;
END CASE;
CASE TEMP IS
WHEN 0=>SEG7<="00111111";
WHEN 1=>SEG7<="00000110";
WHEN 2=>SEG7<="01011011";
WHEN 3=>SEG7<="01001111";
WHEN 4=>SEG7<="01100110";
WHEN 5=>SEG7<="01101101";
WHEN 6=>SEG7<="01111101";
WHEN 7=>SEG7<="00000111";
WHEN 8=>SEG7<="01111111";
WHEN 9=>SEG7<="01101111";
WHEN OTHERS=>SEG7<="00111111";
END CASE;
END PROCESS;
END ART;