# Re: 请教VB 通讯接收技巧

Posted by callback on November 06, 1998 at 13:30:39:

In Reply to: 请教VB 通讯接收技巧 posted by Heng on November 06, 1998 at 12:09:30:

: Private Sub Command1_Click()
: Dim Buffer As Variant
: Dim Arr1() As Byte
:
: MSComm1.InputMode = comInputModeBinary
:
: Dim byteData(4) As Byte
: byteData(0) = &H55
: byteData(1) = &H1
: byteData(2) = &H1
: byteData(3) = &HFE
: byteData(4) = &HAA
:
: MSComm1.Output = byteData '送出时正常 . OK.
: '================================================
: Do Until MSComm1.InBufferCount < 5
: DoEvents
: Loop
:
: Buffer = MSComm1.Input
: Arr1 = Buffer
: Text2.Text = Arr1 '问题点:接收时无法收到正常值......??????
: '请问程式该如何撰写 ...Thank's.........#
: '===============================================
: End Sub

Follow Ups: