c语言乐曲演奏——《千本樱》
这个程序着实花费了我好长的时间，我本身对音乐一窍不通，先是跟着girl friend学习了简谱，根据c调44拍的《千本樱》写下了下面的程序。
1 #include<stdio.h> 2 #include<dos.h> 3 void mysound(unsigned int freq,int times) 4 { 5 int i; 6 union 7 { 8 int divisor; 9 char c[2]; 10 } count; 11 char bits; 12 count.divisor=1193180/freq; 13 outportb(0x43,0xb6); 14 outportb(0x42,count.c[0]); 15 outportb(0x42,count.c[1]); 16 bits=inportb(0x61); 17 outportb(0x61,bits|3); 18 for(i=0; i<times; i++) 19 delay(120); 20 outport(0x61,bits&0xfc); 21 outportb(0x61,bits); 22 } 23 int main() 24 { 25 int freq[8]= {0,256,294,330,349,392,440,494}; 26 int song[]= {5,6,2,1,2,1,5,6,2,1,2,1, 27 5,6,2,1,2,1,4,3,4,3,2,1, 28 5,6,2,1,2,1,5,6,2,1,2,1, 29 5,6,8,11,10,11,10,9,8,6, 30 31 5,6,2,1,2,1,5,6,2,1,2,1, 32 5,6,2,1,2,1,4,3,4,3,2,1, 33 2,1,2,4,2,4,6,5,6,8,6,8, 34 11,10,11,10,9,8,9,2,4, 35 36 5,6,2,1,2,1,5,6,2,1,2,1, 37 5,6,2,1,2,1,4,3,4,3,2,1, 38 5,6,2,1,2,1,5,6,2,1,2,1, 39 5,6,8,11,10,11,10,9,8,6, 40 41 5,6,2,1,2,1,5,6,2,1,2,1, 42 5,6,2,1,2,1,4,3,4,3,2,1, 43 5,4,6,8,9,8,6,5,2,4,5,6, 44 2,2,2,0,1,2,0, 45 46 2,2,2,1,2,4,4,5, 47 2,2,2,1,2,1,-6,1, 48 2,2,2,1,2,4,4,5, 49 6,5,6,5,4,2, 50 51 2,2,2,1,2,4,4,5, 52 2,2,2,1,2,1,-6,1, 53 2,2,2,1,2,4,4,5, 54 6,5,6,5,4,2, 55 56 4,3,2,1, 57 1,1,2,-6,-5,-6,-6, 58 -6,1,-2,5,3, 59 4,4,3,1,2,2, 60 61 4,3,2,1, 62 1,1,2,-6,-5,-6,-6,1, 63 2,2,2,4,5, 64 3,3,3,2,4, 65 66 5,5,5,5,6,6,6, 67 8,9,5,4,6,2,4, 68 5,5,5,5,6,6,6, 69 6,6,5,4,4,2,4, 70 71 5,5,5,5,6,6,6, 72 8,9,5,4,6,2,4, 73 6,6,5,4, 74 5,6,4,1,2,2,4, 75 76 77 5,4,6,7,8,0, 78 0,0,0,0, 79 0,0,0,0, 80 81 82 }; 83 float div[]= {8,8,16,16,16,16,8,8,16,16,16,16, 84 8,8,16,16,16,16,8,8,32,32,16,8, 85 8,8,16,16,16,16,8,8,16,16,16,16, 86 8,8,8,8,16,16,16,16,8,8, 87 88 8,8,16,16,16,16,8,8,16,16,16,16, 89 8,8,16,16,16,16,8,8,32,32,16,8, 90 8,16,16,8,16,16,8,16,16,8,16,16, 91 8,16,32,32,8,8,4,8,8, 92 93 8,8,16,16,16,16,8,8,16,16,16,16, 94 8,8,16,16,16,16,8,8,32,32,16,8, 95 8,8,16,16,16,16,8,8,16,16,16,16, 96 8,8,8,8,16,16,16,16,8,8, 97 98 8,8,16,16,16,16,8,8,16,16,16,16, 99 8,8,16,16,16,16,8,8,32,32,16,8, 100 16,16,16,16,16,16,16,16,8,8,8,8, 101 8,16,16,8,8,4,4, 102 103 8,8,8,8,8,8,8,8, 104 8,8,8,8,8,8,8,8, 105 8,8,8,8,8,8,8,8, 106 4,8,16,16,4,4, 107 108 8,8,8,8,8,8,8,8, 109 8,8,8,8,8,8,8,8, 110 8,8,8,8,8,8,8,8, 111 4,8,16,16,4,4, 112 113 4,4,4,4, 114 8,16,16,8,8,4,4, 115 8,4,8,4,4, 116 8,8,8,8,4,4, 117 118 4,4,4,4, 119 8,16,16,8,8,4,8,8, 120 8,4,8,4,4, 121 4,4,4,8,8, 122 123 8,16,16,8,8,4,4, 124 8,8,8,8,4,8,8, 125 8,16,16,8,8,4,4, 126 8,8,8,8,4,8,8, 127 128 8,16,16,8,8,4,4, 129 8,8,8,8,4,8,8, 130 4,4,4,4, 131 8,8,8,8,4,8,8, 132 133 8,8,8,8,4,4, 134 4,4,4,4, 135 4,4,4,4, 136 137 }; 138 unsigned int f; 139 int times,i; 140 for(i=0; song[0]; i++) 141 { 142 if(song[i]<0) 143 f=freq[-song[i]]/2; 144 else if(song[i]>7) 145 f=freq[song[i]%7]*2; 146 else if(song[i]==0) 147 f=100000000000000; 148 else 149 f=freq[song[i]]; 150 times=16/div[i]; 151 mysound(f,times); 152 } 153 return 0; 154 }
再附上两首简单音乐的代码：
1 int song[]={ 8,8,5,5,3,6,5,3, 2 2,1,2,3,1,0, 3 3,1,3,3,1, 4 3,3,5,6,5,0, 5 6,6,6,5,4,4,4, 6 2,3,2,1,2,0, 7 3,1,0,3,1,0, 8 3,3,5,6,6,0, 9 8,5,5,6,3, 10 2,1,2,3,5,5, 11 8,5,5,6,3, 12 2,1,2,3,1,1 13 14 15 }; 16 float div[]={ 8,8,8,8,8,8,8,8, 17 8,8,8,8,4,4, 18 4,4,8,8,4, 19 8,8,8,8,4,4, 20 8,8,8,8,8,8,4, 21 8,8,8,8,4,4, 22 4,8,8,4,8,8, 23 8,8,8,8,4,4, 24 4,8,8,4,4, 25 8,8,8,8,4,4, 26 4,8,8,4,4, 27 8,8,8,8,4,4 28 29 };
int song[]= { 3,3,5,6,8,8,6, 5,5,6,5,5, 3,3,5,6,8,8,6, 5,5,6,5,5, 5,5,5,3,5, 6,6,5,5,5, 3,2,3,5,3,2, 1,1,2,1,1, 3,2,1,3,2,3, 5,6,8,5,5, 2,3,5,2,3,1,-6, 5,5,-6,1, 2,3,1,2,1,6, 5,5,5,5, 0,0,0,0 }; float div[]= { 4,8,8,8,8,8,8, 4,8,8,4,4, 4,8,8,8,8,8,8, 4,8,8,4,4, 4,4,4,8,8, 4,8,8,4,4, 4,8,8,4,8,8, 4,8,8,4,4, 8,8,8,8,4,4, 4,8,8,4,4, 4,8,8,8,8,8,8, 4,4,4,4, 4,8,8,8,8,8, 4,4,4,4, 4,4,4,4 };
