Thông báo

Collapse
No announcement yet.

đổ chương trình keil c cho 89s52

Collapse
X
 
  • Lọc
  • Giờ
  • Show
Clear All
new posts

  • đổ chương trình keil c cho 89s52

    Cho hỏi là tại sao khi ta đỏ chương trình cho keil c (file hex dung lượng 30kb) nó không báo tràn bộ nhớ nhưng mà bỏ ic 89s52 vào lại không chạy??? Nhưng dung lượng file hex khoảng 20kb thì chạy

  • #2
    moi nguoi xem giup
    Last edited by quangbuu; 08-07-2012, 20:08.

    Comment


    • #3
      #include <REGX52.H>
      #include<stdlib.h>
      unsigned int i,j,k,n;


      sbit d25 = P0^7;
      sbit d24 = P2^0;
      sbit d23 = P2^1;
      sbit d22 = P2^2;
      sbit d21 = P2^3;
      sbit d20 = P2^4;
      sbit d19 = P2^5;
      sbit d18 = P2^6;
      sbit d17 = P2^7;
      sbit d16 = P3^7;
      sbit d15 = P3^6;
      sbit d14 = P3^5;
      sbit d13 = P3^4;
      sbit d12 = P3^3;
      sbit d11 = P3^2;
      sbit d10 = P3^1;
      sbit d9 = P3^0;
      sbit d8 = P1^0;
      sbit d7 = P1^1;
      sbit d6 = P1^2;
      sbit d5 = P1^3;
      sbit d4 = P1^4;
      sbit d3 = P1^5;
      sbit d2 = P1^6;
      sbit d1 = P1^7;
      sbit c1 = P0^4;
      sbit c2 = P0^3;
      sbit c3 = P0^2;
      sbit c4 = P0^1;
      sbit c5 = P0^0;
      //================================================== =========
      void delay(unsigned int time)
      {
      while(time--)

      {
      unsigned char j = 125;
      while(j--) ;
      }
      }
      //================================================== =========
      void xoa()
      {
      P1=P2=P3=P0=0xff;
      }

      //================================================== =========

      /*// chu B
      void CHUB(unsigned char ms,unsigned char n)
      {
      xoa();
      for(i=0;i<n;i++)
      {
      //1
      for(k=0;k<ms;k++)
      {c1=0;d1=d2=d3=d4=0;delay(3);xoa();
      c2=0;d1=d5=0;delay(3);xoa();
      c3=0;d1=d2=d3=d4=0;delay(3);xoa();
      c4=0;d1=d5=0;delay(3);xoa();
      c5=0;d1=d2=d3=d4=0;delay(3);xoa();
      }

      //2
      for(k=0;k<ms;k++)
      {c1=0;d7=d8=d9=d10=0;delay(3);xoa();
      c2=0;d10=d6=0;delay(3);xoa();
      c3=0;d7=d8=d9=d10=0;delay(3);xoa();
      c4=0;d10=d6=0;delay(3);xoa();
      c5=0;d7=d8=d9=d10=0;delay(3);xoa();
      }

      //3
      for(k=0;k<ms;k++)
      {c1=0;d11=d12=d13=d14=0;delay(3);xoa();
      c2=0;d11=d15=0;delay(3);xoa();
      c3=0;d11=d12=d13=d14=0;delay(3);xoa();
      c4=0;d11=d15=0;delay(3);xoa();
      c5=0;d11=d12=d13=d14=0;delay(3);xoa();
      }

      //4
      for(k=0;k<ms;k++)
      {c1=0;d20=d17=d18=d19=0;delay(3);xoa();
      c2=0;d16=d20=0;delay(3);xoa();
      c3=0;d20=d17=d18=d19=0;delay(3);xoa();
      c4=0;d16=d20=0;delay(3);xoa();
      c5=0;d20=d17=d18=d19=0;delay(3);xoa();
      }

      //5
      for(k=0;k<ms;k++)
      {c1=0;d21=d22=d23=d24=0;delay(3);xoa();
      c2=0;d21=d25=0;delay(3);xoa();
      c3=0;d21=d22=d23=d24=0;delay(3);xoa();
      c4=0;d25=d21=0;delay(3);xoa();
      c5=0;d21=d22=d23=d24=0;delay(3);xoa();
      }
      }}
      // chu F
      void CHUF(unsigned char ms,unsigned char n)
      {
      xoa();
      for(i=0;i<n;i++)
      {
      //1
      for(k=0;k<ms;k++)
      {c1=0;d1=0;delay(3);xoa();
      c2=0;d1=0;delay(3);xoa();
      c3=0;d1=d2=d3=d4=0;delay(3);xoa();
      c4=0;d1=0;delay(3);xoa();
      c5=0;d1=d2=d3=d4=d5=0;delay(3);xoa();
      }


      //2
      for(k=0;k<ms;k++)
      { c1=0;d10=0;delay(3);xoa();
      c2=0;d10=0;delay(3);xoa();
      c3=0;d7=d8=d9=d10=0;delay(3);xoa();
      c4=0;d10=0;delay(3);xoa();
      c5=0;d6=d7=d8=d9=d10=0;delay(3);xoa();
      }

      //3

      for(k=0;k<ms;k++)
      {
      c1=0;d11=0;delay(3);xoa();
      c2=0;d11=0;delay(3);xoa();
      c3=0;d11=d12=d13=d14=0;delay(3);xoa();
      c4=0;d11=0;delay(3);xoa();
      c5=0;d11=d12=d13=d14=d15=0;delay(3);xoa();
      }

      //4
      {c1=0;d20=0;delay(3);xoa();
      c2=0;d20=0;delay(3);xoa();
      c3=0;d17=d18=d19=d20=0;delay(3);xoa();
      c4=0;d20=0;delay(3);xoa();
      c5=0;d16=d17=d18=d19=d20=0;delay(3);xoa();
      }

      //5
      for(k=0;k<ms;k++)
      {c1=0;d21=0;delay(3);xoa();
      c2=0;d21=0;delay(3);xoa();
      c3=0;d21=d22=d23=d24=0;delay(3);xoa();
      c4=0;d21=0;delay(3);xoa();
      c5=0;d21=d22=d23=d24=d25=0; delay(3);xoa();
      }
      }} */
      //HIEU UNG LEN XUONG
      void LENXUONG(unsigned char ms,unsigned char n)
      {P0=0xff;
      for(i=0;i<n;i++)
      {

      {d1=0;d2=0;d3=0;d4=0;
      d5=0;d6=0;d7=0;
      d8=0;d9=0;d10=0;
      d11=0;d12=0;d13=0;d14=0;d15=0;d16=0;d17=0;d18=0;d1 9=d20=d21=d22=d23=d24=d25=0;}
      c1=0;delay(ms);c2=0;delay(ms);c3=0;delay(ms);c4=0; delay(ms);c5=0;delay(ms);xoa();

      d1=0;d2=0;d3=0;d4=0;
      d5=0;d6=0;d7=0;
      d8=0;d9=0;d10=0;
      d11=0;d12=0;d13=0;d14=0;d15=0;d16=0;d17=0;d18=0;d1 9=d20=d21=d22=d23=d24=d25=0;

      c5=0;delay(ms);c4=0;delay(ms);c3=0;delay(ms);c2=0; delay(ms);c1=0;delay(ms);

      }}
      //HIEU UN BUNG RA
      void BUNGRA(unsigned char ms,unsigned char n)
      {P1=P2=P3=0xff;
      for(i=0;i<n;i++)
      {
      c1=c2=c3=c4=c5=0;d13=0;delay(ms);xoa();
      c1=c2=c3=c4=c5=0;{d9=0;d8=0;d7=0;d14=0;d18=0;
      d17=0;d19=0;d12=0;}delay(ms);xoa();
      c1=c2=c3=c4=c5=0; {d1=0;d2=0;d3=0;d4=0;d5=0;d6=0;d15=0;d16=0;d25=0;
      d24=d23=d21=d20=d11=d10=d22=0;}delay(ms);xoa();
      }}
      // hieu ung chay vong
      void chayvong(unsigned char ms,unsigned char n)
      {xoa();
      for(i=0;i<n;i++)
      {
      {c1=c2=c3=c4=c5=0;
      d21=0;delay(ms);
      d20=0;delay(ms);d11=0;delay(ms);d10=0;delay(ms);
      d1=0;delay(ms);d2=0;delay(ms);
      d3=0;delay(ms);d4=0;delay(ms);d5=0;delay(ms);d6=0; delay(ms);d15=0;delay(ms);
      d16=0;d25=0;delay(ms);d24=0;delay(ms);d23=0;delay( ms);d22=0;delay(ms);d19=0;delay(ms);
      d12=0;delay(ms);d9=0;delay(ms);d8=0;delay(ms);d7=0 ;delay(ms);d14=0;delay(ms);
      d17=0;delay(ms);d18=0;delay(ms);d13=0;delay(ms);
      }xoa();
      }
      }

      void trongrangoai(unsigned char ms,unsigned char n)
      {xoa();
      for(i=0;i<n;i++)
      {

      c1=c2=c3=c4=c5=0;d13=0;delay(ms);
      c1=c2=c3=c4=c5=0;d18=0;delay(ms);
      c1=c2=c3=c4=c5=0;d17=0;delay(ms);
      c1=c2=c3=c4=c5=0;d14=0;delay(ms);
      c1=c2=c3=c4=c5=0;d7=0;delay(ms);
      c1=c2=c3=c4=c5=0;d8=0;delay(ms);
      c1=c2=c3=c4=c5=0;d9=0;delay(ms);
      c1=c2=c3=c4=c5=0;d12=0;delay(ms);
      c1=c2=c3=c4=c5=0;d19=0;delay(ms);
      c1=c2=c3=c4=c5=0;d22=0;delay(ms);
      c1=c2=c3=c4=c5=0;d23=0;delay(ms);
      c1=c2=c3=c4=c5=0;d24=0;delay(ms);
      c1=c2=c3=c4=c5=0;d25=0;delay(ms);
      c1=c2=c3=c4=c5=0;d16=0;delay(ms);
      c1=c2=c3=c4=c5=0;d15=0;delay(ms);
      c1=c2=c3=c4=c5=0;d6=0;delay(ms);
      c1=c2=c3=c4=c5=0;d5=0;delay(ms);
      c1=c2=c3=c4=c5=0;d4=0;delay(ms);
      c1=c2=c3=c4=c5=0;d3=0;delay(ms);
      c1=c2=c3=c4=c5=0;d2=0;delay(ms);
      c1=c2=c3=c4=c5=0;d1=0;delay(ms);
      c1=c2=c3=c4=c5=0;d10=0;delay(ms);
      c1=c2=c3=c4=c5=0;d11=0;delay(ms);
      c1=c2=c3=c4=c5=0;d20=0;delay(ms);
      c1=c2=c3=c4=c5=0;d21=0;delay(ms);
      }xoa();
      }


      //HIEU UNG SONG NGANG
      void SONGNGANG(unsigned char ms,unsigned char n)
      {
      P0=0xff;
      for(i=0;i<n;i++)
      {
      //1
      for(k=0;k<ms;k++)
      {
      c1=0;d1=d10=d11=d20=d21=0;delay(3);xoa();
      c2=0;d2=d9=d12=d19=d22=0;delay(3);xoa();
      c3=0;d3=d8=d13=d18=d23=0;delay(3);xoa();
      c4=0;d4=d7=d14=d17=d24=0;delay(3);xoa();
      c5=0;d5=d6=d15=d25=d16=0;delay(3);xoa();
      }
      xoa();
      //2
      for(k=0;k<ms;k++)
      {c2=0;d1=d10=d11=d20=d21=0;delay(3);xoa();
      c3=0;d2=d9=d12=d19=d22=0;delay(3);xoa();
      c4=0;d3=d8=d13=d18=d23=0;delay(3);xoa();
      c5=0;d4=d7=d14=d17=d24=0;delay(3);xoa();
      c4=0;d5=d6=d15=d16=d25=0;delay(3);xoa();
      }
      xoa();
      //3
      for(k=0;k<ms;k++)
      {c3=0;d1=d10=d11=d20=d21=0;delay(3);xoa();
      c4=0;d2=d9=d12=d19=d22=0;delay(3);xoa();
      c5=0;d3=d8=d13=d18=d23=0;delay(3);xoa();
      c4=0;d4=d7=d14=d17=d24=0;delay(3);xoa();
      c3=0;d5=d6=d15=d16=d25=0;delay(3);xoa();
      }
      xoa();

      //4
      for(k=0;k<ms;k++)
      {c4=0;d1=d10=d11=d20=d21=0;delay(3);xoa();
      c5=0;d2=d9=d12=d19=d22=0;delay(3);xoa();
      c4=0;d3=d8=d13=d18=d23=0;delay(3);xoa();
      c3=0;d4=d7=d14=d17=d24=0;delay(3);xoa();
      c2=0;d5=d6=d15=d16=d25=0;delay(3);xoa();
      }
      xoa();
      //5
      for(k=0;k<ms;k++)
      {c5=0;d1=d10=d11=d20=d21=0;delay(3);xoa();
      c4=0;d2=d9=d12=d19=d22=0;delay(3);xoa();
      c3=0;d3=d8=d13=d18=d23=0;delay(3);xoa();
      c2=0;d4=d7=d14=d17=d24=0;delay(3);xoa();
      c1=0;d5=d6=d15=d16=d25=0;delay(3);xoa();
      }
      xoa();
      }}

      //HIEU UNG SONG DOC
      void SONGDOC(unsigned char ms,unsigned char n)
      {
      xoa();
      for(i=0;i<n;i++)
      {
      for(k=0;k<ms;k++)
      {
      c1=c2=c3=c4=c5=0;d1=d9=d13=d17=d25=0;delay(3);xoa( );
      }
      for(k=0;k<ms;k++)
      {
      c1=c2=c3=c4=c5=0;d10=d12=d18=d24=d16=0;delay(3);xo a();
      }
      for(k=0;k<ms;k++)
      {
      c1=c2=c3=c4=c5=0;d11=d19=d23=d17=d15=0;delay(3);xo a();
      }
      for(k=0;k<ms;k++)
      {
      c1=c2=c3=c4=c5=0;d20=d22=d18=d14=d6=0;delay(3);xoa ();
      }
      for(k=0;k<ms;k++)
      {
      c1=c2=c3=c4=c5=0;d21=d19=d13=d7=d5=0;delay(3);xoa( );
      }
      for(k=0;k<ms;k++)
      {
      c1=c2=c3=c4=c5=0;d21=d19=d13=d7=d5=0;delay(3);xoa( );
      }
      for(k=0;k<ms;k++)
      {
      c1=c2=c3=c4=c5=0;d20=d22=d18=d14=d6=0;delay(3);xoa ();
      }
      for(k=0;k<ms;k++)
      {
      c1=c2=c3=c4=c5=0;d11=d19=d23=d17=d15=0;delay(3);xo a();
      }
      for(k=0;k<ms;k++)
      {
      c1=c2=c3=c4=c5=0;d10=d12=d18=d24=d16=0;delay(3);xo a();
      }
      for(k=0;k<ms;k++)
      {
      c1=c2=c3=c4=c5=0;d1=d9=d13=d17=d25=0;delay(3);xoa( );
      }
      }}

      //HIEU UNG SONG DUNG
      void SONGDUNG(unsigned char ms,unsigned char n)
      {
      xoa();
      for(i=0;i<n;i++)
      {
      {c1=c2=c3=c4=c5=0;d21=d19=d13=d7=d5=0;delay(ms);xo a();
      c1=c2=c3=c4=c5=0;d22=d18=d14=d6=d4=0;delay(ms);xoa ();
      c1=c2=c3=c4=c5=0;d23=d17=d15=d7=d3=0;delay(ms);xoa ();
      c1=c2=c3=c4=c5=0;d24=d16=d14=d8=d2=0;delay(ms);xoa ();
      c1=c2=c3=c4=c5=0;d1=d9=d13=d17=d25=0;delay(ms);xoa ();
      }
      xoa();
      {
      c1=c2=c3=c4=c5=0;d1=d9=d13=d17=d25=0;delay(ms);xoa ();
      c1=c2=c3=c4=c5=0;d24=d16=d14=d8=d2=0;delay(ms);xoa ();
      c1=c2=c3=c4=c5=0;d23=d17=d15=d7=d3=0;delay(ms);xoa ();
      c1=c2=c3=c4=c5=0;d22=d18=d14=d6=d4=0;delay(ms);xoa ();
      c1=c2=c3=c4=c5=0;d21=d19=d13=d7=d5=0;delay(ms);xoa ();
      }
      xoa();
      }}

      //HIEU UNG KHOI VUONG
      void KHOIVUONG(unsigned char ms,unsigned char n)
      {
      xoa();
      for(i=0;i<n;i++)
      {
      //1
      {{c1=0;d1=d2=d3=d4=d5=d6=d15=d16=d25=d24=d23=d22=d 21=d20=d11=d10=0;
      d7=d8=d9=d12=d17=d18=d19=d14=0;};delay(ms);xoa();
      c2=0;d1=d5=d21=d25=d7=d8=d9=d12=d17=d18=d19=d14=0; delay(ms);xoa();
      c3=0;d1=d5=d21=d25=d7=d8=d9=d12=d17=d18=d19=d14=0; delay(ms);xoa();
      c4=0;d1=d5=d21=d25=d7=d8=d9=d12=d17=d18=d19=d14=0; delay(ms);xoa();
      c5=0;{d1=d2=d3=d4=d5=d6=d15=d16=d25=d24=d23=d22=d2 1=d20=d11=d10=0;
      d7=d8=d9=d12=d17=d18=d19=d14=0;};delay(ms);xoa();
      }
      xoa();
      }}
      //HIEU UNG XOAY DOC
      void XOAYDOC(unsigned char ms,unsigned char n)
      {
      xoa();
      for(i=0;i<n;i++)
      {
      {c1=c2=c3=c4=c5=0;d1=d9=d13=d17=d25=0;delay(ms);xo a();
      c1=c2=c3=c4=c5=0;d11=d12=d13=d14=d15=0;delay(ms);x oa();
      c1=c2=c3=c4=c5=0;d5=d7=d13=d19=d21=0;delay(ms);xoa ();
      c1=c2=c3=c4=c5=0;d3=d8=d13=d18=d23=0;delay(ms);xoa ();
      c1=c2=c3=c4=c5=0;d1=d9=d13=d17=d25=0;delay(ms);xoa ();
      c1=c2=c3=c4=c5=0;d11=d12=d13=d14=d15=0;delay(ms);x oa();
      c1=c2=c3=c4=c5=0;d5=d7=d13=d19=d21=0;delay(ms);xoa ();
      c1=c2=c3=c4=c5=0;d3=d8=d13=d18=d23=0;delay(ms);xoa ();
      }
      xoa();
      }}
      //HIEU UNG NHAY
      void NHAY(unsigned char ms,unsigned char n)
      {
      xoa();
      for(i=0;i<n;i++)
      {
      {
      d1=0;d2=0;d3=0;d4=0;d5=0;d6=0;d7=0;d8=0;d9=0;d10=0 ;d11=0;d12=0;
      d13=0;d14=0;d15=0;d16=0;d17=0;d18=0;d19=0;d20=0;d2 1=0;
      d22=0;d23=0;d24=0;d25=0;}
      c1=c2=c3=c4=c5=0;delay(ms);xoa();
      c1=c2=c3=c4=c5=0;delay(ms);xoa();
      }}
      // HIEU UNG XOAY NGANG
      void XOAYNGANG(unsigned char ms,unsigned char n)
      {
      xoa();
      for(i=0;i<n;i++)
      {
      //1
      for(k=0;k<ms;k++)
      {
      {c3=0;d1=d2=d3=d4=d5=d6=d7=d8=d9=d10=d11=d12=d13=d 14=d15=d16=d17=0;
      d18=d19=d20=d21=d22=d23=d24=d25=0;}delay(5);xoa();
      }xoa();
      //2
      for(k=0;k<ms;k++)
      {c1=0;d5=d6=d15=d16=d25=0;delay(3);xoa();
      c2=0;d4=d7=d14=d17=d24=0;delay(3);xoa();
      c3=0;d3=d8=d13=d18=d23=0;delay(3);xoa();
      c4=0;d2=d9=d12=d19=d22=0;delay(3);xoa();
      c5=0;d1=d10=d11=d20=d21=0;delay(3);xoa();
      }
      //3
      for(k=0;k<ms;k++)
      {
      c1=c2=c3=c4=c5=0;d3=d8=d13=d18=d23=0;delay(3);xoa( );
      }
      //4
      for(k=0;k<ms;k++)
      {c5=0;d5=d6=d15=d16=d25=0;delay(3);xoa();
      c4=0;d4=d7=d14=d17=d24=0;delay(3);xoa();
      c3=0;d3=d8=d13=d18=d23=0;delay(3);xoa();
      c2=0;d2=d9=d12=d19=d22=0; delay(3);xoa();
      c1=0;d1=d10=d11=d20=d21=0;delay(3);xoa();
      }
      //5
      for(k=0;k<ms;k++)
      {c3=0;d1=d2=d3=d4=d5=d6=d7=d8=d9=d10=d11=d12=d13=d 14=d15=d16=d17=0;
      d18=d19=d20=d21=d22=d23=d24=d25=0;}delay(3);xoa();
      //6
      for(k=0;k<ms;k++)
      {c1=0;d5=d6=d15=d16=d25=0;delay(3);xoa();
      c2=0;d4=d7=d14=d17=d24=0;delay(3);xoa();
      c3=0;d3=d8=d13=d18=d23=0;delay(3);xoa();
      c4=0;d2=d9=d12=d19=d22=0;delay(3);xoa();
      c5=0;d1=d10=d11=d20=d21=0;delay(3);xoa();
      }
      //7
      for(k=0;k<ms;k++)
      {
      c1=c2=c3=c4=c5=0;d3=d8=d13=d18=d23=0;delay(3);xoa( );
      }
      //8
      for(k=0;k<ms;k++)
      {c5=0;d5=d6=d15=d16=d25=0;delay(3);xoa();
      c4=0;d4=d7=d14=d17=d24=0;delay(3);xoa();
      c3=0;d3=d8=d13=d18=d23=0;delay(3);xoa();
      c2=0;d2=d9=d12=d19=d22=0;delay(3);xoa();
      c1=0;d1=d10=d11=d20=d21=0;delay(3);xoa();
      }
      }xoa();
      }
      void sang(unsigned char ms,unsigned char n)
      {xoa();
      for(i=0;i<n;i++)
      {
      c1=c2=c3=c4=c5=0;
      d1=d2=d3=d4=d5=d6=d7=d8=d9=d10=d11=d12=d13=d14=d15 =d16=d17=d18=d19=d20=d21=d22=d23=d24=d25=0;delay(m s);
      }
      xoa();
      }

      void bungvuong(unsigned char ms,unsigned char n)
      {P0=0xff;
      for(i=0;i<n;i++)
      {
      c1=0;d21=0;delay(ms);
      c1=c2=0;d19=d20=d21=d22=0;delay(ms);
      c1=c2=c3=0;d11=d12=d13=d18=d19=d20=d21=d22=d3=0;de lay(ms);
      c1=c2=c3=c4=0;d7=d8=d9=d10=d11=d12=d13=d14=d17=d18 =d19=d20=d21=d22=d23=d24=0;delay(ms);
      c1=c2=c3=c4=c5=0;d1=d2=d3=d4=d5=d6=d7=d8=d9=d10=d1 1=d12=d13=d14=d15=d16=d17=d18=d19=d20=d21=d22=d23= d24=d25=0;delay(ms);
      }xoa();
      for(i=0;i<n;i++)
      {
      c1=0;d1=0;delay(ms);
      c1=0;d1=d2=d9=d10=0;delay(ms);
      c1=c2=c3=0;d1=d2=d3=d8=d9=d10=d11=d12=d13=0;delay( ms);
      c1=c2=c3=c4=0;d1=d2=d3=d4=d7=d8=d9=d10=d11=d12=d13 =d14=d17=d18=d19=d20=0;delay(ms);
      c1=c2=c3=c4=c5=0;d1=d2=d3=d4=d5=d6=d7=d8=d9=d10=d1 1=d12=d13=d14=d15=d16=d17=d18=d19=d20=d21=d22=d23= d24=d25=0;delay(ms);
      }
      xoa();
      for(i=0;i<n;i++)
      {
      c1=0;d5=0;delay(ms);
      c1=c2=0;d4=d5=d6=d7=0;delay(ms);
      c1=c2=c3=0;d3=d4=d5=d6=d7=d8=d13=d14=d15=0;delay(m s);
      c1=c2=c3=c4=0;d2=d3=d4=d5=d6=d7=d8=d9=d12=d13=d14= d15=d16=d17=d18=d19=0;delay(ms);
      c1=c2=c3=c4=c5=0;d1=d2=d3=d4=d5=d6=d7=d8=d9=d10=d1 1=d12=d13=d14=d15=d16=d17=d18=d19=d20=d21=d22=d23= d24=d25=0;delay(ms);
      }xoa();
      for(i=0;i<n;i++)
      {
      c1=0;d25=0;delay(ms);
      c1=c2=0;d16=d17=d24=d25=0;delay(ms);
      c1=c2=c3=0;d13=d14=d15=d16=d17=d18=d23=d24=d25=0;d elay(ms);
      c1=c2=c3=c4=0;d6=d7=d8=d9=d12=d13=d14=d15=d16=d17= d18=d19=d22=d23=d24=d25=0;delay(ms);
      c1=c2=c3=c4=c5=0;d1=d2=d3=d4=d5=d6=d7=d8=d9=d10=d1 1=d12=d13=d14=d15=d16=d17=d18=d19=d20=d21=d22=d23= d24=d25=0;delay(ms);
      }
      xoa();
      }
      //XEP VAO
      void xep(unsigned char ms,unsigned char n)
      {xoa();
      for(i=0;i<n;i++)
      {
      {c1=c2=c3=c4=c5=0;
      {
      d1=d2=d3=d4=d5=0;
      d22=d23=d24=d25=0;}delay(ms);
      {
      d16=d17=d18=d19=d20=0;
      d6=d7=d8=d9=d10=0;}delay(ms);
      d11=d12=d13=d14=d15=0;delay(ms);
      }xoa();
      {
      c1=c2=c3=c4=c5=0;d3=d8=d13=d18=d23=0;delay(ms);
      {
      d2=d9=d12=d19=d22=0;
      d4=d7=d14=d17=d24=0;}delay(ms);
      {
      d1=d10=d11=d20=d21=0;
      d5=d6=d15=d16=d25=0;}delay(ms);
      }xoa();
      }xoa();
      }
      //DON SONG
      void don(unsigned char ms,unsigned char n)
      {xoa();
      for(i=0;i<n;i++)
      {c1=c2=c3=c4=c5=0;
      d1=d10=d11=d20=d21=0;delay(ms);
      d2=d9=d12=d19=d22=0;delay(ms);
      d3=d8=d13=d18=d23=0;delay(ms);
      d4=d7=d14=d17=d24=0;delay(ms);
      d5=d6=d15=d16=d25=0;delay(ms);

      }xoa();

      for(i=0;i<n;i++)
      {c1=c2=c3=c4=c5=0;
      d1=d2=d3=d4=d5=0;delay(ms);
      d6=d7=d8=d9=d10=0;delay(ms);
      d11=d12=d13=d14=d15=0;delay(ms);
      d16=d17=d18=d19=d20=0;delay(ms);
      d21=d22=d23=d24=d25=0;delay(ms);
      }xoa();

      for(i=0;i<n;i++)
      { P0=0xff;
      d1=d2=d3=d4=d5=d6=d7=d8=d9=d10=d11=d12=d13=d14=d15 =d16=d17=d18=d19=d20=d21=d22=d23=d24=d25=0;
      {c1=0;delay(ms);
      c2=0;delay(ms);
      c3=0;delay(ms);
      c4=0;delay(ms);
      c5=0;delay(ms);}
      }xoa();
      }
      /*
      //CHU D XOAY

      void CHUDXOAY(unsigned char ms,unsigned char n)
      {xoa();
      for(i=0;i<n;i++)
      {
      //1
      for(k=0;k<ms;k++)
      {c1=0;d1=d2=d3=d4=0;delay(3);xoa();
      c2=0;d1=d5=0;delay(3);xoa();
      c3=0;d1=d5=0;delay(3);xoa();
      c4=0;d1=d5=0;delay(3);xoa();
      c5=0;d1=d2=d3=d4=0;delay(3);xoa();
      }
      //2
      for(k=0;k<ms;k++)
      {c1=0;d7=d8=d9=d10=0;delay(3);xoa();
      c2=0;d10=d6=0;delay(3);xoa();
      c3=0;d10=d6=0;delay(3);xoa();
      c4=0;d10=d6=0;delay(3);xoa();
      c5=0;d7=d8=d9=d10=0;delay(3);xoa();
      }

      //3 XOAY
      for(k=0;k<ms;k++)
      {c1=0;d11=d12=d13=d14=0;delay(3);xoa();
      c2=0;d11=d15=0;delay(3);xoa();
      c3=0;d11=d15=0;delay(3);xoa();
      c4=0;d11=d15=0;delay(3);xoa();
      c5=0;d11=d12=d13=d14=0;delay(3);xoa();
      }
      /*
      for(k=0;k<ms;k++)
      {c1=0;d7=d13=d19=d21=0;delay(3);xoa();
      c2=0;d5=d21=0;delay(3);xoa();
      c3=0;d5=d21=0;delay(3);xoa();
      c4=0;d5=d21=0;delay(3);xoa();
      c5=0;d7=d13=d19=d21=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {c1=0;d8=d13=d18=d23=0;delay(3);xoa();
      c2=0;d3=d23=0;delay(3);xoa();
      c3=0;d3=d23=0;delay(3);xoa();
      c4=0;d3=d23=0;delay(3);xoa();
      c5=0;d8=d13=d18=d23=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {c1=0;d9=d13=d17=d25=0;delay(3);xoa();
      c2=0;d1=d25=0;delay(3);xoa();
      c3=0;d1=d25=0;delay(3);xoa();
      c4=0;d1=d25=0;delay(3);xoa();
      c5=0;d9=d13=d17=d25=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {c1=0;d11=d12=d13=d14=0;delay(3);xoa();
      c2=0;d11=d15=0;delay(3);xoa();
      c3=0;d11=d15=0;delay(3);xoa();
      c4=0;d11=d15=0;delay(3);xoa();
      c5=0;d11=d12=d13=d14=0;delay(3);xoa();
      }
      //4
      for(k=0;k<ms;k++)
      {c1=0;d17=d18=d19=d20=0;delay(3);xoa();
      c2=0;d16=d20=0;delay(3);xoa();
      c3=0;d16=d20=0;delay(3);xoa();
      c4=0;d16=d20=0;delay(3);xoa();
      c5=0;d17=d18=d19=d20=0;delay(3);xoa();
      }
      //5
      for(k=0;k<ms;k++)
      {c1=0;d21=d22=d23=d24=0;delay(3);xoa();
      c2=0;d21=d25=0;delay(3);xoa();
      c3=0;d21=d25=0;delay(3);xoa();
      c4=0;d21=d25=0;delay(3);xoa();
      c5=0;d21=d22=d23=d24=0;delay(3);xoa();
      }
      }}
      /*
      //CHU A XOAY

      void CHUAXOAY(unsigned char ms,unsigned char n)
      {xoa();
      for(i=0;i<n;i++)
      {
      //1
      for(k=0;k<ms;k++)
      {c1=0;d1=d5=0;delay(3);xoa();
      c2=0;d1=d5=0;delay(3);xoa();
      c3=0;d1=d2=d3=d4=d5=0;delay(3);xoa();
      c4=0;d2=d4=0;delay(3);xoa();
      c5=0;d3=0;delay(3);xoa();
      }
      //2
      for(k=0;k<ms;k++)
      {c1=0;d6=d10=0;delay(3);xoa();
      c2=0;d10=d6=0;delay(3);xoa();
      c3=0;d10=d9=d8=d7=d6=0;delay(3);xoa();
      c4=0;d7=d9=0;delay(3);xoa();
      c5=0;d8=0;delay(3);xoa();
      }

      //3 XOAY
      for(k=0;k<ms;k++)
      {c1=0;d11=d15=0;delay(3);xoa();
      c2=0;d11=d15=0;delay(3);xoa();
      c3=0;d11=d12=d13=d14=d15=0;delay(3);xoa();
      c4=0;d12=d14=0;delay(3);xoa();
      c5=0;d13=0;delay(3);xoa();
      }
      /*
      for(k=0;k<ms;k++)
      {c1=0;d5=d21=0;delay(3);xoa();
      c2=0;d5=d21=0;delay(3);xoa();
      c3=0;d5=d7=d13=d19=d21=0;delay(3);xoa();
      c4=0;d7=d19=0;delay(3);xoa();
      c5=0;d13=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {c1=0;d3=d23=0;delay(3);xoa();
      c2=0;d3=d23=0;delay(3);xoa();
      c3=0;d3=d8=d13=d18=d23=0;delay(3);xoa();
      c4=0;d8=d18=0;delay(3);xoa();
      c5=0;d13=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {c1=0;d1=d25=0;delay(3);xoa();
      c2=0;d1=d25=0;delay(3);xoa();
      c3=0;d1=d9=d13=d17=d25=0;delay(3);xoa();
      c4=0;d9=d17=0;delay(3);xoa();
      c5=0;d13=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {c1=0;d11=d15=0;delay(3);xoa();
      c2=0;d11=d15=0;delay(3);xoa();
      c3=0;d11=d12=d13=d14=d15=0;delay(3);xoa();
      c4=0;d12=d14=0;delay(3);xoa();
      c5=0;d13=0;delay(3);xoa();
      }
      //4
      for(k=0;k<ms;k++)
      {c1=0;d16=d20=0;delay(3);xoa();
      c2=0;d16=d20=0;delay(3);xoa();
      c3=0;d16=d17=d18=d19=d20=0;delay(3);xoa();
      c4=0;d17=d19=0;delay(3);xoa();
      c5=0;d18=0;delay(3);xoa();
      }
      //5
      for(k=0;k<ms;k++)
      {c1=0;d21=d25=0;delay(3);xoa();
      c2=0;d21=d25=0;delay(3);xoa();
      c3=0;d21=d22=d23=d24=d25=0;delay(3);xoa();
      c4=0;d22=d24=0;delay(3);xoa();
      c5=0;d23=0;delay(3);xoa();
      }
      }}

      //CHU N XOAY

      void CHUNXOAY(unsigned char ms,unsigned char n)
      {xoa();
      for(i=0;i<n;i++)
      {
      //1
      for(k=0;k<ms;k++)
      {c1=0;d1=d5=0;delay(3);xoa();
      c2=0;d1=d4=d5=0;delay(3);xoa();
      c3=0;d1=d3=d5=0;delay(3);xoa();
      c4=0;d1=d2=d5=0;delay(3);xoa();
      c5=0;d1=d5=0;delay(3);xoa();
      }
      //2
      for(k=0;k<ms;k++)
      {c1=0;d6=d10=0;delay(3);xoa();
      c2=0;d6=d9=d10=0;delay(3);xoa();
      c3=0;d6=d8=d10=0;delay(3);xoa();
      c4=0;d6=d7=d10=0;delay(3);xoa();
      c5=0;d6=d10=0;delay(3);xoa();
      }

      //3 XOAY
      for(k=0;k<ms;k++)
      {c1=0;d11=d15=0;delay(3);xoa();
      c2=0;d11=d14=d15=0;delay(3);xoa();
      c3=0;d11=d13=d15=0;delay(3);xoa();
      c4=0;d11=d12=d15=0;delay(3);xoa();
      c5=0;d11=d15=0;delay(3);xoa();
      }
      /*
      for(k=0;k<ms;k++)
      {c1=0;d5=d21=0;delay(3);xoa();
      c2=0;d5=d7=d21=0;delay(3);xoa();
      c3=0;d5=d13=d21=0;delay(3);xoa();
      c4=0;d5=d19=d21=0;delay(3);xoa();
      c5=0;d5=d21=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {c1=0;d3=d23=0;delay(3);xoa();
      c2=0;d3=d8=d23=0;delay(3);xoa();
      c3=0;d3=d13=d23=0;delay(3);xoa();
      c4=0;d3=d18=d23=0;delay(3);xoa();
      c5=0;d3=d23=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {c1=0;d1=d25=0;delay(3);xoa();
      c2=0;d1=d17=d25=0;delay(3);xoa();
      c3=0;d1=d13=d25=0;delay(3);xoa();
      c4=0;d1=d9=d25=0;delay(3);xoa();
      c5=0;d1=d25=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {c1=0;d11=d15=0;delay(3);xoa();
      c2=0;d11=d14=d15=0;delay(3);xoa();
      c3=0;d11=d13=d15=0;delay(3);xoa();
      c4=0;d11=d12=d15=0;delay(3);xoa();
      c5=0;d11=d15=0;delay(3);xoa();
      }
      //4
      for(k=0;k<ms;k++)
      {c1=0;d16=d20=0;delay(3);xoa();
      c2=0;d16=d17=d20=0;delay(3);xoa();
      c3=0;d16=d18=d20=0;delay(3);xoa();
      c4=0;d16=d19=d20=0;delay(3);xoa();
      c5=0;d16=d20=0;delay(3);xoa();
      }
      //5
      for(k=0;k<ms;k++)
      {c1=0;d21=d25=0;delay(3);xoa();
      c2=0;d21=d24=d25=0;delay(3);xoa();
      c3=0;d21=d23=d25=0;delay(3);xoa();
      c4=0;d21=d22=d25=0;delay(3);xoa();
      c5=0;d21=d25=0;delay(3);xoa();
      }
      }}
      //CHU H XOAY

      void CHUHXOAY(unsigned char ms,unsigned char n)
      {xoa();
      for(i=0;i<n;i++)
      {
      //1
      for(k=0;k<ms;k++)
      {c1=0;d1=d5=0;delay(3);xoa();
      c2=0;d1=d5=0;delay(3);xoa();
      c3=0;d1=d2=d3=d4=d5=0;delay(3);xoa();
      c4=0;d1=d5=0;delay(3);xoa();
      c5=0;d1=d5=0;delay(3);xoa();
      }
      //2
      for(k=0;k<ms;k++)
      {c1=0;d6=d10=0;delay(3);xoa();
      c2=0;d6=d10=0;delay(3);xoa();
      c3=0;d6=d7=d8=d9=d10=0;delay(3);xoa();
      c4=0;d6=d10=0;delay(3);xoa();
      c5=0;d6=d10=0;delay(3);xoa();
      }

      //3 XOAY
      for(k=0;k<ms;k++)
      {c1=0;d11=d15=0;delay(3);xoa();
      c2=0;d11=d15=0;delay(3);xoa();
      c3=0;d11=d12=d13=d14=d15=0;delay(3);xoa();
      c4=0;d11=d15=0;delay(3);xoa();
      c5=0;d11=d15=0;delay(3);xoa();
      }
      /*
      for(k=0;k<ms;k++)
      {c1=0;d5=d21=0;delay(3);xoa();
      c2=0;d5=d21=0;delay(3);xoa();
      c3=0;d5=d7=d13=d19=d21=0;delay(3);xoa();
      c4=0;d5=d21=0;delay(3);xoa();
      c5=0;d5=d21=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {c1=0;d3=d23=0;delay(3);xoa();
      c2=0;d3=d23=0;delay(3);xoa();
      c3=0;d3=d8=d13=d18=d23=0;delay(3);xoa();
      c4=0;d3=d23=0;delay(3);xoa();
      c5=0;d3=d23=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {c1=0;d1=d25=0;delay(3);xoa();
      c2=0;d1=d25=0;delay(3);xoa();
      c3=0;d1=d9=d13=d17=d25=0;delay(3);xoa();
      c4=0;d1=d25=0;delay(3);xoa();
      c5=0;d1=d25=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {c1=0;d11=d15=0;delay(3);xoa();
      c2=0;d11=d15=0;delay(3);xoa();
      c3=0;d11=d12=d13=d14=d15=0;delay(3);xoa();
      c4=0;d11=d15=0;delay(3);xoa();
      c5=0;d11=d15=0;delay(3);xoa();
      }
      //4
      for(k=0;k<ms;k++)
      {c1=0;d16=d20=0;delay(3);xoa();
      c2=0;d16=d20=0;delay(3);xoa();
      c3=0;d16=d17=d18=d19=d20=0;delay(3);xoa();
      c4=0;d16=d20=0;delay(3);xoa();
      c5=0;d16=d20=0;delay(3);xoa();
      }
      //5
      for(k=0;k<ms;k++)
      {c1=0;d21=d25=0;delay(3);xoa();
      c2=0;d21=d25=0;delay(3);xoa();
      c3=0;d21=d22=d23=d24=d25=0;delay(3);xoa();
      c4=0;d21=d25=0;delay(3);xoa();
      c5=0;d21=d25=0;delay(3);xoa();
      }
      }}*/
      /*//HIEU UNG CHAY CHU I XOAY
      void CHUIXOAY(unsigned char ms,unsigned char n)
      {
      xoa();

      //1
      for(i=0;i<n;i++)
      {
      for(k=0;k<ms;k++)
      {
      c1=0;d1=d2=d3=d4=d5=0;delay(3);xoa();
      c2=0;d3=0;delay(3);xoa();
      c3=0;d3=0;delay(3);xoa();
      c4=0;d3=0; delay(3);xoa();
      c5=0;d1=d2=d3=d4=d5=0;delay(3);xoa();
      }


      //2
      for(k=0;k<ms;k++)
      {c1=0;d6=d7=d8=d9=d10=0;delay(3);xoa();
      c2=0;d8=0;delay(3);xoa();
      c3=0;d8=0; delay(3);xoa();
      c4=0;d8=0;delay(3);xoa();
      c5=0;d6=d7=d8=d9=d10=0; delay(3);xoa();
      }
      //3 xoay
      for(k=0;k<ms;k++)
      {c1=0;d11=d12=d13=d14=d15=0;delay(3);xoa();
      c2=0;d13=0; delay(3);xoa();
      c3=0;d13=0;delay(3);xoa();
      c4=0;d13=0;delay(3);xoa();
      c5=0;d11=d12=d13=d14=d15=0;delay(3);xoa();
      }
      /*
      for(k=0;k<ms;k++)
      {c1=0;d5=d7=d13=d19=d21=0;delay(3);xoa();
      c2=0;d13=0; delay(3);xoa();
      c3=0;d13=0;delay(3);xoa();
      c4=0;d13=0;delay(3);xoa();
      c5=0;d5=d7=d13=d19=d21=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {c1=0;d3=d8=d13=d18=d23=0;delay(3);xoa();
      c2=0;d13=0; delay(3);xoa();
      c3=0;d13=0;delay(3);xoa();
      c4=0;d13=0;delay(3);xoa();
      c5=0;d3=d8=d13=d18=d23=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {c1=0;d1=d9=d13=d17=d25=0;delay(3);xoa();
      c2=0;d13=0; delay(3);xoa();
      c3=0;d13=0;delay(3);xoa();
      c4=0;d13=0;delay(3); xoa();
      c5=0;d1=d9=d13=d17=d25=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {c1=0;d11=d12=d13=d14=d15=0;delay(3);xoa();
      c2=0;d13=0; delay(3);xoa();
      c3=0;d13=0;delay(3);xoa();
      c4=0;d13=0;delay(3);xoa();
      c5=0;d11=d12=d13=d14=d15=0;delay(3);xoa();
      }
      //4
      for(k=0;k<ms;k++)
      {c1=0;d16=d17=d18=d19=d20=0;delay(3);xoa();
      c2=0;d18=0;delay(3);xoa();
      c3=0;d18=0; delay(3);xoa();
      c4=0;d18=0; delay(3);xoa();
      c5=0;d16=d17=d18=d19=d20=0;delay(3);xoa();
      }
      //5

      for(k=0;k<ms;k++)
      {c1=0;d21=d22=d23=d24=d25=0;delay(3);xoa();
      c2=0;d23=0;delay(3);xoa();
      c3=0;d23=0;delay(3);xoa();
      c4=0;d23=0; delay(3);xoa();
      c5=0;d21=d22=d23=d24=d25=0;delay(3);xoa();
      }
      }
      }
      //CHU L XOAY
      void CHULXOAY(unsigned char ms,unsigned char n)
      {
      xoa();
      for(i=0;i<n;i++)
      {
      //1
      for(k=0;k<ms;k++)
      {
      c1=0;d1=d2=d3=d4=d5=0;delay(3);xoa();
      c2=0;d1=0;delay(3);xoa();
      c3=0;d1=0;delay(3); xoa();
      c4=0;d1=0; delay(3);xoa();
      c5=0;d1=0;delay(3);xoa();
      }


      //2
      for(k=0;k<ms;k++)
      { c1=0;d6=d7=d8=d9=d10=0;delay(3);xoa();
      c2=0;d10=0;delay(3);xoa();
      c3=0;d10=0;delay(3);xoa();
      c4=0;d10=0;delay(3);xoa();
      c5=0;d10=0;delay(3);xoa();

      }

      //3 xoay
      for(k=0;k<ms;k++)
      {
      c1=0;d11=d12=d13=d14=d15=0;delay(3);xoa();
      c2=0;d11=0;delay(3);xoa();
      c3=0;d11=0;delay(3); xoa();
      c4=0;d11=0;delay(3);xoa();
      c5=0;d11=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {
      c1=0;d5=d7=d13=d19=d21=0;delay(3);xoa();
      c2=0;d21=0;delay(3);xoa();
      c3=0;d21=0;delay(3); xoa();
      c4=0;d21=0;delay(3);xoa();
      c5=0;d21=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {
      c1=0;d3=d8=d13=d18=d23=0;delay(3);xoa();
      c2=0;d23=0;delay(3);xoa();
      c3=0;d23=0;delay(3); xoa();
      c4=0;d23=0;delay(3);xoa();
      c5=0;d23=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {
      c1=0;d1=d9=d13=d17=d25=0;delay(3);xoa();
      c2=0;d25=0;delay(3);xoa();
      c3=0;d25=0;delay(3); xoa();
      c4=0;d25=0;delay(3);xoa();
      c5=0;d25=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {
      c1=0;d11=d12=d13=d14=d15=0;delay(3);xoa();
      c2=0;d15=0;delay(3);xoa();
      c3=0;d15=0;delay(3); xoa();
      c4=0;d15=0;delay(3);xoa();
      c5=0;d15=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {
      c1=0;d5=d7=d13=d19=d21=0;delay(3);xoa();
      c2=0;d5=0;delay(3);xoa();
      c3=0;d5=0;delay(3); xoa();
      c4=0;d5=0;delay(3);xoa();
      c5=0;d5=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {
      c1=0;d3=d8=d13=d18=d23=0;delay(3);xoa();
      c2=0;d3=0;delay(3);xoa();
      c3=0;d3=0;delay(3); xoa();
      c4=0;d3=0;delay(3);xoa();
      c5=0;d3=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {
      c1=0;d1=d9=d13=d17=d25=0;delay(3);xoa();
      c2=0;d1=0;delay(3);xoa();
      c3=0;d1=0;delay(3); xoa();
      c4=0;d1=0;delay(3);xoa();
      c5=0;d1=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {
      c1=0;d11=d12=d13=d14=d15=0;delay(3);xoa();
      c2=0;d11=0;delay(3);xoa();
      c3=0;d11=0;delay(3); xoa();
      c4=0;d11=0;delay(3);xoa();
      c5=0;d11=0;delay(3);xoa();
      }
      //4
      for(k=0;k<ms;k++)
      {
      c1=0;d16=d17=d18=d19=d20=0;delay(3);xoa();
      c2=0;d20=0;delay(3);xoa();
      c3=0;d20=0;delay(3); xoa();
      c4=0;d20=0;delay(3);xoa();
      c5=0;d20=0; delay(3); xoa();
      }
      //5
      for(k=0;k<ms;k++)
      {
      c1=0;d21=d22=d23=d24=d25=0;delay(3);xoa();
      c2=0;d21=0;delay(3);xoa();
      c3=0;d21=0;delay(3); xoa();
      c4=0;d21=0;delay(3);xoa();
      c5=0;d21=0;delay(3);xoa();
      }}} */
      //HIEU UNG TRAI TIM
      void traitim(unsigned char ms,unsigned char n)
      {
      xoa();
      for(i=0;i<n;i++)
      {
      //1
      for(k=0;k<ms;k++)
      {c1=0;d3=0;delay(3);xoa();
      c2=0;d2=d4=0;delay(3);xoa();
      c3=0;d1=d5=0;delay(3);xoa();
      c4=0;d1=d3=d5=0;delay(3);xoa();
      c5=0;d2=d4=0;delay(3);xoa();
      }

      //2
      for(k=0;k<ms;k++)
      {c1=0;d8=0;delay(3);xoa();
      c2=0;d7=d9=0;delay(3);xoa();
      c3=0;d6=d10=0;delay(3);xoa();
      c4=0;d10=d8=d6=0;delay(3);xoa();
      c5=0;d7=d9=0;delay(3);xoa();
      }

      //3 XOAY
      for(k=0;k<ms;k++)
      {c1=0;d13=0;delay(3);xoa();
      c2=0;d12=d14=0;delay(3);xoa();
      c3=0;d11=d15=0;delay(3);xoa();
      c4=0;d11=d15=d13=0;delay(3);xoa();
      c5=0;d12=d14=0;delay(3);xoa();
      }

      for(k=0;k<ms;k++)
      {c1=0;d13=0;delay(3);xoa();
      c2=0;d7=d19=0;delay(3);xoa();
      c3=0;d5=d21=0;delay(3);xoa();
      c4=0;d5=d21=d13=0;delay(3);xoa();
      c5=0;d7=d19=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {c1=0;d13=0;delay(3);xoa();
      c2=0;d8=d18=0;delay(3);xoa();
      c3=0;d3=d23=0;delay(3);xoa();
      c4=0;d3=d23=d13=0;delay(3);xoa();
      c5=0;d8=d18=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {c1=0;d13=0;delay(3);xoa();
      c2=0;d9=d17=0;delay(3);xoa();
      c3=0;d1=d25=0;delay(3);xoa();
      c4=0;d1=d13=d25=0;delay(3);xoa();
      c5=0;d9=d17=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {c1=0;d13=0;delay(3);xoa();
      c2=0;d12=d14=0;delay(3);xoa();
      c3=0;d11=d15=0;delay(3);xoa();
      c4=0;d11=d15=d13=0;delay(3);xoa();
      c5=0;d12=d14=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {c1=0;d13=0;delay(3);xoa();
      c2=0;d7=d19=0;delay(3);xoa();
      c3=0;d5=d21=0;delay(3);xoa();
      c4=0;d5=d21=d13=0;delay(3);xoa();
      c5=0;d7=d19=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {c1=0;d13=0;delay(3);xoa();
      c2=0;d8=d18=0;delay(3);xoa();
      c3=0;d3=d23=0;delay(3);xoa();
      c4=0;d3=d23=d13=0;delay(3);xoa();
      c5=0;d8=d18=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {c1=0;d13=0;delay(3);xoa();
      c2=0;d9=d17=0;delay(3);xoa();
      c3=0;d1=d25=0;delay(3);xoa();
      c4=0;d1=d13=d25=0;delay(3);xoa();
      c5=0;d9=d17=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {c1=0;d13=0;delay(3);xoa();
      c2=0;d12=d14=0;delay(3);xoa();
      c3=0;d11=d15=0;delay(3);xoa();
      c4=0;d11=d15=d13=0;delay(3);xoa();
      c5=0;d12=d14=0;delay(3);xoa();
      }
      //4
      for(k=0;k<ms;k++)
      {c1=0;d18=0;delay(3);xoa();
      c2=0;d17=d19=0;delay(3);xoa();
      c3=0;d16=d20=0;delay(3);xoa();
      c4=0;d16=d18=d20=0;delay(3);xoa();
      c5=0;d17=d19=0;delay(3);xoa();
      }

      //5
      for(k=0;k<ms;k++)
      {c1=0;d23=0;delay(3);xoa();
      c2=0;d22=d24=0;delay(3);xoa();
      c3=0;d21=d25=0;delay(3);xoa();
      c4=0;d21=d23=d25=0;delay(3);xoa();
      c5=0;d22=d24=0;delay(3);xoa();
      }
      }}

      //HIEU UNG PHAO HOA
      void PHAOHOA(unsigned char ms,unsigned char n)
      {P0=0xff;
      for(i=0;i<n;i++)
      {
      {d13=0;
      {c1=0;delay(ms);c2=0;delay(ms);c3=0;delay(ms);c4=0 ;delay(ms);}xoa();
      d1=d2=d3=d4=d5=d6=d7=d8=d9=d10=d11=d12=d13=d14=d15 =d16=d17=d18=d19=d20=d21=d22=d23=d24=d25=0;
      c5=0;delay(500);xoa();

      for(k=0;k<ms;k++)
      {c3=0;d13=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {
      c2=c3=c4=0;d9=d8=d7=d14=d18=d17=d19=d12=0;delay(3) ;xoa();
      }
      for(k=0;k<ms;k++)
      {
      c1=c3=c5=0; d1=d3=d5=d15=d25=d23=d21=d11=d13=0;delay(3);xoa();
      }
      d1=d3=d5=d7=d9=d11=d13=d15=d17=d19=d21=d23=d25=0;
      c5=0;delay(200);
      c4=0;delay(300);
      c3=0;delay(400);
      c2=0;delay(500);
      c1=0;delay(600);}xoa();
      { d13=0;
      {c1=0;delay(ms);c2=0;delay(ms);c3=0;delay(ms);c4=0 ;delay(ms);}xoa();
      d1=d2=d3=d4=d5=d6=d7=d8=d9=d10=d11=d12=d13=d14=d15 =d16=d17=d18=d19=d20=d21=d22=d23=d24=d25=0;
      c5=0;delay(500);xoa();

      for(k=0;k<ms;k++)
      {c3=0;d13=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {
      c2=c3=c4=0;d9=d8=d7=d14=d18=d17=d19=d12=0;delay(3) ;xoa();
      }
      for(k=0;k<ms;k++)
      {
      c1=c3=c5=0; d1=d3=d5=d15=d25=d23=d21=d11=d13=0;delay(3);xoa();
      }

      d2=d4=d6=d8=d10=d12=d14=d16=d18=d20=d22=d24=0;
      c5=0;delay(200);
      c4=0;delay(300);
      c3=0;delay(400);
      c2=0;delay(500);
      c1=0;delay(600);}xoa();
      }}
      //HIEU UNG NO
      void NO(unsigned char ms,unsigned char n)
      {P1=P2=P3=0xff;
      for(i=0;i<n;i++)
      {
      for(k=0;k<ms;k++)
      {c3=0;d13=0;delay(3);xoa();
      }
      for(k=0;k<ms;k++)
      {
      c2=c3=c4=0;d9=d8=d7=d14=d18=d17=d19=d12=0;delay(3) ;xoa();
      }
      for(k=0;k<ms;k++)
      {
      c1=c3=c5=0; d1=d3=d5=d15=d25=d23=d21=d11=d13=0;delay(3);xoa();
      }
      }}

      /* //HIEU UNG DIEM
      void DIEM(unsigned char ms,unsigned char n)
      {P0=0xff;
      for(i=0;i<n;i++)
      {

      d1=d3=d5=d7=d9=d11=d13=d15=d17=d19=d21=d23=d25=0;c 1=0;delay(ms);xoa();
      d1=d3=d5=d7=d9=d11=d13=d15=d17=d19=d21=d23=d25=0;c 2=0;delay(ms);xoa();
      d1=d3=d5=d7=d9=d11=d13=d15=d17=d19=d21=d23=d25=0;c 3=0;delay(ms);xoa();
      d1=d3=d5=d7=d8=d9=d11=d13=d15=d17=d19=d21=d23=d25= 0;c4=0;delay(ms);xoa();
      d1=d3=d5=d7=d9=d11=d13=d15=d17=d19=d21=d23=d25=0;c 5=0;delay(700);
      }
      d1=d3=d5=d7=d9=d11=d13=d15=d17=d19=d21=d23=d25=0;c 5=0;delay(700);
      for(i=0;i<n;i++)
      {
      d1=d3=d5=d7=d9=d11=d13=d15=d17=d19=d21=d23=d25=0;c 1=0;delay(ms);xoa();
      d1=d3=d5=d7=d9=d11=d13=d15=d17=d19=d21=d23=d25=0;c 2=0;delay(ms);xoa();
      d1=d3=d5=d7=d9=d11=d13=d15=d17=d19=d21=d23=d25=0;c 3=0;delay(ms);xoa();
      d1=d3=d5=d7=d9=d11=d13=d15=d17=d19=d21=d23=d25=0;c 4=0;delay(ms);xoa();
      }
      d1=d3=d5=d7=d9=d11=d13=d15=d17=d19=d21=d23=d25=0;c 5=c4=0;delay(700);
      for(i=0;i<n;i++)
      {
      d1=d3=d5=d7=d9=d11=d13=d15=d17=d19=d21=d23=d25=0;c 1=0;delay(ms);xoa();
      d1=d3=d5=d7=d9=d11=d13=d15=d17=d19=d21=d23=d25=0;c 2=0;delay(ms);xoa();
      d1=d3=d5=d7=d9=d11=d13=d15=d17=d19=d21=d23=d25=0;c 3=0;delay(ms);xoa();
      }
      d1=d3=d5=d7=d9=d11=d13=d15=d17=d19=d21=d23=d25=0;c 5=c4=c3=0;delay(700);
      for(i=0;i<n;i++)
      {
      d1=d3=d5=d7=d9=d11=d13=d15=d17=d19=d21=d23=d25=0;c 1=0;delay(ms);xoa();
      d1=d3=d5=d7=d9=d11=d13=d15=d17=d19=d21=d23=d25=0;c 2=0;delay(ms);xoa();
      }
      d1=d3=d5=d7=d9=d11=d13=d15=d17=d19=d21=d23=d25=0;c 5=c4=c3=c2=0;delay(700);
      for(i=0;i<n;i++)
      {
      d1=d3=d5=d7=d9=d11=d13=d15=d17=d19=d21=d23=d25=0;c 1=0;delay(ms);xoa();
      }
      d1=d3=d5=d7=d9=d11=d13=d15=d17=d19=d21=d23=d25=0;c 5=c4=c3=c2=c1=0;delay(700);
      }
      */
      // HIEU UNG MUA
      void MUA(unsigned char ms, unsigned char n)
      {
      P0=0xff;
      for(i=0;i<n;i++)
      {
      {d1=d5=d3=d12=d11=d22=d15=d18=d20=0;c5=0;delay(100 );c4=0;delay(150);c3=0;delay(200);c2=0;delay(250); c1=0;delay(300);}xoa();
      {d5=d2=d4=d10=d17=d7=d9=d16=d6=0;c5=0;delay(100);c 4=0;delay(150);c3=0;delay(200);c2=0;delay(250);c1= 0;delay(300);}xoa();
      {d2=d2=d4=d5=d14=d10=d24=d21=0;c5=0;delay(100);c4= 0;delay(150);c3=0;delay(200);c2=0;delay(250);c1=0; delay(300);}xoa();
      {d2=d17=d18=d2=d3=d11=d17=d23=d25=d8=d19=0;c5=0;de lay(100);c4=0;delay(150);c3=0;delay(200);c2=0;dela y(250);c1=0;delay(300);}xoa();
      }}

      //============================== HAM CHINH ==================================
      void main(void)
      {
      while(1)
      {
      xoa();
      NO(300,2);
      SONGNGANG(10,2);
      SONGDOC(50,2);
      SONGDUNG(400,2);
      // DIEM(400,2);
      NHAY(500,2);
      XOAYNGANG(25,2);
      XOAYDOC(400,2);
      KHOIVUONG(400,2);

      chayvong(300,1);
      trongrangoai(300,1);
      chayvong(300,1);
      trongrangoai(300,1);
      BUNGRA(400,2);
      LENXUONG(400,1);
      LENXUONG(400,1);

      sang(400,2);


      /*CHUB(15,1);
      CHUF(15,1);
      CHUF(15,1);
      */
      bungvuong(400,1);
      bungvuong(400,1);
      xep(400,2);
      don(400,1);
      don(400,1);
      /*CHUDXOAY(15,1);

      CHUAXOAY(15,1);
      CHUNXOAY(15,1);
      CHUHXOAY(15,1);*/
      //CHUIXOAY(15,1);
      // CHULXOAY(15,1);
      traitim(15,2);
      PHAOHOA(300,2);
      MUA(400,2);

      } }
      CODE NÀY NÈ MỌI NGỪ!! MỌI NGỪ XEM GIUP NHA!!THANK NHIỀU

      Comment


      • #4
        1. vs code dài thế này thì nên bỏ vào file đính kèm, kéo mỏi tay mới thấy
        2. cái dung lượng mà nhìn thấy trên máy tính ko phải dung lượng nạp vào IC
        3. code nặng vs nhẹ như trên đã biên dịch đc là chạy, khả năng cậu đã xóa mất cái j đó
        p/s: cái này hình như là code cube
        Website chính thức đổi địa chỉ website thành
        Mời các bạn ghé thăm !!!

        Comment


        • #5
          nếu bạn dùng keil c thì khi biên dịch nó có báo dung lượng chương trình thực thi đó bạn
          còn file.hex nó bao gồm cả dung lượng file máy và dung lượng chương trình thực thi
          con 89c51 thì có 8k bộ nhớ thực thi chương trình và 64k bộ nhớ lưu file máy (file.hex)
          nói không sợ bạn không hiểu tui đưa hình cho bạn xem
          Attached Files
          Last edited by ozonedark2; 08-07-2012, 12:44.
          |

          Comment


          • #6
            ừ,đúng vậy,ID yahoo là gì vậy bạn

            Comment


            • #7
              mình có cách nào khắc phục để nó chạy không bạn

              Comment


              • #8
                nếu code thực thi vượt quá thì bạn có thể dùng thêm ram ngoài hoặc dùng con vdk có dung lượng lớn hơn như 89c53 dung lượng thực thi tới 14k tha hồ
                |

                Comment


                • #9
                  mình dùng con 89s53 được không bạn

                  Comment


                  • #10
                    tuỳ vào chương trình thực thi của bạn có dung lượng bao nhiêu mà dùng thôi. chúc bạn thành công.
                    |

                    Comment


                    • #11
                      Nguyên văn bởi quangbuu Xem bài viết
                      Cho hỏi là tại sao khi ta đỏ chương trình cho keil c (file hex dung lượng 30kb) nó không báo tràn bộ nhớ nhưng mà bỏ ic 89s52 vào lại không chạy??? Nhưng dung lượng file hex khoảng 20kb thì chạy
                      Code của bác mình built ra thì là 8069 byte, nạp vào 89S52 ok, nhưng mô phỏng ko thấy chân nào nhấp nháy cả, có lẽ do code có vấn đề
                      Last edited by nguyen24; 09-07-2012, 13:03.
                      - Mạch nạp vdk 8051, AVR, PIC, EEPROM
                      - Linh kiện điện tử cho sinh viên


                      Comment


                      • #12
                        Nguyên văn bởi nguyen24 Xem bài viết
                        Code của bác mình built ra thì là 8069 byte, nạp vào 89S52 ok, nhưng mô phỏng ko thấy chân nào nhấp nháy cả, có lẽ do code có vấn đề
                        bạn nạp vào con 89s52 thực tế chưa
                        |

                        Comment


                        • #13
                          Build target 'Target 1'
                          linking...
                          Program Size: data=18.0 xdata=0 code=8098
                          creating hex file from "NEW"...
                          "NEW" - 0 Error(s), 0 Warning(s).
                          nó báo như thế này nè, làm sao đổ vào 89s52 khi gắn vào phần cứng đẻ nó chạy thì nó đơ!!!>??? ai giúp cảm ơn nhiều

                          Comment


                          • #14
                            Nguyên văn bởi nguyen24 Xem bài viết
                            Code của bác mình built ra thì là 8069 byte, nạp vào 89S52 ok, nhưng mô phỏng ko thấy chân nào nhấp nháy cả, có lẽ do code có vấn đề
                            vấn đề như thế nào vậy bạn??
                            khi biên dịch nó không báo lỗi mà

                            Comment


                            • #15
                              Nguyên văn bởi ozonedark2 Xem bài viết
                              bạn nạp vào con 89s52 thực tế chưa
                              mình nạp rồi , nhưng khi nhiều hơn thì nó đơ,

                              Comment

                              Về tác giả

                              Collapse

                              quangbuu Tìm hiểu thêm về quangbuu

                              Bài viết mới nhất

                              Collapse

                              Đang tải...
                              X