数码管学号滚动显示课程设计

1、南京邮电大学通达学院课程设计报告设计类别: eda-vhdl 专业名称: 通信工程 班级学号: 学生姓名: 基本题 : 数字时钟设计 综合题 : 数码管学号滚动显示 同小组成员： 学号： 姓名： 指导教师: 王奇、梅中辉、周小燕、孔凡坤 日 期： 2012年6月11日6月22日 一、数字时钟1实验目的(1)掌握vhdl语言的语法规范，掌握时序电路描述方法(2)掌握多个数码管动态扫描显示的原理及设计方法2实验任务要求要求学生设计一个时钟,并输出到数码管显示时，分，秒。3设计思路及vhdl代码 首先要设置一个时钟信号，根据时钟信号的变化来进行时钟的变化，从秒的变化到时的变化条件是不同的。将时分秒各

2、分为为十位和各位即六位数字显示时间来分析。原理图如下：秒针个位信号数码管译码器模10计数器 清零进位 秒针十位信号数码管译码器模6计数器清零清零清零清零进位时针十位信号分针个位信号分针十位信号时针个位信号进位进位进位数码管译码器数码管译码器数码管译码器数码管译码器模10计数器模10计数器模6计数器模3计数器 vhdl源程序如下：library ieee;use ieee.std_logic_1164.all;use ieee.std_logic_unsigned.all;entity shizhong isport( clk:in std_logic; led1:out std_logic_v

3、ector(6 downto 0); led2:out std_logic_vector(6 downto 0); led3:out std_logic_vector(6 downto 0); led4:out std_logic_vector(6 downto 0); led5:out std_logic_vector(6 downto 0); led6:out std_logic_vector(6 downto 0);end shizhong;architecture main of shizhong issignal hou1:std_logic_vector(3 downto 0);s

4、ignal hou2:std_logic_vector(3 downto 0);signal min1:std_logic_vector(3 downto 0);signal min2:std_logic_vector(3 downto 0);signal sec1:std_logic_vector(3 downto 0);signal sec2:std_logic_vector(3 downto 0);begin-h110:process(clk,hou2,min1,min2,sec1,sec2)beginif clk'event and clk='1' thenif

5、 (hou1="0010" and hou2="0011")and(min1="0101" and min2="1001") and (sec1="0101" andsec2="1001") thenhou1<="0000"else if (hou2="1001"and(min1="0101" and min2="1001") and (sec1="0101" and s

6、ec2="1001")thenhou1<=hou1+1;end if;end if;end if;end process h110; 时钟的十位-h220:process(clk,min1,min2,sec1,sec2,hou1)beginif clk'event and clk='1' thenif (hou1="0010" and hou2="0011")and(min1="0101" and min2="1001") and (sec1="0101&

7、quot; andsec2="1001") thenhou2<="0000"else if hou2="1001"and(min1="0101" and min2="1001") and (sec1="0101" and sec2="1001")thenhou2<="0000"else if(min1="0101" and min2="1001") and (sec1="01

8、01" and sec2="1001") thenhou2<=hou2+1;-speak<=clk;end if;end if;end if;end if;end process h220; 时钟的个位-m110:process(clk,min2,sec1,sec2)beginif clk'event and clk='1' thenif (min1="0101" and min2="1001") and (sec1="0101" and sec2="1001

9、") thenmin1<="0000"else if (min2="1001"and (sec1="0101" and sec2="1001")thenmin1<=min1+1;end if;end if;end if;end process m110; 分钟的十位-m220:process(clk,sec1,sec2)beginif clk'event and clk='1' thenif min2="1001"and (sec1="01

10、01" and sec2="1001")thenmin2<="0000"else if (sec1="0101" and sec2="1001") thenmin2<=min2+1;end if;end if;end if;end process m220; 分钟的个位-s110:process(clk)beginif clk'event and clk='1' thenif (sec1="0101" and sec2="1001"

11、;)thensec1<="0000"else if sec2="1001"thensec1<=sec1+1;end if;end if;end if;end process s110; 秒钟的十位-s220:process(clk)beginif clk'event and clk='1' thenif sec2="1001" thensec2<="0000"else sec2<=sec2+1;end if;end if;end process s220; 秒钟的个位

12、-disp:process(hou1,hou2,min1,min2,sec1,sec2)begincase hou1 iswhen "0000"=>led1<="0111111"when "0001"=>led1<="0000110"when "0010"=>led1<="1011011"when others=>led1<="1000000"end case;case hou2 iswhen "0

13、000"=>led2<="0111111"when "0001"=>led2<="0000110"when "0010"=>led2<="1011011"when "0011"=>led2<="1001111"when "0100"=>led2<="1100110"when "0101"=>led2<="1

14、101101"when "0110"=>led2<="1111101"when "0111"=>led2<="0000111"when "1000"=>led2<="1111111"when "1001"=>led2<="1101111"when others=>led2<="1000000"end case;case min1 iswhen &q

15、uot;0000"=>led3<="0111111"when "0001"=>led3<="0000110"when "0010"=>led3<="1011011"when "0011"=>led3<="1001111"when "0100"=>led3<="1100110"when "0101"=>led3<=&q

16、uot;1101101"when others=>led3<="1000000"end case;case min2 iswhen "0000"=>led4<="0111111"when "0001"=>led4<="0000110"when "0010"=>led4<="1011011"when "0011"=>led4<="1001111"wh

17、en "0100"=>led4<="1100110"when "0101"=>led4<="1101101"when "0110"=>led4<="1111101"when "0111"=>led4<="0000111"when "1000"=>led4<="1111111"when "1001"=>led4&l

18、t;="1101111"when others=>led4<="1000000"end case;case sec1 iswhen "0000"=>led5<="0111111"when "0001"=>led5<="0000110"when "0010"=>led5<="1011011"when "0011"=>led5<="1001111&qu

19、ot;when "0100"=>led5<="1100110"when "0101"=>led5<="1101101"when others=>led5<="1000000"end case;case sec2 iswhen "0000"=>led6<="0111111"when "0001"=>led6<="0000110"when "0010&

20、quot;=>led6<="1011011"when "0011"=>led6<="1001111"when "0100"=>led6<="1100110"when "0101"=>led6<="1101101"when "0110"=>led6<="1111101"when "0111"=>led6<="00001

21、11"when "1000"=>led6<="1111111"when "1001"=>led6<="1101111"when others=>led6<="1000000"end case;end process disp;-end main;4仿真波形及分析通过波形可以看出，秒，分，时各位之间可以很好地完成进位功能，秒钟达最大值59进一并清零，分钟达最大值59进一并清零，时钟打最大值23进一并清零，数字时钟功能可以实现。5实验总结与体会 本实验为

22、基础题的第一题，整体功能与实际联系较为紧密，因此各模块的分析和设计方面难度减少了很多，通过这个课题的设计，我们初步认识了vhdl语言，以及quartus ii 软件的具体应用方法，能够很直观地将电路模块化分析并使用vhdl语言设计出来。二、数码管学号滚动显示1实验目的(1)掌握vhdl语言的语法规范，掌握时序电路描述方法(2)掌握多个数码管动态扫描显示的原理及设计方法2实验任务要求 要求学生在六个数码管滚动显示自己的学号（六位），每隔一定时间循环移位一次，学号为奇数则左移，学号为偶数则右移。间隔时间可由开关选择1秒，2秒，3秒和4秒。3设计思路及vhdl代码本题要求六位学号可以滚动显示，通过对

23、其功能的理解，可以找出每个数字对应的数码管位置变化的规律。具体实现可以通过在每个脉冲上升沿触发学号中六个数字001908依次在六个数码管上输出，而在六个脉冲之后，六位学号还是依次输出，但是显示的数码管不同，首个数字在第二位数码管显示，以此类推，最后一位在第一位数码管显示。六个脉冲构成一个循环，以同上的方法类推显示即可实现学号的右移效果。显示的间隔时间可以通过源程序内改变运行次数来控制。原理图如下： 移 位 时 间 控制时钟信号 clk12分频电路 动 态 扫 描移 位 控 制数码管显示电路模块设计：l 输入&输出 输入： clk -时钟信号 column -行列式键盘的4列 输出： l

24、ed_out -数码管8段显示，可显示09，af led_sel -选择6个数码管，1表示点亮对应数码管 output -分频后的时钟 interval -随学号移动而数值改变的寄存器l 分频电路模块process(clk)-12分频电路variable counter: std_logic_vector(2 downto 0);-计数寄存器，12分频输入时钟为 1hz begin if (clk'event and clk ='0') then -下降沿有效 counter := counter + 1 ; if (counter = 6) then clk_temp

25、 <= not clk_temp; -分频后的时钟变化 counter := "000" end if; end if; end process; process(clk)-读取行列式键盘的键值（这段程序是对时钟clock进行分频，进而得到新的时钟clk_temp，并赋值给输出output）l 移位控制模块begin if(clk'event and clk = '0')then case column is when "1110" => key_code <= "00" when "

26、;1101" => key_code <= "01" when "1011" => key_code <= "10" when "0111" => key_code <= "11" when others => key_code <= "00" end case; end if; end process;process (clk_temp)variable time_count : std_logic_vector(1

27、 downto 0); begin if (clk_temp 'event and clk_temp = '0') then-下降沿有效time_count := time_count + 1; case key_code is when "00" => shift <= shift- 1;-数据右移1位if(shift = "000") thenshift <="110"end if; when "01" => if(time_count = "10&qu

28、ot;) then time_count := "00" ; shift <= shift - 1;-数据右移1位if(shift = "000") thenshift <="110"end if; end if; when "10" => if(time_count = "11") then time_count := "00" shift <= shift - 1;-数据右移1位if(shift = "000") thenshi

29、ft <="110"end if; end if; when "11" => if(time_count = "00") then shift <= shift - 1;-数据右移1位if(shift = "000") thenshift <="110"end if; end if; when others => shift <= shift - 1;-数据右移1位if(shift = "000") thenshift <="

30、;110"end if; end case;end if; end process; 注: 该模块利用 key_code的四个数值来控制四个case，由于time_count 初始值是00，在进入运算时是01，根据case的不同，运行次数不同，分别是一次，两次，三次和四次，根据这个来控制移动的间隔时间。l 数码管显示模块process (clk)-显示学号001908 variable led_sel_llb :std_logic_vector(3 downto 0); -信号量，6个数码管显示的选择 begin if (clk 'event and clk='0&#

31、39;) then -时钟下降沿有效 if (led_sel_count = "0000") then-轮询6个数码管 led_sel_count <= "0101" else led_sel_count <= led_sel_count - "0001" end if; -0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90,0xff - 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 空 case led_sel_count is -选择要要显示的值 when

32、"0000" => led_out <= x"80" -位置6，内容8 when "0001" => led_out <= x"c0" -位置5，内容0 when "0010" => led_out <= x"90" -位置4，内容9 when "0011" => led_out <= x"f9" -位置3，内容1 when "0100" => led_out &

33、lt;= x"c0" -位置2，内容0 when "0101" => led_out <= x"c0" -位置1，内容0 when others => led_out <= x"92" -其他情况下，位置6，内容5 end case; led_sel_llb := led_sel_count + shift;if (led_sel_llb >= "0110") then led_sel_llb := led_sel_llb - "0110"end

34、 if; case led_sel_llb is -选择要被点亮的数码管 when "0000" => led_sel <= "000001" -位置6 when "0001" => led_sel <= "000010" -位置5 when "0010" => led_sel <= "000100" -位置4 when "0011" => led_sel <= "001000" -位置3

35、 when "0100" => led_sel <= "010000" -位置2 when "0101" => led_sel <= "100000" -位置1 when others => led_sel <= "000001" -其他情况下，位置6，内容5 end case; end if; end process; 注: 该模块中， led_sel用来表示选中的数码管， led_out 表示输出的数值。每一个clock过来，都会输出一个数，依次是0-0-

36、1-9-0-8，而数字输出在哪个数码管是由相同时刻的led_sel决定的。由于时钟频率很高，虽然每个时钟来临时只有一个数码管被点亮，但由于视觉停留，所以可以达到每个数码管都被点亮的效果。vhdl源程序如下：library ieee ;use ieee.std_logic_1164.all ;use ieee.std_logic_unsigned.all ;-显示模块entity llb is port ( clk : in std_logic; led_out : out std_logic_vector(7 downto 0); -数码管8段显示，可显示09，af led_sel : buf

37、fer std_logic_vector(5 downto 0); -选择6个数码管，1表示点亮对应数码管output : out std_logic;interval : out std_logic_vector(2 downto 0); column : in std_logic_vector(3 downto 0) -行列式键盘的4列) ; end llb ;architecture behavior of llb is signal clk_temp : std_logic := '1' -用作分频后的电路时钟 signal led_sel_count : std_lo

38、gic_vector(3 downto 0); -信号量，6个数码管显示的选择 signal div_cnt : std_logic_vector(1 downto 0); -行扫描驱动signal scan_key : std_logic_vector(3 downto 0); -扫描码寄存器 signal key_code : std_logic_vector(1 downto 0); -存储键值signal shift : std_logic_vector(2 downto 0):= "110" -控制数码管显示的数据右移begin output <= clk_

39、temp; interval <= shift;process(clk)-12分频电路 variable counter: std_logic_vector(2 downto 0);-计数寄存器，12分频输入时钟为 1hz begin if (clk'event and clk ='0') then -下降沿有效 counter := counter + 1 ; if (counter = 6) then clk_temp <= not clk_temp; -分频后的时钟变化 counter := "000" end if; end if

40、; end process; process(clk)-读取行列式键盘的键值 begin if(clk'event and clk = '0')then case column is when "1110" => key_code <= "00" when "1101" => key_code <= "01" when "1011" => key_code <= "10" when "0111"

41、=> key_code <= "11" when others => key_code <= "00" end case; end if; end process; process (clk_temp)variable time_count : std_logic_vector(1 downto 0); begin if (clk_temp 'event and clk_temp = '0') then-下降沿有效time_count := time_count + 1; case key_code is

42、when "00" => shift <= shift- 1;-数据右移1位if(shift = "000") thenshift <="110"end if; when "01" => if(time_count = "10") then time_count := "00" ; shift <= shift - 1;-数据右移1位if(shift = "000") thenshift <="110"

43、;end if; end if; when "10" => if(time_count = "11") then time_count := "00" shift <= shift - 1;-数据右移1位if(shift = "000") thenshift <="110"end if; end if; when "11" => if(time_count = "00") then shift <= shift - 1;-数据

44、右移1位if(shift = "000") thenshift <="110"end if; end if; when others => shift <= shift - 1;-数据右移1位if(shift = "000") thenshift <="110"end if; end case;end if; end process; process(clk)-行扫描驱动，产生行扫描的值 begin if(clk'event and clk = '0')then di

45、v_cnt <= div_cnt + 1; end if; end process; process(div_cnt)-产生行扫描的值用于一行一行的轮询4行 begin case div_cnt is when "00" => scan_key<="1110" when "01" => scan_key<="1101" when "10" => scan_key<="1011" when "11" => sc

46、an_key<="0111"when others => null; end case; end process; process (clk)-显示学号001908 variable led_sel_llb :std_logic_vector(3 downto 0); -信号量，6个数码管显示的选择 begin if (clk 'event and clk='0') then -时钟下降沿有效 if (led_sel_count = "0000") then-轮询6个数码管 led_sel_count <= &q

47、uot;0101" else led_sel_count <= led_sel_count - "0001" end if; -0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90,0xff - 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 空 case led_sel_count is -选择要要显示的值 when "0000" => led_out <= x"80" -位置6，内容8 when "0001" => led_out <= x"c0" -位置5，内容0 when "0010"