EDA數(shù)字時鐘設(shè)計

1、Quartus數(shù)字時鐘設(shè)計 1. 設(shè)計功能1. 可以快速設(shè)置時鐘起始值；2. 在59分50秒時開始報時，七聲低音，一聲高音，報完剛好整點。二.功能實現(xiàn)1.頂層設(shè)計（采用BDF文件圖形設(shè)計，文件名：timer.bdf）2. 秒計時器模塊設(shè)計library ieee;use ieee.std_logic_1164.all; use ieee.std_logic_arith.all; use ieee.std_logic_unsigned.all;entity second1 isport(clk1s:in std_logic; reset:in std_logic; sec2,sec1:buffe

2、r std_logic_vector(3 downto 0);-秒的十位和個位 seco: out std_logic); -秒計時器的進位輸出end;architecture A of second1 is begin process(clk1s,reset) begin if reset = '0' then sec2 <= "0000" sec1 <= "0000" -清零秒計時器 seco <= '0' elsif clk1s'event and clk1s ='1' th

3、en if (sec1 = "1001" and sec2 = "0101") then sec2 <= "0000"sec1 <="0000" -在59秒時回零 seco <= '1' -進位 elsif (sec1 ="1001") then sec1 <="0000" sec2 <= sec2+1; seco <= '0' else sec1 <= sec1+1; seco <= '

4、0' end if; end if;end process;end;3.分計時器模塊設(shè)計library ieee;use ieee.std_logic_1164.all; use ieee.std_logic_arith.all; use ieee.std_logic_unsigned.all;entity minute1 isport(clkm,clk1s,setm:in std_logic; -秒進位輸入，1HZ校分時鐘輸入信號，校分控制信號 min2,min1:buffer std_logic_vector(3 downto 0); -分計時器的十位和個位 minco:out s

5、td_logic);end;architecture A of minute1 is signal clkx:std_logic; begin Pclkm:process(clkm,clk1s,setm) begin -根據(jù)是否校分選擇計時時鐘 if setm ='1' then clkx <= clk1s; -利用clk1s信號對分的初值進行快速設(shè)置 else clkx <=clkm; -利用秒的進位信號正常計時 end if;end process;Pcontm:process(clkx) begin if clkx'event and clkx =&#

6、39;1' then if (min1 = "1001" and min2 = "0101") then min1 <="0000"min2 <="0000"minco <='1' -59分時回零并進位 elsif (min1 = "1001") then min1 <="0000"min2 <= min2+1; minco <= '0' else min1 <= min1+1;minco &l

7、t;='0' end if; end if;end process;end;4.時計時器模塊設(shè)計library ieee;use ieee.std_logic_1164.all; use ieee.std_logic_arith.all; use ieee.std_logic_unsigned.all;entity hour1 is port(clkh,clk1s,seth:in std_logic; hou2,hou1:buffer std_logic_vector(3 downto 0) ); -時的十位和個位end;architecture A of hour1 is s

8、ignal clky:std_logic; begin Pclkh:process(clkh,clk1s,seth) Begin -根據(jù)是否校時選擇計時時鐘 if seth ='1' then clky <=clk1s; -利用clk1s信號對時的初值進行快速設(shè)置 else clky <= clkh; -利用分的進位信號正常計時 end if; end process;Pconth:process(clky) begin if clky'event and clky ='1' then if (hou1="0011" an

9、d hou2 ="0010" ) then hou1 <= "0000"hou2 <= "0000" -23時回零 elsif (hou1 ="1001") then hou1 <= "0000" hou2 <= hou2+1; else hou1 <= hou1+1; end if; end if;end process;end;5.報時模塊設(shè)計library ieee;use ieee.std_logic_1164.all; use ieee.std_logic

10、_arith.all; use ieee.std_logic_unsigned.all;entity alarm1 is port(clk1s,clk500,clk1k: in std_logic; sec2,sec1,min2,min1: in std_logic_vector(3 downto 0); alarm: out std_logic);end;architecture A of alarm1 is begin process(clk1s) variable flag500:std_logic;variable flag1k:std_logic; begin if clk1s

11、9;event and clk1s = '1' then if(min1 ="1001" and min2="0101" and sec2="0101" ) then -59分50秒時開始報時 case sec1 is when "0000" => flag500:='1' when "0010" => flag500:='1' when "0100" => flag500:='1' when

12、"0110" => flag500:='1' when "0111" => flag500:='1' when "1000" => flag500:='1' when "1001" => flag500:='1' -50,52,54,56,58,59秒時低頻率報時 when others => flag500:='0'flag1k:='0' end case; else flag500:=&

13、#39;0'flag1k:='0' end if; if (min1 ="0000" and min2="0000" and sec1="0000" and sec2="0000") then flag1k:='1' -整點時高頻率報時 end if; end if;if flag500='1' then alarm <=clk500; elsif flag1k='1' then alarm <=clk1k; else alarm <='0'end