找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

搜索
查看: 1522|回復: 0
收起左側(cè)

51 計數(shù)程序

[復制鏈接]
ID:301160 發(fā)表于 2018-4-2 21:42 | 顯示全部樓層 |閱讀模式
#include <AT89X52.H>
#define uint unsigned int
#define uchar unsigned char  
uchar code
tabel[]={ 0xC0,0xF9,0xA4,0xB0,0x99,0x92,0x82,0xF8,0x80,0x90};// 這個數(shù)組存放09
uint counter;//定義計數(shù)器,用來計量脈沖次數(shù)
sbit wei_ge=P1^0; //定義引腳
sbit wei_shi=P1^1;  
sbit wei_bai=P1^2;  
sbit wei_qian=P1^3;
sbit BUZZER=P2^0;
void delay_(unsigned int j)
{
unsigned int k;
while (--j!=0)
{
for (k=0;k<600;k++);
}
}
/*
延時子程序
*******************************************************/
void delay(uint xms)
{
uint j;
for(;xms>0;xms--)
  for(j=110;j>0;j--);
}
/*
數(shù)碼管掃描顯示子程序
************************************************/
void shuma_show(uint date)
{
uchar ge,shi,bai,qian;//
數(shù)碼管顯示變量聲明
ge=date%10;//
個位數(shù)換算
shi=date/10%10;//
十位換算
bai=date/100%10;//
百位換算
qian=date/1000;//
千位換算
wei_ge=1;//
打開個位顯示
P0=tabel[ge]; //
數(shù)據(jù)輸入數(shù)碼管內(nèi)
delay(2);//
延時顯示
2ms
wei_ge=0;//
關(guān)閉個位顯示
wei_shi=1;//
打開個位顯示
P0=tabel[shi]; //
數(shù)據(jù)輸入數(shù)碼管內(nèi)
delay(2);//
延時顯示
2ms
wei_shi=0;//
關(guān)閉個位顯示
wei_bai=1;//
打開個位顯示
P0=tabel[bai]; //
數(shù)據(jù)輸入數(shù)碼管內(nèi)
delay(2);//
延時顯示
2ms
wei_bai=0;//
關(guān)閉個位顯示
wei_qian=1;//
打開個位顯示
P0=tabel[qian]; //
數(shù)據(jù)輸入數(shù)碼管內(nèi)
delay(2);//
延時顯示
2ms
wei_qian=0;//
關(guān)閉個位顯示
      
}
/*
初始化子程序
**********************************************************/
void inti()
{
wei_ge=wei_shi=wei_bai=wei_qian=0;//
I/O
口初始化
TMOD=0x05;//
設(shè)置計數(shù)器
0
工作方式
1
,為
16
位計數(shù)器,且為外部計數(shù)
TH0=0;//
計數(shù)器高
8
位裝
0
TL0=0;//
計數(shù)器低
8
位裝
0
TR0=1;//
開計數(shù)器
}
/*
主程序
***************************************************************/
void main()
{  
BUZZER=0;
inti();
while(1)
{
   
  counter=TH0*255+TL0;//
讀計數(shù)器數(shù)據(jù)
   
  }
  if(counter==1000)
{
TH0=TL0=0;  
} //
計滿清零
  shuma_show(counter);//
數(shù)碼管掃描顯示
  if((counter%100==0)&& counter!=0)//
逢百提醒
   {  
     
BUZZER=1;
delay(500);
BUZZER=1;
}
}
}

回復

使用道具 舉報

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

本版積分規(guī)則

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

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

快速回復 返回頂部 返回列表