Giao tiếp máy tinh dung visual basic ( IC 89C52)

[tientrang]

Em đang làm dề tài tốt nghiệp dùng vi xu ly dể hiển thi LCD va đồng hồ thời gian thực nhưng có phần giao tiếp với PC phai dung phần mềm Visual Basic để viết chương trinh giao tiếp với PC nhưng em chưa hiểu rõ lắm về vấn dề này mong các anh chỉ giúp với. Xin cảm ơn các anh nhiều. Thank

[HPECOM]

Bạn xem tài liệu này sẽ rõ. Đây là tài liệu của một bạn nào đó đã đưa lên, tôi up lại để bạn tham khảo. Tài liệu rất đầy đủ và chi tiết.
Chúc bạn thành công!

[tc8051]

Luồn này khá hay sao hơn một năm rồi ko thấy các cao thủ post bài tiếp vậy?
Các bác cao thủ trở lại hâm nóng chủ đề này đi.
Hình như để tạo giao diện điều khiển ta có thể dùng visual C++ thay cho VB được phải ko các bác?Phần mềm nào tiện lợi hơn nhỉ?
Thanks!

[rainbowsmile]

Đề bài của mình chỉ là gửi số 0 > 9 ra 8051 thôi, ko có nhận dữ liệu, chỉ xuất thôi nha.
Vừa tập viết VB6, đưa lên mọi người test giùm nha.

Private Sub cmdClear_Click()
Text1.Text = ""
End Sub

Private Sub cmdExit_Click()
MSComm1.PortOpen = False
End
End Sub

Private Sub cmdSent_Click()
MSComm1.Output = Text1.Text
End Sub

Private Sub Form_Load()
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputMode = 1
MSComm1.PortOpen = True
End Sub

File VB6: http://www.mediafire.com/?g4yjjty424d

[ngohaibac]

Cái này không có kiểm tra kí tự thì làm sao biết gửi từ 0 đến 9 , gõ chữ a thử rồi gửi đi xem nào. Hehe.

[rainbowsmile]

Đã thay đổi, thêm vào đièu kiện 0 > 9, nhưng sao nó ko hiện Msgbox nhỉ Vì em mới học VB sáng nay nên mọi người test giùm nha. Chỉ sợ Syntax hok có đúng.

Private Sub cmdSent_Click()
Dim txt As Integer
If txt < 0 And txt > 9 Then
MsgBox ("Chi dc nhap so tu 0 > 9")
End If
MSComm1.Output = Text1.Text
End Sub

Link VB mới : http://www.mediafire.com/?xj3kymxuzmz

[koakoa_238]

Mình lập trình Asembly cho 89S52 và dùng VB, nếu bạn cần có thể liên hệ với mình, hy vọng chương trình của mình sẽ giúp bạn có cái nhìn tốt hơn, dễ dàng hơn khi tiếp cận với vấn đề : Giao tiếp giữa 8051 với máy tính - Thời gian thực DS1307- Đo và điều khiển nhiệt độ LM35, ADC...
PC,files của mình bị virus nên không gửi qua mail được. Files Mediafire thì lỗi, mình chỉ Send được khi Chat thôi.

http://dientuvietnam.net/forums/showthread.php?t=23938
LBF anhduc_dtvn@yahoo.com

[koakoa_238]

Bạn chú ý, khi minh gửi dữ liệu từ PC xuống thì nó là mã ASCII. Ví dụ bạn gửi số 1 thì 8051 nhận được là số 49 Dec, tức 30 Hexa,vvv...
Mình không làm như bạn ở câu lệnh này: MSComm1.InputMode = 1 (Binary)
Mình dùng MSComm1.InputMode = 0 (Text)
Nó có 1 số ưu điểm mà mình sẽ nói đến sau, vì giờ cũng muộn rồi mà.
* LBF *

[quytim]

Em cũng đang làm cái này, em có vấn đề nhỏ,mong các bác chỉ giáo

