📄 beep.lst
字号:
256 3
257 3
258 3 }
259 2 if(LDiv2!=0)
260 2 {
261 3 TR0=0; BeepIO=0;
262 3 for(i=LDiv2;i>0;i--) //音符间的间隔
263 3 {
264 4 while(TF1==0);
265 4 TH1 = Sound_Temp_TH1;
266 4 TL1 = Sound_Temp_TL1;
267 4 TF1=0;
268 4 }
269 3 }
270 2 Point+=2;
271 2 Tone=Sound[Point];
272 2 Length=Sound[Point+1];
273 2 }
274 1 BeepIO = 0;
275 1 }
276 /**************************************************************************/
277 #endif
278
279 /**************************************************************************
280 数码管显示子程序
281 首先实现约4秒的个性签名 FLYING 的显示
282 然后实现约3秒的歌曲曲数的显示（从左到右的1-2位）
283 当前运行时间的显示（从左到右的4-8位的）
284 由于本人买的单片机的数码管接线紊乱，故字形口和字位口同资料书上介绍的不同
285 **************************************************************************/
286 void Delay1ms()
287 {
288 1 unsigned char code dispcode[]={
289 1 0x41,0xf5,0x29,0x31,0x95,0x13,0x03,0x75,0x01,0x11,0xbf,0x11,0x45,0xf5,0x91,0xcb,0x0f,0xff};
290 1 unsigned char dispbitcode[]={0xfe,0xfd,0xfb,0xf7,0xef,0xdf,0xbf,0x7f};
291 1 unsigned char dispbuf[8]={0,0,0,0,0,0,0,0};
292 1 unsigned char dispbitcnt;
293 1 unsigned char mstcnt;
294 1 unsigned int i,j;
295 1
296 1 numble++;
297 1
298 1 for(i=250;i>0;i--)
299 1 for(j=300;j>0;j--)
300 1 {
301 2 mstcnt++;
302 2 if(mstcnt==8)
303 2 {
C51 COMPILER V7.50 BEEP 06/19/2008 11:23:16 PAGE 6
304 3 mstcnt=0;
305 3 P0=dispcode[dispbuf[dispbitcnt]];
306 3 P2=dispbitcode[dispbitcnt];
307 3 dispbitcnt++;
308 3 if(dispbitcnt==8)
309 3 {
310 4 dispbitcnt=0;
311 4 }
312 3 }
313 2
314 2 dispbuf[1]=10;
315 2 dispbuf[2]=11;
316 2 dispbuf[0]=12;
317 2 dispbuf[3]=13;
318 2 dispbuf[5]=14;
319 2 dispbuf[6]=15;
320 2 dispbuf[4]=16;
321 2 dispbuf[7]=10;
322 2 }
323 1
324 1
325 1
326 1 for(i=150;i>0;i--)
327 1 for(j=200;j>0;j--)
328 1 {
329 2 mstcnt++;
330 2 if(mstcnt==8)
331 2 {
332 3 mstcnt=0;
333 3 P0=dispcode[dispbuf[dispbitcnt]];
334 3 P2=dispbitcode[dispbitcnt];
335 3 dispbitcnt++;
336 3 if(dispbitcnt==8)
337 3 {
338 4 dispbitcnt=0;
339 4 }
340 3 }
341 2
342 2 dispbuf[7]=numble/10;
343 2 dispbuf[4]=numble&9;
344 2 dispbuf[6]=17;
345 2 dispbuf[5]=min/10;
346 2 dispbuf[3]=min&9;
347 2 dispbuf[0]=10;
348 2 dispbuf[2]=sec/10;
349 2 dispbuf[1]=sec&9;
350 2 }
351 1
352 1 }
353
354
355
356 //*****************************Music*******************************************
357 //挥着翅膀的女孩---容祖儿
358 unsigned char code Music_Girl[]={
359 0x17,0x02, 0x17,0x03, 0x18,0x03, 0x19,0x02, 0x15,0x03,
360 0x16,0x03, 0x17,0x03, 0x17,0x03, 0x17,0x03, 0x18,0x03,
361 0x19,0x02, 0x16,0x03, 0x17,0x03, 0x18,0x02, 0x18,0x03,
362 0x17,0x03, 0x15,0x02, 0x18,0x03, 0x17,0x03, 0x18,0x02,
363 0x10,0x03, 0x15,0x03, 0x16,0x02, 0x15,0x03, 0x16,0x03,
364 0x17,0x02, 0x17,0x03, 0x18,0x03, 0x19,0x02, 0x1A,0x03,
365 0x1B,0x03, 0x1F,0x03, 0x1F,0x03, 0x17,0x03, 0x18,0x03,
C51 COMPILER V7.50 BEEP 06/19/2008 11:23:16 PAGE 7
366 0x19,0x02, 0x16,0x03, 0x17,0x03, 0x18,0x03, 0x17,0x03,
367 0x18,0x03, 0x1F,0x03, 0x1F,0x02, 0x16,0x03, 0x17,0x03,
368 0x18,0x03, 0x17,0x03, 0x18,0x03, 0x20,0x03, 0x20,0x02,
369 0x1F,0x03, 0x1B,0x03, 0x1F,0x66, 0x20,0x03, 0x21,0x03,
370 0x20,0x03, 0x1F,0x03, 0x1B,0x03, 0x1F,0x66, 0x1F,0x03,
371 0x1B,0x03, 0x19,0x03, 0x19,0x03, 0x15,0x03, 0x1A,0x66,
372 0x1A,0x03, 0x19,0x03, 0x15,0x03, 0x15,0x03, 0x17,0x03,
373 0x16,0x66, 0x17,0x04, 0x18,0x04, 0x18,0x03, 0x19,0x03,
374 0x1F,0x03, 0x1B,0x03, 0x1F,0x66, 0x20,0x03, 0x21,0x03,
375 0x20,0x03, 0x1F,0x03, 0x1B,0x03, 0x1F,0x66, 0x1F,0x03,
376 0x1B,0x03, 0x19,0x03, 0x19,0x03, 0x15,0x03, 0x1A,0x66,
377 0x1A,0x03, 0x19,0x03, 0x19,0x03, 0x1F,0x03, 0x1B,0x03,
378 0x1F,0x00, 0x1A,0x03, 0x1A,0x03, 0x1A,0x03, 0x1B,0x03,
379 0x1B,0x03, 0x1A,0x03, 0x19,0x03, 0x19,0x02, 0x17,0x03,
380 0x15,0x17, 0x15,0x03, 0x16,0x03, 0x17,0x03, 0x18,0x03,
381 0x17,0x04, 0x18,0x0E, 0x18,0x03, 0x17,0x04, 0x18,0x0E,
382 0x18,0x66, 0x17,0x03, 0x18,0x03, 0x17,0x03, 0x18,0x03,
383 0x20,0x03, 0x20,0x02, 0x1F,0x03, 0x1B,0x03, 0x1F,0x66,
384 0x20,0x03, 0x21,0x03, 0x20,0x03, 0x1F,0x03, 0x1B,0x03,
385 0x1F,0x66, 0x1F,0x04, 0x1B,0x0E, 0x1B,0x03, 0x19,0x03,
386 0x19,0x03, 0x15,0x03, 0x1A,0x66, 0x1A,0x03, 0x19,0x03,
387 0x15,0x03, 0x15,0x03, 0x17,0x03, 0x16,0x66, 0x17,0x04,
388 0x18,0x04, 0x18,0x03, 0x19,0x03, 0x1F,0x03, 0x1B,0x03,
389 0x1F,0x66, 0x20,0x03, 0x21,0x03, 0x20,0x03, 0x1F,0x03,
390 0x1B,0x03, 0x1F,0x66, 0x1F,0x03, 0x1B,0x03, 0x19,0x03,
391 0x19,0x03, 0x15,0x03, 0x1A,0x66, 0x1A,0x03, 0x19,0x03,
392 0x19,0x03, 0x1F,0x03, 0x1B,0x03, 0x1F,0x00, 0x18,0x02,
393 0x18,0x03, 0x1A,0x03, 0x19,0x0D, 0x15,0x03, 0x15,0x02,
394 0x18,0x66, 0x16,0x02, 0x17,0x02, 0x15,0x00, 0x00,0x00};
395
396
397
398
399 //同一首歌-毛阿敏
400 unsigned char code Music_Same[]={
401 0x0F,0x01, 0x15,0x02, 0x16,0x02, 0x17,0x66, 0x18,0x03,
402 0x17,0x02, 0x15,0x02, 0x16,0x01, 0x15,0x02, 0x10,0x02,
403 0x15,0x00, 0x0F,0x01, 0x15,0x02, 0x16,0x02, 0x17,0x02,
404 0x17,0x03, 0x18,0x03, 0x19,0x02, 0x15,0x02, 0x18,0x66,
405 0x17,0x03, 0x19,0x02, 0x16,0x03, 0x17,0x03, 0x16,0x00,
406 0x17,0x01, 0x19,0x02, 0x1B,0x02, 0x1B,0x70, 0x1A,0x03,
407 0x1A,0x01, 0x19,0x02, 0x19,0x03, 0x1A,0x03, 0x1B,0x02,
408 0x1A,0x0D, 0x19,0x03, 0x17,0x00, 0x18,0x66, 0x18,0x03,
409 0x19,0x02, 0x1A,0x02, 0x19,0x0C, 0x18,0x0D, 0x17,0x03,
410 0x16,0x01, 0x11,0x02, 0x11,0x03, 0x10,0x03, 0x0F,0x0C,
411 0x10,0x02, 0x15,0x00, 0x1F,0x01, 0x1A,0x01, 0x18,0x66,
412 0x19,0x03, 0x1A,0x01, 0x1B,0x02, 0x1B,0x03, 0x1B,0x03,
413 0x1B,0x0C, 0x1A,0x0D, 0x19,0x03, 0x17,0x00, 0x1F,0x01,
414 0x1A,0x01, 0x18,0x66, 0x19,0x03, 0x1A,0x01, 0x10,0x02,
415 0x10,0x03, 0x10,0x03, 0x1A,0x0C, 0x18,0x0D, 0x17,0x03,
416 0x16,0x00, 0x0F,0x01, 0x15,0x02, 0x16,0x02, 0x17,0x70,
417 0x18,0x03, 0x17,0x02, 0x15,0x03, 0x15,0x03, 0x16,0x66,
418 0x16,0x03, 0x16,0x02, 0x16,0x03, 0x15,0x03, 0x10,0x02,
419 0x10,0x01, 0x11,0x01, 0x11,0x66, 0x10,0x03, 0x0F,0x0C,
420 0x1A,0x02, 0x19,0x02, 0x16,0x03, 0x16,0x03, 0x18,0x66,
421 0x18,0x03, 0x18,0x02, 0x17,0x03, 0x16,0x03, 0x19,0x00,
422 0x00,0x00 };
423
424
425
426
427 //两只蝴蝶----
C51 COMPILER V7.50 BEEP 06/19/2008 11:23:16 PAGE 8
428 unsigned char code Music_Two[] ={
429 0x17,0x03, 0x16,0x03, 0x17,0x01, 0x16,0x03, 0x17,0x03,
430 0x16,0x03, 0x15,0x01, 0x10,0x03, 0x15,0x03, 0x16,0x02,
431 0x16,0x0D, 0x17,0x03, 0x16,0x03, 0x15,0x03, 0x10,0x03,
432 0x10,0x0E, 0x15,0x04, 0x0F,0x01, 0x17,0x03, 0x16,0x03,
433 0x17,0x01, 0x16,0x03, 0x17,0x03, 0x16,0x03, 0x15,0x01,
434 0x10,0x03, 0x15,0x03, 0x16,0x02, 0x16,0x0D, 0x17,0x03,
435 0x16,0x03, 0x15,0x03, 0x10,0x03, 0x15,0x03, 0x16,0x01,
436 0x17,0x03, 0x16,0x03, 0x17,0x01, 0x16,0x03, 0x17,0x03,
437 0x16,0x03, 0x15,0x01, 0x10,0x03, 0x15,0x03, 0x16,0x02,
438 0x16,0x0D, 0x17,0x03, 0x16,0x03, 0x15,0x03, 0x10,0x03,
439 0x10,0x0E, 0x15,0x04, 0x0F,0x01, 0x17,0x03, 0x19,0x03,
440 0x19,0x01, 0x19,0x03, 0x1A,0x03, 0x19,0x03, 0x17,0x01,
441 0x16,0x03, 0x16,0x03, 0x16,0x02, 0x16,0x0D, 0x17,0x03,
442 0x16,0x03, 0x15,0x03, 0x10,0x03, 0x10,0x0D, 0x15,0x00,
443 0x19,0x03, 0x19,0x03, 0x1A,0x03, 0x1F,0x03, 0x1B,0x03,
444 0x1B,0x03, 0x1A,0x03, 0x17,0x0D, 0x16,0x03, 0x16,0x03,
445 0x16,0x0D, 0x17,0x01, 0x17,0x03, 0x17,0x03, 0x19,0x03,
446 0x1A,0x02, 0x1A,0x02, 0x10,0x03, 0x17,0x0D, 0x16,0x03,
447 0x16,0x01, 0x17,0x03, 0x19,0x03, 0x19,0x03, 0x17,0x03,
448 0x19,0x02, 0x1F,0x02, 0x1B,0x03, 0x1A,0x03, 0x1A,0x0E,
449 0x1B,0x04, 0x17,0x02, 0x1A,0x03, 0x1A,0x03, 0x1A,0x0E,
450 0x1B,0x04, 0x1A,0x03, 0x19,0x03, 0x17,0x03, 0x16,0x03,
451 0x17,0x0D, 0x16,0x03, 0x17,0x03, 0x19,0x01, 0x19,0x03,
452 0x19,0x03, 0x1A,0x03, 0x1F,0x03, 0x1B,0x03, 0x1B,0x03,
453 0x1A,0x03, 0x17,0x0D, 0x16,0x03, 0x16,0x03, 0x16,0x03,
454 0x17,0x01, 0x17,0x03, 0x17,0x03, 0x19,0x03, 0x1A,0x02,
455 0x1A,0x02, 0x10,0x03, 0x17,0x0D, 0x16,0x03, 0x16,0x01,
456 0x17,0x03, 0x19,0x03, 0x19,0x03, 0x17,0x03, 0x19,0x03,
457 0x1F,0x02, 0x1B,0x03, 0x1A,0x03, 0x1A,0x0E, 0x1B,0x04,
458 0x17,0x02, 0x1A,0x03, 0x1A,0x03, 0x1A,0x0E, 0x1B,0x04,
459 0x17,0x16, 0x1A,0x03, 0x1A,0x03, 0x1A,0x0E, 0x1B,0x04,
460 0x1A,0x03, 0x19,0x03, 0x17,0x03, 0x16,0x03, 0x0F,0x02,
461 0x10,0x03, 0x15,0x00, 0x00,0x00 };
462
463
464 //月亮代表我的心----邓丽君
465 unsigned char code Music_moon[] ={
466 0x0F,0x03, 0x15,0x66, 0x17,0x03, 0x19,0x66, 0x15,0x03,
467 0x11,0x66, 0x17,0x03, 0x19,0x16, 0x19,0x03, 0x1A,0x66,
468 0x1B,0x03, 0x1F,0x66, 0x1A,0x03, 0x1A,0x04, 0x19,0x00,
469 0x17,0x03, 0x16,0x03, 0x15,0x66, 0x15,0x03, 0x15,0x02,
470 0x17,0x03, 0x16,0x03, 0x15,0x66, 0x15,0x03, 0x15,0x02,
471 0x16,0x03, 0x17,0x03, 0x17,0x04, 0x16,0x66, 0x15,0x03,
472 0x10,0x02, 0x17,0x02, 0x17,0x04, 0x16,0x14, 0x0F,0x17,
473 0x0F,0x03, 0x15,0x66, 0x17,0x03, 0x19,0x66, 0x15,0x03,
474 0x11,0x66, 0x17,0x03, 0x19,0x16, 0x19,0x03, 0x1A,0x66,
475 0x1B,0x03, 0x1F,0x66, 0x1A,0x03, 0x1A,0x04, 0x19,0x00,
476 0x17,0x03, 0x16,0x03, 0x15,0x66, 0x15,0x03, 0x15,0x02,
477 0x17,0x03, 0x16,0x03, 0x15,0x66, 0x15,0x03, 0x15,0x02,
478 0x16,0x03, 0x17,0x03, 0x17,0x04, 0x16,0x66, 0x10,0x03,
479 0x11,0x02, 0x15,0x0D, 0x16,0x03, 0x15,0x00, 0x19,0x02,
480 0x17,0x66, 0x16,0x03, 0x15,0x02, 0x19,0x02, 0x11,0x00,
481 0x10,0x03, 0x11,0x03, 0x10,0x66, 0x11,0x03, 0x10,0x02,
482 0x0F,0x02, 0x17,0x00, 0x19,0x02, 0x17,0x66, 0x16,0x03,
483 0x15,0x02, 0x19,0x02, 0x11,0x00, 0x10,0x03, 0x11,0x03,
484 0x15,0x66, 0x15,0x03, 0x15,0x66, 0x16,0x0E, 0x17,0x04,
485 0x17,0x04, 0x16,0x14, 0x0F,0x03, 0x15,0x66, 0x17,0x03,
486 0x19,0x66, 0x15,0x03, 0x11,0x66, 0x17,0x03, 0x19,0x66,
487 0x19,0x03, 0x1A,0x66, 0x1B,0x03, 0x1F,0x66, 0x1A,0x03,
488 0x1A,0x04, 0x19,0x00, 0x17,0x03, 0x16,0x03, 0x15,0x66,
489 0x15,0x03, 0x15,0x02, 0x17,0x03, 0x16,0x03, 0x15,0x66,
C51 COMPILER V7.50 BEEP 06/19/2008 11:23:16 PAGE 9
490 0x15,0x03, 0x15,0x02, 0x16,0x03, 0x17,0x03, 0x17,0x04,
491 0x16,0x66, 0x10,0x03, 0x11,0x02, 0x15,0x0D, 0x16,0x03,
492 0x16,0x03, 0x15,0x00, 0x17,0x03, 0x16,0x03, 0x15,0x66,
493 0x15,0x03, 0x15,0x02, 0x17,0x03, 0x16,0x03, 0x15,0x66,
494 0x15,0x03, 0x15,0x02, 0x16,0x03, 0x17,0x03, 0x17,0x04,
495 0x16,0x66, 0x10,0x03, 0x11,0x02, 0x15,0x0D, 0x16,0x03,
496 0x16,0x03, 0x15,0x00,0x00,0x00 };
497
498
499 //偏偏喜欢你----陈百祥
500 unsigned char code Music_like[] ={
501 0x15,0x03, 0x10,0x03, 0x19,0x66, 0x1A,0x03, 0x19,0x02,
502 0x16,0x03, 0x15,0x03, 0x17,0x03, 0x16,0x03, 0x15,0x01,
503 0x15,0x03, 0x16,0x03, 0x10,0x66, 0x0F,0x03, 0x19,0x03,
504 0x17,0x03, 0x16,0x03, 0x17,0x03, 0x15,0x00, 0x0F,0x71,
505 0x0D,0x04, 0x15,0x66, 0x17,0x03, 0x16,0x03, 0x15,0x03,
506 0x10,0x0E, 0x0F,0x04, 0x0D,0x03, 0x0F,0x66, 0x10,0x03,
507 0x0F,0x02, 0x10,0x03, 0x0F,0x03, 0x19,0x66, 0x1F,0x03,
508 0x1A,0x03, 0x19,0x03, 0x17,0x0E, 0x16,0x04, 0x15,0x0D,
509 0x16,0x00, 0x16,0x03, 0x15,0x03, 0x19,0x66, 0x1A,0x03,
510 0x19,0x02, 0x1A,0x03, 0x19,0x03, 0x17,0x67, 0x16,0x04,
511 0x15,0x01, 0x15,0x03, 0x16,0x03, 0x10,0x66, 0x0F,0x03,
512 0x19,0x03, 0x17,0x03, 0x16,0x0E, 0x17,0x04, 0x10,0x03,
513 0x0F,0x00, 0x0F,0x67, 0x0D,0x04, 0x15,0x03, 0x10,0x03,
514 0x19,0x66, 0x1A,0x03, 0x19,0x02, 0x16,0x03, 0x15,0x03,
515 0x17,0x03, 0x16,0x03, 0x15,0x01, 0x15,0x03, 0x16,0x03,
516 0x10,0x66, 0x0F,0x03, 0x19,0x03, 0x17,0x03, 0x16,0x03,
517 0x17,0x03, 0x15,0x00, 0x0F,0x71, 0x0D,0x04, 0x15,0x66,
518 0x17,0x03, 0x16,0x03, 0x15,0x03, 0x10,0x0E, 0x0F,0x04,
519 0x0D,0x03, 0x0F,0x66, 0x10,0x03, 0x0F,0x02, 0x10,0x03,
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -