[tdm]

Nguyên văn bởi caremlanh

Mình tét kĩ rồi, hiển thị trên Termianal thì ko có vấn đề gì

Nhưng trên VB thì ko xuống dòng được

code này viết trên microsoft visual basic 2008 express edition:

Public Class Form1
    Private buffRev As String = ""

    Private Sub serialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        buffRev = SerialPort1.ReadExisting()
        Me.Invoke(New EventHandler(AddressOf DisplayText))
    End Sub

    Private Sub DisplayText(ByVal sender As Object, ByVal e As EventArgs)
        RichTextBox1.AppendText(buffRev)   'Để thêm vào nội dung của Textbox, bạn sử dụng phương thức AppendText 
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not SerialPort1.IsOpen Then
            SerialPort1.Open()
        End If
    End Sub
End Class