本人要用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的屬性
沒有辦法以二進位接收
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(3) 人氣()