if(HOUR1=9) then HOUR1<=0;
HOUR10<=HOUR10+1;
elsif(HOUR10=2 and HOUR1=3) then HOUR1<=0; HOUR10<=0; Day1<=Day1+1; else
HOUR1<=HOUR1+1; end if;
elsif(S2='0') then --调节分钟 if(MIN1=9) then MIN1<=0;
if(MIN10=5) then MIN10<=0; HOUR1<=HOUR1+1; else
MIN10<=MIN10+1; end if; else
MIN1<=MIN1+1; end if; end if; end if;
if(SEC1=9) then SEC1<=0;
if(SEC10=5) then SEC10<=0; if(MIN1=9) then
MIN1<=0;
if(MIN10=5) then MIN10<=0;
if (HOUR10 >= 2 and HOUR1 >= 3) then
HOUR10 <= 0; HOUR1 <= 0; -- Day += 1;
if (Day10 = 3 and Day1 = 0) then
Day10 <= 0; Day1 <= 1; -- Month += 1;
if (Month10 = 1 and Month1 = 2) then
Month10 <= 0; Month1 <= 1; -- Year += 1;
if (Year10 = 9 and Year1 = 9) then
Year10 <= 0; Year1 <= 0;
end if;
if (Year1 < 9) then
Year1 <= Year1 + 1;
elsif (Year1 = 9) then
Year10 <= Year10 + 1; Year1 <= 0;
end if;
end if;
if (Month1 < 9) then
Month1 <= Month1 + 1;
elsif (Month1 = 9) then
Month10 <= Month10 + 1; Month1 <= 0;
end if;
end if;
if (Day1 < 9) then
Day1 <= Day1 + 1;
elsif (Day1 = 9) then
Day10 <= Day10 + 1; Day1 <= 0;
end if;
elsif (HOUR1 < 9) then
HOUR1 <= HOUR1 + 1;
elsif (HOUR1 = 9) then
HOUR1 <= 0;
HOUR10 <= HOUR10 + 1;
end if;
else
MIN10<=MIN10+1; end if; else
MIN1<=MIN1+1; end if; else
SEC10<=SEC10+1; end if; else
SEC1<=SEC1+1; end if; end if;
end process;
process(Clk) begin
if(Clk'event and Clk='1') then Music_Count<=Music_Count+1;
if(MIN10=5 and MIN1=9 and SEC10=5 and SEC1=0) then --在59分50秒开始提示
if((SEC1 MOD 2)=0) then --在偶数秒开始发声 SPK<=Music_Count(2); --嘀 else
SPK<='0'; end if;
elsif(MIN10=0 and MIN1=0 and SEC10=0 and SEC1=0) then SPK<=Music_Count(1); --嗒 else
SPK<='0'; end if; end if; end process; process(Clk) begin
if(Clk1hz'event and Clk1hz='1') then
if(MIN10=5 and MIN1=9 and SEC10=5 and SEC1>4) then --在59分55秒开始提示
led_Count<=led_Count+1; else
led_count<=\
end if; end if; end process; process(led_count) begin
case (led_count) is
when \ when \ when \ when \ when \ when \ when others=>led_display<=\ end case; led<=led_display; end process;
process(SEG_SEL) begin
if (K1 = '1') then case (SEG_SEL+1) is
when \when \when \when \when \when \when \when \
end case;