找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

搜索
查看: 2185|回復: 0
打印 上一主題 下一主題
收起左側

原創(chuàng)VB上位機控制單片機數(shù)碼管-流水燈-蜂鳴器 下位機聯(lián)合測試源程序

[復制鏈接]
跳轉到指定樓層
樓主
ID:601620 發(fā)表于 2020-3-31 11:23 | 只看該作者 |只看大圖 回帖獎勵 |倒序瀏覽 |閱讀模式


單片機源程序如下:
  1. #include<reg52.h>
  2. #define uchar unsigned char
  3. #define uint unsigned int
  4. uchar flag,CPdata,count;
  5. sbit dula=P2^6;
  6. sbit wela=P2^7;
  7. sbit beep=P2^3;
  8. uchar code table[]={

  10.                 0x3F,  //"0"
  11.                 0x06,  //"1"
  12.                 0x5B,  //"2"
  13.                 0x4F,  //"3"
  14.                 0x66,  //"4"
  15.                 0x6D,  //"5"
  16.                 0x7D,  //"6"
  17.                 0x07,  //"7"
  18.                 0x7F,  //"8"
  19.                 0x6F,  //"9"
  20.                 0x77,  //"A"
  21.                 0x7C,  //"B"
  22.                 0x39,  //"C"
  23.                 0x5E,  //"D"
  24.                 0x79,  //"E"
  25.                 0x71,  //"F"
  26.                          };
  27. void delay1(uint z)//1ms
  28. {
  29.         uint x,y;
  30.         for(x=z;x>0;x--)
  31.                 for(y=120;y>0;y--);       
  32. }
  33. void display(uchar value)
  34. {
  35.         uchar bai,shi;
  36.         bai=value/16;
  37.         shi=value%16;

  39.         dula=1;
  40.         P0=table[bai];
  41.         dula=0;
  42.         P0=0xff;
  43.         wela=1;
  44.         P0=0xfe;
  45.         wela=0;
  46.         delay1(1);

  48.         dula=1;
  49.         P0=table[bai];
  50.         dula=0;
  51.         P0=0xff;
  52.         wela=1;
  53.         P0=0xfd;
  54.         wela=0;
  55.         delay1(1);

  57.         dula=1;
  58.         P0=table[bai]|0x80;
  59.         dula=0;
  60.         P0=0xff;
  61.         wela=1;
  62.         P0=0xfb;
  63.         wela=0;
  64.         delay1(1);

  66.         dula=1;
  67.         P0=table[shi];
  68.         dula=0;
  69.         P0=0xff;
  70.         wela=1;
  71.         P0=0xf7;
  72.         wela=0;
  73.         delay1(1);

  75.         dula=1;
  76.         P0=table[shi];
  77.         dula=0;
  78.         P0=0xff;
  79.         wela=1;
  80.         P0=0xef;
  81.         wela=0;
  82.         delay1(1);

  84.         dula=1;
  85.         P0=table[shi];
  86.         dula=0;
  87.         P0=0xff;
  88.         wela=1;
  89.         P0=0xdf;
  90.         wela=0;
  91.         delay1(1);
  92. }
  93. void init()
  94. {
  95.         TMOD=0x20;//設置定時計數(shù)器T1為工作方式2，8位自動重裝
  96.         TH1=0xfd;//此溢出率為波特率9600
  97.         TL1=0xfd;
  98.         TR1=1; //啟動定時器1
  99.         SM1=1; //設置串口工作方式1，10位異步收發(fā)器
  100.         REN=1; //允許串口接受位
  101.         EA=1;  //開總中斷
  102.         ES=1;  //開串口中斷
  103. }
  104. void main()
  105. {
  106.         init();
  107.         while(1)
  108.         {
  109.                 display(CPdata);
  110.                 if(CPdata==0xeb)
  111.                   beep=0;
  112.                 else
  113.                         beep=1;
  114.                 if(flag==1)
  115.                 {
  116.                         ES=0;
  117.                         flag=0;
  118.                         SBUF=CPdata;
  119.                         while(!TI);
  120.                         TI=0;
  121.                         ES=1;
  122.                 }       
  123.         }
  124. }
  125. void timer3() interrupt 4        //串口中斷
  126. {
  127.         RI=0;
  128.         P1=SBUF;
  129.         CPdata=SBUF;
  130.         flag=1;
  131. }
復制代碼

所有資料51hei提供下載:
原創(chuàng)VB上位機控制數(shù)碼管-流水燈-蜂鳴器.zip (106.69 KB, 下載次數(shù): 25)


評分

參與人數(shù) 1黑幣 +50 收起 理由
admin + 50 共享資料的黑幣獎勵！

查看全部評分

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏3 分享淘帖 頂頂 踩踩
回復

使用道具 舉報

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

本版積分規(guī)則

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

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

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