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

标题: 通过VB.NET上位机点亮STM32 LED灯源程序 [打印本页]

作者: 旮旯 时间: 2019-12-2 17:51
标题: 通过VB.NET上位机点亮STM32 LED灯源程序
VB.NET2010编写的上位机通过串口连接，点亮STM32开发板的LED灯，网上的例子，自己改的。

单片机源程序如下:
#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, 下载次数: 19)

点亮LED灯.rar (69.1 KB, 下载次数: 21)

作者: 旮旯 时间: 2019-12-7 11:45
没人来看嘛，我自己先顶下

作者: pcbboy 时间: 2019-12-7 13:32
不错，上位机有源文件吗？象学习一下。

作者: ujyhy 时间: 2019-12-11 09:55
怎么没法用啊

作者: 旮旯 时间: 2019-12-11 21:19

ujyhy 发表于 2019-12-11 09:55
怎么没法用啊

怎么没法用，我自己测试了才发的啊

欢迎光临 (http://www.51hei.com/bbs/)