Lỗi hiển thị trên VB

[caremlanh]

Mọi người giúp em sửa lỗi này nhé: giao diện VB không hiển thị đúng ký tự \n\r từ PIC gửi lên, nó ra hai dấu ||
http://i1218.photobucket.com/albums/dd417/caremlanh/PIC_VB.jpg

[phatcddt08a]

Mọi người giúp em sửa lỗi này nhé: giao diện VB không hiển thị đúng ký tự \n\r từ PIC gửi lên, nó ra hai dấu ||
http://i1218.photobucket.com/albums/dd417/caremlanh/PIC_VB.jpg

bạn xem cái này xem minh vừa mới sửa lai tý thôi

[caremlanh]

Mình tét kĩ rồi, hiển thị trên Termianal thì ko có vấn đề gì
http://i1218.photobucket.com/albums/dd417/caremlanh/Terminal.jpg
Nhưng trên VB thì ko xuống dòng được
http://i1218.photobucket.com/albums/dd417/caremlanh/VB.jpg

[tdm]

Mình tét kĩ rồi, hiển thị trên Termianal thì ko có vấn đề gì
http://i1218.photobucket.com/albums/dd417/caremlanh/Terminal.jpg
Nhưng trên VB thì ko xuống dòng được
http://i1218.photobucket.com/albums/dd417/caremlanh/VB.jpg
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

[caremlanh]

Thank anh tdm, nhưng em dùng VB 6.0 và cũng sửa được lỗi rồi
sửa lại đoạn code VB sau:
Private Sub MSComm1_OnComm()
Dim InputText As String
If Me.MSComm1.CommEvent = comEvReceive Then
InputText = MSComm1.Input
If InputText = Chr(10) Then 'neu la ky tu \n
txtOutput.Text = txtOutput.Text & vbNewLine 'thi xuong hang
End If

txtOutput.Text = txtOutput.Text + InputText
txtOutput.SelStart = Len(txtOutput.Text)
End If
End Sub

[phatcddt08a]

ong tmd viet bang vb.net ma

[hoanglangtu]

Ko hieu sao mình lấy toàn bộ của caremlanh về chạy nó không hiển thị PICVIETNAM mà hiển thị như hình dưới đây, các ký tự mình gõ từ ô inputBox khi gửi sang ô outputBox nó cũng hiển thị linh tinh không rõ ký tự gì nữa, caremlanh có thể giải thích dúp mình được ko? Thank.

[caremlanh]

Ko hieu sao mình lấy toàn bộ của caremlanh về chạy nó không hiển thị PICVIETNAM mà hiển thị như hình dưới đây, các ký tự mình gõ từ ô inputBox khi gửi sang ô outputBox nó cũng hiển thị linh tinh không rõ ký tự gì nữa, caremlanh có thể giải thích dúp mình được ko? Thank.
mọi người down về chạy bình thường mà.