LED点阵显示的VHDL程序代码

1、附录带有注释的 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 : HYPERLINK mailto: - Revision : Version 1.0 16/5/05 library IEEE;use IEEE.std_logic_1164.all;

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

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

4、=X0200when sel=0 elseX0000when sel=1 elseX0000when sel=2 elseX0100when sel=3 elseX0000when sel=4 elseX0010when sel=5 elseX0100when sel=6 elseX0200when sel=7 elseX0000when sel=8 else“电”字第1行“电”字第1行“子”字第1行“一”字第1行“班”字第1行“05”字第1行“号”字第1行“韦”字第1行“文”字第1行“写”字第1行-否则熄灭第 1 行所有 LEDd1=X0200when sel=0 elseX3FF0when

5、 sel=1 elseX0000when sel=2 elseX0904when sel=3 elseX0000when sel=4 elseX1FF8when sel=5 elseX0100when sel=6 elseX0100when sel=7 elseX7FFEwhen sel=8 elseX0000; -“电”字第2行 “子”字第2行 “一”字第2行 “班”字第2行 “05”字第 2 行 “号”字第2行 “韦”字第2行 “文”字第2行 “写”字第2行 -否则熄灭第 2 行所有 LEDd2=X1010when sel=5 elseX0104when sel=6 elseX0104wh

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

7、8804when sel=8 else X0000; -“电”字第4行“子”字第4行“一”字第4行 “班”字第4行 “05”字第 4 行 “号”字第4行“韦”字第4行“文”字第4行“写”字第4行 -否则熄灭第 4 行所有 LEDd4=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 行“号”字第5行“韦”字第5行“文”字第5行“写”字第5行否则熄灭

8、第 5 行所有 LEDd5=X4210when sel=0 elseX0180when sel=1 elseX0000when sel=2 elseX2510when sel=3 elseX4240when sel=4 elseX1FF0when sel=5 elseX0110when sel=6 elseX0810when sel=7 elseX0FF0when sel=8 elseX0000; -“电”字第6行 “子”字第6行 “一”字第6行 “班”字第6行 “05”字第 6 行 “号”字第6行 “韦”字第6行 “文”字第6行 “写”字第6行 -否则熄灭第 6 行所有 LEDd6=X7FF

9、0when sel=0 elseX0104when sel=1 elseX0004when sel=2 elseX2510when sel=3 elseX427Cwhen sel=4 elseX0004when sel=5 elseX3FF8when sel=6 elseX0820when sel=7 elseX0800when sel=8 elseX0000; -“电”字第7行“子”字第7行“一”字第7行“班”字第7行“05”字第 7 行“号”字第7行“韦”字第7行“文”字第7行“写”字第7行-否则熄灭第 7 行所有 LEDd7=X4210when sel=0 elseXFFFEwhen s

10、el=1 elseXFFFEwhen sel=2 elseXF57Cwhen sel=3 elseX4202when sel=4 elseXFFFEwhen sel=5 elseX0100when sel=6 elseX0420when sel=7 elseX0808when sel=8 elseX0000; -“电”字第8行“子”字第8行“一”字第8行“班”字第8行“05”字第 8 行“号”字第8行“韦”字第8行“文”字第8行“写”字第8行-否则熄灭第 8 行所有 LEDd8=X4210when sel=0 elseX0100when sel=1 elseX0000when sel=2 el

11、seX2510when sel=3 elseX4202when sel=4 elseX0400when sel=5 elseX0104when sel=6 elseX0440when sel=7 elseX0FFCwhen sel=8 elseX0000; -“电”字第9行“子”字第9行 “一”字第9行 “班”字第9行 “05”字第 9 行 “号”字第9行 “韦”字第9行 “文”字第9行 “写”字第9行 -否则熄灭第 9 行所有 LEDd9=X7FF0when sel=0 else“电”字第 10行X0100when sel=1 else“子”字第 10 行X0000when sel=2 el

12、se“一”字第 10 行“05”字第 10 行“号”字第 10 行 “韦”字第 10 行“文”字第 10 行X0000; -“写”字第 10 行 否则熄灭第 10行所有 X0000; -d10=X4210when sel=0 elseX0100when sel=1 elseX0000when sel=2 elseX2110when sel=3 elseX4202when sel=4 elseX1FF8when sel=5 elseX0104when sel=6 elseX0100when sel=7 elseX0048when sel=8 elseX0000; -“电”字第 11 行 “子”字

13、第 11 行 “一”字第 11 行 “班”字第 11 行 “05”字第 11 行 “号”字第 11行 “韦”字第 11 行 “文”字第 11 行 “写”字第 11 行 -否则熄灭第 11行所有 LEDd11=X0200when sel=0 elseX0100when sel=1 elseX0000when sel=2 elseX2210when sel=3 elseX4202when sel=4 elseX0010when sel=5 elseX0104when sel=6 elseX0280when sel=7 elseX7FE8when sel=8 else“电”字第 12 行“子”字第

14、12 行“一”字第 12 行“班”字第 12 行“05”字第 12 行“号”字第 12 行“韦”字第 12 行“文”字第 12 行“写”字第 12 行d12=X0204when sel=0 elseX0100when sel=1 elseX0000when sel=2 elseX3A10when sel=3 elseX4242when sel=4 elseX0010when sel=5 elseX0104when sel=6 elseX0460when sel=7 elseX0008when sel=8 elseX0000; -“电”字第 13 行 “子”字第 13 行 “一”字第 13 行

15、“班”字第 13 行 “05”字第 13 行 “号”字第 13 行 “韦”字第 13 行 “文”字第 13 行 “写”字第 13 行 -否则熄灭第 13行所有 LEDd13=X0204when sel=0 elseX0100when sel=1 elseX0000when sel=2 elseXE214when sel=3 elseX3C3Cwhen sel=4 elseX0010when sel=5 elseX0128when sel=6 elseX0810when sel=7 elseX0008when sel=8 elseX0000; -“电”字第 14 行“子”字第 14 行“一”字第

16、 14 行“班”字第 14行“05”字第 14 行“号”字第 14 行“韦”字第 14 行“文”字第 14 行“写”字第 14 行 -否则熄灭第 14行所有 LEDd14=X01FCwhen sel=0 else“电”字第 15 行X300Ewhen sel=7 elseX0050when sel=8 elseX0000; -“一”字第 15 行“班”字第 15 行“05”字第 15 行“号”字第 15行“韦”字第 15 行“文”字第 15行“写”字第 15 行-否则熄灭第 15行所有 LEDd15=X0000when sel=0 elseX0200when sel=1 elseX0000wh

17、en sel=2 elseX0800when sel=3 elseX0000when sel=4 elseX0040when sel=5 elseX0100when sel=6 elseXC004when sel=7 elseX0020when sel=8 elseX0000; -“电”字第 16 行 “子”字第 16 行 “一”字第 16 行 “班”字第 16 行 “05”字第 16 行 “号”字第 16 行 “韦”字第 16 行 “文”字第 16 行 “写”字第 16 行 -否则熄灭第 16行所有 LEDprocess(clk,set)beginif(set=0)then 如果功能键没按下，则所有 LED 全灭L=X0000;R_val=0000;elsif(clkevent and clk=1)then 每 0.004ms 扫描一次当扫描完一遍，再从