notetabs.vhd

用VHDL编写的播放器

LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
ENTITY NoteTabs IS
  PORT ( clk : IN STD_LOGIC;
  		 ToneIndex : OUT INTEGER RANGE 0 TO 15 );
END;
ARCHITECTURE one OF NoteTabs IS
--------------------change MAX_counter=431--------------------

--	SIGNAL Counter : INTEGER RANGE 0 TO 138 ;
    SIGNAL Counter : INTEGER RANGE 0 TO 431 ;
BEGIN
	CNT8 : PROCESS(clk)
    BEGIN
--------------------change MAX_counter=431--------------------
--		IF Counter = 138 THEN Counter<= 0 ;
        IF Counter = 431 THEN Counter<= 0 ;
		ELSIF (clk'EVENT AND clk='1') THEN Counter <= Counter+1;
		END IF;
	END PROCESS;
	Search : PROCESS(Counter)
	BEGIN
    CASE Counter IS 
----------------------------------------------------------
-------------------the score  of the music---------------
----------------------------------------------------------
---                xiyouji__nverqing                   ---
--------------Joseph encode Nov. 9,2007 
----------------------------------------------------------
WHEN 00  => ToneIndex <=  			5	;
WHEN 01  => ToneIndex <=  			5	;
WHEN 02  => ToneIndex <=  			6	;
WHEN 03  => ToneIndex <=  			6	;
WHEN 04  => ToneIndex <=  			8	;
WHEN 05  => ToneIndex <=  			8	;
WHEN 06  => ToneIndex <=  			8	;
WHEN 07  => ToneIndex <=  			8	;
WHEN 08  => ToneIndex <=  			8	;
WHEN 09  => ToneIndex <=  			8	;
WHEN 10  => ToneIndex <=  			9	;
WHEN 11  => ToneIndex <=  			9	;
WHEN 12  => ToneIndex <=			10	;
WHEN 13  => ToneIndex <=			10	;
WHEN 14  => ToneIndex <=			10	;
WHEN 15  => ToneIndex <=			7	;
WHEN 16  => ToneIndex <=			6	;
WHEN 17  => ToneIndex <=			7	;
WHEN 18  => ToneIndex <=			5	;
WHEN 19  => ToneIndex <=			5	;
WHEN 20  => ToneIndex <=			6	;
WHEN 21  => ToneIndex <=			6	;
WHEN 22  => ToneIndex <=			6	;
WHEN 23  => ToneIndex <=			6	;
WHEN 24  => ToneIndex <=			6	;
WHEN 25  => ToneIndex <=			6	;
WHEN 26  => ToneIndex <=			6	;
WHEN 27  => ToneIndex <=			6	;
WHEN 28  => ToneIndex <=			6	;
WHEN 29  => ToneIndex <=			6	;
WHEN 30  => ToneIndex <=			6	;
WHEN 31  => ToneIndex <=			6	;
WHEN 32  => ToneIndex <=			8	;
WHEN 33  => ToneIndex <=			8	;
WHEN 34  => ToneIndex <=			9	;
WHEN 35  => ToneIndex <=			9	;
WHEN 36  => ToneIndex <=			10	;
WHEN 37  => ToneIndex <=			10	;
WHEN 38  => ToneIndex <=			10	;
WHEN 39  => ToneIndex <=			10	;
WHEN 40  => ToneIndex <=			10	;
WHEN 41  => ToneIndex <=			10	;
WHEN 42  => ToneIndex <=			12	;
WHEN 43  => ToneIndex <=			12	;
WHEN 44  => ToneIndex <=			13	;
WHEN 45  => ToneIndex <=			13	;
WHEN 46  => ToneIndex <=			8	;
WHEN 47  => ToneIndex <=			8	;
WHEN 48  => ToneIndex <=			9	;
WHEN 49  => ToneIndex <=			10	;
WHEN 50  => ToneIndex <=			11	;
WHEN 51  => ToneIndex <=			11	;
WHEN 52  => ToneIndex <=			10	;
WHEN 53  => ToneIndex <=			10	;
WHEN 54  => ToneIndex <=			10	;
WHEN 55  => ToneIndex <=			10	;
WHEN 56  => ToneIndex <=			10	;
WHEN 57  => ToneIndex <=			10	;
WHEN 58  => ToneIndex <=			10	;
WHEN 59  => ToneIndex <=			10	;
WHEN 60  => ToneIndex <=			10	;
WHEN 61  => ToneIndex <=			10	;
WHEN 62  => ToneIndex <=			10	;
WHEN 63  => ToneIndex <=			10	;
WHEN 64  => ToneIndex <=			10	;
WHEN 65  => ToneIndex <=			10	;
WHEN 66  => ToneIndex <=			12	;
WHEN 67  => ToneIndex <=			12	;
WHEN 68  => ToneIndex <=			13	;
WHEN 69  => ToneIndex <=			13	;
WHEN 70  => ToneIndex <=			13	;
WHEN 71  => ToneIndex <=			13	;
WHEN 72  => ToneIndex <=			13	;
WHEN 73  => ToneIndex <=			13	;
WHEN 74  => ToneIndex <=			12	;
WHEN 75  => ToneIndex <=			12	;
WHEN 76  => ToneIndex <=			13	;
WHEN 77  => ToneIndex <=			13	;
WHEN 78  => ToneIndex <=			13	;
WHEN 79  => ToneIndex <=			13	;
WHEN 80  => ToneIndex <=			6	;
WHEN 81  => ToneIndex <=			6	;
WHEN 82  => ToneIndex <=			10	;
WHEN 83  => ToneIndex <=			10	;
WHEN 84  => ToneIndex <=			9	;
WHEN 85  => ToneIndex <=			9	;
WHEN 86  => ToneIndex <=			9	;
WHEN 87  => ToneIndex <=			9	;
WHEN 88  => ToneIndex <=			9	;
WHEN 89  => ToneIndex <=			9	;
WHEN 90  => ToneIndex <=			8	;
WHEN 91  => ToneIndex <=			8	;
WHEN 92  => ToneIndex <=			9	;
WHEN 93  => ToneIndex <=			9	;
WHEN 94  => ToneIndex <=			9	;
WHEN 95  => ToneIndex <=			9	;
WHEN 96  => ToneIndex <=			10	;
WHEN 97  => ToneIndex <=			10	;
WHEN 98  => ToneIndex <=			10	;
WHEN 99  => ToneIndex <=			10	;
WHEN 100  => ToneIndex <=			5	;
WHEN 101  => ToneIndex <=			5	;
WHEN 102  => ToneIndex <=			5	;
WHEN 103  => ToneIndex <=			5	;
WHEN 104  => ToneIndex <=			5	;
WHEN 105  => ToneIndex <=			5	;
WHEN 106  => ToneIndex <=			6	;
WHEN 107  => ToneIndex <=			6	;
WHEN 108  => ToneIndex <=			7	;
WHEN 109  => ToneIndex <=			7	;
WHEN 110  => ToneIndex <=			10	;
WHEN 111  => ToneIndex <=			10	;
WHEN 112  => ToneIndex <=			10	;
WHEN 113  => ToneIndex <=			10	;
WHEN 114  => ToneIndex <=			6	;
WHEN 115  => ToneIndex <=			6	;
WHEN 116  => ToneIndex <=			6	;
WHEN 117  => ToneIndex <=			6	;
WHEN 118  => ToneIndex <=			8	;
WHEN 119  => ToneIndex <=			8	;
WHEN 120  => ToneIndex <=			8	;
WHEN 121  => ToneIndex <=			8	;
WHEN 122  => ToneIndex <=			8	;
WHEN 123  => ToneIndex <=			8	;
WHEN 124  => ToneIndex <=			8	;
WHEN 125  => ToneIndex <=			8	;
WHEN 126  => ToneIndex <=			8	;
WHEN 127  => ToneIndex <=			8	;
WHEN 128  => ToneIndex <=			8	;
WHEN 129  => ToneIndex <=			8	;
WHEN 130  => ToneIndex <=			8	;
WHEN 131  => ToneIndex <=			8	;
WHEN 132  => ToneIndex <=			0	;
WHEN 133  => ToneIndex <=			0	;
WHEN 134  => ToneIndex <=			12	;
WHEN 135  => ToneIndex <=			12	;
WHEN 136  => ToneIndex <=			12	;
WHEN 137  => ToneIndex <=			12	;
WHEN 138  => ToneIndex <=			13	;
WHEN 139  => ToneIndex <=			13	;
WHEN 140  => ToneIndex <=			15	;
WHEN 141  => ToneIndex <=			15	;
WHEN 142  => ToneIndex <=			14	;
WHEN 143  => ToneIndex <=			14	;
WHEN 144  => ToneIndex <=			14	;
WHEN 145  => ToneIndex <=			14	;
WHEN 146  => ToneIndex <=			13	;
WHEN 147  => ToneIndex <=			12	;
WHEN 148  => ToneIndex <=			13	;
WHEN 149  => ToneIndex <=			13	;
WHEN 150  => ToneIndex <=			13	;
WHEN 151  => ToneIndex <=			13	;
WHEN 152  => ToneIndex <=			13	;
WHEN 153  => ToneIndex <=			13	;
WHEN 154  => ToneIndex <=			13	;
WHEN 155  => ToneIndex <=			13	;
WHEN 156  => ToneIndex <=			13	;
WHEN 157  => ToneIndex <=			13	;
WHEN 158  => ToneIndex <=			13	;
WHEN 159  => ToneIndex <=			13	;
WHEN 160  => ToneIndex <=			13	;
WHEN 161  => ToneIndex <=			13	;
WHEN 162  => ToneIndex <=			13	;
WHEN 163  => ToneIndex <=			13	;
WHEN 164  => ToneIndex <=			0	;
WHEN 165  => ToneIndex <=			0	;
WHEN 166  => ToneIndex <=			12	;
WHEN 167  => ToneIndex <=			12	;
WHEN 168  => ToneIndex <=			12	;
WHEN 169  => ToneIndex <=			12	;
WHEN 170  => ToneIndex <=			13	;
WHEN 171  => ToneIndex <=			13	;
WHEN 172  => ToneIndex <=			15	;
WHEN 173  => ToneIndex <=			15	;
WHEN 174  => ToneIndex <=			14	;
WHEN 175  => ToneIndex <=			14	;
WHEN 176  => ToneIndex <=			14	;
WHEN 177  => ToneIndex <=			14	;
WHEN 178  => ToneIndex <=			13	;
WHEN 179  => ToneIndex <=			12	;
WHEN 180  => ToneIndex <=			10	;
WHEN 181  => ToneIndex <=			10	;
WHEN 182  => ToneIndex <=			10	;
WHEN 183  => ToneIndex <=			10	;
WHEN 184  => ToneIndex <=			10	;
WHEN 185  => ToneIndex <=			10	;
WHEN 186  => ToneIndex <=			10	;
WHEN 187  => ToneIndex <=			10	;
WHEN 188  => ToneIndex <=			10	;
WHEN 189  => ToneIndex <=			10	;
WHEN 190  => ToneIndex <=			10	;
WHEN 191  => ToneIndex <=			10	;
WHEN 192  => ToneIndex <=			5	;
WHEN 193  => ToneIndex <=			5	;
WHEN 194  => ToneIndex <=			6	;
WHEN 195  => ToneIndex <=			6	;
WHEN 196  => ToneIndex <=			8	;
WHEN 197  => ToneIndex <=			8	;
WHEN 198  => ToneIndex <=			8	;
WHEN 199  => ToneIndex <=			8	;
WHEN 200  => ToneIndex <=			8	;
WHEN 201  => ToneIndex <=			8	;
WHEN 202  => ToneIndex <=			9	;
WHEN 203  => ToneIndex <=			9	;
WHEN 204  => ToneIndex <=			10	;
WHEN 205  => ToneIndex <=			10	;