----下面是引用库.docVIP

----下面是引用库 library ieee; --库函数 use ieee.std_logic_1164.all; --定义了std_logic数据类型及相应运算 use ieee.std_logic_arith.all; --定义了signed和unsigned数据类型、相应运算和相关类型转--换函数 use ieee.std_logic_unsigned.all; --定义了一些函数，可以使std_logic_vector类 --型被当作符号数或无符号数一样进行运算 -------------------------------------------------------------------- entity LedArray is -- LedArray为实体名 port( clk : in std_logic; --时钟输入 keyc : out std_logic_vector(15 downto 0); --点阵列控制 keyr : out std_logic_vector(15 downto 0) --点阵行显示 ); end LedArray;--结束实体 -------------------------------------------------------------------- architecture behave of LedArray is --behave为结构体名 signal cdount : std_logic_vector(3 downto 0);--信号量 表示列扫描频率 signal dount : std_logic_vector(8 downto 0);--计数， signal S : std_logic_vector(3 downto 0);--单个汉字的扫描周期 begin process(clk) --显示时序控制 进程1 begin --以begin为标志开始结构体的描述 if clkevent and clk=1 then --上升沿 dount=dount+1;--计数累加 if dount=255 then if S=15 then S=0000; else s=S+1; end if; s=s+1; else s=S; end if; if cdount15 then --控制列扫描频率 cdount=cdount+1; else cdount=0000; end if; end if; end process; --结束进程1 process(cdount,s)--进程2 汉字扫描 begin case cdount is --列扫描频率 when 0000=keyc=0000000000000001; --列选择(lg7088Ah) when 0001=keyc=0000000000000010;--列扫描 共扫描8列 when 0010=keyc=0000000000000100; when 0011=keyc=0000000000001000; when 0100=keyc=0000000000010000; when 0101=keyc=0000000000100000; when 0110=keyc=0000000001000000; when 0111=keyc=0000000010000000; when 1000=keyc=0000000100000000; when 1001=keyc=0000001000000000; when 1