【正文】 =100。 when 8=tone=101。 when 4=tone=011。 end if。 else clk_out=39。 then count:=1。039。 when others= clk_out=39。 when 33=tone=001。 when 29=tone=111。 when 25=tone=001。 when 21=tone=001。 when 17=tone=011。 when 13=tone=001。 when 9=tone=011。 when 5=tone=001。 case count is when 1=tone=110。039。 if clk_out2=39。 end if。039。 when 25=tone=001。 when 21=tone=111。 when 17=tone=001。 when 13=tone=110。 when 9=tone=011。 when 5=tone=011。 case count is when 1=tone=011。039。 if clk_out2=39。 end if。039。 學(xué)校作息時(shí)間系統(tǒng) 25 / 35 when 28=tone=110。 when 24=tone=010。 when 20=tone=011。 when 16=tone=011。 when 12=tone=011。 when 8=tone=011。 when 4=tone=110。 end if。 else clk_out=39。 then count:=1。039。 when others=clk_out=39。 when 37=tone=101。 when 33=tone=111。 when 29=tone=110。 when 25=tone=011。 when 21=tone=010。 when 17=tone=111。 when 13=tone=010。 when 9=tone=010。 when 5=tone=010。 case count is when 1=tone=110。039。 if clk_out2=39。 end if。039。 when 27=tone=001。 when 23=tone=010。 when 19=tone=010。 when 15=tone=011。 預(yù)備鈴 學(xué)校作息時(shí)間系統(tǒng) 22 / 35 when 11=tone=001。 when 7=tone=010。 when 3=tone=011。 else NULL。then if count30 then count:=count+1。139。139。 clk_out=39。ROW=00000000。ROW=00000000。ROW=00000000。ROW=00000000。 end if。 if (q4_temp=0000and q3_temp=0000and q2_temp=0011and q1_temp=0010and q5_temp=0000) 23:00 then 熄燈鈴 ring=4。ROW=11111110。ROW=11111011。ROW=11101111。ROW=10111111。 end if。 elsif( (q4_temp=0000and q3_temp=0000and q2_temp=0010and q1_temp=0001and q5_temp=0000) 12:00 or (q4_temp=0000and q3_temp=0000and q2_temp=0111and q1_temp=0001and q5_temp=0000) 17:00 )then 收卷鈴聲 ring=3。ROW=00000000。ROW=11111101。ROW=11110111。ROW=11011111。ROW=01111111。 else clk_out=39。 if( ( q4_temp=0000and q3_temp=0101and q2_temp=0111a nd q1_temp=0000 and q5_temp=0000 ) 07:50 or ( q4_temp=0000and q3_temp=0010and q2_temp=0011and q1_temp=0001and q5_temp=0000) 13:20 or ( q4_temp=0000and q3_temp=0010and q2_temp=1000and q1_temp=0001and q5_temp=0000) 18:20 )then 預(yù)備鈴 ring=0。ROW=11111110。ROW=11111011。ROW=11101111。ROW=10111111。 end case。 when 7= COL=00000000。 when 5= COL=00000000。 when 3= COL=00000000。 when 1= COL=00000000。039。 when100=ring=3。 end if。139。7 七種音符 when others=divide:=0。3 when100=divide:=17894。 clk_out2=clktmp2。039。 clktmp2=not clktmp2。 clktmp3=not clktmp3。 clktmp=not clktmp。139。 variable count:integer:=0。 signal COL_temp:std_logic_vector(7 downto 0)。 signal tmp10:integer range 0 to 20210。 signal tmp4:integer range 0 to 7。 signal tmp2:integer range 0 to 6249999。 COL:out std_logic_vector(7 downto 0))。p1 a:in std_logic_vector(2 downto 0)。 use 。 end process。 when others=null。 when 1=hh2=0。 when 3= if (hh2=2) then hh2 = 0。 end if。 else hh2 = hh2+1。 end if。 end if。 end if。 end if。 end if。 end process。 sh=sh1。 mh=mh1。 hh=hh1。 sh1=sh2。 else如果是校時(shí)狀態(tài)，則把當(dāng)前校準(zhǔn)時(shí)間給到計(jì)時(shí)狀態(tài) hh1=hh2。 end if。 else hl1 = 0。 else mh1 = 0。 else sh1 = 0。 end process。 p3: 設(shè)置是否閃爍標(biāo)識(shí) flash process(postmp,clk) begin if (postmp = 6) then flash = 39。 p1: process(ck,postmp,ck1k) begin if (postmp=6) then clk = ck。 end if。 signal sh1,sh2,sh3 : integer range 0 to 5:=0。記錄鈴聲類別 signal hh1,hh2,hh3 : integer range 0 to 2:=0。 architecture a of time_count is signal clk : std_logic。 sl : out integer range 0 to 9。 hl : out integer range 0 to 9。校時(shí)選位 k3 : in std_logic。 entity time_count is port ( ck : in std_logic。 clk_out=clktmp。 else tmp=tmp+1。event and clk_in=39。 end entity。 250 分頻 學(xué)校作息時(shí)間系統(tǒng) 8 / 35 library ieee。 end if。) then if tmp=1 then tmp=0。 signal clktmp :std_logic。 entity div_4 is port ( clk_in : in std_logic。 clk_out=clktmp。 else 學(xué)校作息時(shí)間系統(tǒng) 7 / 35 tmp1=tmp1+1。 tmp2=tmp2+1。 begin process(clk_in) begin if (clk_in39。 end entity。 VHDL 源程序 分頻模塊 50k 分頻，本程序中將 50Mhz 時(shí)鐘信號(hào)分頻至 1khz library ieee。因此，這種振蕩電路輸出的是準(zhǔn)確度極高的信號(hào)。 響鈴 2 時(shí)間是否為 8:50,9:50.。 提高要求： 打鈴時(shí)間可以人工修改 自擬其它功能。 考試模式：每天上午的 7 點(diǎn) 50、下午 12 點(diǎn) 50打預(yù)備鈴，上午的 8 點(diǎn)、10 點(diǎn)、下午的 13 點(diǎn)、 15點(diǎn)打考試鈴，上午的 12點(diǎn)和下午的 17 點(diǎn)打收卷鈴，每天晚上的 23 點(diǎn)打熄燈鈴。 常態(tài)模式：每天上午的 7 點(diǎn) 50、下午 13 點(diǎn) 20 和 18 點(diǎn) 20 打預(yù)備鈴，上午的 8 點(diǎn)、 9 點(diǎn)、 10 點(diǎn) 10 分、 11 點(diǎn) 10 分、下午的 13 點(diǎn) 14 點(diǎn) 15 點(diǎn) 16 點(diǎn) 18點(diǎn) 30 和 19 點(diǎn) 30 打上課鈴，上午的 8 點(diǎn) 50、 9 點(diǎn) 50、 11 點(diǎn)、 12 點(diǎn)、下午的 14 點(diǎn) 15 點(diǎn) 16 點(diǎn) 17 點(diǎn) 19 點(diǎn) 20 和 20 點(diǎn) 20 打下課鈴，每天晚上的 23 點(diǎn)打熄燈鈴。 任何模式下，時(shí)鐘都要走時(shí)正確，且可以用按鍵 BTN 進(jìn)行校正調(diào)節(jié)，時(shí)間用 6 個(gè)數(shù)碼管顯示。石英晶體的選頻特性非常好，只有某一頻率點(diǎn)的信號(hào)可以通過它，其它頻率段的信號(hào)均會(huì)被它所衰減，而且振蕩信號(hào)的頻率與振蕩電路中的 R、 C 元件的數(shù)值無關(guān)。 其中 1KHZ作為 讀寫 時(shí)鐘信號(hào)， 250HZ為刷新頻率， 1HZ作為時(shí)鐘基準(zhǔn)時(shí)鐘信號(hào)。 clk_out : out std_logic )。 signal clktmp :std_logic。) then if (tmp1=999) then tmp1=0。 end if。 end process。 use 。 architecture a of div_4 is signal tmp :integer range 0 to 1。139。 end if。 end