Question

求一个CPLD的点阵的程序！！

Answer 1

这是一个显示“吉林大学”的程序：
library ieee;
use ieee.std_logic_1164.all;
use ieee.std_logic_arith.all;
use ieee.std_logic_unsigned.all;
entity dianzhen is
port( clk:in std_logic;
row,col:out std_logic_vector(15 downto 0));
end dianzhen;
architecture behave of dianzhen is
type state is (s1,s2,s3,s4);
signal s:state;
signal n:std_logic_vector(3 downto 0);
begin
p1:process(clk)
begin
if clk'event and clk='1' then
if n<"1111" then
n<=n+1;
else n<="0000";
end if;
end if;
end process p1;
p2:process(clk)
variable i:integer:=0;
begin
if (clk'event and clk='1') then
i:=i+1;
case s is
when s1=>
case n is
when "0000"=>row<="1000000000000000";col<="0000000110000000";
when "0001"=>row<="0100000000000000";col<="1111111111111111";
when "0010"=>row<="0010000000000000";col<="1111111111111111";
when "0011"=>row<="0001000000000000";col<="0000000110000000";
when "0100"=>row<="0000100000000000";col<="0000000110000000";
when "0101"=>row<="0000010000000000";col<="0011111111111100";
when "0110"=>row<="0000001000000000";col<="0011111111111100";
when "0111"=>row<="0000000100000000";col<="0000000000000000";
when "1000"=>row<="0000000010000000";col<="0000111111110000";
when "1001"=>row<="0000000001000000";col<="0000111111110000";
when "1010"=>row<="0000000000100000";col<="0000110000110000";
when "1011"=>row<="0000000000010000";col<="0000110000110000";
when "1100"=>row<="0000000000001000";col<="0000110000110000";
when "1101"=>row<="0000000000000100";col<="0000111111110000";
when "1110"=>row<="0000000000000010";col<="0000111111110000";
when "1111"=>row<="0000000000000001";col<="0000000000000000";
when others=>row<="0000000000000000";col<="0000000000000000";
end case;
if i=00100000 then
i:=00000000; s<=s2;
end if;
when s2=>
case n is
when "0000"=>row<="1000000000000000";col<="0001100000110000";
when "0001"=>row<="0100000000000000";col<="0001100000110000";
when "0010"=>row<="0010000000000000";col<="0001100000110000";
when "0011"=>row<="0001000000000000";col<="0111111011111100";
when "0100"=>row<="0000100000000000";col<="0111111011111100";
when "0101"=>row<="0000010000000000";col<="0001110000110000";
when "0110"=>row<="0000001000000000";col<="0011111001111000";
when "0111"=>row<="0000000100000000";col<="0111101111111100";
when "1000"=>row<="0000000010000000";col<="1101100110110100";
when "1001"=>row<="0000000001000000";col<="1001101100110000";
when "1010"=>row<="0000000000100000";col<="0001100000110000";
when "1011"=>row<="0000000000010000";col<="0001100000110000";
when "1100"=>row<="0000000000001000";col<="0001100000110000";
when "1101"=>row<="0000000000000100";col<="0001100000110000";
when "1110"=>row<="0000000000000010";col<="0001100000110000";
when "1111"=>row<="0000000000000001";col<="0000000000000000";
when others=>row<="0000000000000000";col<="0000000000000000";
end case;
if i=00100000 then
i:=00000000; s<=s3;
end if;
when s3=>
case n is
when "0000"=>row<="1000000000000000";col<="0000001100000000";
when "0001"=>row<="0100000000000000";col<="0000001100000000";
when "0010"=>row<="0010000000000000";col<="0000001100000000";
when "0011"=>row<="0001000000000000";col<="0000001100000000";
when "0100"=>row<="0000100000000000";col<="0111111111111100";
when "0101"=>row<="0000010000000000";col<="0111111111111100";
when "0110"=>row<="0000001000000000";col<="0000001100000000";
when "0111"=>row<="0000000100000000";col<="0000011110000000";
when "1000"=>row<="0000000010000000";col<="0000011100000000";
when "1001"=>row<="0000000001000000";col<="0000110011000000";
when "1010"=>row<="0000000000100000";col<="0000110001100000";
when "1011"=>row<="0000000000010000";col<="0001100001100000";
when "1100"=>row<="0000000000001000";col<="0011000000110000";
when "1101"=>row<="0000000000000100";col<="0110000000011000";
when "1110"=>row<="0000000000000010";col<="1100000000011110";
when "1111"=>row<="0000000000000001";col<="0000000000000000";
when others=>row<="0000000000000000";col<="0000000000000000";
end case;
if i=00100000 then
i:=00000000; s<=s4;
end if;
when s4=>
case n is
when "0000"=>row<="1000000000000000";col<="0001100011001100";
when "0001"=>row<="0100000000000000";col<="0000110011001100";
when "0010"=>row<="0010000000000000";col<="0110010010011000";
when "0011"=>row<="0001000000000000";col<="0111111111111111";
when "0100"=>row<="0000100000000000";col<="0110000000000110";
when "0101"=>row<="0000010000000000";col<="0100111111110000";
when "0110"=>row<="0000001000000000";col<="0000000001100000";
when "0111"=>row<="0000000100000000";col<="0000000011000000";
when "1000"=>row<="0000000010000000";col<="0000000110000000";
when "1001"=>row<="0000000001000000";col<="0000111111110000";
when "1010"=>row<="0000000000100000";col<="0000000110000000";
when "1011"=>row<="0000000000010000";col<="0000000110000000";
when "1100"=>row<="0000000000001000";col<="0001000110000000";
when "1101"=>row<="0000000000000100";col<="0000110110000000";
when "1110"=>row<="0000000000000010";col<="0000011110000000";
when "1111"=>row<="0000000000000001";col<="0000000110000000";
when others=>row<="0000000000000000";col<="0000000000000000";
end case;
if i=00100000 then
i:=00000000; s<=s1;
end if;
end case;
end if;
end process p2;
end behave;