【正文】 pelsif count5999999 then beepelse clk1end if。if counf=11999 then clkkcounfelse clkkend if。end if。end process fp。位掃描 choice:process(clkk)位選掃描beginif rising_edge(clkk)thenif sel=“111” thenselelseselend if。end if。end process choice。秒個(gè)位 s220:process(clk1,cj)beginif clk139。event and clk1=39。139。 thenif sec2=“1001” then其中sec2是秒的個(gè)位sec2elsif cj=“010” thensec2else sec2end if。end if。if cj=“001” then sec2end if。end process s220。秒十位 s110:process(clk1,cj)beginif clk139。event and clk1=39。139。 thenif(sec1=“0101” and sec2=“1001”)then其中sec1是秒鐘的十位sec1elsif cj=“010” thensec1else if sec2=“1001”thensec1end if。end if。end if。if cj=“001” then sec1end if。end process s110。分鐘個(gè)位 m220:process(clk1,sec1,sec2,cj)beginif clk139。event and clk1=39。139。 thenif min2=“1001”and(sec1=“0101” and sec2=“1001”)then其中min2是分鐘的個(gè)位min2elsif min2=“1001”and(cj=“011” and cj=“100”)thenmin2else if(sec1=“0101” and sec2=“1001”)or(cj=“011” and cj=“100”)thenmin2end if。end if。end if。if cj=“001” then min2end if。end process m220。分鐘十位 m110:process(clk1,min2,sec1,sec2,cj)beginif clk139。event and clk1=39。139。 thenif(min1=“0101” and min2=“1001”)and(sec1=“0101” and sec2=“1001”)thenmin1elsif min1=“0101”and min2=“1001”and(cj=“011” and cj=100)thenmin1elsif(min2=“1001”and(sec1=“0101” and sec2=“1001”))or(min2=“1001”and cj=“011” and cj=“100”)thenmin1end if。end if。end if。if cj=“001” then min1end if。end process m110。小時(shí)個(gè)位h220:process(clk1,min1,min2,sec1,sec2,cj,hou1)beginif clk139。event and clk1=39。139。 thenif(hou1=“0010” and hou2=“0011”)and(min1=“0101” and min2=“1001”)and(sec1=“0101” and sec2=“1001”)thenhou2elsif hou2=“1001”and(min1=“0101” and min2=“1001”)and(sec1=“0101” and sec2=“1001”)thenhou2elsif(hou2=“1001”and cj=“110”)or(hou1=“0010”and hou2=“0011”and cj=“110”)thenhou2elsif((min1=“0101” and min2=“1001”)and(sec1=“0101” and sec2=“1001”))or(cj=“110”)thenhou2end if。end if。if cj=“001” then hou2end if。end process h220。小時(shí)十位 h110:process(clk1,hou2,min1,min2,sec1,sec2,cj)beginif clk139。event and clk1=39。139。 thenif(hou1=“0010” and hou2=“0011”)and(min1=“0101” and min2=“1001”)and(sec1=“0101” and sec2=“1001”)thenhou1elsif hou1=“0010”and hou2=“0011”and cj=“110” then當(dāng)時(shí)間為23點(diǎn)且處于校時(shí)狀態(tài)時(shí)hou1elsif(hou2=“1001”and(min1=“0101” and min2=“1001”)and(sec1=“0101” and sec2=“1001”))or(hou2=“1001”and cj=“110”)thenhou1end if。end if。if cj=“001” then hou1end if。end process h110。時(shí)間設(shè)置小時(shí)部分 sethour1:process(clk1,seth1,seth2,cj)beginif clk139。event and clk1=39。139。 thenif seth1=“0010”and seth2=“0011” thenseth1elsif seth2=“1001” thenseth1end if。end if。if cj=“001” then seth1beginif clk139。event and clk1=39。139。 thenif(seth1=“0010”and seth2=“0011”)or seth2=“1001” then其中seth1,seth2分別是調(diào)時(shí)的小時(shí)部位的十位與個(gè)位seth2elsif cj=“111” thenseth2end if。end if。if cj=“001” then seth2end if。end process sethour2。時(shí)間設(shè)置分鐘部分 setmin1:process(clk1,setm2,cj)beginif clk139。event and clk1=39。139。 thenif setm1=“0101”and setm2=“1001” thensetm1elsif setm2=“1001” thensetm1end if。end if。if cj=“001” then setm1end if。end process setmin1。setmin2:process(clk1,cj)beginif clk139。event and clk1=39。139。 thenif setm2=“1001” thensetm2elsif cj=“101” thensetm2end if。end if。if cj=“001” then setm2end if。end process setmin2。鬧鈴speaker:process(clkk,hou1,hou2,min1,min2,cj)beginif clkk39。event and clkk=39。139。thenif seth1=hou1 and seth2=hou2 and setm1=min1 and setm2=min2 thenspeakelse speakend if。end if。if cj=“001” then speakend if。end process speaker。disp:process(sel,cj,hou1,hou2,min1,min2,sec1,sec2,seth1,seth2,setm1,setm2)顯示beginif sel=“010” thenseloutcase h1 is顯示小時(shí)的十位when “0000”=doutwhen “0001”=doutwhen “0010”=doutwhen others =doutend case。elsif sel=“011” thenseloutcase h2 is顯示小時(shí)的個(gè)位when “0000”=doutwhen “0001”=doutwhen “0010”=doutwhen “0011”=doutwhen “0100”=doutwhen “0101”=doutwhen “0110”=doutwhen “0111”=doutwhen “1000”=doutwhen “1001”=doutwhen others=doutend case。elsif sel=“100” thenseloutcase m1 is顯示分鐘的十位when “0000”=doutwhen “0001”=doutwhen “0010”=doutwhen “0011”=doutwhen “0100”=doutwhen “0101”=doutwhen others=doutend case。elsif sel=“101” thenseloutcase m2 is顯示分鐘的個(gè)位when “0000”=doutwhen “0001”=doutwhen “0010”=doutwhen “0011”=doutwhen “0100”=doutwhen “0101”=doutwhen “0110”=doutwhen “0111”=doutwhen “1000”=doutwhen “1001”=doutwhen others=doutend case。elsif sel=“110” thenseloutcase s1 is顯示秒的十位when “0000”=doutwhen “0001”=doutwhen “0010”=doutwhen “0011”=doutwhen “0100”=doutwhen “0101”=doutwhen others=doutend case。elsif sel=“111” thenseloutcase s2 is顯示秒的個(gè)位when “0000”=doutwhen “0001”=doutwhen “0010”=doutwhen “0011”=doutwhen “0100”=doutwhen “0101”=doutwhen “0110”=doutwhen “0111”=doutwhen “1000”=doutwhen “1001”=doutwhen others=doutend case。end if。if cj=“011” then計(jì)時(shí)時(shí)間顯示和設(shè)置模式h1m1s1else鬧鈴時(shí)間現(xiàn)實(shí)和設(shè)置模式h1m1s1end if。end process disp。yanshi:process(clk)variable fp:integer range 0 to 29999。begin if clk39。event and clk=39。139。 then if fp=29999 then fp:=0。CP_5msfp:=fp+1。end if。end if。end process。quout:process(CP_5ms,keyin)begin if CP_5ms39。event and CP_5ms=39。139。 then Q1else CJone。第二篇：多功能數(shù)字鐘課程設(shè)計(jì)VHDL代碼書上程序改library ieee。use 。entity clock is port(clk1hz:in std_logic。1hz脈沖clk100:in std_logic。100hz脈沖weekclk:in std_logic。星期調(diào)整脈沖start_stop:in std_logic。秒表啟動(dòng)/停止控制reset:in std_logic。秒表復(fù)位adclk:in std_logic。校時(shí)脈沖setselect:in std_logic。調(diào)整位選擇脈沖mode:in std_logic。功能選擇脈沖showdate:in std_logic。日期顯示dis:out std_logic_vector(23 downto 0)。顯示輸出gli