试了一下VB上微机控制LED，很简单的VB上位机。上位机默认使用COM4，单片机P1^0口接LED，点按键就可以控制LED。
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，则按照下图设置
完整的Word格式文档51黑下载地址：
| 
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
淘帖
顶
踩
