⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 playsongs.lst

📁 单片机实现在的电子琴
💻 LST
📖 第 1 页 / 共 2 页
字号:
 183   3                              TR0=0; BeepIO=1;
 184   3                              for(i=LDiv2;i>0;i--)    //音符间的间隔
 185   3                              {
 186   4                                      ////  指示灯部分 ////
 187   4                                      OFFSet = (OFFSet+1)%5;
 188   4                                      LEDShow(~(0xFE<<(LEDFlash+OFFSet-2)));
 189   4                                      ////////////////////
 190   4                                      while(TF1==0);
 191   4                                      TH1 = Sound_Temp_TH1;
 192   4                                      TL1 = Sound_Temp_TL1;
 193   4                                      TF1=0;
 194   4                              }
 195   3                      }
 196   2                      Point+=2; 
 197   2                      Tone=Sound[Point];
 198   2                      Length=Sound[Point+1];
 199   2              }
 200   1              BeepIO = 1;
 201   1      }
 202          //**************************************************************************
 203          #endif
 204          
 205          ///***************************************************************************
 206          //附:3首曲谱编码表
 207          
 208          //挥着翅膀的女孩
 209          unsigned char code Music_Girl[]={ 0x17,0x02, 0x17,0x03, 0x18,0x03, 0x19,0x02, 0x15,0x03,
 210                                            0x16,0x03, 0x17,0x03, 0x17,0x03, 0x17,0x03, 0x18,0x03,
 211                                            0x19,0x02, 0x16,0x03, 0x17,0x03, 0x18,0x02, 0x18,0x03,
 212                                            0x17,0x03, 0x15,0x02, 0x18,0x03, 0x17,0x03, 0x18,0x02,
 213                                            0x10,0x03, 0x15,0x03, 0x16,0x02, 0x15,0x03, 0x16,0x03,
 214                                            0x17,0x02, 0x17,0x03, 0x18,0x03, 0x19,0x02, 0x1A,0x03,
 215                                            0x1B,0x03, 0x1F,0x03, 0x1F,0x03, 0x17,0x03, 0x18,0x03,
 216                                            0x19,0x02, 0x16,0x03, 0x17,0x03, 0x18,0x03, 0x17,0x03,
 217                                            0x18,0x03, 0x1F,0x03, 0x1F,0x02, 0x16,0x03, 0x17,0x03,
 218                                            0x18,0x03, 0x17,0x03, 0x18,0x03, 0x20,0x03, 0x20,0x02,
 219                                            0x1F,0x03, 0x1B,0x03, 0x1F,0x66, 0x20,0x03, 0x21,0x03,
 220                                            0x20,0x03, 0x1F,0x03, 0x1B,0x03, 0x1F,0x66, 0x1F,0x03,
 221                                            0x1B,0x03, 0x19,0x03, 0x19,0x03, 0x15,0x03, 0x1A,0x66,
 222                                            0x1A,0x03, 0x19,0x03, 0x15,0x03, 0x15,0x03, 0x17,0x03,
 223                                            0x16,0x66, 0x17,0x04, 0x18,0x04, 0x18,0x03, 0x19,0x03,
 224                                            0x1F,0x03, 0x1B,0x03, 0x1F,0x66, 0x20,0x03, 0x21,0x03,
 225                                            0x20,0x03, 0x1F,0x03, 0x1B,0x03, 0x1F,0x66, 0x1F,0x03,
 226                                            0x1B,0x03, 0x19,0x03, 0x19,0x03, 0x15,0x03, 0x1A,0x66,
 227                                            0x1A,0x03, 0x19,0x03, 0x19,0x03, 0x1F,0x03, 0x1B,0x03,
 228                                            0x1F,0x00, 0x1A,0x03, 0x1A,0x03, 0x1A,0x03, 0x1B,0x03,
 229                                            0x1B,0x03, 0x1A,0x03, 0x19,0x03, 0x19,0x02, 0x17,0x03,
 230                                            0x15,0x17, 0x15,0x03, 0x16,0x03, 0x17,0x03, 0x18,0x03,
 231                                            0x17,0x04, 0x18,0x0E, 0x18,0x03, 0x17,0x04, 0x18,0x0E,
 232                                            0x18,0x66, 0x17,0x03, 0x18,0x03, 0x17,0x03, 0x18,0x03,
 233                                            0x20,0x03, 0x20,0x02, 0x1F,0x03, 0x1B,0x03, 0x1F,0x66,
 234                                            0x20,0x03, 0x21,0x03, 0x20,0x03, 0x1F,0x03, 0x1B,0x03,
 235                                            0x1F,0x66, 0x1F,0x04, 0x1B,0x0E, 0x1B,0x03, 0x19,0x03,
 236                                            0x19,0x03, 0x15,0x03, 0x1A,0x66, 0x1A,0x03, 0x19,0x03,
 237                                            0x15,0x03, 0x15,0x03, 0x17,0x03, 0x16,0x66, 0x17,0x04,
 238                                            0x18,0x04, 0x18,0x03, 0x19,0x03, 0x1F,0x03, 0x1B,0x03,
 239                                            0x1F,0x66, 0x20,0x03, 0x21,0x03, 0x20,0x03, 0x1F,0x03,
 240                                            0x1B,0x03, 0x1F,0x66, 0x1F,0x03, 0x1B,0x03, 0x19,0x03,
 241                                            0x19,0x03, 0x15,0x03, 0x1A,0x66, 0x1A,0x03, 0x19,0x03,
C51 COMPILER V8.02   PLAYSONGS                                                             11/22/2008 15:15:03 PAGE 5   

 242                                            0x19,0x03, 0x1F,0x03, 0x1B,0x03, 0x1F,0x00, 0x18,0x02,
 243                                            0x18,0x03, 0x1A,0x03, 0x19,0x0D, 0x15,0x03, 0x15,0x02,
 244                                            0x18,0x66, 0x16,0x02, 0x17,0x02, 0x15,0x00, 0x00,0x00};
 245          //同一首歌
 246          unsigned char code Music_Same[]={ 0x0F,0x01, 0x15,0x02, 0x16,0x02, 0x17,0x66, 0x18,0x03,
 247                                            0x17,0x02, 0x15,0x02, 0x16,0x01, 0x15,0x02, 0x10,0x02,
 248                                            0x15,0x00, 0x0F,0x01, 0x15,0x02, 0x16,0x02, 0x17,0x02,
 249                                            0x17,0x03, 0x18,0x03, 0x19,0x02, 0x15,0x02, 0x18,0x66,
 250                                            0x17,0x03, 0x19,0x02, 0x16,0x03, 0x17,0x03, 0x16,0x00,
 251                                            0x17,0x01, 0x19,0x02, 0x1B,0x02, 0x1B,0x70, 0x1A,0x03,
 252                                            0x1A,0x01, 0x19,0x02, 0x19,0x03, 0x1A,0x03, 0x1B,0x02,
 253                                            0x1A,0x0D, 0x19,0x03, 0x17,0x00, 0x18,0x66, 0x18,0x03,
 254                                            0x19,0x02, 0x1A,0x02, 0x19,0x0C, 0x18,0x0D, 0x17,0x03,
 255                                            0x16,0x01, 0x11,0x02, 0x11,0x03, 0x10,0x03, 0x0F,0x0C,
 256                                            0x10,0x02, 0x15,0x00, 0x1F,0x01, 0x1A,0x01, 0x18,0x66,
 257                                            0x19,0x03, 0x1A,0x01, 0x1B,0x02, 0x1B,0x03, 0x1B,0x03,
 258                                            0x1B,0x0C, 0x1A,0x0D, 0x19,0x03, 0x17,0x00, 0x1F,0x01,
 259                                            0x1A,0x01, 0x18,0x66, 0x19,0x03, 0x1A,0x01, 0x10,0x02,
 260                                            0x10,0x03, 0x10,0x03, 0x1A,0x0C, 0x18,0x0D, 0x17,0x03,
 261                                            0x16,0x00, 0x0F,0x01, 0x15,0x02, 0x16,0x02, 0x17,0x70,
 262                                            0x18,0x03, 0x17,0x02, 0x15,0x03, 0x15,0x03, 0x16,0x66,
 263                                            0x16,0x03, 0x16,0x02, 0x16,0x03, 0x15,0x03, 0x10,0x02,
 264                                            0x10,0x01, 0x11,0x01, 0x11,0x66, 0x10,0x03, 0x0F,0x0C,
 265                                            0x1A,0x02, 0x19,0x02, 0x16,0x03, 0x16,0x03, 0x18,0x66,
 266                                            0x18,0x03, 0x18,0x02, 0x17,0x03, 0x16,0x03, 0x19,0x00,
 267                                            0x00,0x00 };
 268          //两只蝴蝶
 269          /*                                  
 270          unsigned char code Music_Two[] ={ 0x17,0x03, 0x16,0x03, 0x17,0x01, 0x16,0x03, 0x17,0x03,
 271                                            0x16,0x03, 0x15,0x01, 0x10,0x03, 0x15,0x03, 0x16,0x02,
 272                                            0x16,0x0D, 0x17,0x03, 0x16,0x03, 0x15,0x03, 0x10,0x03,
 273                                            0x10,0x0E, 0x15,0x04, 0x0F,0x01, 0x17,0x03, 0x16,0x03,
 274                                            0x17,0x01, 0x16,0x03, 0x17,0x03, 0x16,0x03, 0x15,0x01,
 275                                            0x10,0x03, 0x15,0x03, 0x16,0x02, 0x16,0x0D, 0x17,0x03,
 276                                            0x16,0x03, 0x15,0x03, 0x10,0x03, 0x15,0x03, 0x16,0x01,
 277                                            0x17,0x03, 0x16,0x03, 0x17,0x01, 0x16,0x03, 0x17,0x03,
 278                                            0x16,0x03, 0x15,0x01, 0x10,0x03, 0x15,0x03, 0x16,0x02,
 279                                            0x16,0x0D, 0x17,0x03, 0x16,0x03, 0x15,0x03, 0x10,0x03,
 280                                            0x10,0x0E, 0x15,0x04, 0x0F,0x01, 0x17,0x03, 0x19,0x03,
 281                                            0x19,0x01, 0x19,0x03, 0x1A,0x03, 0x19,0x03, 0x17,0x01,
 282                                            0x16,0x03, 0x16,0x03, 0x16,0x02, 0x16,0x0D, 0x17,0x03,
 283                                            0x16,0x03, 0x15,0x03, 0x10,0x03, 0x10,0x0D, 0x15,0x00,
 284                                            0x19,0x03, 0x19,0x03, 0x1A,0x03, 0x1F,0x03, 0x1B,0x03,
 285                                            0x1B,0x03, 0x1A,0x03, 0x17,0x0D, 0x16,0x03, 0x16,0x03,
 286                                            0x16,0x0D, 0x17,0x01, 0x17,0x03, 0x17,0x03, 0x19,0x03,
 287                                            0x1A,0x02, 0x1A,0x02, 0x10,0x03, 0x17,0x0D, 0x16,0x03,
 288                                            0x16,0x01, 0x17,0x03, 0x19,0x03, 0x19,0x03, 0x17,0x03,
 289                                            0x19,0x02, 0x1F,0x02, 0x1B,0x03, 0x1A,0x03, 0x1A,0x0E,
 290                                            0x1B,0x04, 0x17,0x02, 0x1A,0x03, 0x1A,0x03, 0x1A,0x0E,
 291                                            0x1B,0x04, 0x1A,0x03, 0x19,0x03, 0x17,0x03, 0x16,0x03,
 292                                            0x17,0x0D, 0x16,0x03, 0x17,0x03, 0x19,0x01, 0x19,0x03,
 293                                            0x19,0x03, 0x1A,0x03, 0x1F,0x03, 0x1B,0x03, 0x1B,0x03,
 294                                            0x1A,0x03, 0x17,0x0D, 0x16,0x03, 0x16,0x03, 0x16,0x03,
 295                                            0x17,0x01, 0x17,0x03, 0x17,0x03, 0x19,0x03, 0x1A,0x02,
 296                                            0x1A,0x02, 0x10,0x03, 0x17,0x0D, 0x16,0x03, 0x16,0x01,
 297                                            0x17,0x03, 0x19,0x03, 0x19,0x03, 0x17,0x03, 0x19,0x03,
 298                                            0x1F,0x02, 0x1B,0x03, 0x1A,0x03, 0x1A,0x0E, 0x1B,0x04,
 299                                            0x17,0x02, 0x1A,0x03, 0x1A,0x03, 0x1A,0x0E, 0x1B,0x04,
 300                                            0x17,0x16, 0x1A,0x03, 0x1A,0x03, 0x1A,0x0E, 0x1B,0x04,
 301                                            0x1A,0x03, 0x19,0x03, 0x17,0x03, 0x16,0x03, 0x0F,0x02,
 302                                            0x10,0x03, 0x15,0x00, 0x00,0x00 };
 303                  */
