数字时钟设计.doc

library ieee;use ieee.std_logic_1164.all;use ieee.std_logic_unsigned.all;entity clock isport(clk:in std_logic;-时钟脉冲clk1:in std_logic;-数码管选通时钟脉冲dout:out std_logic_vector(6 downto 0);-数码管七段码输出selout:out std_logic_vector(6 downto 0);-数码管选通输出start:in std_logic;-开始stop:in std_logic);-停止end clock;architecture one of clock issignal sel:std_logic_vector(6 downto 0);-6进制（数码管选通输入）signal hou1:std_logic_vector(3 downto 0);-小时十位signal hou2:std_logic_vector(3 downto 0);-小时个位signal min1:std_logic_vector(3 downto 0);-分钟十位signal min2:std_logic_vector(3 downto 0);-分钟个位signal sec1:std_logic_vector(3 downto 0);-秒十位signal sec2:std_logic_vector(3 downto 0);-秒个位signal h1:std_logic_vector(3 downto 0); -输出小时十位signal h2:std_logic_vector(3 downto 0); -输出小时个位signal m1:std_logic_vector(3 downto 0); -输出分钟十位signal m2:std_logic_vector(3 downto 0); -输出分钟个位signal s1:std_logic_vector(3 downto 0); -输出秒十位signal s2:std_logic_vector(3 downto 0); -输出秒个位signal sec3:std_logic_vector(3 downto 0); -1/10秒signal s3:std_logic_vector(3 downto 0); -输出1/10秒-begin-6进制（数码管选通）choice:process(clk1)beginif clk1event and clk1=1 then if sel=0000101 or stop=1 then sel=0000000; elsif start=1 then sel=sel+1; end if;end if;end process choice;selout=sel;-小时十位h110:process(clk,hou2,min1,min2,sec1,sec2)beginif clkevent and clk=1 then if (hou1=0010 and hou2=0011)and(min1=0101 and min2=1001)or stop=1 then hou1=0000; elsif (hou1=0010and hou2=0011 and stop=1) then hou1=0000;elsif (hou2=1001and(min1=0101 and min2=1001) and (sec1=0101 and sec2=1001)and start=1)or hou2=1001)then hou1=hou1+1; end if;end if;h1=hou1;end process h110;-小时个位h220:process(clk,min1,min2,sec1,sec2,hou1)beginif clkevent and clk=1 then if (hou1=0010 and hou2=0011)and(min1=0101 and min2=1001) and (sec1=0101 and sec2=1001)or stop=1 then hou2=0000; elsif (hou2=1001and(min1=0101 and min2=1001) and (sec1=0101 and sec2=1001)or stop=1 then hou2=0000; elsif (hou2=1001 or (hou1=0010and hou2=0011 )or stop=1 then hou2=0000; elsif (min1=0101 and min2=1001) and (sec1=0101 and sec2=1001)and start=1 then hou2=hou2+1; end if;end if;h2=hou2;end process h220;-分钟十位m110:process(clk,min2,sec1,sec2)beginif clkevent and clk=1 then if (min1=0101 and min2=1001) and (sec1=0101 and sec2=1001)or stop=1 then min1=0000; elsif (min1=0101and min2=1001)or stop=1 then min1=0000; elsif (min2=1001and (sec1=0101 and sec2=1001) or min2=1001)and start=1 then min1=min1+1; end if;end if;m1=min1;end process m110;-分钟个位m220:process(clk,sec1,sec2)beginif clkevent and clk=1 then if (min2=1001and (sec1=0101 and sec2=1001)or stop=1then min2=0000; elsif (min2=1001or stop=1)then min2=0000; elsif (sec1=0101 and sec2=1001and start=1)then min2=min2+1; end if;end if;m2=min2;end process m220;-秒十位s110:process(clk,sec1,sec2)beginif (clkevent and clk=1) then if (sec1=0101 and sec2=1001)or stop=1 then sec1=0000; elsif (sec2=1001and start=1)then sec1=sec1+1; end if;end if;s1=sec1;end process s110;-秒个位s220:process(clk,sec2)beginif (clkevent and clk=1) then if (sec2=1001 or stop=1)then sec2=0000; elsif start=1 then sec2=sec2+1; end if; end if;s2=sec2;end process s220;-1/10秒S10:process(clk,sec3)beginif clkevent and clk=1 then if sec3=1001 then sec3=0000; else sec3=sec3+1; end if; end if;s3doutdoutdoutdoutdoutdoutdoutdoutdoutdoutdoutdoutdoutdoutdoutdoutdoutdoutdoutdoutdoutdoutdoutdoutdoutdoutdoutdoutdoutdoutdou