《EDA技术》实验指导书

if(MIN1=9) then MIN1<=0;

if(MIN10=5) then MIN10<=0;

if(HOUR1=9) then HOUR1<=0;

HOUR10<=HOUR10+1;

elsif(HOUR10=2 and HOUR1=3) then HOUR1<=0; HOUR10<=0; else

HOUR1<=HOUR1+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) 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(SEG_SEL) begin

case (SEG_SEL+1) is

when \ when \ when \ when \ when \ when \ when \ when \ end case; end process;

process(Clk) begin

if(Clk'event and Clk='1') then --扫描累加 SEG_SEL<=SEG_SEL+1; Display<=Disp_Decode; end if; end process;

process(Disp_Temp) --显示转换 begin

case Disp_Temp is

when 0=>Disp_Decode<=\ --0 when 1=>Disp_Decode<=\ --1 when 2=>Disp_Decode<=\ --2 when 3=>Disp_Decode<=\ --3 when 4=>Disp_Decode<=\ --4 when 5=>Disp_Decode<=\ --5 when 6=>Disp_Decode<=\ --6 when 7=>Disp_Decode<=\ --7 when 8=>Disp_Decode<=\ --8 when 9=>Disp_Decode<=\ --9 when 10=>Disp_Decode<=\ ---

when others=>Disp_Decode<=\ --全灭 end case; end process;

end behave;