data của em truyền lên PC từ vi điều khiển nó có 4 byte liên tiếp, em muốn truyền hết lên PC rồi mỗi byte đưa vào 1 textbox, nhưng mỗi lần truyền chỉ được 1 byte, em không làm thế nào lập trình để mỗi byte hiện lên trên 1 Textbox đc, vì nếu gõ lại lệnh dùng đến MSComm1.Input hay dùng vòng lặp thì khi chạy với vdk nó báo lỗi luôn, chắc là khi đó nó không biết giá trị đầu vào đưa vào đâu.
Ai có kinh nghiệm xử lý cái này hay có thủ thuật nào chỉ giáo cho e với

Private Sub MSComm1_OnComm()
Dim j As String
If MSComm1.CommEvent = comEvReceive Then
j = MSComm1.Input 'Nhan chuoi du lieu to VCOM
Text1.Text = j
End If
End Sub

[quytim]

bác koakoa_238 cho hỏi cái này có ý nghĩa gì MSComm1.InputMode = 0 (Text)

[hoanganh1001]

mình đang làm một bài tập liên quan đên giao tiếp giữa máy tính với vda6p5bang VB ,cụ thể là con 89c51rd2xx
các bạn cho mình hỏi.
có cách nào có thể lấy dữ liệu từ con 89c51 về máy tính ko.
và có bạn nào có mạch giao tiếp mày tính với 89c51rd2xx bằn VB KO.

[hoanganh1001]

chào các bạn
minh đang làm một bài tập liên quan dếm giao tiếp máy tính với vdk bằng cổng com, sử dụng VB.
cụ thể là sử dụng c0n 89c51rd2xx,
có bạn nào có mạch thì giúp đỡ mính với
va cho mình hỏi là
co cách nào lấy giữ liệu từ vdk len máy tính ko.

[tatdat]

mình đang làm một bài tập liên quan đên giao tiếp giữa máy tính với vda6p5bang VB ,cụ thể là con 89c51rd2xx
các bạn cho mình hỏi.
có cách nào có thể lấy dữ liệu từ con 89c51 về máy tính ko.
và có bạn nào có mạch giao tiếp mày tính với 89c51rd2xx bằn VB KO.

Chào bạn, để truyền và nhận data từ 89c51 sang máy tính ta dùng các lệnh sau:

MAIN:
	lcall setting
NHAN:
	LCALL NUTNHAN
	JNB RI,TRUYEN
	MOV A,SBUF
	CLR RI
	LCALL SOSANH
TRUYEN:
	lcall nutnhan
	JNB TI,NHAN
	CLR TI
	MOV SBUF,A
	jnb ti,$
	clr ti
	ljmp thoat
SETTING:
	MOV TMOD,#20H
	MOV SCON,#50H ;TRUYEN 8 BIT DU LIEU,NO PARITY
	MOV TH1,#(-3) ;TOC DO 9600 
	SETB TR1
	setb es
	setb ea
	RET

vdk có 1 thanh ghi là sbuf, khi bạn mov giá trị nào đó vào thanh thì nó sẽ tự hiểu là bạn đang gửi yêu cầu truyền lên máy tính, còn khi bạn mov sbuf vào 1 thanh ghi nào đó thì nó sẽ tự hiểu là bạn nhận data từ máy tính và dc move vào thanh ghi đó. Cái này bạn chỉ cần dùng lệnh như trên thui, ko cần suy nghĩ gì hơn.

Hiện mình đang có 2 nút nhấn, muốn đếm 2 giá trị từ 2 nút nhất vào vdk và đưa lên máy tính, nhưng nghẹt nỗi mình chưa biết cách đếm như thế nào, mình chỉ biết có 2 chân là P3.2 và P3.3 đùng để đếm vào, nhưng chưa biết dùng lệnh ra sao. Bác nào có code mẩu ko, cho e tham khảo với

[biết tuốt]

các bác cẩn thận hỏng cổng com1 , hic em mới bị hỏng do nhầm chân ở jac , nếu hỏng cổng com ra mua cái card cổng com mới nhé

[ttpli]

Tài liệu này có ích đấy.