彩灯.txt

vhdl编写的彩灯控制程序

LIBRARY IEEE; 
USE IEEE.STD_LOGIC_1164.ALL; 
USE IEEE.STD_LOGIC_UNSIGNED.ALL; 
ENTITY CDKZ IS 
PORT(CLK:IN STD_LOGIC; 
D:OUT STD_LOGIC_VECTOR(7 DOWNTO 0)); 
END CDKZ; 
ARCHITECTURE ART OF CDKZ IS 
SIGNAL A:INTEGER RANGE 0 TO 8; 
SIGNAL B:INTEGER RANGE 0 TO 3; 
SIGNAL Q,T:STD_LOGIC; 
BEGIN 
PROCESS(CLK)IS 
BEGIN 
IF CLK'EVENT AND CLK='1'THEN 
IF A=8 THEN 
A<=1;T<=NOT T; 
IF B=2 THEN 
B<=0; 
else 
B<=B+1; 
END IF; 
ELSIF A=0 THEN 
A<=1;T<='1'; 
ELSIF T='1'THEN 
A<=A+1; 
ELSIF T='0'AND Q='1'THEN 
A<=A+1;Q<=NOT Q; 
ELSIF T='0'AND Q='0'THEN 
Q<=NOT Q; 
END IF; 
END IF; 
END PROCESS; 
D<="01010101"WHEN A=1 AND B=1 ELSE 
"10101010"WHEN A=2 AND B=1 ELSE 
"01010101"WHEN A=3 AND B=1 ELSE 
"10101010"WHEN A=4 AND B=1 ELSE 
"01010101"WHEN A=5 AND B=1 ELSE 
"10101010"WHEN A=6 AND B=1 ELSE 
"01010101"WHEN A=7 AND B=1 ELSE 
"10101010"WHEN A=8 AND B=1 ELSE 
"10000000"WHEN A=1 AND B=2 ELSE 
"11000000"WHEN A=2 AND B=2 ELSE 
"11100000"WHEN A=3 AND B=2 ELSE 
"11110000"WHEN A=4 AND B=2 ELSE 
"11111000"WHEN A=5 AND B=2 ELSE 
"11111100"WHEN A=6 AND B=2 ELSE 
"11111110"WHEN A=7 AND B=2 ELSE 
"11111111"WHEN A=8 AND B=2 ELSE 
"10000001"WHEN A=1 AND B=0 ELSE 
"11000011"WHEN A=2 AND B=0 ELSE 
"11100111"WHEN A=3 AND B=0 ELSE 
"11111111"WHEN A=4 AND B=0 ELSE 
"01111110"WHEN A=5 AND B=0 ELSE 
"00111100"WHEN A=6 AND B=0 ELSE 
"00011000"WHEN A=7 AND B=0 ELSE 
"00000000"WHEN A=8 AND B=0; 
END ARCHITECTURE ART;