广告

原创 点阵圆柱的移动proteus程序

2009-5-14 09:33 2073 0 分类: MCU/ 嵌入式

http://space.ednchina.com/Upload/2009/5/14/9746a327-10f3-432f-b5e3-36447863aea9.rar#include <reg51.h>


unsigned char code taba[]={0xfe,0xfd,0xfb,0xf7,0xef,0xdf,0xbf,0x7f};
unsigned char code tabb[]={0x01,0x02,0x04,0x08,0x10,0x20,0x40,0x80};


void delay(void)
{
  unsigned char i,j;


  for(i=10;i>0;i--)
  for(j=248;j>0;j--);
}


void delay1(void)
{
  unsigned char i,j,k;


  for(k=10;k>0;k--)
  for(i=20;i>0;i--)
  for(j=248;j>0;j--);


}
void zuoyou ()
{
  unsigned char i,j;
 for (j=0;j<3;j++)              
       
     for (i=0;i<8;i++)
          {
              P1=tabb[i];
              P0=0x00;
              delay1();
          }
       
}
void youzuo ()
{
   unsigned char i,j;
 for (j=0;j<3;j++)               
     { 
       for(i=0;i<8;i++)
            {
              P1=tabb[7-i];
              P0=0x00;
              delay1();
            }
        }
}
void sxia ()
{
       unsigned char i,j;
 for (j=0;j<3;j++)               
        {
          for(i=0;i<8;i++)
            {
              P1=0xff;
              P0=taba[7-i];
              delay1();
            }
        }
}
void xshang ()
{
  unsigned char i,j;
  for (j=0;j<3;j++)              
        {
          for(i=0;i<8;i++)
            {
              P1=0xff;
              P0=taba[i];
              delay1();
            }
        }


    }


void main( )
{
  while( 1)
    {
      zuoyou ();
 youzuo ();
 sxia ();
 xshang ();
    
     }


}

广告

文章评论 0条评论)

登录后参与讨论
相关推荐阅读
aas7502987 2012-04-07 11:48
51/STC最小系统板资料(更新中)
图片欣赏    淘宝网址:http://item.taobao.com/auction/item_detail.htm?item_num_id=9073446988  二   程...
aas7502987 2011-10-13 22:59
YL-3 资料
YL-3数码管模块资料:YL-3 串行数码管资料.zip...
aas7502987 2011-09-24 09:10
USB转TTL小板驱动
xp系统驱动:XP系统支持STC下载的PL-2303HX新版驱动.rar WIN7系统驱动:WIN7系统支持STC下载的PL2303HX驱动.rar...
aas7502987 2011-05-24 22:48
STM32F103RBT6最小系统原理图 PCB
STM32F103RBT6最小系统板原理图 PCB 附件:做好的成品板:淘宝链接网址:http://item.taobao.com/item.htm?id=8864376956...
aas7502987 2011-05-08 12:53
YL-16 STM32F103最小系统板资料(更新中)
二 数据手册:  USB协议中文版:attachment download  中文数据手册:attachment downloadSTM32选型手册:attachment downloadSTM32勘...
aas7502987 2011-03-20 13:27
DS18B20温度测量模块
DS18B20 数码管温度显示程序:...
我要评论
0
0
广告
关闭 热点推荐上一条 /1 下一条