Em đang làm về Đếm và phân loại SP trắng và đen Giao tiếp PIC 16F877A voi PC sử dụng VB. Em đã truyền được dữ liệu lên PC nhưng hiển thị không đúng ,xin mấy huynh chỉ em hướng giải quyết. Đây là file gồm Chương trình , mô phỏng bàng proteus và VB. http://www.mediafire.com/?195d8sza5tcjubg
Huynh nào rảnh xem và chỉ em hướng giải quyết Mail của em : vuhoan_vu@yahoo.com

cai nay truyen duoc 2byte nhung minh muon truyen 8byte thi nhu the nao mong cac ban giup do
Option Explicit
Dim Send_Data As String
Dim ket_noi As Integer
Dim Hbyte As Integer
Dim Lbyte As Integer
Dim arr() As Byte


Private Sub cmdclear_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub Form_Load()
'If MSComm1.PortOpen Then MSComm1.PortOpen = False
'With MSComm1
'.CommPort = 1
'.Settings = "9600,n,8,1"
'.RThreshold = 3 'so byte truyen
'.PortOpen = True
'End With
If MSComm1.PortOpen Then MSComm1.PortOpen = False
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.RThreshold = 3
MSComm1.InputMode = comInputModeBinary
MSComm1.InBufferCount = 0
MSComm1.PortOpen = True
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub cmdSend_Click()
Send_Data = Trim(Text1.Text)
Hbyte = Send_Data \ 256
Lbyte = Send_Data Mod 256
MSComm1.Output = Chr(Hbyte) & Chr(Lbyte) & Chr$(13)
'MSComm1.Output = Send_Data & Chr$(13)
End Sub

Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = comEvReceive Then
Dim rcv
If MSComm1.CommEvent = comEvReceive Then
arr() = MSComm1.Input
'If (arr(2) = 255) Then
Text2.Text = arr(0) * 256 + arr(1)
'End If
End If
End If
End Sub

anh ngohaibac có thể giup em cái nay được không, em có 1 giao diện VB cập nhật giá vàng từ internet xuống, em đã tải dữ liệu xuống được rồi nhưng sao không send data qua vi xử lý được và đây là VB mong anh sửa giúp em

anh bắc ơi hướng dẫn em cách gửi 1 chuỗi ký tự ví dụ " hoc vdk" từ giao diện của visual basic 6.0 lên pic 16f887 và hiển thị ký tự đó ra lcd
yêu cầu của em là trên giao diện gửi ký tự gì thì vđk sẽ hiển thị tự đó
em đang cần các anh chỉ em với co tài liệu cho em xin lun
mong mọi người giúp đỡ

minh cun cho g dang can giao tiep nhung co 1 vai

Bạn sử dụng ngắt RDA ( ngắt khi nhận đc 1 kí tự từ PC truyền xuống), dùng hàm getc( nhận 1 kí tự), tạo 1 mảng rồi cho vào mảng đấy là xong.
Trong VB thì bạn cũng phải tinh chỉnh mấy cái configuration của MSComm để giao tiếp đc với PIC qua cổng COM.
Thân.

hiện tại em làm đồ án vẽ đặc tuyến diode trên máy tính, sử dụng pic16877a, nhưng không bít làm cách nhận dữ liệu đo được (ở đây em đo con diode) từ cổng com để có thể vẽ đặc tuyến trên giao diện vb 6.0, e sử dụng teechar de ve,sau đó có 1 nút "lệnh đo" để yêu cầu phần cứng ben ngoài đo con diode rồi tiếp tục gửi dữ liệu vào máy tính de vẽ đặc tuyến trên giao diện vb 6.0. anh giúp em vs anh Bắc ơi

Den giao thong gtmt
 

có ai giup đỡ mình mạch đèn giao thông này được ko?
khi minh nhấn nút trong VB sao nó không chạy vậy ?

bi của a rất hữu ích.mong a giúp đỡ.e cũng dang làm cái đề tài điều khiển thiết bị qua tin nhắn dùng sim 900.cần a giúp phần giao tiếp này với ạ.mail của e. xuantruongdt2@gmail.com

cảm ơn bạn chia sẻ nha!