ywjcq.vhd

来自「本源码用VHDL语言实现了用键盘控制米字管显示十进制」· VHDL 代码 · 共 20 行

library ieee;
use ieee.std_logic_1164.all;
entity ywjcq is
port(clk,load:in std_logic;
     y:in std_logic_vector(6 downto 0);
     dout:buffer std_logic_vector(6 downto 0));
end ywjcq;
architecture bb of ywjcq is
 begin
  process(clk,load)
   begin
    if load='1' then
       dout<=y;
  elsif clk'event and clk='1' then
     dout<=dout(0)&dout(6 downto 1);
  end if;
end process;
end bb;