进制同步计数器设计报告

浙江万里学院实验报告成绩成绩：教师：施炯课程名称：可编程逻辑器件应用实验名称：100进制同步计数器设计专业班级：电子103姓名：徐强学号：实验日期：2023.5.10一、实验目的：1、掌握计数器的原理及设计方法；2、设计一个0~100的计数器；3、运用实验二的七段数码管电路进行显示；二、实验规定：1、用VHDL语言进行描写；2、有计数显示输出；3、有清零端和计数使能端；三、实验结果：1.VHDL程序LIBRARYIEEE; USEIEEE.STD_LOGIC_1164.ALL;PACKAGEmy_pkgIS Componentnd2--或门PORT(a,b:INSTD_LOGIC; c:OUTSTD_LOGIC);ENDComponent;Componentled_decoder PORT(din:instd_logic_vector(3downto0);--四位二进制码输入seg:outstd_logic_vector(6downto0));--输出LED七段码 ENDComponent; ComponentCNT60--2位BCD码60进制计数器 PORT (CR:INSTD_LOGIC;EN:INSTD_LOGIC; CLK:INSTD_LOGIC; OUTLOW:BUFFERSTD_LOGIC_VECTOR(3DOWNTO0); OUTHIGH:BUFFERSTD_LOGIC_VECTOR(3DOWNTO0) ); ENDComponent; ComponentCNT100--带使能和清零信号的100进制计数器 PORT ( CLK:INSTD_LOGIC; EN:INSTD_LOGIC; CLR:INSTD_LOGIC; OUTLOW:BUFFERSTD_LOGIC_VECTOR(3DOWNTO0); OUTHIGH:BUFFERSTD_LOGIC_VECTOR(3DOWNTO0) ); ENDComponent; Componentfreq_div--50MHZ时钟分频出1Hz PORT ( clkinput:INSTD_LOGIC; output:OUTSTD_LOGIC ); ENDComponent; Componentjtd--交通灯控制器 PORT ( CLKIN:INSTD_LOGIC;--50MHZ R1,G1,R2,G2,R3,G3,R4,G4:OUTSTD_LOGIC;--红绿灯信号输出 GAO,DI:BUFFERSTD_LOGIC_VECTOR(3DOWNTO0)--倒计时输出 ); ENDComponent; ENDmy_pkg;LIBRARYIEEE; USEIEEE.STD_LOGIC_1164.ALL;USEwork.my_pkg.ALL; --打开程序包ENTITYDemo3ISPORT(CRl:INSTD_LOGIC;ENl:INSTD_LOGIC;CLKIN:INSTD_LOGIC; LEDLOW,LEDHIGH:OUTSTD_LOGIC_VECTOR(6downto0));ENDDemo3;ARCHITECTUREbehvOFDemo3ISSIGNALCLKTEMP:STD_LOGIC;--定义中转信号SIGNALLEDLOWTEMP,LEDHIGHTEMP:STD_LOGIC_VECTOR(3downto0);BEGIN u1:freq_divPORTMAP(CLKIN,CLKTEMP); --位置关联方式 u2:CNT60PORTMAP(CR=>CRl,EN=>ENl,CLK=>CLKTEMP,OUTLOW=>LEDLOWTEMP,OUTHIGH=>LEDHIGHTEMP); --名字关联方式 u3:led_decoderPORTMAP(LEDLOWTEMP,LEDLOW); --低位数码管输出 u4:led_decoderPORTMAP(LEDHIGHTEMP,LEDHIGH); --高位数码管输出ENDbehv;LIBRARYieee;USEieee.std_logic_1164.all;ENTITYfreq_divISPORT( clkinput:INSTD_LOGIC; output:OUTSTD_LOGIC);ENDfreq_div;ARCHITECTURErtOFfreq_divIS SIGNALcount_signal:INTEGER signalmid1:STD_LOGIC; BEGIN PROCESS(clkinput) BEGIN IF(clkinput'EVENTANDclkinput='1')THEN ifcount_signal=24999999then--50MHzdivisionto1Hz count_signal<=0; mid1<=notmid1; else count_signal<=count_signal+1; endif; output<=mid1; endif; ENDPROCESS;endrt;--文献名：decoder.vhdlibraryIEEE;useIEEE.STD_LOGIC_1164.ALL;entityled_decoderisPort(din:instd_logic_vector(3downto0);--四位二进制码输入seg:outstd_logic_vector(6downto0));--输出LED七段码endled_decoder;architectureBehavioralofled_decoderisbegin process(din) begin casedinis when"0000"=> seg<="1000000";--0 when"0001"=>seg<="1111001";--1 when"0010"=>seg<="0100100";--2 when"0011"=>seg<="0110000";--3 when"0100"=>seg<="0011001";--4 when"0101"=>seg<="0010010";--5 when"0110"=>seg<="0000010";--6 when"0111"=>seg<="1011000";--7 when"1000"=>seg<="0000000";--8 when"1001"=>seg<="0010000";--9 whenothers=>seg<="0000110";--E endcase;endprocess;endBehavioral;LIBRARYIEEE;USEIEEE.STD_LOGIC_1164.ALL;USEIEEE.STD_LOGIC_UNSIGNED.ALL;ENTITYCNT60ISPORT(CR:INSTD_LOGIC;EN:INSTD_LOGIC;CLK:INSTD_LOGIC;OUTLOW:BUFFERSTD_LOGIC_VECTOR(3DOWNTO0);OUTHIGH:BUFFERSTD_LOGIC_VECTOR(3DOWNTO0));ENDCNT60;ARCHITECTUREbehavOFCNT60ISBEGIN PROCESS(CLK,CR,EN) BEGIN ifCR='1'then OUTHIGH<="0000"; OUTLOW<="0000"; elsifEN='1'thenIFCLK'EVENTANDCLK='1'THEN IFOUTHIGH="1001"ANDOUTLOW="1001"THEN OUTHIGH<="0000"; OUTLOW