eda课程设计,游戏机!vhdl语言,Quartus II 7.0
end if; end process;
process(sub) begin
if(sub=0) then
pat<='1'; else
pat<='0'; end if;
carrier<=pat; end process;
process(clk) begin
if(clk'event and clk='1')then pat1<=pat; end if; end process;
process(pat1) begin
if(pat1'event and pat1='1') then pat2<= not pat2; end if;
music_out<=pat2; end process;
process(clk_4) begin
if(clk_4'event and clk_4='1') then if(music_begin='1') then
counter<=counter+1; else
counter<=0; end if; end if; end process;