dial1.vhd

Mars-XC2S50-S-Core-V2.0开发板核心板的说明和设计文档

--用数码管显示拨码开关状态的十六进值
library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;

ENTITY dial1 IS
   PORT (
      clk                     : IN std_logic;   
      rst                     : IN std_logic;   
      datain                  : IN std_logic_vector(7 downto 0);
      dataout                 : OUT std_logic_vector(7 DOWNTO 0);   --各段数据输出  
      en                      : OUT std_logic_vector(7 DOWNTO 0));  --COM使能输出 
END dial1;

ARCHITECTURE arch OF dial1 IS
signal cnt_scan : std_logic_vector(15 downto 0 );
signal data4 :    std_logic_vector(3 downto 0);
signal dataout_xhdl1 : std_logic_vector(7 downto 0);
signal en_xhdl : std_logic_vector(1 downto 0);
begin

 dataout<=dataout_xhdl1;

 en(7 downto 2)<="111111";

 en(1 downto 0)<= en_xhdl(1)&en_xhdl(0);
 process(clk,rst)
 begin
   if(rst='0')then 
   cnt_scan<="0000000000000000";
   elsif(clk'event and clk='1')then
   cnt_scan<=cnt_scan+1;
   end if;
 end process;
 
 process(cnt_scan(15),rst)
 begin
   if(rst='0')then
   en_xhdl<="10";
   elsif(cnt_scan(15)'event and cnt_scan(15)='1')then
   en_xhdl(1)<= not en_xhdl(1);
   en_xhdl(0)<= not en_xhdl(0);
   end if;
end process;

process(en_xhdl,data4,datain)
begin
 if(en_xhdl="10")then
   data4<=datain(3 downto 0);
 else
   data4<=datain(7 downto 4);
end if;
end process;

process(data4)
begin
  case data4 is
   WHEN "0000" =>
                  dataout_xhdl1 <= "00000011";    
         WHEN "0001" =>
                  dataout_xhdl1 <= "10011111";    
         WHEN "0010" =>
                  dataout_xhdl1 <= "00100101";    
         WHEN "0011" =>
                  dataout_xhdl1 <= "00001101";    
         WHEN "0100" =>
                  dataout_xhdl1 <= "10011001";    
         WHEN "0101" =>
                  dataout_xhdl1 <= "01001001";    
         WHEN "0110" =>
                  dataout_xhdl1 <= "01000001";    
         WHEN "0111" =>
                  dataout_xhdl1 <= "00011111";    
         WHEN "1000" =>
                  dataout_xhdl1 <= "00000001";    
         WHEN "1001" =>
                  dataout_xhdl1 <= "00011001";    
         WHEN "1010" =>
                  dataout_xhdl1 <= "00010001";    
         WHEN "1011" =>
                  dataout_xhdl1 <= "11000001";    
         WHEN "1100" =>
                  dataout_xhdl1 <= "01100011";    
         WHEN "1101" =>
                  dataout_xhdl1 <= "10000101";    
         WHEN "1110" =>
                  dataout_xhdl1 <= "01100001";    
         WHEN "1111" =>
                  dataout_xhdl1 <= "01110001";    
         WHEN OTHERS =>
               dataout_xhdl1 <= "00000011"; 
         
      END CASE;
   END PROCESS;
   
end arch;