LED点阵显示的VHDL程序代码.docx

《LED点阵显示的VHDL程序代码.docx》由会员分享，可在线阅读，更多相关《LED点阵显示的VHDL程序代码.docx（9页珍藏版）》请在三一办公上搜索。

1、LED点阵显示的VHDL程序代码附录 带有注释的VHDL程序代码： - - Design unit: dot_led(display) (Entity and Architectures) - File name : dot_led.vhd - Description: Matrix dot leds display - Limitations: None - System : VHDL93 - Author : Fan Bishuang - Email : fbshfj - Revision : Version 1.0 16/5/05 - library IEEE; use IEEE.std

2、_logic_1164.all; use IEEE.std_logic_unsigned.all; use IEEE.std_logic_arith.all; entity dot_led_fanye is port(clk :in std_logic; -system clk(250kHz) set:in bit; R:out std_logic_vector(3 downto 0); -Matrix dot leds row input,for R=0000, the first line is enabled. L:out std_logic_vector(15 downto 0); -

3、Matrix dot leds line input end dot_led_fanye; architecture display of dot_led_fanye is signal clk1:std_logic; signal R_val:std_logic_vector(3 downto 0); signal cnt:integer range 0 to 250000; signal d0,d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15:std_logic_vector(15 downto 0); signal sel:intege

4、r range 0 to 8; begin d0= X0200when sel=0 else -“电”字第1行 X0000when sel=1 else -“子”字第1行 X0000when sel=2 else -“一”字第1行 X0100when sel=3 else -“班”字第1行 X0000when sel=4 else -“05”字第1行 X0010when sel=5 else -“号”字第1行 X0100when sel=6 else -“韦”字第1行 X0200when sel=7 else -“文”字第1行 X0000when sel=8 else -“写”字第1行 X00

5、00; -否则熄灭第1行所有LED d1= X0200when sel=0 else -“电”字第2行 X3FF0when sel=1 else -“子”字第2行 X0000when sel=2 else -“一”字第2行 X0904when sel=3 else -“班”字第2行 X0000when sel=4 else -“05”字第2行 X1FF8when sel=5 else -“号”字第2行 X0100when sel=6 else -“韦”字第2行 X0100when sel=7 else -“文”字第2行 X7FFEwhen sel=8 else -“写”字第2行 X0000;

6、-否则熄灭第2行所有LED d2= X0210when sel=0 else -“电”字第3行 X0010when sel=1 else -“子”字第3行 X0000when sel=2 else -“一”字第3行 X7DFEwhen sel=3 else -“班”字第3行 X3CFEwhen sel=4 else -“05”字第3行 X1010when sel=5 else -“号”字第3行 X0104when sel=6 else -“韦”字第3行 X0104when sel=7 else -“文”字第3行 X4002when sel=8 else -“写”字第3行 X0000; -否则熄

7、灭第3行所有LED d3= X7FF8when sel=0 else -“电”字第4行 X0020when sel=1 else -“子”字第4行 X0000when sel=2 else -“一”字第4行 X2110when sel=3 else -“班”字第4行 X4240when sel=4 else -“05”字第4行 X1010when sel=5 else -“号”字第4行 XFFFEwhen sel=6 else -“韦”字第4行 XFFFEwhen sel=7 else -“文”字第4行 X8804when sel=8 else -“写”字第4行 X0000; -否则熄灭第4行

8、所有LED d4= X4210when sel=0 else -“电”字第5行 X0040when sel=1 else -“子”字第5行 X0000when sel=2 else -“一”字第5行 X2510when sel=3 else -“班”字第5行 X4240when sel=4 else -“05”字第5行 X1010when sel=5 else -“号”字第5行 X0100when sel=6 else -“韦”字第5行 X1010when sel=7 else -“文”字第5行 X0820when sel=8 else -“写”字第5行 X0000; -否则熄灭第5行所有LE

9、D d5= X4210when sel=0 else -“电”字第6行 X0180when sel=1 else -“子”字第6行 X0000when sel=2 else -“一”字第6行 X2510when sel=3 else -“班”字第6行 X4240when sel=4 else -“05”字第6行 X1FF0when sel=5 else -“号”字第6行 X0110when sel=6 else -“韦”字第6行 X0810when sel=7 else -“文”字第6行 X0FF0when sel=8 else -“写”字第6行 X0000; -否则熄灭第6行所有LED d6

10、= X7FF0when sel=0 else -“电”字第7行 X0104when sel=1 else -“子”字第7行 X0004when sel=2 else -“一”字第7行 X2510when sel=3 else -“班”字第7行 X427Cwhen sel=4 else -“05”字第7行 X0004when sel=5 else -“号”字第7行 X3FF8when sel=6 else -“韦”字第7行 X0820when sel=7 else -“文”字第7行 X0800when sel=8 else -“写”字第7行 X0000; -否则熄灭第7行所有LED d7= X4

11、210when sel=0 else -“电”字第8行 XFFFEwhen sel=1 else -“子”字第8行 XFFFEwhen sel=2 else -“一”字第8行 XF57Cwhen sel=3 else -“班”字第8行 X4202when sel=4 else -“05”字第8行 XFFFEwhen sel=5 else -“号”字第8行 X0100when sel=6 else -“韦”字第8行 X0420when sel=7 else -“文”字第8行 X0808when sel=8 else -“写”字第8行 X0000; -否则熄灭第8行所有LED d8= X4210w

12、hen sel=0 else -“电”字第9行 X0100when sel=1 else -“子”字第9行 X0000when sel=2 else -“一”字第9行 X2510when sel=3 else -“班”字第9行 X4202when sel=4 else -“05”字第9行 X0400when sel=5 else -“号”字第9行 X0104when sel=6 else -“韦”字第9行 X0440when sel=7 else -“文”字第9行 X0FFCwhen sel=8 else -“写”字第9行 X0000; -否则熄灭第9行所有LED d9= X7FF0when

13、sel=0 else -“电”字第10行 X0100when sel=1 else -“子”字第10行 X0000when sel=2 else -“一”字第10行 X2910when sel=3 else -“班”字第10行 X4202when sel=4 else -“05”字第10行 X0810when sel=5 else -“号”字第10行 X7FFEwhen sel=6 else -“韦”字第10行 X0280when sel=7 else -“文”字第10行 X0008when sel=8 else -“写”字第10行 X0000; -否则熄灭第10行所有LED d10= X42

14、10when sel=0 else -“电”字第11行 X0100when sel=1 else -“子”字第11行 X0000when sel=2 else -“一”字第11行 X2110when sel=3 else -“班”字第11行 X4202when sel=4 else -“05”字第11行 X1FF8when sel=5 else -“号”字第11行 X0104when sel=6 else -“韦”字第11行 X0100when sel=7 else -“文”字第11行 X0048when sel=8 else -“写”字第11行 X0000; -否则熄灭第11行所有LED d

15、11= X0200when sel=0 else -“电”字第12行 X0100when sel=1 else -“子”字第12行 X0000when sel=2 else -“一”字第12行 X2210when sel=3 else -“班”字第12行 X4202when sel=4 else -“05”字第12行 X0010when sel=5 else -“号”字第12行 X0104when sel=6 else -“韦”字第12行 X0280when sel=7 else -“文”字第12行 X7FE8when sel=8 else -“写”字第12行 X0000; -否则熄灭第12行

16、所有LED d12= X0204when sel=0 else -“电”字第13行 X0100when sel=1 else -“子”字第13行 X0000when sel=2 else -“一”字第13行 X3A10when sel=3 else -“班”字第13行 X4242when sel=4 else -“05”字第13行 X0010when sel=5 else -“号”字第13行 X0104when sel=6 else -“韦”字第13行 X0460when sel=7 else -“文”字第13行 X0008when sel=8 else -“写”字第13行 X0000; -否

17、则熄灭第13行所有LED d13= X0204when sel=0 else -“电”字第14行 X0100when sel=1 else -“子”字第14行 X0000when sel=2 else -“一”字第14行 XE214when sel=3 else -“班”字第14行 X3C3Cwhen sel=4 else -“05”字第14行 X0010when sel=5 else -“号”字第14行 X0128when sel=6 else -“韦”字第14行 X0810when sel=7 else -“文”字第14行 X0008when sel=8 else -“写”字第14行 X0

18、000; -否则熄灭第14行所有LED d14= X01FCwhen sel=0 else -“电”字第15行 X0500when sel=1 else -“子”字第15行 X0000when sel=2 else -“一”字第15行 X44FEwhen sel=3 else -“班”字第15行 X0000when sel=4 else -“05”字第15行 X00A0when sel=5 else -“号”字第15行 X0110when sel=6 else -“韦”字第15行 X300Ewhen sel=7 else -“文”字第15行 X0050when sel=8 else -“写”字

19、第15行 X0000; -否则熄灭第15行所有LED d15= X0000when sel=0 else -“电”字第16行 X0200when sel=1 else -“子”字第16行 X0000when sel=2 else -“一”字第16行 X0800when sel=3 else -“班”字第16行 X0000when sel=4 else -“05”字第16行 X0040when sel=5 else -“号”字第16行 X0100when sel=6 else -“韦”字第16行 XC004when sel=7 else -“文”字第16行 X0020when sel=8 els

20、e -“写”字第16行 X0000; -否则熄灭第16行所有LED process(clk,set) begin if(set=0)then -如果功能键没按下，则所有LED全灭 L=X0000; R_val=0000; elsif(clkevent and clk=1)then -每0.004ms扫描一次 if( R_val=1111)then R_val=0000; -当扫描完一遍，再从头扫描 else R_val=R_val+1; -扫完一行，再扫下一行 end if; if(cnt=250000)then -1s的时间到时，计数器清零 cnt=0; if(sel=8)then -当显示完9个字，再从第一个字开始显示 sel=0; else sel=sel+1; -显示完一个字，再显示下一个字 end if; else cntLLLLLLLLLLLLLLLLnull; end case; R=R_val; end if; end process; end display;