7段数码管显示的VHDL设计(两款设计方案)

发表于 2018-01-29 15:48:22 收藏 已收藏
赞(0) •  评论(0

7段数码管显示的VHDL设计(两款设计方案)

发表于 2018-01-29 15:48:22

数码管的一种是半导体发光器件,数码管可分为七段数码管和八段数码管,区别在于八段数码管比七段数码管多一个用于显示小数点的发光二极管单元DP(decimal point),其基本单元是发光二极管。

7段数码管显示的VHDL设计一:7段数码显示译码器

LIBRARY IEEE;

USE IEEE.STD_LOGIC_1164.ALL; ENTITY DecL7S IS

PORT(A :IN STD_LOGIC_VECTOR(3 DOWNTO 0);

LED7S:OUT STD_LOGIC_VECTOR(6 DOWNTO 0) ); END;

ARCHITECTURE one OF DecL7S IS BEGIN

PROCESS(A) BEGIN

CASE A(3 DOWNTO 0) IS

WHEN “0000”=》LED7S《=”0111111”;

WHEN “0001”=》LED7S《=”0000110”;

WHEN “0010”=》LED7S《=”1011011”;

WHEN “0011”=》LED7S《=”1001111”;

WHEN “0100”=》LED7S《=”1100110”;

WHEN “0101”=》LED7S《=”1101101”;

WHEN “0110”=》LED7S《=”1111101”;

WHEN “0111”=》LED7S《=”0000111”;

WHEN “1000”=》LED7S《=”1111111”;

WHEN “1001”=》LED7S《=”1101111”;

WHEN “1010”=》LED7S《=”1110111”;

WHEN “1011”=》LED7S《=”1111100”;

WHEN “1100”=》LED7S《=”0111001”;

WHEN “1101”=》LED7S《=”1011110”;

WHEN “1110”=》LED7S《=”1111001”;

WHEN “1111”=》LED7S《=”1110001”;

WHEN OTHERS=》 NULL;

END CASE; END PROCESS;

END;

波形仿真

7段数码管显示的VHDL设计(两款设计方案)

调出VHDL描述产生的2选1多路选择器的原理图。点击TOOLS-》NELIST VIEWERS-》RTL VIEWERS,即调出VHDL描述产生的2选1多路选择器的RTL电路图,如下所示:

7段数码管显示的VHDL设计(两款设计方案)

7段数码管显示译码器的VHDL设计二:基于vhdl 实现的4位七段数码管显示

显示内容为4位16进制数,数码管共阴极连接。 有置数及自加一功能。

LIBRARY IEEE;

USE IEEE.STD_LOGIC_1164.ALL;

USE ieee.std_logic_unsigned.all;

ENTITY counter0000_ffff IS PORT ( clk, en :in STD_LOGIC;

set_ch:in std_logic_vector( 1 downto 0);

set_num :in std_logic_vector( 3 downto 0);

data : out STD_LOGIC_VECTOR(6 DOWNTO 0);

sel : out STD_LOGIC_VECTOR(2 DOWNTO 0) );

END counter0000_ffff;

architecture behave of counter0000_ffff is

signal num,num1,num2,num3,num4: std_logic_vector (3 downto 0);

signal num_counter:std_logic;

begin

a:process( clk )

variable cc: integer range 0 to 3:=0;

begin

if( clk = ‘0’ ) then

case cc is

when 0 =》 num 《= num2;sel 《= “011”;cc:=1;

when 1 =》 num 《= num3;sel 《= “010”;cc:=2;

when 2 =》 num 《= num4;sel 《= “001”;cc:=3;

when 3 =》 num 《= num1;sel 《= “000”;cc:=0;

end case;

case num is

when “0000” =》 data 《= “0111111”;

when “0001” =》 data 《= “0000110”;

when “0010” =》 data 《= “1011011”;

when “0011” =》 data 《= “1001111”;

when “0100” =》 data 《= “1100110”;

when “0101” =》 data 《= “1101101”;

when “0110” =》 data 《= “1111101”;

when “0111” =》 data 《= “0000111”;

when “1000” =》 data 《= “1111111”;

when “1001” =》 data 《= “1101111”;

when “1010” =》 data 《= “1110111”;

when “1011” =》 data 《= “1111100”;

when “1100” =》 data 《= “0111001”;

when “1101” =》 data 《= “1011110”;

when “1110” =》 data 《= “1111001”;

when “1111” =》 data 《= “1110001”;

end case;

end if;

end process;

b:process( clk ) –自加一

begin

if( clk = ‘0’) then

if( en = ‘1’) then

CASE set_ch IS

when “00” =》 num1《=set_num;

when “01” =》 num2《=set_num;

when “10” =》 num3《=set_num;

when “11” =》 num4《=set_num;

end case; else if num_counter = ‘0’ then

if num1 = “1111” then num1 《= “0000”;

num2 《= num2 + 1;

else num1 《= num1 +1;

end if;

if num2 = “1111” then num2 《= “0000”;

num3 《= num3 + 1;

end if;

if num3 = “1111” then

num3 《= “0000”;

num4 《= num4 + 1;

end if;

if num4 = “1111” then

num4 《= “0000”;

end if;

end if;

END IF;

end if;

end process;

c:process( clk ) –分频

variable a:integer range 0 to 9999:=0;

begin if( clk = ‘1’) then

if( a = 9999 ) then

num_counter 《= not num_counter;

a := 0;

else a := a + 1;

end if;

end if;

end process;

end behave;

收藏

相关话题
文章来源栏目
+关注

评论(0)

加载更多评论

参与评论

分享到

QQ空间 QQ好友 微博
取消