day1.vhd

VHDL写的数字钟

Library ieee;
Use ieee.std_logic_1164.all;
Use ieee.std_logic_arith.all;
Use ieee.std_logic_unsigned.all;
Entity day1 is
  Port(
		clkd,set,reset:in std_logic;
		setd:in std_logic;            --――置数端（星期）
		day:buffer std_logic_vector(2 downto 0)
		);       -- ――星期输出端
end;
Architecture a of day1 is
 Begin
  Process(clkd,reset,set,setd)
  	variable d:std_logic_vector(2 downto 0);
  Begin
    If reset='0' then 
		day<="000";                --  ――对星期计时器清0
    Elsif set='1' then 
		if rising_edge(setd) then                    --――对星期计时器置d1的数
			if d=6 then
				d:="000";
			else
				d:=d+1;
			end if;
		end if;
		day<=d;	 
    Elsif clkd'event and clkd='1' then
		If day=6 then 
			day<="000";                 --――重复计数  
		Else 
			day<=day+1;
		End if;
   End if;
 End process;
End;