基于VHDL的数字电子钟系统设计

集成电路软件设计基于VHDL的数字电子钟系统设计实验地点实验时间 2012.12.19 学院信息工程学院班级姓名学号成绩指导老师2012 年12 月19 日数字电子钟的设计一、设计项目基于VHDL的数字电子钟系统设计二、设计要求1、采用自顶向下的设计思想;2、使用本学期学习的设计语言VHDL和集成电路设计软件实现;三、设计任务（设计指标）1、设计数字电子钟的基本功能：年、月、日、时以24小时制显示，月日为阳历显示，起始时间为：2012年11月26日14:00;2、支持闹铃功能；3、随时校时功能；4、闰年提醒；5、中国传统节假日提醒。

四、设计思想电子时钟是电子设计中用来显示时间和年月日的一种装置。

是采用自顶向下的设计方法，将数字电子时钟分成五个子模块和一个顶层模块，然后将各个子模块再细化成为更小的功能块，直到最后能用vhdl语言进行描述为止。

当各个模块都描述完成并仿真确认无误后，再采用元件例化，将各个元件一层一层的例化连接起来，直到最后完成系统设计。

五、设计原理数字钟是一个将“时”，“年”，“月”，“日”显示于人的视觉器官的计时装置。

它的计时周期分别为24小时，365天（非闰年），12个月，31天显示满刻度为2030年12月31日23时，另外应有闹钟报时、闰年提醒，中国传统节假日提醒等附加功能。

因此，该数字钟电路主要由“时”，“日”，“年”，“月”，计数器、闹钟报时电路和转换器组成，其中年月日是以万年的整体形式体现。

时信号产生器是整个系统的时基信号，它直接决定计时系统的精度，一般用石英晶体振荡器加分频器来实现。

将标准秒信号送入“时计数器”，“时计数器”采用24进制计数器，每累计24小时发出一个“分脉冲”信号，该信号将作为“万年历计数器”的时钟脉冲。

万年历的年月日的输出端一方面输出显示，另一方面输入到闹钟中当作闹钟中的比较时间当输入的信息与设定好的一致时，响铃信号触发。

并在万年历中制作出当有闰年或是中国传统节假日的时候发出高平的信号进行提醒。

六、设计方案设计中使用的时元件例化和进程结合的方案。

每个元件主要采用进程语句实现，在每个进程主要使用了if_else、if_eslif_elsif_----_else 、case以及赋值语句，实现了模块化设计，使得整个程序一目了然。

整个电子钟的顶层设计实体为dzz（电子时钟）模块，其下又分为：fenpin（分频）、shi （时脉冲）、万年历（年月日）、zhuanhuan（过渡转换）和naozhong（闹钟）五个模块。

需要注意的是，在年月日模块中的日期模块对于2月份要按照平年闰年的情况分别处理。

在年月日的模块中对于闰年和中国传统节假日的提醒也是分别处理的。

七、各模块实现（一）分频模块分频器电路将20MHZ的高频方波信号经20M次分频后得到1Hz的方波信号供秒计数器进行计数。

分频器实际上也就是计数器。

而本实验的计时模块、闹钟模块需要1hz、100hz 的时钟信号，故需要加以分频实现所需信号。

分频电路的模块化示意图如下：（分频器的顶层连接图）（分频器顶层文件的元件图）分频器的子模块10分频的网表文件（网表文件）（10分频元件图）分频模块的仿真波形图（二）计时模块由时计数器组成了最基本的数字钟计时电路，二十四进制计数器和满位之后的进位信号组合构成。

其模块化电路示意图如下：其中preset为使能端高电平有效，co为溢出信号，当时计数到24点的时候会在co 处触发一个上升沿时钟供后面的万年历使用，保证使其工作。

计时模块的仿真波形图：H_in为校时输入端（三）万年历模块万年历的模块由年、月、日的整型计数形式组合而成，其中年是由2012计数到2030，月是一年12个月的计数，日的计数分为闰年和平年大月和小月的计数部分，当为闰年时2月份的天数为29，当为大月时日的计数为31，当为小月时日的计数为30,。

由于需要显示年、月、日、星期、闰年，故本模块需要有判断是否闰年电路，闰年以及非闰年对应的月天数的译码电路，12进制BCD计数器（用来月循环计数），100进制BCD计数（用来年循环计数），故先画出万年历的模块图如下，然后逐模块设计实现。

其模块的电路示意图如下：（网表文件）Preset为使能端，clk接在小时模块的co端口，data、month、year分别为日、月、年的输出，co为中国传统节假日的提醒信号端，连接在外面的chuantong端口，tixing就是为闰年的提醒信号端口，起始的信号都为0当满足条件是则变为1可接在扬声器上。

万年历模块的仿真波形图：D_in、m_in、y_in分别为日月年的校时输入端口，jiaoshi为校时控制端口其子模块日的仿真波形图为：其子模块月的仿真波形图为：其子模块年的仿真波形图为：（四）闹钟模块闹钟模块是由实时的小时模块和万年历模块时钟输入和手动设定的时、日、月、年模块组合成的满足当实时的时间与手动设定的时间相等时，闹钟就会输出一个使能信号使得扬声器发出声音。

其模块化的电路示意图如下：（闹钟网表文件）Preset为使能端口，高电平有效，hour、data、month、year为实时输入的时钟信号，shi、ri、yue、nian为外界输入的对于闹钟响铃时间的设定端口，music为响铃的使能端口。

（五）过渡模块过渡模块是为了方便当万年历输出端口要为两个电路框图所使用的时候方便连接顶层文件中的中间信号，从而做到万年历中的时钟信号既可以连接到闹钟模块中，也可以连接到外部模块中显示出来。

其模块化电路的示意图如下：其中preset为使能信号，hour、data、month、year为时钟输入的信号，连接中间信号。

Shi、ri、yue、nian为输出的时钟信号用于外部显示的作用。

也就是说当输入端输入什么信号的时候，输出端就会输出相同的信号。

（六）顶层模块（dzz模块）顶层模块是由前面的五个模块共同例化形成的，其模块化的电路示意图如下：A为时钟信号clk，vcc为接高电平，接在所有的preset端口，当电源连接时，数字之中开始工作，当断电的时候电子时钟不工作，vcc_m接在闹钟的控制端口中，及闹钟的开关，当开关未开时即vcc_m=’0’时闹钟不工作，当为’1’时闹钟正常工作，当闹钟响时调到低电平闹钟也停止工作。

Naozhong_out为闹钟工作输出口，runnian为闰年提醒端口，chuantong为中国传统节假日的提醒端口，hour_out、data_out、month_out、year_out为时钟的显示在外部的端口。

电子钟的仿真波形文件如下：八、设计结果由上面的仿真波形图可知，本次实验基本上完成了实验设计任务的要求数字电子钟的基本功能：年、月、日、时以24小时制显示，月日为阳历显示，起始时间为：2012年11月26日14:00;支持闹铃功能；闰年提醒；中国传统节假日提醒。

本次实验的数字电子钟的初值为2012年11月26日14时，闹钟的设定时间是2013年1月1日1时，犹如上图的波形所表现出来的一样。

九、论文结论在本次的设计实验过程中出现很多的问题如编程时，经常导致语法错误，如：“；”没有写上，变量类型没有预先标明，前后变量名字由于缺少一个或多一个字母而导致出错。

所以在写程序的时候应该对照错误，认真检查程序，看哪个地方的标点，变量没有写上或标明。

再者在进行编译或波形仿真时，经常得到的不是预想中的结果。

而且往往得不出错误在哪里，编译的过程并没有错误但是结果却是错的，于是将就将需要编译或进行仿真的实体文件置顶，经检错无误后，进行波形仿真，在仿真之前合理设置仿真结束时间和信号周期，就可以了。

在控制时间的显示的时候，由于变量太多多发现不能完全的控制住变量，导致仿真波形的是时候出现了高阻的状态，所以在顶层文件下应该减少变量，仔细推敲，合理命名。

虽然只是一个小设计，我却也从中学到了不少设计流程和一些相关问题。

设计是一个十分严谨的过程，容不得随意和马虎。

要想快速而高效地完成一项设计，必须先有一个清晰明了的设计思路，设想好一个整体框架，然后在此基础上，逐渐将各个部分功能进行完善。

在设计的过程中，也曾遇到不少困难，但正所谓坚持就是胜利，要想取得成功，必须要有努力付出，这样所取得的结果才更有意义。

附件（代码清单）10分频模块library ieee;use ieee.std_logic_1164.all;use ieee.std_logic_unsigned.all;entity fenpin10 isport (clk:in std_logic;--- - 输入时钟信号clk_out:buffer std_logic);--- -输出时钟信号end fenpin10;architecture rtl of fenpin10 issignal cnt:std_logic_vector(3 downto 0);--- -定义计数器模值beginprocess (clk)beginif (clk'event and clk='1') thenif (cnt="0100") thenclk_out<=not clk_out;cnt<="0000";elsecnt<=cnt+'1';end if;end if;end process ;end rtl;分频器模块library ieee;use ieee.std_logic_1164.all;use ieee.std_logic_unsigned.all;entity fenpin isport (clk:in std_logic;--- -??1Khz????clk_1hz,clk_100hz:buffer std_logic);--- - ???1hz?100hz??end fenpin;architecture rtl of fenpin issignal clk_10hz:std_logic;component fenpin10 is--??10???????????? port (clk_in:in std_logic;clk_out:buffer std_logic);end component;beginu0: fenpin10port map(clk_in=>clk,--- - ????clk_out=>clk_100hz);--- - ???? u1: fenpin10port map (clk_in=>clk_100hz, --- - ????clk_out=>clk_10hz);-- - - ???? u2: fenpin10port map (clk_in=>clk_10hz, --- - ????clk_out=>clk_1hz);-- - - ???? end rtl;分频器模块testbench文件LIBRARY ieee ;USE ieee.std_logic_1164.all ;ENTITY testbench ISEND testbench;ARCHITECTURE a OF testbench IS signal clk_1hz: std_logic;signal clk_100hz: std_logic;SIGNAL clk : std_logic := '1' ; COMPONENT fenpinport (clk:in std_logic;clk_1hz,clk_100hz:buffer std_logic);END COMPONENT ;BEGINprocessbeginwait for 50ns;clk <= not clk;end process;test:fenpinPORT MAP (clk => clk,clk_1hz=>clk_1hz,clk_100hz=>clk_100hz) ;END a;时模块library ieee;use ieee.std_logic_1164.all; entity shi isport(clk :in std_logic;preset : in std_logic; jiaoshi: in std_logic;h_in:in integer range 0 to 23; hour : out integer range 0 to 23; co : out std_logic);end shi;architecture a of shi issignal s :integer range 0 to 23:=14; beginprocess(clk,preset)beginif preset ='0' then s<=14;elsif (clk'event and clk='1') then if s<23 then s<=s+1;else s<=0;end if;if s=23 then co<='1';else co<='0';if jiaoshi='1' then s<=h_in;elsif (clk'event and clk='1') then if s<23 then s<=s+1;else s<=0;end if;if s=23 then co<='1';else co<='0';end if;end if ;end if;end if;end process;hour <=s;end a;时模块Testbench文件LIBRARY ieee ;USE ieee.std_logic_1164.all ;ENTITY testbench ISEND testbench;ARCHITECTURE a OF testbench ISSIGNAL hour : integer :=14 ;signal jiaoshi : std_logic:='0';signal h_in: integer:=14;signal co : std_logic:='0';SIGNAL preset : std_logic := '0' ;SIGNAL clk : std_logic := '1' ;COMPONENT shiport(clk :in std_logic;preset : in std_logic;jiaoshi: in std_logic;h_in:in integer range 0 to 23;hour : out integer range 0 to 23;co : out std_logic);END COMPONENT ;BEGINprocessbeginwait for 50ns;clk <= not clk;end process;processbeginwait for 2000ns;jiaoshi<=not jiaoshi;end process;preset <= '1' after 20ns;test:shiPORT MAP (jiaoshi =>jiaoshi,h_in=>h_in,clk => clk,preset => preset,co => co,hour => hour) ;END a;万年历模块library ieee;use ieee.std_logic_1164.all;use ieee.std_logic_unsigned.all;use ieee.std_logic_arith.all;entity wannianli isport( preset:in std_logic;clk:in std_logic;jiaoshi:in std_logic;d_in:in integer range 1 to 31;m_in:in integer range 1 to 12;y_in:in integer range 2012 to 2030;data: out integer range 1 to 31;month:out integer range 1 to 12;year:out integer range 2012 to 2030;tixing:out std_logic;co:out std_logic);end wannianli;architecture a of wannianli issignal yue:integer range 1 to 12:=11;signal nian:integer range 2012 to 2030:=2012;signal ri:integer range 1 to 31:=26;signal qm:integer range 28 to 31;beginprocess(yue,nian)begincase yue iswhen 1=>qm<=31;when 2 =>if(((nian mod 4)=0 and (nian mod 100)/=0) or (nian mod 400)=0) then qm<=29;else qm<=28;end if;when 3 =>qm <=31;when 4 =>qm<=30;when 5 =>qm<=31;when 6 =>qm<=30;when 7 =>qm<=31;when 8 =>qm<=31;when 9 =>qm<=30;when 10 =>qm<=31;when 11 =>qm<=30;when 12 =>qm<=31;when others =>null;end case ;end process;process(clk,preset)beginif preset='0' thenyue <=11 ;nian<=2012;ri<=26;elseif (((nian mod 4)=0 and (nian mod 100)/=0) or (nian mod 400)=0) then tixing<='1';else tixing<='0';end if;if ((yue=5 and ri=1) or (yue=10 and ri=1 )or (yue=1 and ri=1) or (yue=8 and ri=15) or (yue=1 and ri=15)) then co<='1';else co<='0';end if;if clk'event and clk='1' thenif(ri=qm) then ri<=1;if(yue=12)then yue<=1;nian<=nian+1;else yue<=yue+1;end if;elsif(ri<qm) then ri<=ri+1;if jiaoshi='1' thenri<=d_in;yue<=m_in;nian<=y_in;elsif clk'event and clk='1' thenif(ri=qm) then ri<=1;if(yue=12)then yue<=1;nian<=nian+1;else yue<=yue+1;end if;elsif(ri<qm) then ri<=ri+1;end if;end if;end if;end if;end if;end process;month<=yue;year<=nian;data<=ri;end a;万年历testbench文件LIBRARY ieee ;USE ieee.std_logic_1164.all ;use ieee.std_logic_unsigned.all;use ieee.std_logic_arith.all;ENTITY testbench ISEND testbench;ARCHITECTURE a OF testbench ISSIGNAL preset : std_logic := '0' ;SIGNAL clk : std_logic := '1' ;signal co: std_logic;SIGNAL tixing:std_logic;signal jiaoshi:std_logic:='1';SIGNAL d_in: integer range 1 to 31:=2;SIGNAL m_in: integer range 1 to 12:=2;SIGNAL y_in: integer range 2012 to 2030:=2013; signal yue:integer range 1 to 12:=11;signal nian:integer range 2012 to 2030:=2012;signal ri:integer range 1 to 31:=26;COMPONENT wannianliport( preset:in std_logic;clk:in std_logic;jiaoshi:in std_logic:='1';d_in:in integer range 1 to 31;m_in:in integer range 1 to 12;y_in:in integer range 2012 to 2030;data: out integer range 1 to 31;month:out integer range 1 to 12;year:out integer range 2012 to 2030;tixing:out std_logic;co:out std_logic);END COMPONENT ;BEGINprocessbeginwait for 50ns;clk <= not clk;end process;processbeginjiaoshi<=not jiaoshi ;wait for 3000ns;end process;preset <= '1' after 20ns;d_in <=2 after 10ns;m_in <=2 after 10ns;y_in <=2013 after 10ns;test:wannianliPORT MAP (jiaoshi=>jiaoshi,d_in =>d_in,m_in =>m_in,y_in =>y_in,clk=> clk,tixing=>tixing,co=>co,preset=> preset,month=>yue,year=>nian,data=>ri) ;END a;日模块library ieee;use ieee.std_logic_1164.all; entity ri isport(clk :in std_logic;preset : in std_logic;data : out integer range 1 to 31; co : out std_logic);end ri;architecture a of ri issignal s :integer range 1 to 31; beginprocess(clk,preset)beginif preset ='0' then s<=1;elsif (clk'event and clk='1') then if s<31 then s<=s+1;else s<=1;end if;if s=31 then co<='1';else co<='0';end if;end if ;end process;data <=s;end a;日模块testbench文件LIBRARY ieee ;USE ieee.std_logic_1164.all ;ENTITY testbench ISEND testbench;ARCHITECTURE a OF testbench IS SIGNAL data : integer :=26 ;signal co : std_logic:='0';SIGNAL preset : std_logic := '0' ; SIGNAL clk : std_logic := '1' ; COMPONENT riport(clk :in std_logic;preset : in std_logic;data : out integer range 1 to 31;co : out std_logic);END COMPONENT ;BEGINprocessbeginwait for 50ns;clk <= not clk;end process;preset <= '1' after 20ns;test:riPORT MAP (clk => clk,preset => preset,co => co,data => data) ;END a;月模块library ieee;use ieee.std_logic_1164.all;entity yue isport(clk :in std_logic;preset : in std_logic;month : out integer range 1 to 12;co : out std_logic);end yue;architecture a of yue issignal s :integer range 1 to 12;beginprocess(clk,preset)beginif preset ='0' then s<=1;elsif (clk'event and clk='1') thenif s<12 then s<=s+1;else s<=1;end if;if s=12 then co<='1';else co<='0';end if;end if ;end process;month <=s;end a;月模块testbench文件LIBRARY ieee ;USE ieee.std_logic_1164.all ;ENTITY testbench ISEND testbench;ARCHITECTURE a OF testbench IS SIGNAL month : integer :=11 ;signal co : std_logic:='0';SIGNAL preset : std_logic := '0' ; SIGNAL clk : std_logic := '1' ; COMPONENT yueport(clk :in std_logic;preset : in std_logic;month : out integer range 1 to 12;co : out std_logic);END COMPONENT ;BEGINprocessbeginwait for 50ns;clk <= not clk;end process;preset <= '1' after 20ns;test:yuePORT MAP (clk => clk,preset => preset,co => co,month => month) ;END a;年模块library ieee;use ieee.std_logic_1164.all;entity nian isport(clk :in std_logic;preset : in std_logic;year : out integer range 2012 to 2030; co : out std_logic);end nian;architecture a of nian issignal s :integer range 2012 to 2030; beginprocess(clk,preset)beginif preset ='0' then s<=2012;elsif (clk'event and clk='1') thenif s<2030 then s<=s+1;else s<=2012;end if;if s=2030 then co<='1';else co<='0';end if;end if ;end process;year <=s;end a;年模块testbench文件library ieee;use ieee.std_logic_1164.all;entity nian isport(clk :in std_logic;preset : in std_logic;year : out integer range 2012 to 2030;co : out std_logic);end nian;architecture a of nian issignal s :integer range 2012 to 2030;beginprocess(clk,preset)beginif preset ='0' then s<=2012;elsif (clk'event and clk='1') thenif s<2030 then s<=s+1;else s<=2012;end if;if s=2030 then co<='1';else co<='0';end if;end if ;end process;year <=s;end a;闹钟模块library ieee;use ieee.std_logic_1164.all;use ieee.std_logic_unsigned.all;entity naozhong isport (clk,preset:in std_logic;----时钟、使能信号hour: in integer range 0 to 23;data: in integer range 1 to 31;month:in integer range 1 to 12;year:in integer range 2012 to 2030;---输入的设定时间ri:in integer range 1 to 31:=26;shi: in integer range 0 to 23:=14;yue:in integer range 1 to 12:=11;nian: in integer range 2012 to 2030:=2012;----输入的实时时间music:out std_logic);----音乐使能信号end naozhong;architecture rtl of naozhong issignal temp:integer range 0 to 23:=0;beginprocess (clk,preset)beginif (clk'event and clk='1') then----判断设定时间和实时时间是否相等if ((year=nian)and(data=ri)and(month=yue)and(hour=shi)and(preset='1')) then music<='1';if (hour=5) then temp<=0 ;elsetemp<=hour+1;----当相等时自动计时一分钟end if;elsif (preset='0') then music<='0';----按停止键闹钟停止end if;if (temp=shi) then music<='0';----不按停止键一分钟自动停止end if;end if;end process ;end rtl;过渡模块library ieee;use ieee.std_logic_1164.all;use ieee.std_logic_unsigned.all;entity zhuanhuan isport (preset:in std_logic;hour: in integer range 0 to 23;data: in integer range 1 to 31;month:in integer range 1 to 12;year:in integer range 2012 to 2030;shi: out integer range 0 to 23:=14;ri:out integer range 1 to 31:=26;yue:out integer range 1 to 12:=11;nian: out integer range 2012 to 2030:=2012);end zhuanhuan;architecture a of zhuanhuan issignal y0:integer range 0 to 23:=14;signal y1:integer range 1 to 31:=26;signal y2:integer range 1 to 12:=11;signal y3:integer range 2012 to 2030:=2012;beginprocess (preset,hour,data,month,year)begin--case hour isif (preset='0')then y0<=14 ; y1<=26 ; y2<=11 ; y3<=2012;else y0<=hour;y1<=data;y2<=month;y3<=year;end if;end process;shi<=y0;ri<=y1;yue<=y2;nian<=y3;end a;顶层模块library ieee;use ieee.std_logic_1164.all;use ieee.std_logic_unsigned.all;use ieee.std_logic_arith.all;entity dzz isport( a:in std_logic;vcc:in std_logic;vcc_m:in std_logic;js:in std_logic;s: in integer range 0 to 23;r: in integer range 1 to 31;y:in integer range 1 to 12;n:in integer range 2012 to 2030;j:in integer range 0 to 23;k:in integer range 1 to 31;l:in integer range 1 to 12;m:in integer range 2012 to 2030;hour_out:out integer range 0 to 23;data_out: out integer range 1 to 31;month_out:out integer range 1 to 12;year_out:out integer range 2012 to 2030; naozhong_out:out std_logic;runnian:out std_logic;chuantong:out std_logic);end dzz;architecture rtl of dzz is--component fenpin is--port (clk:in std_logic;----- clk_1hz,clk_100hz:buffer std_logic); --end component;component shi isport(clk :in std_logic;preset : in std_logic;jiaoshi: in std_logic;h_in:in integer range 0 to 23;hour : out integer range 0 to 23;co : out std_logic);end component;component wannianli isport( preset:in std_logic;clk:in std_logic;jiaoshi:in std_logic;d_in:in integer range 1 to 31;m_in:in integer range 1 to 12;y_in:in integer range 2012 to 2030;data: out integer range 1 to 31;month:out integer range 1 to 12;year:out integer range 2012 to 2030;tixing:out std_logic;co:out std_logic);end component;component naozhong isport ( clk,preset:in std_logic;----???????hour: in integer range 0 to 23;data: in integer range 1 to 31;month:in integer range 1 to 12;year:in integer range 2012 to 2030;---???????ri:in integer range 1 to 31:=26;shi: in integer range 0 to 23:=14;yue:in integer range 1 to 12:=11;nian: in integer range 2012 to 2030:=2012; ----???????music:out std_logic);----??????end component;component zhuanhuan isport (preset:in std_logic;hour: in integer range 0 to 23;data: in integer range 1 to 31;month:in integer range 1 to 12;year:in integer range 2012 to 2030;shi: out integer range 0 to 23:=14;ri:out integer range 1 to 31:=26;yue:out integer range 1 to 12:=11;nian: out integer range 2012 to 2030:=2012);end component;signal b:std_logic;signal c:std_logic;signal d:integer range 0 to 23:=14;signal e:std_logic;signal f:integer range 1 to 31:=26;signal g:integer range 1 to 12:=11;signal h:integer range 2012 to 2030:=2012;begin--u1:fenpin port map(clk=>a,clk_1hz=>b,clk_100hz=>c);u2:shi port map(preset=>vcc,clk=>a,jiaoshi=>js,h_in=>j,hour=>d,co=>e);u3:wannianli port map(preset=>vcc,clk=>a,jiaoshi=>js,d_in=>k,m_in=>l,y_in=>m,data=>f,month=>g,year=>h,tixin g=>runnian,co=>chuantong);u4:naozhong port map(preset=>vcc_m,clk=>a,hour=>d,data=>f,month=>g,year=>h,shi=>s,ri=>r,yue=>y,nian=>n,m usic=>naozhong_out);u5:zhuanhuan port map(preset=>vcc,hour=>d,data=>f,month=>g,year=>h,shi=>hour_out,ri=>data_out,yue=>month_ out,nian=>year_out);end rtl;顶层模块testbench文件LIBRARY ieee ;USE ieee.std_logic_1164.all ;use ieee.std_logic_unsigned.all;use ieee.std_logic_arith.all;ENTITY testbench ISEND testbench;ARCHITECTURE a OF testbench ISsignal a: std_logic:='1';signal vcc: std_logic:='0';signal vcc_m: std_logic:='0';signal js: std_logic:='0';signal j:integer range 0 to 23:=13;signal k: integer range 1 to 31:=2;signal l: integer range 1 to 12:=2;signal m: integer range 2012 to 2030:=2013;signal s: integer range 0 to 23:=1;signal r: integer range 1 to 31:=1;signal y:integer range 1 to 12:=1;signal n: integer range 2012 to 2030:=2013;signal hour_out: integer range 0 to 23:=14;signal data_out: integer range 1 to 31:=26;signal month_out: integer range 1 to 12:=11;signal year_out: integer range 2012 to 2030:=2012;signal naozhong_out: std_logic;signal runnian: std_logic;signal chuantong: std_logic;COMPONENT dzzport( a:in std_logic;vcc:in std_logic;vcc_m:in std_logic;js:in std_logic;s: in integer range 0 to 23;r: in integer range 1 to 31;y:in integer range 1 to 12;n:in integer range 2012 to 2030;j:in integer range 0 to 23;k:in integer range 1 to 31;l:in integer range 1 to 12;m:in integer range 2012 to 2030;hour_out:out integer range 0 to 23;data_out: out integer range 1 to 31;month_out:out integer range 1 to 12;year_out:out integer range 2012 to 2030;naozhong_out:out std_logic;runnian:out std_logic;chuantong:out std_logic);END COMPONENT ;BEGINprocessbeginwait for 40ns;a <= not a;end process;processbeginwait for 300ns;vcc_m <= not vcc_m;end process;processbeginwait for 5000ns;js<=not js;end process;j<= 13 after 20ns;k<= 2 after 20ns;l<= 2 after 20ns;m<= 2013 after 20ns;vcc <= '1' after 10ns;s <= 1 after 10ns;r <= 1 after 10ns;y <= 1 after 10ns;n <= 2013 after 10ns;test:dzzPORT MAP (js => js,j => j,k => k,l => l,m => m,a => a,vcc => vcc,vcc_m => vcc_m,s => s,r => r,y => y,n => n,hour_out => hour_out,data_out => data_out,month_out => month_out,year_out => year_out,naozhong_out => naozhong_out, runnian => runnian,chuantong => chuantong); END a;。