eda数码管扫描显示电路

1、显示译码部分library ieee;entity dec7s isport(a:in bit_vector(3 downto 0;onoff:in std_logic;led7s:out bit_vector(6 downto 0;end;architecture one of dec7s isbeginprocess(a,onoffbeginif(onoff='0' then led7s<="0000000"elsif (a="0000" then led7s<="0111111"elsif(a=&qu

2、ot;0001"then led7s<="0000110"elsif(a="0010"then led7s<="1011011"elsif(a="0011"then led7s<="1001111"elsif(a="0100"then led7s<="1100110"elsif(a="0101"then led7s<="1101101"elsif(a="0110&qu

3、ot;then led7s<="1111101"elsif(a="0111"then led7s<="0000111"elsif(a="1000"then led7s<="1111111"elsif(a="1001"then led7s<="1101111"elsif(a="1010"then led7s<="1110111"elsif(a="1011"then le

4、d7s<="1111100"elsif(a="1100"then led7s<="0111001"elsif(a="1101"then led7s<="1011110"elsif(a="1110"then led7s<="1111001"else led7s<="1110001"end if;end process;end one;状态机部分library ieee;ENTITY display ISPOR

5、T( clk: in std_logic;reset: IN STD_LOGIC;d1,d2,d3,d4,d5,d6,d7,d8: in std_logic_vector(3 downto 0; Onoff: out std_logic;Dp:out std_logic;Dout: out std_logic_vector(3 downto 0;Sel: buffer std_logic_vector(2 downto 0;END ;ARCHITECTURE one OF display ISBeginProcess(clk,resetBeginIf reset='1' the

6、n sel<="000"Elsif clk'event and clk='1' thenIf (sel="111"thenSel<="000"ElseSel<=sel+1;End if;end if;end process;process(selbeginif(sel="111" then dout<=d1;onoff<='1'dp<='0' elsif(sel="110" then dout<=d

7、2;onoff<='1'dp<='1' elsif(sel="101" then dout<=d3;onoff<='1'dp<='0' elsif(sel="100" then dout<=d4;onoff<='1'dp<='0' elsif(sel="011" then dout<=d5;onoff<='0'dp<='0' elsif(sel="010" then dout<=d6;onoff<='1'dp<='0' elsif(sel="001" then dout<=d7;onoff<='1'dp<='1' el