变态另类重口味AV,中文有码vs人妻,精品少妇AV无码免费久久洗澡

標(biāo)題: 8位動(dòng)態(tài)數(shù)碼管顯示電子時(shí)鐘c51程序 [打印本頁]

作者: sungod006 時(shí)間: 2020-1-18 21:42
標(biāo)題: 8位動(dòng)態(tài)數(shù)碼管顯示電子時(shí)鐘c51程序
本帖最后由 sungod006 于 2020-1-18 21:47 編輯

//8位動(dòng)態(tài)數(shù)碼管顯示電子時(shí)鐘，P1口接段碼、P0口接位選

#include <reg52.h>
#include <stddef.h>
#define uchar unsigned char
#define uint unsigned int

uchar i,sec,min,h;
uchar timestr[8];
uchar code tab[]={       //段碼高電平有效
0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07, //0,1,2,3,4,5,6,7
0x7f,0x6f,0x77,0x7c,0x39,0x5e,0x79,0x71, //8,9,A,B,C,D,E,F
      0x40};                                                                      //-

void init();
void delay(uint);
void time_display();
void LED_Display();
void time();

void main()
{
      init();
      while(1)
      {
            time_display();
      }
}

void init()
{
      i=0;
      sec=0;
      min=0;
      h=0;
      EA=1;
      ET0=1;
      TMOD=0x01;                //定時(shí)器方式一
      TH0=0x4c;                //定時(shí)50mS       ,11.0592MHz晶振
      TL0=0xf7;
      TR0=1;
}
void delay(uint z)
{
      uint x,y;
      for(x=z;x>0;x--)
            for(y=110;y>0;y--);
}
void time_display()
{
      timestr[7]=sec%10;
      timestr[6]=sec/10;
      timestr[5]=0x10;
      timestr[4]=min%10;
      timestr[3]=min/10;
      timestr[2]=0x10;
      timestr[1]=h%10;
      timestr[0]=h/10;
      LED_Display();
}

void LED_Display()                         // LED正常顯示
{
      uchar a,Wei;
      Wei=0x80;                               // 位選數(shù)據(jù)，從左邊開始顯示
      P0=0;
      for(a=0;a<8;a++)             // 共8個(gè)八段管
      {
            P1=tab[timestr[a]];       // 發(fā)送顯示數(shù)據(jù)
            P0=Wei;             // 發(fā)送位選數(shù)據(jù)
            delay(3);
            Wei=Wei>>1;                // 位選數(shù)據(jù)右移一位
      }
}

void T0_rpt() interrupt 1
{
      TH0=0x4c;                //定時(shí)50mS       ,11.0592MHz
      TL0=0xf7;
      i++;
      time();
      TR0=1;
}
------完整程序見附件

電子時(shí)鐘.zip

979 Bytes, 下載次數(shù): 34, 下載積分: 黑幣 -5

歡迎光臨 (http://www.torrancerestoration.com/bbs/)