none
VS2008(VB)的RS232问题 RRS feed

  • 问题

  • 各位前辈,小弟需要用PC与一台仪器联系,PC发送M8,0CR的话,仪器会返回相应数据.

    小弟初学,无论如何也取不出来数据,请帮忙看看问题在哪里,返回值总是12.我使用PC的超级终端就可以正常工作.

    我在SERIALPORT中已经设定了固定的端口名\波特率等参数.

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            If SerialPort1.IsOpen = False Then
                SerialPort1.Open()
            End If

            Dim a As String = "M8,0" & Chr(&HD)
            SerialPort1.Write(a)
            Timer1.Interval = 100
            Timer1.Enabled = True
            Dim buffer(SerialPort1.BytesToRead - 1) As Byte
            Dim b As String = SerialPort1.Read(buffer, 0, SerialPort1.BytesToRead)
            TextBox1.Text = b


        End Sub



    2011年8月10日 9:21

答案

全部回复