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
Thông báo
Collapse
No announcement yet.
Giao tiếp máy tinh dung visual basic ( IC 89C52)
Collapse
X
-
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!Attached FilesMột bông hồng cho những ai đang còn mẹ,
Đang còn mẹ để lòng vui sướng hơn ..
-
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!
Comment
-
Đề 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
Comment
-
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.Technical sale at WT Microelectronics S'pore
Hỗ trợ dự án sử dụng các hãng Texas Instrument, STMicro, Freescale, Fairchild, International Rectifier, Ublox, Lumiled, Maxim
Liên hệ: 0915.560.511 hoặc ngo.haibac@wtmec.com
Comment
-
Đã 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
Comment
-
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.comanhduc
Comment
-
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 *anhduc
Comment
-
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
Comment
-
Nguyên văn bởi hoanganh1001 Xem bài viếtmì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.
Code: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
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
Comment
-
Tài liệu này có ích đấy.
Comment
Bài viết mới nhất
Collapse
-
bởi dinhthuong92Cảm ơn bác đã chia sẻ nhiều thí nghiệm thực tế.
Về mạch cân bằng cells pin thì theo cá ngân em, nó chỉ có chức năng bảo vệ quá xả và quá nạp cho các cell thôi. Tức là bất kì cell nào trong khi xả mà có áp thấp nhất và bằng...-
Channel: Hướng dẫn sử dụng diễn đàn
Hôm qua, 21:07 -
-
bởi jigokushoujoCó anh chị nào có thể cho em 1 mạch chống ngược cực, chập mạch, khi bị chạm mạch hay ngược cực thì nó sẽ tự động ngắt nguồn,khi không còn chạm thì nó sẽ đóng nguồn lại bình thường. Em có dùng nguồn 12V 75A từ ắc quy . Em cần chụi...
-
Channel: Điện tử dành cho người mới bắt đầu
Hôm qua, 18:24 -
-
bởi chinhnguyen9Tôi nghi ngại về sự hiện diện của điện trở 0,1R trong mach test có thể làm sai lạc và méo mó hoạt động của mạch. Sau khi tháo bỏ điện trở trên test lại thì thấy hoạt động cân bằng tích cực hơn rất nhiều và sờ thấy các most fet của...
-
Channel: Hướng dẫn sử dụng diễn đàn
Hôm qua, 15:01 -
-
bởi chinhnguyen9Test module cân bằng chủ động kiểu Flying Capacitor Balancing 4s 6A TQ
Hình thức board mạch có vẻ ổn. Hình 1 mặt trên và mặt dưới
Hình 2
Lắp bài test với 3 cell 32-650 (4000mAh) với các mức điện áp trong dòng thứ 2 cell số 5 là pin lion 10Ah để tạo độ...-
Channel: Hướng dẫn sử dụng diễn đàn
Hôm qua, 11:26 -
-
bởi chinhnguyen9Hính 1 Sản phẩm board cân bằng acquy Minh Quang
Hình 2 Sơ đồ nguyên lý hoạt động
Hình 3 Sơ đồ đấu dây
Dùng 2 khối pin 32-650 khối 1 4s=13V và khối 2 5s =16V bắt nối tiếp, đấu dây đen B0 vào âm, nguồn B1 vào cọc 13V, và B2 vào cọc 29V,...-
Channel: Hướng dẫn sử dụng diễn đàn
Hôm qua, 10:51 -
-
bởi chinhnguyen91- Sơ khai là mạch cân bằng thụ động do hiệu quả của mạch này là rất kém nên ta vứt nó vào quá khứ.
2- Mạch cân bằng chủ động, so áp liền kề gồm 2 nhánh: dùng từ trường và dùng điện tích
3- Mạch cân bằng chủ động toàn nhóm.(flying capacitor balancing)
Trong mạch cân bằng chủ...-
Channel: Hướng dẫn sử dụng diễn đàn
16-04-2024, 08:48 -
-
bởi saovietnhat
Quyền Lợi:
- Mức lương thỏa thuận.
- Được đào tạo về kỹ năng làm việc trong môi trường năng động và làm việc nhóm
- Được đào tạo chuyên sâu về bán hàng, kinh doanh hiệu quả
- Tham gia BHYT, BHXH, BHTN,...-
Channel: Tuyển dụng
13-04-2024, 15:46 -
-
bởi Trọng TrangTiện đây các anh cho em hỏi: Khi transistor bị nóng thì dùng tản nhiệt. mặc dù đã có tản nhiệt nhưng bản mạch có bị nóng lên do transistor truyền nhiệt vào bản mạch không? Em cảm ơn các anh.
-
Channel: Điện tử dành cho người mới bắt đầu
10-04-2024, 22:48 -
Comment