本人要用mscomm在一個每次送出33個byte 的機器上去接收 每個byte的ascii值,但如果它的值 大於128 接收結果變成 0 我應該怎麼辦
Private Sub Timer1_Timer()
Dim bstr(33)
If MSComm1.InBufferCount > 32 Then
MSComm1.InputLen = 1
For i = 1 To 33
bstr(i) = Asc(MSComm1.Input)
Next i
For i = 1 To 33
Text4 = Text4 + Str(bstr(i))
Next i
End If
End Sub
**本人使用vb4
vb4的mscomm物件沒有inputmode的屬性
沒有辦法以二進位接收
Private Sub Timer1_Timer()
Dim bstr(33)
If MSComm1.InBufferCount > 32 Then
MSComm1.InputLen = 1
For i = 1 To 33
bstr(i) = Asc(MSComm1.Input)
Next i
For i = 1 To 33
Text4 = Text4 + Str(bstr(i))
Next i
End If
End Sub
**本人使用vb4
vb4的mscomm物件沒有inputmode的屬性
沒有辦法以二進位接收
全站熱搜
留言列表