八音自动播放电子琴设计
--文件名：top.vhd
--功能：顶层文件
--最后修改日期：2005/04/10
library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;
entity musictop is
Port ( clk4Hz,clk28khz :in std_logic; --系统时钟
handTOauto : in std_logic; --键盘输入/自动演奏
code1 :out std_logic_vector(6 downto 0); --音符显示信号
index1 :in std_logic_vector(7 downto 0); --键盘输入信号
high1 :out std_logic; --高低音节信号
spkout :out std_logic); --音频信号
end musictop;
architecture Behavioral of musictop is
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 120);
end component;
component speaker
Port ( clk1 : in std_logic;
tone1 : in integer range 0 to 120;
spks : out std_logic);
end component;
signal tone2: integer range 0 to 120;
signal indx:std_logic_vector(7 downto 0);
begin
u0:automusic port
map(clk=>clk4HZ,index2=>index1,index0=>indx,Auto=>handtoAuto);
u1: tone port map(index=>indx,tone0=>tone2,code=>code1,high=>high1);
u2: speaker port map(clk1=>clk28kHZ,tone1=>tone2,spks=>spkout);
end Behavioral;
--文件名：automusic.vhd
--功 能：实现自动演奏功能。
--最后修改日期：2005/04/10
library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;
entity automusic is
Port ( clk,Auto : in std_logic; --系统时钟8HZ；键盘输入/自动演奏
index2 : in std_logic_vector(7 downto 0); --键盘输入信号
index0 : out std_logic_vector(7 downto 0));--音符信号输出
end automusic;
architecture Behavioral of automusic is
signal count0:integer range 0 to 31;--change
signal clk2:std_logic;
begin
--pulse0:process(clk,Auto)
--此进程完成对系统时钟8M的分频，得到4Hz的信号clk2
--variable count:integer range 0 to 8000000;
--begin
-- if Auto='1' then count:=0;clk2<='0';
-- elsif clk'event and clk='1' then
-- count:=count+1;
-- if count="4000000" then clk2<='1'; ---输出8HZ信号
-- elsif count="8000000" then clk2<='0';count:=0;
-- end if;
-- end if;
--end process;
music:process(clk)
--此进程完成自动演奏部分曲的地址累加
begin
if clk'event and clk='1' then
if count0=31 then count0<=0;
else count0<=count0+1;
end if;
end if;
end process;
com1:process(count0,Auto,index2)
begin
if Auto='0' then
case count0 is --此case语句：存储自动演奏部分的曲
when 0 => index0<="11111011"; --3
when 1 => index0<="11111011"; --3
when 2 => index0<="11111011"; --3
when 3 => index0<="11111011"; --3
when 4 => index0<="11101111"; --5
when 5 => index0<="11101111"; --5
when 6 => index0<="11101111"; --5
when 7 => index0<="11011111"; --6
when 8 => index0<="01111111"; --8
when 9 => index0<="01111111"; --8
when 10 =>index0<="01111111"; --8
when 11=> index0<="11111011"; --3
when 12=> index0<="11111101"; --2
when 13=> index0<="11111101"; --2
when 14=> index0<="11111110"; --1
when 15=> index0<="11111110"; --1
when 16=> index0<="11101111"; --5
when 17=> index0<="11101111"; --5
when 18=> index0<="11110111"; --4
when 19=> index0<="11110111"; --4
when 20=> index0<="11110111"; --4
when 21=> index0<="11111011"; --3
when 22=> index0<="11111101"; --2
when 23=> index0<="11111101"; --2
when 24=> index0<="11101111"; --5
when 25=> index0<="11101111"; --5
when 26=> index0<="11110111"; --4
when 27=> index0<="11110111"; --4
when 28=> index0<="11111011"; --3
when 29=> index0<="11111011"; --3
when 30=> index0<="11111101"; --2
when others =>index0<="11111101"; --2
end case;
else index0<=index2; --键盘输入音符信号输出
end if;
end process;
end Behavioral;
--文件名：speaker.vhd。
--功 能：实现数控分频。
--最后修改日期：2005/04/10
library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;
entity speaker is
Port ( clk1 : in std_logic; --系统时钟
tone1 : in integer range 0 to 120; --音符分频系数
spks : out std_logic); --驱动扬声器的音频信号
end speaker;
architecture Behavioral of speaker is
signal preclk,fullspks:std_logic;
begin
--pulse1:process(clk1)
--此进程对系统时钟进行4分频
--variable count:integer range 0 to 8;
--begin
--if clk1'event and clk1='1' then count:=count+1;
-- if count="2" then preclk<='1'; --8MHZ信号
-- elsif count="4" then preclk<='0';count:=0;
-- end if;
--end if;
--end process pulse1;
genspks:process(clk1,tone1) --此进程按照tone1输入的
--分频系数28KHz的脉冲再次分频，得到所需要的音符频率
variable count11:integer range 0 to 120;
Begin
if clk1'event and clk1='1' then
if count11<tone1 then
count11:=count11+1;fullspks<='1';
else count11:=0;fullspks<='0';
end if;
end if;
end process;
delaysps:process(fullspks) --此进程对fullspks进行2分频
variable count2 :std_logic:='0';
begin
if fullspks'event and fullspks='1' then
count2:=not count2;
if count2='1' then spks<='1';
else spks<='0';
end if;
end if;
end process;
end Behavioral;
--文件名：tone.vhd。
--功能：音阶发生器程序。
--最后修改日期：2005/04/10
--分频系数降低一位，主频从8M降低到28K
library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;
entity tone is
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 120); --音符的分频系数
end tone;
architecture Behavioral of tone is
begin
search :process(index)
--此进程完成音符到音符的分频系数译码，音符的显示，高低音阶
begin
case index is
--低频程序段
--when "11111110" => tone0<=30;code<="1001111";high<='1';--约10.349khz
--when "11111101" => tone0<=35;code<="0010010";high<='1';--8.772
--when "11111011" => tone0<=42;code<="0000110";high<='1';--7.722
--when "11110111" => tone0<=49;code<="1001100";high<='1';--7.168
--when "11101111" => tone0<=52;code<="0100100";high<='1';--6.683
--when "11011111" => tone0<=58;code<="0100000";high<='0';--6.202
--when "10111111" => tone0<=68;code<="0001111";high<='0';--5.831
--when "01111111" => tone0<=78;code<="0000000";high<='0';--5.674k
--&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
--高频程序段
when "11111110" => tone0<=02;code<="1001111";high<='1';--约10.349khz
when "11111101" => tone0<=03;code<="0010010";high<='1';--8.772
when "11111011" => tone0<=04;code<="0000110";high<='1';--7.722
when "11110111" => tone0<=05;code<="1001100";high<='1';--7.168
when "11101111" => tone0<=06;code<="0100100";high<='1';--6.683
when "11011111" => tone0<=07;code<="0100000";high<='0';--6.202
when "10111111" => tone0<=08;code<="0001111";high<='0';--5.831
when "01111111" => tone0<=09;code<="0000000";high<='0';--5.674k
--&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
when others => tone0<=00;code<="0000001";high<='0';--在SPEAKER程序中，去除背景噪声
end case;
end process;
end Behavioral;
