找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

搜索
查看: 15670|回復(fù): 7
收起左側(cè)

[原創(chuàng)]間隔300ms先奇數(shù)亮再偶數(shù)亮,循環(huán)三次;一個燈上下循環(huán)三次;兩個分別從兩邊往中間流動三次............

[復(fù)制鏈接]
ID:20559 發(fā)表于 2010-4-11 19:11 | 顯示全部樓層 |閱讀模式

 

/*間隔300ms先奇數(shù)亮再偶數(shù)亮,循環(huán)三次;一個燈上下循環(huán)三次;兩個分別從兩邊往中間流動三次;再從中
間往兩邊流動三次;8個全部閃爍3次;關(guān)閉發(fā)光管,程序停止。*/

//P0口位輸出口
#include<reg52.h>
#include<intrins.h>
#define uchar unsigned char
#define uint unsigned int

uchar code table[]={0x55,0xaa,0x7f,0x7e,0xbd,0xdb,0xe7};


uchar t,i,j,temp;

void delay(uint z)
{
 while(t!=z);
 t=0; 
}

void main()

 t=0;
 TMOD=0x01;
 TH0=(65536-50000)/256;//timer 50ms
 TL0=(65536-50000)%256;
 
 EA=1;
 ET0=1;
 TR0=1;

 while(1)
 { 
  /*間隔300ms先奇數(shù)亮再偶數(shù)亮,循環(huán)三次;一個燈上下循環(huán)三次;兩個分別從兩邊往中間流動三次;再從中
間往兩邊流動三次;8個全部閃爍3次;關(guān)閉發(fā)光管,程序停止。*/
  for(i=0;i<3;i++)
  {
   temp=table[0];
   P0=temp;
   delay(6);
   temp=table[1];
   P0=temp;
   delay(6);
  }//間隔300ms先奇數(shù)亮再偶數(shù)亮,循環(huán)三次?
   temp=table[2];
    _nop_();
  for(i=0;i<24;i++)
  {
   P0=temp;
   delay(6);
   temp=_cror_(temp,1); 
   
  }//一個燈上下循環(huán)三次?
//uchar code table[]={0x55,0xaa,0x7f,0x7e,0xbd,0xdb,0xe7};
  for(i=0;i<3;i++)
  {
   for(j=3;j<8;j++)
   {
    P0=table[j];
    delay(6);
   }
  }//liang  bian dao zhong jian
  for(i=0;i<3;i++)
  {
   for(j=6;j>2;j--)
   {
    P0=table[j];
    delay(6);
   }
  }//zhongjian wang liangbian
  for(i=0;i<3;i++)
  {
   P0=0xff;
   delay(6);
   P0=0x00;
   delay(6);
  }   //8個全部閃爍3次
  
  P0=0xff;
  delay(10);
  while(1);
 }
}

void timer0() interrupt 1
{
 TH0=(65536-50000)/256;
 TL0=(65536-50000)%256;
 t++;
}

回復(fù)

使用道具 舉報

ID:1 發(fā)表于 2010-4-11 19:29 | 顯示全部樓層

很好的程序

回復(fù)

使用道具 舉報

ID:22246 發(fā)表于 2010-4-11 19:39 | 顯示全部樓層
劉啊飛大哥,你永遠都是我的偶像
回復(fù)

使用道具 舉報

ID:20559 發(fā)表于 2010-4-11 23:10 | 顯示全部樓層
謝謝啊!能得到管理員的認可真的是很榮幸!還得繼續(xù)努力!
回復(fù)

使用道具 舉報

ID:20559 發(fā)表于 2010-4-11 23:11 | 顯示全部樓層
你是哪位啊?互相學(xué)習(xí)!
回復(fù)

使用道具 舉報

ID:25111 發(fā)表于 2010-7-19 10:52 | 顯示全部樓層
這個程序在我的單片機上貌似不能用
回復(fù)

使用道具 舉報

ID:24715 發(fā)表于 2010-7-20 13:52 | 顯示全部樓層
給個圖,指明哪個燈是哪個燈吧,偶新手,看了介紹已經(jīng)有點暈,更不用說看程序了T T
回復(fù)

使用道具 舉報

ID:25037 發(fā)表于 2010-7-24 13:22 | 顯示全部樓層

牛啊

 

回復(fù)

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

手機版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機教程網(wǎng)

快速回復(fù) 返回頂部 返回列表