seltime.vhd

来自「几个VHDL实现的源程序及其代码」· VHDL 代码 · 共 42 行

library ieee;
use ieee.std_logic_1164.all;
use ieee.std_logic_unsigned.all;

entity seltime is
port(
     clk : in std_logic;
     S : in std_logic_vector(31 downto 0);
     daout: out std_logic_vector(3 downto 0);
     sel : out std_logic_vector(2 downto 0));
end seltime;

architecture behav of seltime is
signal sec : std_logic_vector(2 downto 0);
begin
process(clk)
begin
if(clk'event and clk='1') then  
if(sec="111") then
   sec<="000";
else
   sec<=sec+1;
end if;
end if;
end process;
process(sec,S(31 downto 0))
begin
case sec is
when "000"=>daout<=S(3 downto 0);
when "001"=>daout<=S(7 downto 4);
when "010"=>daout<=S(11 downto 8);
when "011"=>daout<=S(15 downto 12);
when "100"=>daout<=S(19 downto 16);
when "101"=>daout<=S(23 downto 20);
when "110"=>daout<=S(27 downto 24);
when "111"=>daout<=S(31 downto 28);
when others=>daout<="XXXX";
end case;
end process;
sel<=sec;
end behav;