如果用VB編寫壹個上位機界面，如何與下位機進行通信，即數據的傳輸

設置初始MSCOMM後自己定義數據長度

部分代碼如下：

Private Sub initcom() 串口初始化程序塊

MSComm1.CommPort = 1 '選用com1串行口

MSComm1.Settings = "9600,N,8,1" '波特率9600，無奇偶校驗位，8位數據位1位停止位

MSComm1.InputLen = 0 'input將讀取接收緩沖區的全部內容

MSComm1.InBufferSize = 1024 '設置接收緩沖區的字節長度

'MSComm1.PortOpen = True '打開通信口

MSComm1.InBufferCount = 0 '清除接收緩沖區數據

MSComm1.OutBufferCount = 0 '清除發送緩沖區數據

MSComm1.InputMode = comInputModeText

'MSComm1.InputMode = comInputModeBinary

'periodic.inteval = 100 '設置ls定時間隔，使遙測命令每隔ls發送1次

End Sub

Private Sub MSComm1_OnComm() 接收,發送處理事件

MSComm1.RThreshold = 0

Dim b As String

If MSComm1.CommEvent = comEvReceive Then

b = MSComm1.Input

Text1.Text = Text1.Text & b & " "

Text1.SelStart = 0 'Len(Text1.Text)

Call confirm(b)

End If

MSComm1.RThreshold = 148

End Sub

更多相關:/board.asp?boardid=3還有以後我的網站yu3zx.com有相關代碼收集