PIC Vietnam - Lỗi hiển thị trên VB

PIC Vietnam (http://www.picvietnam.com/forum/index.php)

- Giao tiếp cổng COM và LPT (http://www.picvietnam.com/forum/forumdisplay.php?f=44)

- - Lỗi hiển thị trên VB (http://www.picvietnam.com/forum/showthread.php?t=9951)

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

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/...anh/PIC_VB.jpg

Trích:

Nguyên văn bởi caremlanh (Post 46607)

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/...anh/PIC_VB.jpg

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

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

Trích:

Nguyên văn bởi caremlanh (Post 46645)

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

Code:

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

Đã giải quyết xong

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:

Code:

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

ong tmd viet bang vb.net ma

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.

Trích:

Nguyên văn bởi hoanglangtu (Post 48878)

mọi người down về chạy bình thường mà.