Giao tiếp PIC với máy tính

**mamie86** · 03-05-2008, 09:36 PM

Mình cũng đang làm giao tiếp với cổng COM nhưng có một số điều chưa rõ, mong các bạn chỉ thêm.
Chương trình bạn uydanh trền 1 byte lên PC, thế khi truyền nhiều byte ( putc (byte1); putc(byte2) ; ... ) thì trong vb xử lý như thế nào nhỉ ? Trong chương trình bạn UYDANH mình sửa lại như sau có đúng không?

Private Sub MSComm1_OnComm()
Dim buffer() As Byte
Dim j1,j2 As String
If MSComm1.CommEvent = comEvReceive Then
buffer = MSComm1.Input
j1 = cstr(buffer(0))
j2 = cstr(buffer(1))
txtreceive1.Text = j1
txtreceive2.Text = j2
End If
End Sub
(.RThreshold = 1 ; .InputLen = 0)
Kết quả : chỉ xuất dữ liệu byte2 lên ô :txtreceive1.Text,
còn ô : txtreceive2.Text thì bằng 0
Làm thế nòa để tách từng byte trên PC nhi?

03-05-2008, 09:36 PM	#11
mamie86 Nhập môn đệ tử Tham gia ngày: Sep 2006 Nơi Cư Ngụ: hue city Bài gửi: 3 :	Mình cũng đang làm giao tiếp với cổng COM nhưng có một số điều chưa rõ, mong các bạn chỉ thêm. Chương trình bạn uydanh trền 1 byte lên PC, thế khi truyền nhiều byte ( putc (byte1); putc(byte2) ; ... ) thì trong vb xử lý như thế nào nhỉ ? Trong chương trình bạn UYDANH mình sửa lại như sau có đúng không? Private Sub MSComm1_OnComm() Dim buffer() As Byte Dim j1,j2 As String If MSComm1.CommEvent = comEvReceive Then buffer = MSComm1.Input j1 = cstr(buffer(0)) j2 = cstr(buffer(1)) txtreceive1.Text = j1 txtreceive2.Text = j2 End If End Sub (.RThreshold = 1 ; .InputLen = 0) Kết quả : chỉ xuất dữ liệu byte2 lên ô :txtreceive1.Text, còn ô : txtreceive2.Text thì bằng 0 Làm thế nòa để tách từng byte trên PC nhi?