試了一下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黑下載地址：
VB控制單片機LED.doc
(472.5 KB, 下載次數: 58)
2019-3-2 10:13 上傳
點擊文件名下載附件
下載積分: 黑幣 -5
| 
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
