tune.vhd

门铃的VHDL程序

----------------------------------------------------------------------------------
-- Company: 
-- Engineer: 
-- 
-- Create Date:    17:35:18 01/10/2009 
-- Design Name: 
-- Module Name:    tune - Behavioral 
-- Project Name: 
-- Target Devices: 
-- Tool versions: 
-- Description: 
--
-- Dependencies: 
--
-- Revision: 
-- Revision 0.01 - File Created
-- Additional Comments: 
--
----------------------------------------------------------------------------------
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 (3 DOWNTO 0);
       CODE : OUT STD_LOGIC_VECTOR (3 DOWNTO 0);
       HIGH1 : OUT STD_LOGIC;
       TONE : OUT STD_LOGIC_VECTOR (10 DOWNTO 0));
END;
ARCHITECTURE ONE OF TONE IS
BEGIN
SEARCH :PROCESS (INDEX)
BEGIN
CASE INDEX IS
WHEN"0000"=>TONE<="11111111111";CODE<="0000";HIGH1<='0';--2047音符数据，通过 
WHEN"0001"=>TONE<="01100000101";CODE<="0001";HIGH1<='0';--773锁定按键来实现  
WHEN"0010"=>TONE<="01110010000";CODE<="0010";HIGH1<='0';--912
WHEN"0011"=>TONE<="10000001100";CODE<="0011";HIGH1<='0';--1036
WHEN"0101"=>TONE<="10010101101";CODE<="0101";HIGH1<='0';--1197
WHEN"0110"=>TONE<="10100001010";CODE<="0110";HIGH1<='0';--1290
WHEN"0111"=>TONE<="10101011100";CODE<="0111";HIGH1<='0';--1372
WHEN"1000"=>TONE<="10110000010";CODE<="0001";HIGH1<='1';--1410
WHEN"1001"=>TONE<="10111001000";CODE<="0010";HIGH1<='1';--1480
WHEN"1010"=>TONE<="11000000110";CODE<="0011";HIGH1<='1';--1542
WHEN"1100"=>TONE<="11001010110";CODE<="0101";HIGH1<='1';--1622
WHEN"1101"=>TONE<="11010000100";CODE<="0110";HIGH1<='1';--1668
WHEN"1111"=>TONE<="11011000000";CODE<="0001";HIGH1<='1';--1728
WHEN OTHERS => NULL;
END CASE;
END PROCESS;
END;