cora.vhd

8*8的点阵设计例子可以让刚开始做设计的朋友来参考一下

library ieee;
use ieee.std_logic_1164.all;

entity cora is
   port(ch:  in  std_logic_vector(1 downto 0);
        sel: in  std_logic_vector(2 downto 0);
        hang:out std_logic_vector(7 downto 0);
        lie: out std_logic_vector(7 downto 0));
end cora;

architecture corn_arc of cora is
   begin
     process(ch,sel)
       begin
         case ch is
            when"00"=>
              case sel is
                when"000"=>hang<="00000001"; lie<="00000000";
                when"001"=>hang<="00000010"; lie<="01111110";
                when"010"=>hang<="00000100"; lie<="01111110";
                when"011"=>hang<="00001000"; lie<="01111110";
                when"100"=>hang<="00010000"; lie<="01111110";
                when"101"=>hang<="00100000"; lie<="01111110";
                when"110"=>hang<="01000000"; lie<="01111110";
                when"111"=>hang<="10000000"; lie<="00000000";
                when others=>null;
              end case;
            when"01"=>
              case sel is
                when"000"=>hang<="00000001"; lie<="11111111";
                when"001"=>hang<="00000010"; lie<="10000001";
                when"010"=>hang<="00000100"; lie<="10111101";
                when"011"=>hang<="00001000"; lie<="10111101";
                when"100"=>hang<="00010000"; lie<="10111101";
                when"101"=>hang<="00100000"; lie<="10111101";
                when"110"=>hang<="01000000"; lie<="10000001";
                when"111"=>hang<="10000000"; lie<="11111111";
                when others=>null;
              end case;
            when"10"=>
              case sel is
                when"000"=>hang<="00000001"; lie<="11111111";
                when"001"=>hang<="00000010"; lie<="11111111";
                when"010"=>hang<="00000100"; lie<="11000011";
                when"011"=>hang<="00001000"; lie<="11011011";
                when"100"=>hang<="00010000"; lie<="11011011";
                when"101"=>hang<="00100000"; lie<="11000011";
                when"110"=>hang<="01000000"; lie<="11111111";
                when"111"=>hang<="10000000"; lie<="11111111";
                when others=>null;
              end case;
            when"11"=>
              case sel is
                when"000"=>hang<="00000001"; lie<="11111111";
                when"001"=>hang<="00000010"; lie<="11111111";
                when"010"=>hang<="00000100"; lie<="11111111";
                when"011"=>hang<="00001000"; lie<="11100111";
                when"100"=>hang<="00010000"; lie<="11100111";
                when"101"=>hang<="00100000"; lie<="11111111";
                when"110"=>hang<="01000000"; lie<="11111111";
                when"111"=>hang<="10000000"; lie<="11111111";
                when others=>null;
              end case;
           when others=>null;
        end case;
     end process;
end corn_arc;