Dim rx(7) As Byte
Private Sub Command1_Click()
MSComm1.Settings = "2400,N,8,1" '設定波特率4800，無校驗位，8位資料位，一位停止位
MSComm1.CommPort = 4 '設定串口埠
MSComm1.InBufferSize = 64 '設定接識訓沖區大小
MSComm1.OutBufferSize = 64 '設定發送緩沖區大小
MSComm1.RThreshold = 1 '設定并回傳產生oncomm事件的字符數
MSComm1.SThreshold = 0
MSComm1.InputLen = 0 '讀取整個緩沖區
MSComm1.InputMode = comInputModeBinary '以文本方式接收
MSComm1.InBufferCount = 0 '清空接識訓沖區
MSComm1.OutBufferCount = 0 '清空發送緩沖區
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
Private Sub MSComm1_OnComm()
Dim count As Integer
Dim real As Long
real = 0
rx(7) = MSComm1.Input
For count = 0 To 7
real = real * 2 + rx(count)
Next count
uj5u.com熱心網友回復：
rx(7) = MSComm1.Input
二進制方式下 Input 回傳的是位元組陣列。
Dim data() As Byte
data = MSComm1.Input
rx(7) = data(0)
uj5u.com熱心網友回復：
讀取資料時，直接用陣列名。然后再用下標挨個取。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/92493.html
標籤：VB基礎類