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=191--------------------

--	SIGNAL Counter : INTEGER RANGE 0 TO 138 ;
    SIGNAL Counter : INTEGER RANGE 0 TO 191 ;
BEGIN
	CNT8 : PROCESS(clk)
    BEGIN
--------------------change MAX_counter=191--------------------
--		IF Counter = 138 THEN Counter<= 0 ;
        IF Counter = 191 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---------------
----------------------------------------------------------
---                tiexuedanxin                  ---

----------------------------------------------------------
WHEN 00  => ToneIndex <= 0;   --1
WHEN 01  => ToneIndex <= 0;
WHEN 02  => ToneIndex <= 3;  
WHEN 03  => ToneIndex <= 2;
WHEN 04  => ToneIndex <= 1;  
WHEN 05  => ToneIndex <= 1;
WHEN 06  => ToneIndex <= 1;    
WHEN 07  => ToneIndex <= 7;

WHEN 08  => ToneIndex <= 6;   --2  
WHEN 09  => ToneIndex <= 6;
WHEN 10  => ToneIndex <= 6;  
WHEN 11  => ToneIndex <= 3;
WHEN 12  => ToneIndex <= 6;  
WHEN 13  => ToneIndex <= 6;
WHEN 14  => ToneIndex <= 6;  
WHEN 15  => ToneIndex <= 6;

WHEN 16  => ToneIndex <= 0;   --3
WHEN 17  => ToneIndex <= 0;
WHEN 18  => ToneIndex <= 6; 
WHEN 19  => ToneIndex <= 5;
WHEN 20  => ToneIndex <= 3;  
WHEN 21  => ToneIndex <= 3;
WHEN 22  => ToneIndex <= 5;    
WHEN 23  => ToneIndex <= 2;

WHEN 24  => ToneIndex <= 3;  --4 
WHEN 25  => ToneIndex <= 3;
WHEN 26  => ToneIndex <= 3;   
WHEN 27  => ToneIndex <= 3;
WHEN 28  => ToneIndex <= 3;  
WHEN 29  => ToneIndex <= 3;
WHEN 30  => ToneIndex <= 3;     
WHEN 31  => ToneIndex <= 3;

WHEN 32  => ToneIndex <= 0;   --5
WHEN 33  => ToneIndex <= 0;    
WHEN 34  => ToneIndex <= 3;   
WHEN 35  => ToneIndex <= 2;
WHEN 36  => ToneIndex <= 1;   
WHEN 37  => ToneIndex <= 1;
WHEN 38  => ToneIndex <= 1;   
WHEN 39  => ToneIndex <= 7;

WHEN 40  => ToneIndex <= 6;  --6
WHEN 41  => ToneIndex <= 6;
WHEN 42  => ToneIndex <= 6;  
WHEN 43  => ToneIndex <= 3;
WHEN 44  => ToneIndex <= 6;  
WHEN 45  => ToneIndex <= 6;
WHEN 46  => ToneIndex <= 6; 
WHEN 47  => ToneIndex <= 6;

WHEN 48  => ToneIndex <= 0;   --7
WHEN 49  => ToneIndex <= 0;
WHEN 50  => ToneIndex <= 2;  
WHEN 51  => ToneIndex <= 1;
WHEN 52  => ToneIndex <= 6;  
WHEN 53  => ToneIndex <= 6;
WHEN 54  => ToneIndex <= 1;  
WHEN 55  => ToneIndex <= 2;

WHEN 56  => ToneIndex <= 3;  --8
WHEN 57  => ToneIndex <= 3;
WHEN 58  => ToneIndex <= 3;  
WHEN 59  => ToneIndex <= 3;
WHEN 60  => ToneIndex <= 3; 
WHEN 61  => ToneIndex <= 3;
WHEN 62  => ToneIndex <= 3;   
WHEN 63  => ToneIndex <= 3;

WHEN 64  => ToneIndex <= 6;  --9
WHEN 65  => ToneIndex <= 6;
WHEN 66  => ToneIndex <= 6;
WHEN 67  => ToneIndex <= 5;
WHEN 68  => ToneIndex <= 6; 
WHEN 69  => ToneIndex <= 6;
WHEN 70  => ToneIndex <= 5;   
WHEN 71  => ToneIndex <= 3;

WHEN 72  => ToneIndex <= 5;  --10
WHEN 73  => ToneIndex <= 5;
WHEN 74  => ToneIndex <= 2; 
WHEN 75  => ToneIndex <= 2;
WHEN 76  => ToneIndex <= 2; 
WHEN 77  => ToneIndex <= 2;
WHEN 78  => ToneIndex <= 2;  
WHEN 79  => ToneIndex <= 2;

WHEN 80  => ToneIndex <= 1;  --11
WHEN 81  => ToneIndex <= 1;
WHEN 82  => ToneIndex <= 1; 
WHEN 83  => ToneIndex <= 6;
WHEN 84  => ToneIndex <= 2;
WHEN 85  => ToneIndex <= 3;  
WHEN 86  => ToneIndex <= 5;  
WHEN 87  => ToneIndex <= 4;

WHEN 88  => ToneIndex <= 3;  --12
WHEN 89  => ToneIndex <= 3;
WHEN 90  => ToneIndex <= 3; 
WHEN 91  => ToneIndex <= 3;
WHEN 92  => ToneIndex <= 3; 
WHEN 93  => ToneIndex <= 3;
WHEN 94  => ToneIndex <= 3;  
WHEN 95  => ToneIndex <= 5;

