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

[hieu1303]

Đã 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.

Chỉ cho phép nhập số
Kết thúc khi nhấn Enter:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text1_LostFocus
If IsNumeric(Chr(KeyAscii)) <> True Then KeyAscii = 0
End Sub

[catsamac.hd]

mình cũng vừa mới học điện tử thôi,mình có một số tài liệu về lập trình công nối tiếp hy vọng các bạn tìm thấy điều gì có ích:
http://www.ziddu.com/download/117650...IEPMT.rar.html
http://www.ziddu.com/download/117644...-tiep.pdf.html
http://www.ziddu.com/download/117383...1.134.rar.html
http://www.ziddu.com/download/117924...angVB.pdf.html
http://www.ziddu.com/download/117923...itiep.pdf.html
http://www.ziddu.com/download/117923..._CSDL.pdf.html
http://www.ziddu.com/download/117922...hCSDL.zip.html
http://www.ziddu.com/download/117922...ytinh.pdf.html

[chicago]

mình mới bắt đầu tìm tòi về cái này...năm 3 mà cũng mù tịt quá...Cảm ơn tài liệu của mọi người

[aklop]

co ai từng bị lỗi như này chưa nhỉ

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.

chào mọi người cái vb của e nó báo lỗi "run-time error 8020 error reading comm device". e ko hiểu nó lỗi chỗ nào
Private Sub MSComm1_OnComm()
Dim inputtext As String
If Me.MSComm1.CommEvent = comEvReceive Then
inputtext = MSComm1.Input----> nó chỉ lỗi chỗ này mà e ko hiểu tại sao nó lại báo lỗi chỗ đó
nhietdo1 = Mid(inputtext, 1, 2)
txtoutput1.Text = nhietdo1
nhietdo2 = Mid(inputtext, 3, 4)
txtoutput1.Text = nhietdo2
txtDonVi.Text = "oC"
Dim h, m, s As Byte
txtthoigian.Text = Format(Now(), "hh:nn:ss") & " Ngay " & Format(Now(), "dd-mmm-yyyy")
End If

End Sub
có ai biết ko chỉ e với

[vantrinh0902]

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.

Để lấy dữ liệu của con 89C51 hay P89V51RD2 thì bạn cứ đưa dữ liệu vào SBUF và cho ngắt truỳen thông ở VDK là OK. Trên VB nhận dữ liệu đó và có thể xử lý dữ liệu đó theo ý bạn.

[vantrinh0902]

Đây là đồ án tốt nghiệp mình vừa hoàn thành: "Đo điều khiển và giám sát nhiệt độ" giao tiếp với may tính bằng VB6 chạy rất cool.
Đây là hình ảnh dao dien VB:

Hình mô hình:

Bạn nào quan tâm thì liên hệ mình: vantrinh9290@gmail.com

[vantrinh0902]

Giao diện khi kết nối với máy tính với phần cứng.

[queduong]

tạm ổn ! ... cỏ vẻ như nếu đặt giá trị và nhiệt độ thực cận kề sẽ làm cho rơ le kêu loạch xoạch liên tục ... với đèn sợi đốt thay bằng triac sẽ ngon hơn và " đỡ hại rơ le " không gây ồn.

[vantrinh0902]

tạm ổn ! ... cỏ vẻ như nếu đặt giá trị và nhiệt độ thực cận kề sẽ làm cho rơ le kêu loạch xoạch liên tục ... với đèn sợi đốt thay bằng triac sẽ ngon hơn và " đỡ hại rơ le " không gây ồn.

Bạn nói đúng đó, lúc đầu định làm triac nhưng làm rơle đóng mở kêu tách tách mới biết thiết bị hoạt động. hehe

[THSANG AUTO]

tạm ổn ! ... cỏ vẻ như nếu đặt giá trị và nhiệt độ thực cận kề sẽ làm cho rơ le kêu loạch xoạch liên tục ... với đèn sợi đốt thay bằng triac sẽ ngon hơn và " đỡ hại rơ le " không gây ồn.

để cho relay bớt nhảy thì cho relay off khi nhiệt độ cài đặt thấp hơn nhỉịêt độ môi trường chút là được ko bị nhảy liên tục

[zk4teez]

bác nào bày em tạo cái combobox để chọn cổng com cái ví dụ như bấm vô conbobox sẽ có 1 list cổng com com1,com2,com3,com4,thay vì phải vô comport điền số vào

[phanngocdo]

anh haibac ơi, cho em hỏi giờ em muốn lập trình trên VB.net 2010 với nội dung thế này: nhận mật khẩu từ vi điều khiển sau đó so sánh nếu giống với cơ sở dữ liệu trong máy thì gửi lên lai vi điều khiển cho phép mở cửa, hiển thị số thứ tự từ máy tính đưa lên. đồng thời xác định thời gian vào ra của sinh viên đó.nhưng thờ gian ra em vẫn chưa làm được + muốn truyền được yêu cầu mở cửa lên vi điều khiển làm thế nào để vdk hiểu được? mong a giúp vì em sắp bảo vệ thực tập rồi. Em cảm ơn

[agetlam99]

em cũng đang tim hiểu cái này anh gửi cho em phần VB6 nha anh. Em cảm ơn nhiều
agetlam99@gmail.com