设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 嵌入式/单片机论坛 › 51单片机 › 原创VB上位机控制单片机数码管-流水灯-蜂鸣器 下位机联 ...
返回列表 发新帖
查看: 2177|回复: 0
打印 上一主题 下一主题
收起左侧

原创VB上位机控制单片机数码管-流水灯-蜂鸣器 下位机联合测试源程序

[复制链接]
跳转到指定楼层
楼主
ID:601620 发表于 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;//设置定时计数器T1为工作方式2，8位自动重装
  96.         TH1=0xfd;//此溢出率为波特率9600
  97.         TL1=0xfd;
  98.         TR1=1; //启动定时器1
  99.         SM1=1; //设置串口工作方式1，10位异步收发器
  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提供下载:
原创VB上位机控制数码管-流水灯-蜂鸣器.zip (106.69 KB, 下载次数: 25)


评分

参与人数 1黑币 +50 收起 理由
admin + 50 共享资料的黑币奖励！

查看全部评分

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏3 分享淘帖 顶顶 踩踩
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表