用Quartus II设计键盘.pptVIP

电子琴设计;设计要求;系统组成;模块设计 ;1.顶层模块的设计;顶层设计原理图 ;2.自动演奏模块(automusic)的设计;3.音调发生器(tone)模块的设计;4.数控分频模块（speaker）的设计;电子琴程序设计与仿真;电子琴程序设计与仿真;1.顶层程序与仿真;component automusic Port ( clk :in std_logic; Auto: in std_logic; index2:in std_logic_vector(7 downto 0); index0 : out std_logic_vector(7 downto 0)); end component; component tone Port ( index : in std_logic_vector(7 downto 0); code : out std_logic_vector(6 downto 0); high : out std_logic; tone0 : out integer range 0 to 2047); end component; ;component speaker Port ( clk1 : in std_logic; tone1 : in integer range 0 to 2047; spks : out std_logic); end component; signal tone2: integer range 0 to 2047; signal indx:std_logic_vector(7 downto 0); begin u0:automusic port map(clk=clk32MHZ,index2=index1,index0=indx,Auto=handtoAuto); u1: tone port map(index=indx,tone0=tone2,code=code1,high=high1); u2: speaker port map(clk1=clk32MHZ,tone1=tone2,spks=spkout); end Behavioral; ;（顶层文件仿真图）;2.音阶发生器程序与仿真;search :process(index) --此进程完成音符到音符的分频系数译码，音符的显示，高低音阶 begin case index is when= tone0=773;code=1001111;high=1; when tone0=912;code=0010010;high=1; when= tone0=1036;code=0000110;high=1; when= tone0=1116;code=1001100;high=1; when= tone0=1197;code=0100100;high=1; when= tone0=1290;code=0100000;high=0; when= tone0=1372;code=0001111;high=0; when= tone0=1410;code=0000000;high=0; when others = tone0=2047;code=0000001;high=0; end case; end process; end Behavioral; ;;3.数控分频模块程序与仿真;;genspks:process(preclk,tone1) --此进程按照tone1输入的 --分频系数对8MHz的脉冲再次分频，得到所需要的音符频率 variable count11:integer range 0 to 2047; Begin if preclkevent and preclk=1 then if count11tone1 then count11:=count11+1;fullspks=1; else count11:=0;fullspks=0; end if; end if; e