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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

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

搜索
»论坛 › 嵌入式/单片机论坛 › 51单片机 › 51单片机基于VB的上位机通信（流水灯实验）
返回列表 发新帖
查看: 2432|回复: 2
打印 上一主题 下一主题
收起左侧

51单片机基于VB的上位机通信（流水灯实验）

[复制链接]
跳转到指定楼层
楼主
ID:259621 发表于 2017-12-9 22:50 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
PC控制单片机，实现基本通信。



vb上位机源码：


单片机源程序如下:
  1. #include<reg51.h>
  2. #define         uchar  unsigned char
  3. uchar num=0;           //字符型变量          初始化将灯全灭
  4. void delayms(int z)
  5. {
  6.         int x,y;
  7.         for(x=z;x>0;x--)
  8.          for(y=110;y>0;y--);
  9. }
  10. void Uart_init()
  11. {
  12.         SCON=0xd0;          //SM1=1  REN=1
  13.         TMOD=0x20;          //D5=1 D4=0 即M1=1 M0=0
  14.         TH1=0xfd;         //TH1=0XFD TL1=0XFD 将波特率设为9600
  15.         TL1=0xfd;
  16.         TR1=1;        //启动定时器1
  17.         ES=1;                //打开串口中断
  18.         EA=1;        //打开总中断
  19. }
  20. void main()
  21. {
  22.         while(1)
  23.    {
  24.         Uart_init();
  25. //        while(1);
  26.         P2=~num;
  27.        
  28.    }
  29. }         
  30. void interrupt_uart() interrupt 4                //串口中断优先等级为4
  31. {
  32.         if(TI)
  33.         {
  34.                  TI=0;
  35.                  REN=1;   //不发送时允许接收       
  36.         }
  37.         if(RI)
  38.         {
  39.                  RI=0;     //先把接收标志位清零
  40. ……………………

  42. …………限于本文篇幅 余下代码请从51黑下载附件…………
复制代码

所有资料51hei提供下载:
VB上位机（流水灯实验）.rar (30.83 KB, 下载次数: 39)




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

使用道具 举报

沙发
ID:112693 发表于 2017-12-10 08:38 | 只看该作者
沙发了，学习一下！！！！！！！！！
回复

使用道具 举报

板凳
ID:269211 发表于 2018-2-8 16:23 | 只看该作者
学习一下！
回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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