用MSCOMM控件可以構成上位機與51的聯系，通過MSCOMM1.OUPUT=BUFF語句可以向51的P0.0-P0.7的8位寄存器賦值相應的BCD碼，打開或關閉該位的LED，簡單方便。這是最小化的應用，最大化的應用則是應將P1-P3都予以賦能，其技術才是最優的，形成產品才有好的性價比。這就是我請教高手的初心和目的。還望高手海涵和不吝賜教。謝謝啦！

上位機板塊xia逛逛

1、做4個存儲器X1-X4;
2、寫個51的程序，將X1-X4的數據分別控制51的4個IO口。
3、通過”橋“，將VB的數據，送入X1-X4。
估計能做到這樣，就完成你的意愿了。

看你用的是什么型號的單片機啦不同的單片機控制IO口的指令都不同，51的你如果想輸出就把值給IO口，就相當于輸出讀IO口的值，就可以知道輸入的值

本壇上位機板塊多去逛逛

'串口頁面
Option Explicit
Private Declare Function ReleaseCapture Lib "user32" () As Long '***************窗體的移動--開始
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long '***************窗體的移動--開始
Dim Cnn As New ADODB.Connection     '定義數據連接
Dim rs1s As New ADODB.Recordset '定義數據連接
Dim rs2s As New ADODB.Recordset '定義數據連接
Dim rs3s As New ADODB.Recordset '定義數據連接
Dim rs4s As New ADODB.Recordset '定義數據連接
......
本平臺有30路繼電器VB實例，實在看不懂！也許是思路不同，坐實費解。也有用FPGA來做的，真是“豆腐做出肉價錢了”。51最小系統應該就能實現，繼續努力！

VB只能寫上位機程序，把PC和51連接，看你的要求應該用串口包括藍牙串口連接的，51根據串口收到的命令控制不同的端口。
不過是調用些api，查查手冊沒啥難度。

你有更好的思路嗎?

1、做4個存儲器X1-X4;
2、寫個51的程序，將X1-X4的數據分別控制51的4個IO口。
3、通過”橋“，將VB的數據，送入X1-X4。
估計能做到這樣，就完成你的意愿了。

1、VB是一個語言，它與51的4個IO口沒有一點關系。這一點你必須清楚！！！
2、你需要將【VB】與【51的4個IO口】之間，搭建一個連通的“橋”。
“橋”通了，你的問題也就通了。
“橋‘呢？