PIC Vietnam

Go Back   PIC Vietnam > Truyền thông > Giao tiếp cổng COM và LPT

Tài trợ cho PIC Vietnam
Trang chủ Đăng Kí Hỏi/Ðáp Thành Viên Lịch Bài Trong Ngày Vi điều khiển

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...

Trả lời
 
Ðiều Chỉnh Xếp Bài
Old 04-07-2011, 08:16 PM   #1
caremlanh
Đệ tử 3 túi
 
caremlanh's Avatar
 
Tham gia ngày: Jul 2010
Nơi Cư Ngụ: hcm
Bài gửi: 52
:
Send a message via Yahoo to caremlanh
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 ||
File Kèm Theo
File Type: rar PIC_PC_VB.rar (109.0 KB, 69 lần tải)
caremlanh vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Old 05-07-2011, 10:09 PM   #2
phatcddt08a
Đệ tử 5 túi
 
phatcddt08a's Avatar
 
Tham gia ngày: Dec 2010
Bài gửi: 101
:
Trích:
Nguyên văn bởi caremlanh View Post
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 ||
bạn xem cái này xem minh vừa mới sửa lai tý thôi
Hình Kèm Theo
File Type: bmp hinh anh.bmp (1.50 MB, 10 lần tải)
phatcddt08a vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Old 05-07-2011, 11:21 PM   #3
caremlanh
Đệ tử 3 túi
 
caremlanh's Avatar
 
Tham gia ngày: Jul 2010
Nơi Cư Ngụ: hcm
Bài gửi: 52
:
Send a message via Yahoo to 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
caremlanh vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Old 06-07-2011, 01:15 PM   #4
tdm
Đệ tử 7 túi
 
Tham gia ngày: May 2005
Bài gửi: 258
:
Trích:
Nguyên văn bởi caremlanh View Post
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:
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
Hình Kèm Theo
File Type: jpg rs232.jpg (138.7 KB, 0 lần tải)
__________________
viết chương trình cho vdk chạy ổn định là cả một vấn đề.
tdm vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Old 06-07-2011, 03:07 PM   #5
caremlanh
Đệ tử 3 túi
 
caremlanh's Avatar
 
Tham gia ngày: Jul 2010
Nơi Cư Ngụ: hcm
Bài gửi: 52
:
Send a message via Yahoo to caremlanh
Đã 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.
caremlanh vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Old 06-07-2011, 07:17 PM   #6
phatcddt08a
Đệ tử 5 túi
 
phatcddt08a's Avatar
 
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.
phatcddt08a vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Old 21-08-2011, 11:03 PM   #7
hoanglangtu
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.
Hình Kèm Theo
File Type: bmp untitled.bmp (1.79 MB, 5 lần tải)
hoanglangtu vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Old 23-08-2011, 12:08 PM   #8
caremlanh
Đệ tử 3 túi
 
caremlanh's Avatar
 
Tham gia ngày: Jul 2010
Nơi Cư Ngụ: hcm
Bài gửi: 52
:
Send a message via Yahoo to caremlanh
Trích:
Nguyên văn bởi hoanglangtu View Post
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à.
caremlanh vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Trả lời


Quyền Sử Dụng Ở Diễn Ðàn
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Mở
Smilies đang Mở
[IMG] đang Mở
HTML đang Tắt

Chuyển đến


Múi giờ GMT. Hiện tại là 02:53 PM.


Được sáng lập bởi Đoàn Hiệp
Powered by vBulletin®
Page copy protected against web site content infringement by Copyscape
Copyright © PIC Vietnam