MAGE16单片机应用音医乐演奏.pptVIP

MAGE16单片机应用; 声音插件：  声音输入接PORTD.7或PORTB.3口。 经晶体管电路放大后，用蜂鸣器发声。 ;1 2 3 4;例五、 音阶演奏 Config pind.7 = Output Sound Portd.7 ,500 , 2000 Sound Portd.7 ,561 , 1783 Sound Portd.7 ,630 , 1588 Sound Portd.7 ,667 , 1500 Sound Portd.7 ,750 , 1333 Sound Portd.7 ,842 , 1188 Sound Portd.7 ,945 , 1058 Sound Portd.7 ,1000 , 1000 End;按钮与发光二极管插件电路; 1/定义D.7为输出，接声音插件的放大器输入。 2/后数是分频数（除数），决定音的高低。 数值越大，音高的频率越低。 3/前、后两个数值的乘积决定音的时值 （发声时间长短）。 4/本例的8个音为1 2 3 4 5 6 7 i 时值相同。 注意相同时值，不同音高时前数的差异。;结论： 1、相同时值，前后两数的乘积相等。 前数控制时值,但时值还与后数有关。 2、后数半音之间（3-4、7- i之间）为1.0595 倍， 其余全音之间为1.1225倍（二个1.0595倍）。 3、8度音（例1- i）之间正好为2倍关系。 （12个1. 0595相乘等于2）;例六、 音阶与乐曲 Config pind.7 = Output Dim S As Byte , F As Byte, Dim A As Word , B As Word , C As Word Restore Music Do Read S Read F If S = 0 Then Exit Do A = 8000 / F B = A * S C = F * 5 Sound Portd.7 , B , C Waitms 10 Loop End;Music: Data 8 , 214 , 8 , 190 ,8 , 170 , 8 , 160 , 8 , 143 , 8 , 127 , 8 , 113 , 8 , 107 Data 8 , 107, 8 , 113 , 8 , 127 , 8 , 143 , 8 , 160 , 8 , 170 , 8 , 190 , 8 , 214 Data 16 , 252 , 8 , 189 , 8 , 168 , 12 , 150 , 4 , 142 , 8 , 150 , 8 , 189 Data 12 , 168 , 4 , 168 , 8 , 189 , 8 , 224 , 32 , 189 Data 16 , 252 , 8 , 189 , 8 , 168 , 12 , 150 , 4 , 142 , 8 , 126 , 8 , 189 Data 12 , 142 , 4 , 150 , 8 , 126 , 4 , 168 , 4 , 150 , 32 , 168 , 0 , 0 注: 时值(S) 1=1/8拍 2=1/4拍 4=1/2拍 8=1拍 16=2拍 32=4拍 ;参考分频数(F):;例七、 音乐选曲程序： Config Pina.7 = Input Config Pind.7 = Output Porta.7 = 1 接上拉电阻 Dim S As Byte , F As Byte , P As Byte , E As Byte Dim B As Word , C As Word , A As Word Wait 2 E = Pina And If E = 128 Then Restore Music2 If E = 0 Then Restore Music1;Do Read S : Read F If S = 0 Then Exit Do A = 8000 / F B = A * S C = F * 5 Sound Portd.7 , B , C Waitms 10 Loop End Music1: Data 16 , 252 , 8 , 189 --------0，0 Music2: Data 16 , 254 , 12 , 214 --------0，0;四个按钮选曲程序段 Do Waitms 20 E = Pinc And Loop Until E 240