VB控制单片机LED之最简单上位机

前端之家收集整理的这篇文章主要介绍了VB控制单片机LED之最简单上位机前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

这里分享一下自己写的VB上微机控制LED,这已经是最简单的VB上位机了


VB上位机默认使用COM4,单片机P1^0口接LED,点击按键就可以控制LED了


工程构建



实验效果




单片机程序 :

#include <reg52.h>

void UartInit(void)
{
	SCON |= 0x50 ;
	PCON  = 0x00 ;
	TMOD |= 0x20 ;
	TH1   = 0xfd ;		/*11.0592MHZ,9600kps*/
	TL1   = 0xfd ;
	TR1   = 1 ;
	ES    = 1;
	EA    = 1 ;
}


void main(void)
{
	 UartInit();
	 while(1);
}

void UartISR(void) interrupt 4
{
	if(TI)
	{
		TI = 0 ;
	}
	if(RI)
	{
		RI = 0 ;
		P1 = SBUF ;
	}
}



上位机程序 :

Private Sub Form_Load()
  Form1.WindowState = 2 '界面设置为最大
  Command1.Caption = "点亮LED"
  Command2.Caption = "熄灭LED"
  MSComm1.CommPort = 4
  MSComm1.PortOpen = True
End Sub

Private Sub Command1_Click()            '点亮
    MSComm1.Output = Chr(1 & vbCr)
    
End Sub

Private Sub Command2_Click()        '熄灭

    MSComm1.Output = Chr(0 & vbCr)
End Sub

因为VB程序中已经固定了COM口,所以可以设置电脑COM为4,如果不为COM4,则按照下图设置

猜你在找的VB相关文章