通過VB.NET上位機點亮STM32 LED燈源程序

ID:196268 · 發表于 2019-12-2 17:51

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)