单片机论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 114|回复: 4
收起左侧

通过VB.NET上位机点亮STM32 LED灯源程序

[复制链接]
旮旯 发表于 2019-12-2 17:51 | 显示全部楼层 |阅读模式
VB.NET2010编写的上位机通过串口连接,点亮STM32开发板的LED灯,网上的例子,自己改的。

上位机图片

上位机图片
51hei.png

单片机源程序如下:
#include "led.h"
#include "delay.h"
#include "key.h"
#include "sys.h"
#include "usart.h"

int main(void)
{                 
         u8 a;
         u8 t;
         u8 len;        
         u16 times=0;
        delay_init();                     //延时函数初始化         
        NVIC_PriorityGroupConfig(NVIC_PriorityGroup_2); //设置NVIC中断分组2:2位抢占优先级,2位响应优先级
        uart_init(9600);         //串口初始化为115200
         LED_Init();                             //LED端口初始化
         KEY_Init();
         while(1)
        {
                LED1=1;
                if(USART_RX_STA&0x8000)
                {        
                        len=USART_RX_STA&0x3fff;//得到此次接收到的数据长度                        
                        printf("\r\n您发送的消息为:\r\n\r\n");
                        for(t=0;t<len;t++)
                        
                        {
                                USART_SendData(USART1, USART_RX_BUF[t]);//向串口1发送数据
                                a=USART_RX_BUF[t];
                                while(USART_GetFlagStatus(USART1,USART_FLAG_TC)!=SET);//等待发送结束
                        }
                        printf("\r\n\r\n");//插入换行
                        USART_RX_STA=0;
                }else
                {
                        times++;
                        if(times%5000==0)
                        {
                                printf("\r\nSTM32开发板 串口实验\r\n");
        }         
                        if(times%200==0)printf("\r\n请输入数据,以回车键结束\r\n");
        if(a=='0')LED0=0;
        if(a=='1')LED0=1;
        
                delay_ms(10);
        
}
  }
}

全部资料51hei下载地址:
STM32串口通信.7z (187.96 KB, 下载次数: 3)

评分

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

查看全部评分

 楼主| 旮旯 发表于 2019-12-7 11:45 | 显示全部楼层
没人来看嘛,我自己先顶下
pcbboy 发表于 2019-12-7 13:32 来自手机 | 显示全部楼层
不错,上位机有源文件吗?象学习一下。
ujyhy 发表于 2019-12-11 09:55 | 显示全部楼层
怎么没法用啊
 楼主| 旮旯 发表于 2019-12-11 21:19 | 显示全部楼层

怎么没法用,我自己测试了才发的啊
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

Powered by 单片机教程网

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