yuequ.vhd

乐曲发生的程序设计,正确,是我们老师给我们的,大家看看吧

                                                   case j is
					          			 when 0=>q<=0;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=1;
     end if;
when 1=>q<=3030;
     if cn2<3 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=2;
     end if;

when 2=>q<=3030;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=3;
     end if;
when 3=>q<=2545;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=4;
     end if;
when 4=>q<=2268;
     if cn2<3 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=5;
     end if;
when 5=>q<=2268;
     if cn2<3 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=6;
     end if;
when 6=>q<=1094;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=7;
     end if;
when 7=>q<=1698;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=8;
     end if;
when 8=>q<=1904;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=9;
     end if;

when 9=>q<=2016;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=10;
     end if;
when 10=>q<=2268;
     if cn2<2 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=11;
     end if;
when 11=>q<=3030;
     if cn2<4 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=12;
     end if;
when 12=>q<=3817;
     if cn2<2 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=13;
     end if;
when 13=>q<=3817;
     
        j:=14;
     
when 14=>q<=3817;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=15;
     end if;
when 15=>q<=3401;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;       
        j:=16;     
     end if;
when 16=>q<=3030;
     if cn2<3 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=17;
     end if;
when 17=>q<=2268;
     if cn2<3 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=18;
     end if;

 
when 18=>q<=2268;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=19;
     end if;
when 19=>q<=2545;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=20;
     end if;
when 20=>q<=3030;
     if cn2<3 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=21;
     end if;

when 21=>q<=0;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=22;
     end if;
when 22=>q<=3030;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=23;
     end if;
when 23=>q<=3030;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=24;
     end if;

when 24=>q<=3401;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=25;
     end if;
when 25=>q<=3030;
     if cn2<11 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=26;
     end if;
when 26=>q<=0;
     if cn2<7 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=27;
     end if;
when 27=>q<=3817;
     if cn2<3 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=28;
     end if;
when 28=>q<=3817;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=29;
     end if;
when 29=>q<=3401;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=30;
     end if;

when 30=>q<=3030;
     if cn2<2 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=31;
     end if;
when 31=>q<=2268;
     if cn2<4 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=32;
     end if;

when 32=>q<=2545;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=33;
     end if;
when 33=>q<=2268;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=34;
     end if;
when 34=>q<=2545;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=35;
     end if;
when 35=>q<=3030;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=36;
     end if;

when 36=>q<=3401;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=37;
     end if;
when 37=>q<=4525;
     if cn2<5 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=38;
     end if;
when 38=>q<=4525;
     if cn2<5 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=39;
     end if;
when 39=>q<=3030;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=40;
     end if;

when 40=>q<=3401;
     if cn2<5 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=41;
     end if;
when 41=>q<=3030;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=42;
     end if;
when 42=>q<=3817;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=43;
     end if;
when 43=>q<=4032;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=44;
     end if;
when 44=>q<=4525;
     if cn2<3 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=45;
     end if;
when 45=>q<=0;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=46;
     end if;
when 46=>q<=4525;
     if cn2<3 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=47;
     end if;
when 47=>q<=5102;
     if cn2<1 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=48;
     end if;
when 48=>q<=4525;
     if cn2<11 then 
        cn2:=cn2+1;
     else
        cn2:=0;
        j:=0;
     end if;
                                                   end case;

                                             end if;
									
                                      
--yuequ4：城里的月光（2）

								  elsif  reset='1' and selected="11"  then
								     if cn1<2000000 then 
                                                   cn1:=cn1+1;
                                             else
                                                   cn1:=0;
                                                   case h is
		 						             										   
when 0 =>q<=2545;
       if cn2<3 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=1;
       end if;
when 1=>q<=3030;
       if cn2<1 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=2;
       end if;
when 2 =>q<=2545;
       if cn2<1 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=3;
       end if;
when 3 =>q<=2268;
       if cn2<3 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=4;
       end if;