C51 COMPILER V8.02   PLAYSONGS                                                             11/22/2008 15:15:03 PAGE 6   

 304          unsigned char code Music_Code[]={ 0x19,0x01, 0x19,0x03, 0x17,0x03, 0x16,0x03, 0x15,0x03,
 305                                            0x17,0x00, 0x1A,0x02, 0x1A,0x03, 0x18,0x03, 0x16,0x03,
 306                                            0x15,0x03, 0x11,0x14, 0x0F,0x03, 0x15,0x66, 0x17,0x03,
 307                                            0x19,0x66, 0x15,0x03, 0x11,0x66, 0x17,0x03, 0x19,0x16,
 308                                            0x19,0x03, 0x1A,0x66, 0x1B,0x03, 0x1F,0x66, 0x1A,0x03,
 309                                            0x1A,0x03, 0x19,0x03, 0x19,0x01, 0x17,0x03, 0x16,0x03,
 310                                            0x15,0x66, 0x15,0x03, 0x15,0x02, 0x17,0x03, 0x16,0x03,
 311                                            0x15,0x66, 0x15,0x03, 0x15,0x03, 0x15,0x02, 0x16,0x03,
 312                                            0x17,0x03, 0x16,0x66, 0x15,0x03, 0x10,0x66, 0x16,0x04,
 313                                            0x17,0x04, 0x16,0x14, 0x0F,0x03, 0x15,0x66, 0x17,0x03,
 314                                            0x19,0x66, 0x15,0x03, 0x11,0x66, 0x17,0x03, 0x19,0x16,
 315                                            0x19,0x03, 0x1A,0x66, 0x1B,0x03, 0x1F,0x66, 0x1A,0x03,
 316                                            0x1A,0x03, 0x19,0x03, 0x19,0x01, 0x17,0x03, 0x16,0x03,
 317                                            0x15,0x66, 0x15,0x03, 0x15,0x02, 0x17,0x03, 0x16,0x03,
 318                                            0x15,0x66, 0x15,0x03, 0x15,0x02, 0x16,0x03, 0x17,0x03,
 319                                            0x16,0x66, 0x10,0x03, 0x11,0x03, 0x15,0x03, 0x16,0x03,
 320                                            0x15,0x00, 0x17,0x03, 0x19,0x03, 0x17,0x66, 0x16,0x03,
 321                                            0x15,0x02, 0x19,0x02, 0x11,0x00, 0x10,0x03, 0x11,0x03,
 322                                            0x1A,0x02, 0x11,0x03, 0x10,0x02, 0x0F,0x02, 0x17,0x00,
 323                                            0x19,0x02, 0x17,0x66, 0x16,0x03, 0x15,0x02, 0x19,0x02,
 324                                            0x11,0x00, 0x10,0x03, 0x11,0x03, 0x15,0x66, 0x15,0x03,
 325                                            0x15,0x02, 0x16,0x03, 0x17,0x15, 0x0F,0x03, 0x15,0x66,
 326                                            0x17,0x03, 0x19,0x66, 0x15,0x03, 0x11,0x66, 0x17,0x03,
 327                                            0x19,0x16, 0x19,0x03, 0x1A,0x66, 0x1B,0x03, 0x1F,0x66,
 328                                            0x24,0x03, 0x1A,0x03, 0x19,0x03, 0x19,0x01, 0x17,0x03,
 329                                            0x16,0x03, 0x15,0x66, 0x15,0x03, 0x15,0x02, 0x17,0x03,
 330                                            0x16,0x03, 0x15,0x66, 0x15,0x03, 0x15,0x02, 0x16,0x03,
 331                                            0x17,0x03, 0x17,0x03, 0x16,0x66, 0x10,0x03, 0x11,0x03,
 332                                            0x15,0x03, 0x16,0x03, 0x15,0x00, 0x0F,0x02, 0x15,0x66,
 333                                            0x17,0x03, 0x19,0x66, 0x11,0x66, 0x17,0x03, 0x19,0x66,
 334                                            0x19,0x03, 0x1A,0x66, 0x1B,0x03, 0x1F,0x66, 0x1A,0x03,
 335                                            0x19,0x00, 0x17,0x03, 0x16,0x03, 0x15,0x66, 0x15,0x03,
 336                                            0x15,0x02, 0x17,0x03, 0x16,0x03, 0x15,0x66, 0x15,0x03,
 337                                            0x15,0x02, 0x16,0x03, 0x17,0x03, 0x16,0x02, 0x10,0x03,
 338                                            0x11,0x02, 0x15,0x03, 0x16,0x03, 0x15,0x00, 0x00,0x00 };
 339          //***************************************************************************
 340          
 341          void PlayMusic(void)
 342          {       
 343   1      //      Delay1ms(200); 
 344   1      //      Play(SelectMusic(MusicIndex),0,3,360);  
 345   1              Play(Music_Code, 0, 3, 310);
 346   1              Play(Music_Same, 0, 3, 300);
 347   1              Play(Music_Girl, 0, 3, 330);
 348   1      }
 349          
 350          
 351          void main()
 352          {
 353   1              InitialSound();
 354   1              while(1)
 355   1              {
 356   2                      PlayMusic();            
 357   2              }       
 358   1      }


MODULE INFORMATION:   STATIC OVERLAYABLE
   CODE SIZE        =    926    ----
   CONSTANT SIZE    =    960    ----
   XDATA SIZE       =   ----    ----
   PDATA SIZE       =   ----    ----
C51 COMPILER V8.02   PLAYSONGS                                                             11/22/2008 15:15:03 PAGE 7   

   DATA SIZE        =      4      53
   IDATA SIZE       =   ----    ----
   BIT SIZE         =   ----    ----
END OF MODULE INFORMATION.


C51 COMPILATION COMPLETE.  0 WARNING(S),  0 ERROR(S)

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -