搜索
.基于VHDL语言实现数字电子钟的设计一．设计要求：1、设计内容选用合适的可编程逻辑器件及外围电子元器件，设计一个数字电子钟，利用EDA软件（QUARTUSⅡ）进行编译及仿真，设计输入可采用VHDL硬件描述语言输入法）和原理图输入法，并下载到EDA实验开发系统，连接外围电路，完成实际测试。2、设计要求（1）具有时、分、秒计数显示功能。（2）具有清零的功能，且能够对计时系统的小时、分钟进行调整。（3）小时为十二小时制。二．实验目的：1.通过这次EDA设计中，提高手动能力。2.深入了解时事时钟的工作原理，以及时事时钟外围硬件设备的组成。3.掌握多位计数器相连的设计方法。4.掌握十进制，六进制，二十四进制计数器的设计方法。5.继续巩固多位共阴极扫描显示数码管的驱动，及编码。6.掌握扬声器的驱动。7.LED灯的花样显示。8.掌握CPLD技术的层次化设计方法三.实验方案：数字系统的设计采用自顶向下、由粗到细,逐步分解的设计方法,最顶层电路是指系统的整体要求,最下层是具体的逻辑电路的实现。自顶向下的设计方法将一个复杂的系统逐渐分解成若干功能模块,从而进行设计描述,并且应用EDA软件平台自动完成各功能模块的逻辑综合与优化,门级电路的布局,再下载到硬件中实现设计。因此对于数字钟来说首先是时分秒的计数功能，然后能显示，附带功能是清零、调整时分。通过参考EDA课程设计指导书，现有以下方案：1.作为顶层文件有输入端口：时钟信号，清零按键，调时按键，调分按键；输出端口有：用于接数码管的八段码.输出口，扫描用于显示的六个数码管的输出口。2.底层文件分为：（1）时间计数模块。分秒计数模块计数为60计数，时计数模块为12计数。（2）显示模块。显示模块由一个六进制计数器模块和一个七段译码器组成。进制计数器为六选一选择器的选择判断端提供输入信号,六选一选择器的选择输出端分别接秒个位、秒十位、分个位、分十位和时个位、时十位的选通位用来完成动态扫描显示，同时依次输出秒个位、秒十位、分个位、分十位和时个位、时十位数向给译码模块。（3）报警模块当时间到整点时就报时。输入有时分秒计数，时钟脉冲。（4）采用点阵式数码管显示，点阵式数码管是由八行八列的发光二极管组成，对于显示文字比较适合,如采用在显示数字显得太浪费,且价格也相对较高,所以不用此种作为显示.采用LED数码管动态扫描,LED数码管价格适中,对于显示数字最合适,但无法显示图形文字，在显示星期是也只能用数字表示，而且采用动态扫描法与单片机连接时,在编程时比较复杂。所以也不采用了LED数码管作为显示。采用LCD液晶显示屏,液晶显示屏的显示功能强大,可显示文字,图形,显示多样,清晰可见,所以在此设计中采用LCD液晶显示屏。四．实验原理：1.实验主控系统原理图：2.模块设计原理图：秒计数分计数时计数送数及六选一选择器整点报警数码管秒脉冲分脉冲时脉冲秒脉冲时计数秒计数分计数译码传数扫描扬声器.以上为方案原理图，秒计数、分计数模块为60计数，计满后分别产生分脉冲、时脉，用于分计数、时计数。各计数器同时将计数值送报时模块和送数及六选一选择器模块。送数及六选一选择器模块依次将秒分时数送往译码模块译码，同时产生扫描信号用于数码管扫描显示。整点报警在整点时刻将秒脉冲信号送扬声器声音报警。（1）秒计数模块：Second模块为秒计数模块。Clk作为秒脉冲，reset复位，setmin用于调整分钟，接按键，enmin是当秒计数记到59后产生分脉冲，秒计数重新从0开始计数。Daout为秒计数。（2）分计数模块：分计数为分计数模块。Clk作为分脉冲，接second模块的enmin,reset用于复位，sethour用于调整小时，接按键，enhour是当分计数记到59后产生时脉冲，分计数重新从0开始计数。Daout为分计数。（3）时计数模块：.时计数为时计数模块，clk为时脉冲，接minute模块的enhour，reset复位，daout为时计数。五．硬件要求：在同一EPLD芯片EPF10K10上集成了如下电路模块：1．时钟计数：秒——60进制BCD码计数；分——60进制BCDD码计数；时——24进制BCDD码计数；同时整个计数器有清零，调分，调时功能。在接近整数时间能提供报时信号。2．具有驱动8位八段共阴扫描数码管的片选驱动信号输出和八段字形译码输出。编码和扫描可参照“实验四”。3．扬生器在整点时有报时驱动信号产生。六．实验源程序及流程图:1.实验源程序（VHDL）libraryieee;useieee.std_logic_1164.all;useieee.std_logic_arith.all;useieee.std_logic_unsigned.all;------------------------------------------------------------------------------------------------------------entitydaclkisport(Clk:instd_logic;--时钟输入Rst:instd_logic;--复位输入S1,S2:instd_logic;--时间调节输入SPK:outstd_logic;--扬声器输出Display:outstd_logic_vector(7downto0);--八段码管显示输出SEG_SEL:bufferstd_logic_vector(2downto0);--八段码管扫描驱动lam:outstd_logic_vector(2downto0));enddaclk;---------------------------------------------------------------------------------------------------------architecturebehaveofdaclkissignalDisp_Temp:integerrange0to15;signalDisp_Decode:std_logic_vector(7downto0);signalSEC1,SEC10:integerrange0to9;signalMIN1,MIN10:integerrange0to9;signalHOUR1,HOUR10:integerrange0to9;signalClk_Count1:std_logic_vector(13downto0);.signalClk1Hz:std_logic;signalMusic_Count:std_logic_vector(2downto0);signalcount:std_logic_vector(1downto0);signallamp:std_logic_vector(2downto0);beginprocess(Clk)--产生1Hz时钟的分频计数器beginif(Clk'eventandClk='1')thenif(Clk_Count110000)thenClk_Count1=Clk_Count1+1;elseClk_Count1=00000000000001;endif;endif;endprocess;Clk1Hz=Clk_Count1(13);process(Clk1Hz,Rst)beginif(Rst='0')then--系统复位SEC1=0;SEC10=0;MIN1=0;MIN10=0;HOUR1=0;HOUR10=0;elsif(Clk1Hz'eventandClk1Hz='1')thenif(S1='0')then--调节小时if(HOUR1=9)thenHOUR1=0;HOUR10=HOUR10+1;elsif(HOUR10=2andHOUR1=3)thenHOUR1=0;HOUR10=0;elseHOUR1=HOUR1+1;endif;elsif(S2='0')then--调节分钟if(MIN1=9)thenMIN1=0;if(MIN10=5)thenMIN10=0;elseMIN10=MIN10+1;endif;elseMIN1=MIN1+1;.endif;elsif(SEC1=9)thenSEC1=0;if(SEC10=5)thenSEC10=0;if(MIN1=9)thenMIN1=0;if(MIN10=5)thenMIN10=0;if(HOUR1=9)thenHOUR1=0;HOUR10=HOUR10+1;elsif(HOUR10=2andHOUR1=3)thenHOUR1=0;HOUR10=0;elseHOUR1=HOUR1+1;endif;elseMIN10=MIN10+1;endif;elseMIN1=MIN1+1;endif;elseSEC10=SEC10+1;endif;elseSEC1=SEC1+1;endif;endif;endprocess;process(Clk)--整点报时beginif(Clk'eventandClk='1')thenMusic_Count=Music_Count+1;if(MIN10=5andMIN1=9andSEC10=5)thenif((SEC1MOD2)=0)thenSPK=Music_Count(2);elseSPK='0';endif;elsif(MIN10=0andMIN1=0andSEC10=0andSEC1=0)thenSPK=Music_Count(1);else.SPK='0';endif;endif;endprocess;process(clk1Hz)--LED灯beginlam=lamp;if(rising_edge(clk1Hz))thencount=count+1;if(count=10)thenif(count=00)thenlamp=001;elsif(count=01)thenlamp=010;elsif(count=10)thenlamp=100;endif;elsecount=00;endif;endif;endprocess;process(SEG_SEL)--显示排序begincase(SEG_SEL+1)iswhen111=Disp_Temp=HOUR10;when110=Disp_Temp=HOUR1;when101=Disp_Temp=10;when100=Disp_Temp=MIN10;when011=Disp_Temp=MIN1;when010=Disp_Temp=10;when001=Disp_Temp=SEC10;when000=Disp_Temp=SEC1;endcase;endprocess;process(Clk)--扫描累加beginif(Clk'eventandClk='1')thenSEG_SEL=SEG_SEL+1;Display=Disp_Decode;endif;endprocess;.process(Disp_Temp)--显示转换begincaseDisp_Tempiswhen0=Disp_Decode=00111111;when1=Disp_Decode=00000110;when2=Disp_Decode=01011011;when3=Disp_Decode=01001111;when4=Disp_Decode=01100110;when5=Disp_Decode=01101101;when6=Disp_Decode=01111101;when7=Disp_Decode=00000111;when8=Disp_Decode=01111111;when9=Disp_Decode=01101111;when10=Disp_Decode=01000000;whenothers=Disp_Decode=00000000;endcase;end