segdis01.vhd

关于自动打铃器的程序设计。应该还是不错的哦！~

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

entity segdis01 is
  port( sclk:    in std_logic;
        leddis:  out std_logic_vector(7 downto 0);
        disin:   in integer range 0 to 2);

procedure led(number: integer range 0 to 2) is
  begin
       case number is
           when 0=>
             leddis<="00111111";
           when 1=>
             leddis<="00000110";
           when 2=>
             leddis<="01011011";
                   end case;
 end led;
end segdis01;

architecture segarchi of segdis01 is
   begin
      scan:
        process(sclk)
          begin
            if (sclk='1' and sclk'event) then
              led(disin);
            end if;
         end process;
   end segarchi;