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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!