VHDL8x8点阵的显示

1、8*8点阵的显示实验目的通过用VHDL语言设计8*8点阵的显示，掌握时序电路的设计，熟悉汉字字符显示的原理。二、实验原理利用多个数字LED显示器可以显示多位数字。三、实验内容用VHDL语言设计8*8点阵的显示，并进行编译、波形仿真及器件编程。仿真图如下，代码见附录图表18*8点阵的显示功能仿真图附录代码一、libraryieee;useieee.std_logic_1164.all;useieee.std_logic_arith.all;entitydianzhen8isport(clk:instd_logic;reset:instd_logic;hang:outstd_logic_vecto

2、r(7downto0);lie:outstd_logic_vector(7downto0);enddianzhen8;architecturezhangofdianzhen8issignalclk8:std_logic;beginprocess(clk,reset)variablecnt:integerrange0to3;variablelie8:std_logic_vector(7downto0);beginifreset='1'thenlie8:="10000000"elsifclk'eventandclk='1'thenifcn

3、t=3thenclk8<=notclk8;cnt:=0;elsecnt:=cnt+1;endif;lie8:=lie8(0)&lie8(7downto1);endif;lie<=lie8;endprocess;process(clk8,reset)variablehang8:std_logic_vector(7downto0);beginifreset='1'thenhang8:="11111110"elsifclk8'eventandclk8='1'thenhang8:=hang8(0)&hang8(7d

4、ownto1);endif;hang<=hang8;endprocess;endzhang;代码二、-汉字滚动库定义、包定义 *-*libraryIEEE;useIEEE.STD_LOGIC_1164.ALL;useIEEE.STD_LOGIC_ARITH.ALL;useIEEE.STD_LOGIC_UNSIGNED.ALL;*实体定义*ENTITYled88ISPORT(clk:INSTD_LOGIC;-时钟输入l:outSTD_LOGIC_VECTOR(7downto0);-输出点阵行控制l1:outSTD_LOGIC_VECTOR(7downto0);-数码管段扫描输出led:ou

5、tstd_logic_vector(7downto0);-数码管数据输出bell:outstd_logic;-蜂鸣器输出b:outSTD_LOGIC_VECTOR(7downto0)-点阵列控制);ENDled88;*构造体定义*ARCHITECTUREarchOFled88ISsignalclk_1k:std_logic;-1k时钟signalclk_1h:std_logic;-1h时钟signalp,c:integerrange0to7;BEGINbell<='0'led<="00000000"l1<="11111111*1k

6、分频进程*process(clk)variablecnt1:integerrange0to124;variablecnt2:integerrange0to199;beginifclk'eventandclk='1'thenifcnt1=124thencnt1:=0;ifcnt2=199thencnt2:=0;clk_1k<=notclk_1k;elsecnt2:=cnt2+1;endif;elsecnt1:=cnt1+1;endif;endif;endprocess;- -*汉字滚动进程*process(p,clk_1k)FUNCTIONword(bcd8421:

7、INTEGERRANGE 0 TO 7) RETURNSTD_LOGIC_VECTORISVARIABLEsmg7:STD_LOGIC_VECTOR(7DOWNTO0);BEGIN-汉字编码CASEbcd8421ISWHEN0=>smg7:=X"00"WHEN1=>smg7:=X"7c"WHEN2=>smg7:=X"54"WHEN3=>smg7:=X"fe"WHEN4=>smg7:=X"55"WHEN5=>smg7:=X"7d"WHEN6=

8、>smg7:=X"03"WHEN7=>smg7:=X"00"ENDCASE;RETURNsmg7;ENDword;variablecnt:integerrange0to63;beginifclk_1k'eventandclk_1k='1'thenp<=p+1;ifcnt=63thencnt:=0;clk_1h<=notclk_1h;elsecnt:=cnt+1;endif;endif;casepiswhen0=>b<="11111110"l<=word(c);when1

9、=>b<="11111101"l<=word(c+1);when2=>b<="11111011"l<=word(c+2);when3=>b<="11110111"l<=word(c+3);when4=>b<="11101111"l<=word(c+4);when5=>b<="11011111"l<=word(c+5);when6=>b<="10111111"l<=word(c+6);when7=>b<="01111111"l<=word(c+7);endcase;endprocess;-p