when 4 =>q<=2545;
       if cn2<3 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=5;
       end if;
when 5 =>q<=3817;
       if cn2<5 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=6;
       end if;
when 6 =>q<=3401;
       if cn2<1 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=7;
       end if;
when 7 =>q<=3030;
       if cn2<3 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=8;
       end if;
when 8 =>q<=3817;
       if cn2<3 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=9;
       end if;
when 9 =>q<=1904;
       if cn2<3 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=10;
       end if;
when 10 =>q<=1698;
       if cn2<1 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=11;
       end if;
when 11 =>q<=1904;
       if cn2<1 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=12;
       end if;
when 12 =>q<=2268;
       if cn2<3 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=13;
       end if;
when 13 =>q<=3030;
       if cn2<3 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=14;
       end if;
when 14 =>q<=2545;
       if cn2<15 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=15;
       end if;
when 15 =>q<=2268;
       if cn2<3 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=16;
       end if;
when 16 =>q<=2545;
       if cn2<1 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=17;
       end if;
when 17 =>q<=2268;
       if cn2<1 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=18;
       end if;
when 18 =>q<=1904;
       if cn2<5 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=19;
       end if;
when 19 =>q<=2268;
       if cn2<1 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=20;
       end if;
when 20 =>q<=2545;
       if cn2<7 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=21;
       end if;
when 21 =>q<=3030;
       if cn2<5 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=22;
       end if;
when 22 =>q<=3030;
       if cn2<1 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=23;
       end if;
when 23 =>q<=3401;
       if cn2<1 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=24;
       end if;
when 24 =>q<=3030;
       if cn2<1 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=25;
       end if;
when 25 =>q<=2545;
       if cn2<1 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=26;
       end if;
when 26 =>q<=3030;
       if cn2<1 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=27;
       end if;
when 27 =>q<=3401;
       if cn2<3 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=28;
       end if;
when 28 =>q<=3817;
       if cn2<1 then
          cn2:=cn2+1;
       else
          cn2:=0;
         if n=0 then 
           h:=29;
           n:=n+1;
        else
           h:=31;
        end if;
       end if;
when 29 =>q<=3030;
       if cn2<3 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=30;
       end if;
when 30 =>q<=3401;
       if cn2<13 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=1;
       end if;
when 31 =>q<=4525;
       if cn2<3 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=32;
       end if;
when 32 =>q<=3817;
       if cn2<13 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=33;
       end if;
when 33 =>q<=2268;
       if cn2<3 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=34;
       end if;
when 34 =>q<=2545;
       if cn2<1 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=35;
       end if;
when 35 =>q<=2268;
       if cn2<1 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=36;
       end if;
when 36 =>q<=1904;
       if cn2<5 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=37;
       end if;
when 37 =>q<=2268;
       if cn2<1 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=38;
       end if;
when 38 =>q<=2545;
       if cn2<7 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=39;
       end if;
when 39 =>q<=3030;
       if cn2<5 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=40;
       end if;
when 40 =>q<=3030;
       if cn2<1 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=41;
       end if;
when 41 =>q<=3401;
       if cn2<1 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=42;
       end if;
when 42 =>q<=3030;
       if cn2<1 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=43;
       end if;
when 43 =>q<=2545;
       if cn2<1 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=44;
       end if;
when 44 =>q<=3030;
       if cn2<1 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=45;
       end if;
when 45 =>q<=3401;
       if cn2<3 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=46;
       end if;
when 46 =>q<=3817;
       if cn2<1 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=47;
       end if;
when 47 =>q<=4525;
       if cn2<1 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=48;
       end if;
when 48 =>q<=3817;
       if cn2<15 then
          cn2:=cn2+1;
       else
          cn2:=0;
          h:=0;
       end if;

										 end case;

                                             end if;
						   

                                         else  
                                             q<=0;
                                            
									k:=0;
									m:=0;
									j:=0;
									h:=0;
                  	end if;
            end if;


end process;

end yuequb;