Giao tiếp qua máy tính

[pfievbk]

mọi người giúp mình code VB nhận dữ liệu từ 8051 đến máy tính.Giúp mình với nhé, mình đang cần gấp

[phucthinhel]

Cậu dùng VB + 1 cái timer ( thời gian định thời ngắn thôi ) , và trong cái định thời lôn gọi chương trình mscomm là được rồi ! Hi hi

[hoctro89xxx]

PC <->89

ban phucthinhel nay lam VB the thi hoi chuoi day. VB cung cap san ham ngat mscomm co ma, dau phai can den 1 timer.
Chi can lo^i ra 1 cai bieu tuong dien thoai, sua cac tham so duong truyen, sau do trong ham form_load() open cong COM. viet ma lenh vao ham mscomm, ham nay do minh dat duoc cu bao nhieu byte vao bo dem cong COM thi xu ly ham nay 1 lan ( tu dong hoan toan). Hay chay vu ra hieu sach doc lom quyen giao tiep may tinh voi thiet bi ngoai vi la lam duoc ngay ( toan bo no chi co khoang 15 dong la OK roi).

[phucthinhel]

Nhưng hàm này không tự làm tươi được , Nên phải dùng thêm một cái timer để check xem có ký tự mới gởi hay không . Còn nếu không thì kô bao giờ biết . Chắc bạn chưa thữ việc gởi nhận . Nếu không bạn sẽ vấp phải vấn đề mình vừa nói . Nói chung còn các kỷ thuật khác để biết trong bộ đệm có ký tự mới hay không nữa .
Kỹ thuật mình nói ở trên là đơn giản nhất thôi !

[linhnc308]

Nếu bác nào biết về CCS thì có thể vào bộ cái của nó, có cái tools giao tiếp với cổng COM máy tính, dùng khá hay mà hiệu quả cao, đơn giản chẳng phải lập trình gì cả. Tôi hay dùng nó để giao tiếp với VDK.

[phucthinhel]

À mình viết nhiều với VB và giao tiếp với máy tính rồi ! nên cũng quen !

[hoctro89xxx]

À mình viết nhiều với VB và giao tiếp với máy tính rồi ! nên cũng quen !

Quen rồi mà vẫn phải dùng timer à.
Tôi đã làm thực tế hàng trăm sản phẩm có điều khiển qua cổng COM rồi. Sao lại không làm tươi? về học lại VB đi. sản phẩm của tôi ngày chạy 24h/24h nếu không làm tươi sao mà điều khiển được. Bác xem lại đi nhé.

[phucthinhel]

ha ha ! cáo tui chỉ hướngg dẫn cho những ai mới học thôi . Còn tui tất nhiên là không dùng timer rồi ! hi hi

[phucthinhel]

Còn tui chạy 24/24 7 ngày tong tuần cũng ok ! chẳng ai phàn nàn !

[hoctro89xxx]

Còn tui chạy 24/24 7 ngày tong tuần cũng ok ! chẳng ai phàn nàn !

Không chỉ thì thôi chứ đã chỉ thì phải đến nơi đến chốn không các đàn em sẽ...

[goliat_bk]

+Nhung ma so gui tu may tinh xuong la so 2b trong khi buff cua 89 chi có 1b khi do so lieu tu may tinh tu cat hay la do ta cat ?
+Neu gui nhieu so thi chang nhe ta lai thu cong doc tung so a:?

[saobanmai]

đè nghị bạn này sang box lập trình C/C++ trong dó vào bài viết lập trình RS232 của NHB khá đầy đủ !!!

Cho hỏi cái box mà bạn nói nó nằm ở đâu thế , ngay trên diễn đàn này
hay ở chổ khác . cám ơn bạn nhiều !

[phamthaihoa]

+Nhung ma so gui tu may tinh xuong la so 2b trong khi buff cua 89 chi có 1b khi do so lieu tu may tinh tu cat hay la do ta cat ?
+Neu gui nhieu so thi chang nhe ta lai thu cong doc tung so a:?

- Máy tính gửi xuống 2b, bộ đệm Buf của 89 có 1 byte, nhưng bạn lại có 2 lần ngắt nhận, khi vào ngắt bạn lưu 2 lần đó vào RAM rồi ghép phần byte cao và byte thấp vào.
- Tất nhiên là như vậy, nói thì có vẻ phức tạp nhưng làm thì đơn giản thui mà

[unknown]

cho mình hỏi về cái ngắt của port nối tiếp:
khi mình dùng ngắt thì chương trình không chạy được. còn nếu mình không dùng ngắt mà đợi bit ri được set sau đó thực hiên nhận dữ liệu thì chương trình lại chạy được. mong các bác chỉ giúp

[TDH-BN]

Nè bạn bit RI được set khi VDK nhận dữ liệu qua công truyền thông nối tiếp .
Trong hàm ngắt nối tiếp của bạn thì bạn kiểm tra RI trước .

void serial() interrupt 4 using 2
{ unsigned char c;
if(RI==1){
c=SBUF;
RI=0; //sẵn sàng nhận tiếp
}

Còn chương trình Vb truyền nhận dữ liệu dùng ngắt MSCOMM như sau:

frmcomport.MSComm1.CommPort = 1
frmcomport.MSComm1.Settings = "2400,N,8,1"
frmcomport.MSComm1.RThreshold = 1
frmcomport.MSComm1.SThreshold = 1
frmcomport.MSComm1.PortOpen = True
Me.MSComm1.InputMode=comInputModeText
Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = comEvReceive Then
buffer = frmcomport.MSComm1.Input
txtnhan.text=txtnhan.text + buffer //hiển thị dữ liệu vừa nhận được;
End If
End Sub