|
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 |
15-11-2009, 03:55 PM | #1 |
Đệ tử 1 túi
Tham gia ngày: Jul 2009
Bài gửi: 11
: |
Tách dữ liệu nhận được từ PIC877A lên PC
Các bạn giúp mình với
Mình dùng PIC877A, cứ sau 1 giây thì gửi 1 mảng gồm 11 bytes lên máy tính bằng lệnh sau: Code CCS: Code:
//----------------------------------------------------------------------- for (i=0;i<=10;i++) { printf("%u ",send_to_PC[i]); } //----------------------------------------------------------------------- Code Visual Basic: Code:
'------------------------------------------------------------------------ Private Sub MSComm1_OnComm() Dim Buffer As Variant If MSComm1.CommEvent = comEvReceive Then Buffer = MSComm1.Input data_nhan.Text = data_nhan.Text + Buffer '------------------------------------------------------------------------ Làm thế nào để tách các byte trong nhóm 11 bytes? Giữa các nhóm byte với nhau? Mình đã thử dùng một biến count_byte để đếm số bytes nhận được, nhưng chỉ đúng cho nhóm 11 bytes đầu tiên, còn các nhóm bytes sau thì không đúng. Các bạn biết nhiều về Visual Basic giúp mình với Cảm ơn nhiều thay đổi nội dung bởi: phamminhtuan, 16-11-2009 lúc 10:47 AM. Lý do: Định dạng code |
16-11-2009, 10:54 AM | #2 | |
Super Moderator
Tham gia ngày: Feb 2006
Bài gửi: 150
: |
Trích:
Bạn muốn gởi chính xác 11 byte lên máy tính và tách nó ra dễ dàng thì bạn nên tạo một frame, bao gồm 1 byte mở đầu hay 1 byte kết thúc hoặc có thể có 1 byte mở đầu + 1 byte kết thúc ..v.v |
|
16-11-2009, 05:04 PM | #3 |
Đệ tử 4 túi
Tham gia ngày: May 2009
Bài gửi: 74
: |
phạm minh tuấn nói rất đúng bạn nên đóng gói thành 1 farme có byte dầu là byte start,byte 2 là byte chỉ số byte data ,và byte cuoi là byte stop
giao diện vb nhận data bạn có thể nhận bằng phương pháp thăm dò hoặc phương pháp ngắt nếu bạn sử dụng ngắt bạn đặt MSComm1.Rthreshold = số byte nhận ở bài của bạn ta đặt 11 khi đó cứ khi bộ nhớ đệm nhạn được 11 byte thì sẽ nhảy đến sự kiện ngắt on com Private Sub MSComm1_OnComm() dim a[11] dim i If MSComm1.CommEvent = comEvReceive Then a[i]= MSComm1.Input i++ end sub khi đó bạn sẽ được 1 mảng dữ liệu nhận về hoặc bạn có thể sử dụng thăm dò sem bộ nhớ đệm khi nòa nhận đủ 11 byte thì đọc và xóa bộ đệm để nhận gói 11 byte tiếp theo If MSComm1.InBufferCount >10 Then a[i] = MSComm1.Input em nối có chỗ nào không đúng mong các bác chỉ giáo!!!! thankS! còn bạn hãy thử làm xem nhé |
16-11-2009, 10:45 PM | #4 | |
Đệ tử 1 túi
Tham gia ngày: Jul 2009
Bài gửi: 11
: |
Chưa hiểu lắm
Trích:
|START|Số byte dữ liệu|...Data...|STOP| Như vậy thì giá trị byte START, STOP = ??? Có phải giá trị này tự mình quy ước không? Và có cần chú ý gì khi truyền kiểu này không, bạn dung_h ??????? |
|
16-11-2009, 11:07 PM | #5 |
Đệ tử 4 túi
Tham gia ngày: May 2009
Bài gửi: 74
: |
đúng vậy
nếu bạn o biết trước số byte cần truyền thì cần có 1 byte2 báo số byte truyền cho bên nhận biết để xác định gói nhận được còn nếu bạn đã biết trước hay định bao nhiêu byte thì chỉ cần |start|...data...|stop| byte start,stop là do bạn qui định vd là ký tự nào đó |
18-11-2009, 08:04 PM | #6 |
Đệ tử 1 túi
Tham gia ngày: Jul 2009
Bài gửi: 11
: |
Thankyou!...........
Để mình thử xem sao! |
|
|