EDA技术（机械）实验报告-16-16点阵显示设计

PAGEPAGE1 西华大学实验报告第组.第组实验报告（计算机类）开课学院及实验室：实验时间：年月日学生姓名学号9成绩学生所在学院年级/专业/班课程名称EDA技术（机械）课程代码实验项目名称16*16点阵显示设计项目代码指导教师项目学分一、实验目的1.了解VHDL语言编程方法，学会熟练运用quartus软件2.了解点阵显示原理3.了解如何使用VHDL设计一个16*16点阵显示二、内容与设计思想本设计针对一个16*16的点阵使用逐列循环扫描的方式来不间断的显示VHDL这四个英文字母。三、使用环境winXP或win7Quartusii编程环境核心代码及调试过程16*16点阵显示设计CHW模块libraryieee;useieee.std_logic_1164.all;useieee.std_logic_unsigned.all;entitychwis port( clk:instd_logic; q:outstd_logic_vector(1downto0) );endchw;architecturechw_arcofchwisbegin Process(clk) variablecnt:std_logic_vector(3downto0); variabletmp:std_logic_vector(1downto0); begin ifclk'eventandclk='1'then ifcnt<"1111"then cnt:=cnt+1; else cnt:="0000"; iftmp="11"then tmp:="00"; else tmp:=tmp+1; endif; endif; endif; q<=tmp; endprocess;endchw_arc;CNTA模块libraryieee;useieee.std_logic_1164.all;useieee.std_logic_unsigned.all;entitycntais port( clk:instd_logic; q:outstd_logic_vector(3downto0) );endcnta;architecturecnta_arcofcntaisbegin process(clk) variabletmp:std_logic_vector(3downto0); begin ifclk'eventandclk='1'then iftmp="1111"then tmp:="0000"; else tmp:=tmp+1; endif; endif; q<=tmp-1; endprocess;endcnta_arc;CORA模块libraryieee;useieee.std_logic_1164.all;entitycorais port(ch:instd_logic_vector(1downto0); sel:instd_logic_vector(3downto0); q:outstd_logic_vector(15downto0) );endcora;architecturecora_arcofcoraisbegin process(ch,sel) begin casechis when"00"=> caseselis when"0000"=>q<="0111000000000000"; when"0001"=>q<="0111100000000000"; when"0010"=>q<="0001111000000000"; when"0011"=>q<="0000011110000000"; when"0100"=>q<="0000000111100000"; when"0101"=>q<="0000000001111000"; when"0110"=>q<="0000000000011110"; when"0111"=>q<="0000000000000111"; when"1000"=>q<="0000000000000111"; when"1001"=>q<="0000000000011110"; when"1010"=>q<="0000000001111000"; when"1011"=>q<="0000000111100000"; when"1100"=>q<="0000011110000000"; when"1101"=>q<="0001111000000000"; when"1110"=>q<="0111100000000000"; when"1111"=>q<="0111000000000000"; whenothers=>null; endcase; when"01"=> caseselis when"0000"=>q<="0000000000000000"; when"0001"=>q<="0000000000000000"; when"0010"=>q<="1111111111111111"; when"0011"=>q<="1111111111111111"; when"0100"=>q<="0000001110000000"; when"0101"=>q<="0000001110000000"; when"0110"=>q<="0000001110000000"; when"0111"=>q<="0000001110000000"; when"1000"=>q<="0000001110000000"; when"1001"=>q<="0000001110000000"; when"1010"=>q<="0000001110000000"; when"1011"=>q<="0000001110000000"; when"1100"=>q<="1111111111111111"; when"1101"=>q<="1111111111111111"; when"1110"=>q<="0000000000000000"; when"1111"=>q<="0000000000000000"; whenothers=>null; endcase; when"10"=> caseselis when"0000"=>q<="0000000000000000"; when"0001"=>q<="0000000000000000"; when"0010"=>q<="1111111111111111"; when"0011"=>q<="1111111111111111"; when"0100"=>q<="1100000000000011"; when"0101"=>q<="1100000000000011"; when"0110"=>q<="1100000000000011"; when"0111"=>q<="0110000000000110"; when"1000"=>q<="0110000000000110"; when"1001"=>q<="0110000000000110"; when"1010"=>q<="0011000000001100"; when"1011"=>q<="0001100000011000"; when"1100"=>q<="0000111111110000"; when"1101"=>q<="0000011111100000"; when"1110"=>q<="0000000000000000"; when"1111"=>q<="0000000000000000"; whenothers=>null; endcase; when"11"=> caseselis when"0000"=>q<="0000000000000000"; when"0001"=>q<="0000000000000000"; when"0010"=>q<="0000000000000000"; when"0011"=>q<="1111111111111111"; when"0100"=>q<="1111111111111111"; when"0101"=>q<="0000000000000011"; when"0110"=>q<="0000000000000011"; when"0111"=>q<="0000000000000011"; when"1000"=>q<="0000000000000011"; when"1001"=>q<="0000000000000011"; when"1010"=>q<="0000000000000011"; when"1011"=>q<="0000000000000111"; when"1100"=>q<="00000000000011