tsalarm.vhd

来自「这是一个数字中的课程设计」· VHDL 代码 · 共 26 行

LIBRARY ieee;
use ieee.std_logic_1164.all;
ENTITY tsalarm IS
   PORT(amin1,amin0,ah1,ah0,sec1,sec0,min1,min0,h1,h0   :in  std_logic_vector(3 downto 0);
         clk                                       :in  std_logic;
  	    sound                                 :OUT std_logic);
END tsalarm;
ARCHITECTURE art OF tsalarm IS
BEGIN
process(clk,amin1,amin0,ah1,ah0,sec0,min1,min0,h1,h0)
begin
if clk'event and clk='1'then

 if min1=amin1 and min0=amin0 and h1=ah1 and h0=ah0 then

    if sec1="0000" and sec0<"1001" then
        sound<='1';
     else
   sound<='0';
  end if;
 end if;
end if; 
end process;   
end art;