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

上位機(jī)板塊xia逛逛

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

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

本壇上位機(jī)板塊多去逛逛

'串口頁(yè)面
Option Explicit
Private Declare Function ReleaseCapture Lib "user32" () As Long '***************窗體的移動(dòng)--開始
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 '***************窗體的移動(dòng)--開始
Dim Cnn As New ADODB.Connection     '定義數(shù)據(jù)連接
Dim rs1s As New ADODB.Recordset '定義數(shù)據(jù)連接
Dim rs2s As New ADODB.Recordset '定義數(shù)據(jù)連接
Dim rs3s As New ADODB.Recordset '定義數(shù)據(jù)連接
Dim rs4s As New ADODB.Recordset '定義數(shù)據(jù)連接
......
本平臺(tái)有30路繼電器VB實(shí)例，實(shí)在看不懂！也許是思路不同，坐實(shí)費(fèi)解。也有用FPGA來(lái)做的，真是“豆腐做出肉價(jià)錢了”。51最小系統(tǒng)應(yīng)該就能實(shí)現(xiàn)，繼續(xù)努力！

VB只能寫上位機(jī)程序，把PC和51連接，看你的要求應(yīng)該用串口包括藍(lán)牙串口連接的，51根據(jù)串口收到的命令控制不同的端口。
不過(guò)是調(diào)用些api，查查手冊(cè)沒(méi)啥難度。

你有更好的思路嗎?

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

1、VB是一個(gè)語(yǔ)言，它與51的4個(gè)IO口沒(méi)有一點(diǎn)關(guān)系。這一點(diǎn)你必須清楚�。�！
2、你需要將【VB】與【51的4個(gè)IO口】之間，搭建一個(gè)連通的“橋”。
“橋”通了，你的問(wèn)題也就通了。
“橋‘呢？