12864nine.lst
来自「就是想下载一些东西啊」· LST 代码 · 共 789 行 · 第 1/3 页
LST
789 行
496 2 {
497 3 delay(10);
498 3 if(key2==0)
499 3 {
500 4 nsg++;
501 4 if(nsg==100)
502 4 nsg=0;
503 4 }
504 3 while(!key2);
505 3 nian=nsg+nqb*100;
506 3 wadnian(1,0,nian);
507 3 pos(1,1);
508 3 }
509 2 }
510 1 if(shu==8)
511 1 {
512 2 if(key2==0)
513 2 {
514 3 delay(10);
515 3 if(key2==0)
516 3 {
517 4 nqb++;
518 4 if(nqb==100)
519 4 nqb=0;
520 4 }
521 3 while(!key2);
522 3 nian=nsg+nqb*100;
523 3 wadnian(1,0,nian);
524 3 pos(1,0);
525 3 WIIC(6,nqb);
526 3 }
527 2 }
528 1 if(shu==1)
529 1 {
530 2 if(key3==0)
531 2 {
532 3 delay(10);
533 3 if(key3==0)
534 3 {
535 4 miao--;
536 4 if(miao==-1)
537 4 miao=59;
538 4 }
539 3 while(!key3);
540 3 wadda(3,5,miao);
541 3 }
542 2 }
543 1 if(shu==2)
544 1 {
545 2 if(key3==0)
C51 COMPILER V7.06 12864NINE 04/21/2009 00:22:18 PAGE 10
546 2 {
547 3 delay(10);
548 3 if(key3==0)
549 3 {
550 4 fen--;
551 4 if(fen==-1)
552 4 fen=59;
553 4 }
554 3 while(!key3);
555 3 wfen(3,3,fen);
556 3 }
557 2 }
558 1 if(shu==3)
559 1 {
560 2 if(key3==0)
561 2 {
562 3 delay(10);
563 3 if(key3==0)
564 3 {
565 4 shi--;
566 4 if(shi==-1)
567 4 shi=23;
568 4 }
569 3 while(!key3);
570 3 wadda(3,2,shi);
571 3 }
572 2 }
573 1 if(shu==4)
574 1 {
575 2 if(key3==0)
576 2 {
577 3 delay(10);
578 3 if(key3==0)
579 3 {
580 4 day--;
581 4 if(day==-1)
582 4 day=6;
583 4 }
584 3 while(!key3);
585 3 pos(1,6);
586 3 wdata(0x20);
587 3 for(i=0;i<3;i++)
588 3 {
589 4 wdata(table3[i+3*day]);
590 4 }
591 3 pos(1,7);
592 3 }
593 2
594 2 }
595 1 if(shu==5)
596 1 {
597 2 if(key3==0)
598 2 {
599 3 delay(10);
600 3 if(key3==0)
601 3 {
602 4 ri--;
603 4 if(ri==-1)
604 4 ri=31;
605 4 }
606 3 while(!key3);
607 3 wadda(1,5,ri);
C51 COMPILER V7.06 12864NINE 04/21/2009 00:22:18 PAGE 11
608 3 }
609 2 }
610 1 if(shu==6)
611 1 {
612 2 if(key3==0)
613 2 {
614 3 delay(10);
615 3 if(key3==0)
616 3 {
617 4 yue--;
618 4 if(yue==-1)
619 4 yue=12;
620 4 }
621 3 while(!key3);
622 3 wadda(1,3,yue);
623 3 }
624 2 }
625 1 if(shu==7)
626 1 {
627 2 if(key3==0)
628 2 {
629 3 delay(10);
630 3 if(key3==0)
631 3 {
632 4 nsg--;
633 4 if(nsg==-1)
634 4 nsg=99;
635 4 }
636 3 while(!key3);
637 3 nian=nsg+nqb*100;
638 3 wadnian(1,0,nian);
639 3 pos(1,1);
640 3 }
641 2 }
642 1 if(shu==8)
643 1 {
644 2 if(key3==0)
645 2 {
646 3 delay(10);
647 3 if(key3==0)
648 3 {
649 4 nqb--;
650 4 if(nqb==-1)
651 4 nqb=99;
652 4 }
653 3 while(!key3);
654 3 nian=nsg+nqb*100;
655 3 wadnian(1,0,nian);
656 3 pos(1,0);
657 3 WIIC(6,nqb);
658 3 }
659 2 }
660 1
661 1 }
662 void main()
663 {
664 1 uchar ysh,yge;
665 1 init();
666 1 in();
667 1 kaiguan=0;// 蜂鸣器控制
668 1 num=0;
669 1 pos(4,0);
C51 COMPILER V7.06 12864NINE 04/21/2009 00:22:18 PAGE 12
670 1 while(table4[num]!='\0')
671 1 {
672 2 wdata(table4[num]);
673 2 num++;
674 2 }
675 1 nmiao=RIIC(3);
676 1 nfen=RIIC(4);
677 1 nshi=RIIC(5);
678 1 nqb=RIIC(6);
679 1 ///initds();
680 1 while(1)
681 1 {
682 2 keyscan();
683 2 if(flag==0)
684 2 {
685 3 gettime();
686 3
687 3 transform(0,year_c,month_c,day_c);
688 3 year_l=2000+year_l-1864;
689 3 year_l=2000+year_l-1864;
690 3 ysh=year_l%10;
691 3 yge=year_l%12;
692 3 pos(2,0);
693 3 for(i=0;i<2;i++)
694 3 {
695 4 wdata(dis1[ysh*2+i]);
696 4 }
697 3 for(i=0;i<2;i++)
698 3 {
699 4 wdata(dis2[yge*2+i]);
700 4 }
701 3 i=0;
702 3 while(dis3[month_l][i]!='\0')
703 3 {
704 4 wdata(dis3[month_l][i]);
705 4 i++;
706 4 }
707 3 i=0;
708 3 while(dis4[day_l][i]!='\0')
709 3 {
710 4 wdata(dis4[day_l][i]);
711 4 i++;
712 4 }
713 3
714 3 if(shi==nshi)
715 3 {
716 4 if(fen==nfen)
717 4 {
718 5 if(miao==nmiao)
719 5 flag1=1;
720 5 }
721 4 }
722 3 if(flag1==1)
723 3 {
724 4 didi();
725 4 wsfm(4,2,nshi,nfen,nmiao);
726 4 }
727 3 wsfm(3,2,shi,fen,miao);//写时分秒
728 3 wnyr(nian,yue,ri);//写年月日
729 3 }
730 2
731 2
C51 COMPILER V7.06 12864NINE 04/21/2009 00:22:18 PAGE 13
732 2 }
733 1
734 1
735 1 }
MODULE INFORMATION: STATIC OVERLAYABLE
CODE SIZE = 3982 ----
CONSTANT SIZE = 1045 ----
XDATA SIZE = ---- ----
PDATA SIZE = ---- ----
DATA SIZE = 56 38
IDATA SIZE = ---- ----
BIT SIZE = 1 3
END OF MODULE INFORMATION.
C51 COMPILATION COMPLETE. 1 WARNING(S), 0 ERROR(S)
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?