本程序实现的电路是以CycloneII序列之EP2C5Q208C8芯片为例，经过特定电路实际仿真验证并正确的，程序仿真的时钟采用12M晶振：
library ieee; Use ieee.std_logic_1164.all; Use ieee.std_logic_unsigned.all; entity DZB1 is port(cr,min,hor,cp:in std_logic; q:out std_logic_vector(6 downto 0); w0,w1,w2,w3,w4,w5:out std_logic); end DZB1; architecture dianzi of DZB1 is signal display,t0,t1,t2:std_logic_vector(8 downto 0); signal c0,c1,c2,s0,s1,m0,m1,h0,h1,clk1,clk2:std_logic; signal sq0,sq1,mq0,mq1,hq0,hq1,xs:std_logic_vector(3 downto 0); begin process(cr,cp) --分频开始 begin if cp'event and cp='1' then if t0=499 then t0<="000000000";c0<='1'; else t0<=t0+1; c0<='0'; end if; end if; if c0'event and c0='1' then if t1=199 then t1<="000000000";c1<='1'; else t1<=t1+1;c1<='0'; end if; end if; if c1'event and c1='1' then if t2=199 then t2<="000000000";c2<='1'; else t2<=t2+1;c2<='0'; end if; end if; end process; --分频结束 --秒计时开始 process(c2,cr,min) begin if c2'event and c2='1' then if sq0=9 then sq0<="0000";s0<='1'; else sq0<=sq0+1;s0<='0'; end if; end if; if s0'event and s0='1' then if sq1=5 then sq1<="0000"; s1<='1'; else sq1<=sq1+1;s1<='0'; end if; end if; if cr='0' then sq0<="0000";sq1<="0000"; end if; if min='0' then sq0<="0000";sq1<="0000"; end if; end process;--秒计时结束. --分开始 process(s1,min) begin clk1<=s1 or (not min);--分调整按钮，按一下分加1同时将秒清0. if clk1'event and clk1='1' then if mq0=9 then mq0<="0000";m0<='1'; else mq0<=mq0+1; m0<='0'; end if; end if; if m0'event and m0='1' then if mq1=5 then mq1<="0000";m1<='1'; else mq1<=mq1+1;m1<='0'; end if; end if; if cr='0' then mq1<="0000";mq0<="0000"; end if;--分结束 end process; --小时开始 process(m1,hor) begin clk2<=m1 or (not hor);--时调整按钮，按一下小时加1. if clk2'event and clk2='1' then if hq0=9 then hq0<="0000";h0<='1'; else hq0<=hq0+1;h0<='0'; end if; end if; if h0'event and h0='1' then if hq1=5 then hq1<="0000";h1<='1'; else hq1<=hq1+1;h1<='0'; end if; end if; if hq1=2 and hq0=4 then hq0<="0000";hq1<="0000"; end if; if cr='0' then hq0<="0000";hq1<="0000"; end if;--小时结束 end process; --显示开始 process(xs) begin case xs is when "0000"=>q<="0000001"; when "0001"=>q<="1001111"; when "0010"=>q<="0010010"; when "0011"=>q<="0000110"; when "0100"=>q<="1001100"; when "0101"=>q<="0100100"; when "0110"=>q<="0100000"; when "0111"=>q<="0001111"; when "1000"=>q<="0000000"; when "1001"=>q<="0000100"; when others=>q<="0000001"; end case; end process;--显示结束 --显示输出 process(cp) begin --显示计时 if cp'event and cp='1' then if display<496 then display<=display+1; else display<="000000000"; end if; end if; --秒显示 if display>0 and display<82 then xs<=sq0;w0<='0'; else w0<='1'; end if; if display>83 and display<164 then xs<=sq1;w1<='0'; else w1<='1'; end if; --分显示 if display>165 and display<247 then xs<=mq0;w2<='0'; else w2<='1'; end if; if display>248 and display<320 then xs<=mq1;w3<='0'; else w3<='1'; end if; --时显示 if display>321 and display<403 then xs<=hq0;w4<='0'; else w4<='1'; end if; if display>405 and display<496 then xs<=hq1;w5<='0'; else w5<='1'; end if; end process; end ;
其中12M时钟从24脚输入，七段显示a,b,c,d,e,f,g对应Q0---Q6，绑定管脚依次为171，173，175，164，165，168，169，显示控制按照从左向右依次为：小时、分、秒（各两位显示）的顺序，由于6个采用总线控制，所以需要分时向总线传递显示信号，分别由位控制脚按照小时、分、秒的顺序由176，179，180，181，182和185脚分时点亮，就成了地地道道的电子表。
-电子元器件采购网（www.ruidan.com）是本土元器件目录分销商，采用“小批量、现货、样品”销售模式，致力于满足客户多型号、高质量、快速交付的采购需求。 自建高效智能仓储，拥有自营库存超过50,000种，提供一站式正品现货采购、个性化解决方案、选型替代等多元化服务。