|
Tài trợ cho PIC Vietnam |
Giao tiếp cổng COM và LPT RS232, RS485 và LPT là những giao tiếp cơ bản và kinh điển khi mới học về vi điều khiển... |
|
Ðiều Chỉnh | Xếp Bài |
|
04-07-2011, 08:16 PM | #1 |
Đệ tử 3 túi
|
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 ||
|
05-07-2011, 10:09 PM | #2 |
Đệ tử 5 túi
Tham gia ngày: Dec 2010
Bài gửi: 101
: |
bạn xem cái này xem minh vừa mới sửa lai tý thôi
|
05-07-2011, 11:21 PM | #3 |
Đệ tử 3 túi
|
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 |
06-07-2011, 01:15 PM | #4 | |
Đệ tử 7 túi
Tham gia ngày: May 2005
Bài gửi: 258
: |
Trích:
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
__________________
viết chương trình cho vdk chạy ổn định là cả một vấn đề. |
|
06-07-2011, 03:07 PM | #5 |
Đệ tử 3 túi
|
Đã 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 thay đổi nội dung bởi: caremlanh, 23-08-2011 lúc 02:47 PM. |
06-07-2011, 07:17 PM | #6 |
Đệ tử 5 túi
Tham gia ngày: Dec 2010
Bài gửi: 101
: |
ong tmd viet bang vb.net ma
thay đổi nội dung bởi: phatcddt08a, 06-07-2011 lúc 07:29 PM. |
21-08-2011, 11:03 PM | #7 |
Nhập môn đệ tử
Tham gia ngày: Dec 2007
Bài gửi: 4
: |
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.
|
23-08-2011, 12:08 PM | #8 | |
Đệ tử 3 túi
|
Trích:
|
|
|
|