segdis.vhd

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

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

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

procedure led(number: integer range 0 to 9) is
  begin
       case number is
           when 0=>
             leddis<="00111111";
           when 1=>
             leddis<="00000110";
           when 2=>
             leddis<="01011011";
           when 3=>
             leddis<="01001111";
           when 4=>
             leddis<="01100110";
           when 5=>
             leddis<="01101101";
           when 6=>
             leddis<="01111101";
           when 7=>
             leddis<="00000111";
           when 8=>
             leddis<="01111111";
           when 9=>
             leddis<="01101111";
         end case;
 end led;
end segdis;

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