WHEN 96  => ToneIndex <= 6;  --13
WHEN 97  => ToneIndex <= 6;
WHEN 98  => ToneIndex <= 6; 
WHEN 99  => ToneIndex <= 5;
WHEN 100 => ToneIndex <= 6;
WHEN 101 => ToneIndex <= 6;
WHEN 102 => ToneIndex <= 5;   
WHEN 103 => ToneIndex <= 3;

WHEN 104 => ToneIndex <= 5;  --14
WHEN 105 => ToneIndex <= 5;
WHEN 106 => ToneIndex <= 2;
WHEN 107 => ToneIndex <= 2;
WHEN 108 => ToneIndex <= 2; 
WHEN 109 => ToneIndex <= 2;
WHEN 110 => ToneIndex <= 2;  
WHEN 111 => ToneIndex <= 2;

WHEN 112 => ToneIndex <= 1;  --15
WHEN 113 => ToneIndex <= 1;
WHEN 114 => ToneIndex <= 1;  
WHEN 115 => ToneIndex <= 6;
WHEN 116 => ToneIndex <= 2; 
WHEN 117 => ToneIndex <= 3;
WHEN 118 => ToneIndex <= 5;   
WHEN 119 => ToneIndex <= 5;

WHEN 120 => ToneIndex <= 6;  --16
WHEN 121 => ToneIndex <= 6;
WHEN 122 => ToneIndex <= 6; 
WHEN 123 => ToneIndex <= 6;
WHEN 124 => ToneIndex <= 6; 
WHEN 125 => ToneIndex <= 6;
WHEN 126 => ToneIndex <= 6;   
WHEN 127 => ToneIndex <= 6;

WHEN 128 => ToneIndex <= 6;   --17
WHEN 129 => ToneIndex <= 6;
WHEN 130 => ToneIndex <= 6; 
WHEN 131 => ToneIndex <= 6;
WHEN 132 => ToneIndex <= 3; 
WHEN 133 => ToneIndex <= 3;
WHEN 134 => ToneIndex <= 3;    
WHEN 135 => ToneIndex <= 2;

WHEN 136 => ToneIndex <= 1;  --18
WHEN 137 => ToneIndex <= 1;
WHEN 138 => ToneIndex <= 1;
WHEN 139 => ToneIndex <= 7;
WHEN 140 => ToneIndex <= 6;
WHEN 141 => ToneIndex <= 6;

WHEN 142 => ToneIndex <= 6; 
WHEN 143 => ToneIndex <= 6;

WHEN 144 => ToneIndex <= 3;   --19
WHEN 145 => ToneIndex <= 3;
WHEN 146 => ToneIndex <= 3;
WHEN 147 => ToneIndex <= 3;
WHEN 148 => ToneIndex <= 5;
WHEN 149 => ToneIndex <= 5;
WHEN 150 => ToneIndex <= 5;  
WHEN 151 => ToneIndex <= 2;

WHEN 152 => ToneIndex <= 3;  --20
WHEN 153 => ToneIndex <= 3;
WHEN 154 => ToneIndex <= 3;
WHEN 155 => ToneIndex <= 3;
WHEN 156 => ToneIndex <= 3;
WHEN 157 => ToneIndex <= 3;
WHEN 158 => ToneIndex <= 3;  
WHEN 159 => ToneIndex <= 3;

WHEN 160 => ToneIndex <= 0;  --21
WHEN 161 => ToneIndex <= 0;
WHEN 162 => ToneIndex <= 3;
WHEN 163 => ToneIndex <= 2;
WHEN 164 => ToneIndex <= 1;
WHEN 165 => ToneIndex <= 1;
WHEN 166 => ToneIndex <= 1;  
WHEN 167 => ToneIndex <= 7;

WHEN 168 => ToneIndex <= 6;  --22
WHEN 169 => ToneIndex <= 6;
WHEN 170 => ToneIndex <= 6;
WHEN 171 => ToneIndex <= 3;
WHEN 172 => ToneIndex <= 2;
WHEN 173 => ToneIndex <= 2;
WHEN 174 => ToneIndex <= 2;  
WHEN 175 => ToneIndex <= 2;

WHEN 176 => ToneIndex <= 0;  --23
WHEN 177 => ToneIndex <= 0;
WHEN 178 => ToneIndex <= 2;
WHEN 179 => ToneIndex <= 1;
WHEN 180 => ToneIndex <= 6;
WHEN 181 => ToneIndex <= 6;
WHEN 182 => ToneIndex <= 1;  
WHEN 183 => ToneIndex <= 5;

WHEN 184 => ToneIndex <= 6;  --24
WHEN 185 => ToneIndex <= 6;
WHEN 186 => ToneIndex <= 6;
WHEN 187 => ToneIndex <= 6;
WHEN 188 => ToneIndex <= 6;
WHEN 189 => ToneIndex <= 6;
WHEN 190 => ToneIndex <= 6;
WHEN 191 => ToneIndex <= 6;
----------------------------------------------------------
WHEN OTHERS => ToneIndex <= 0;
-------------------END--------------------------------
----------------------------------------------------------
   END CASE;
END PROCESS;
END ;