viet chuong trinh bang VB giao tiep may tinh voi VDK???

[phucthinh]

xin chao cac huynh de,cac huynh de chi tui viet mot chuong trinh de dieu khien mot led noi o p1.0 cua at 89 c51 bang may tinh nhe, tui dang nghien cuu ve giao tiep may tinh voi 89c51, cam on lam lam...

[ngohaibac]

Bạn muốn điều khiển led ở đó kiểu gì từ máy tính. Nói thế làm sao mà hiểu nổi. Tôi chỉ nói về at89c51 thôi. Khi đó bạn phải setb p1.0 . Port đó nối với led, còn một đầu của led nối với nguồn VCC 5V, hoặc muốn nhỏ hơn thì phải căn cứ vào áp forward của cái led đó( thường là >2V).
Khi đó bạn nhận tín hiệu từ SBUF( dùng interrupt: ngắt nối tiếp). Còn ở Pc thì dùng VB mà truyền cho con 8051. Bạn nói chi tiết mình sẽ viết chương trình cho bạn tham khảo.

[phucthinh]

cảm ơn bạn, thật ra tui đã biết viết chương trình trên chip at89c51 rồi, ý của tui muốn hỏi là viết chương trình điều khiển trên máy tính ấy, cụ thể là tui muốn viết bằng VB, nhưng tôi bó tay vì tôi chưa biết dùng các thuộc tính để điều khiển cổng COM trên VB, vì thế tôi mong bạn cũng như các đồng nghiệp chỉ giáo thêm về cái dụ này, Trước mắt tôi chỉ cần chương trình điều khiển 1 đèn led ( on/off ) nối ở p1.0 của 89c51 ( giả sử rằng cổng nối tiếp ở 89c51 được thiết lập ở chế độ uart 8 bit, tốc độ baud là 9800 ). Mong tin....Cảm ơn lắm lắm...hic hic..

[ngohaibac]

Nếu thế chương trình của bạn trong VB quá đơn giản. Trước hết bạn có hai lựa chọn giao thức giữa PC và con 89C51 này: dùng kiểu mã ASCII hoặc dùng kiểu nhị phân.
Ở đây tôi dùng kiểu mã ASCII là kiểu mặc định của VB. Và dùng 2 nút bấm ấn vào nút Play thì gửi kí tự '1' ra cổng Com, ấn Pause gửi kí tự '0' ra cổng Comm. VB sẽ chuyển mã ASCII của cái này ra cổng Com. ở 89c51 bạn dùng ngắt nối tiếp( ngắt 4) đọc từ SBUFF và so sánh nếu nhận được kí tự '1' thì seb port lên 1,còn nhận '0' thì set port đó xuống 0.
Bạn cần tạo hai command button có thuộc tính Caption là Pause, và Play, thuộc tính name là cmdPause, cmdPlay.
Vào Project-> Component..-> lấy Microsoft Comm Control 6.0 để thêm điều khiển Communication cần để giao tiếp với 89C51. Sau đó bạn thêm một điều khiển này vào hộp thoại của bạn( kéo và tha-> rất dễ). Tôi đặt tên nó là MSComm1 (mặc định khi kéo đầu tiên). Tôi xin viết mã lệnh cho nút Pause và Play.

' start of Code
Private Sub Form_Load()
With MSComm1
.Settings = "9600,N,8,1"
.RThreshold = 0 ' khong dung su kien OnComm nhận
.SThreshold = 0 ' không dùng sự kiện OnComm truyền nếu cần thì bạn cho
'cái này là 1 để mỗi một byte truyền đi thì sự kiện OnComm xảy ra và
'bạn kiểm tra xem có truyền đúng không . Ở đây tôi không dùng cho đơn
'giản bạn có thể phát triển thêm
.InBufferSize = 1024
.OutBufferSize = 1024
.InputMode = comInputModeText ' dùng kiểu truyền dạng text
.ParityReplace = ""
.CommPort = 1 ' using com 1
If .PortOpen = False Then ' nếu port chưa mở thì mở ra.
.PortOpen = True
End If
End With
End Sub

Private Sub cmdPause_Click()
MSComm1.Output = '0';
End Sub

Private Sub cmdPlay_Click()
MSComm1.Output = '1';
End Sub
' end of code

Bạn nên dùng thêm một edit box(Text1) để kiểm tra xem đã truyền đúng chưa, dùng sự kiện OnComm. Nhớ sửa lại '' SThreshold = 1 " ở trên.


Private Sub MSComm1_OnComm()
Dim Buffer As String
If MSComm1.CommEvent = comEvSend Then ' nếu là sự kiện truyền
Buffer = MSComm1.Output
Text1.Text = Chr$(Buffer)
End If
End Sub

' Chúc thành công.

[ngohaibac]

Các bác thân.
Mai em sẽ port một bài công phu giới thiệu về cổng Serial giao thức truyền nhận dữ liệu và cách lập trình bằng VB với 2 mode khác nha: kiểu text và kiểu nhị phân binary. Để cho các bác có cái nhìn uyên thâm về cổng Serial. Còn các cổng khác như PCI,.. có thể xem bài "Giao diện mạng trong PC" của Vũ Trí Công. Tôi làm cái này là một phần trong dự án giới thiệu giao thức các cổng trong PC.
Mong các bác hưởng ứng.

[phucthinh]

cam on bac hai lam lam,hom nay toi se thu xem no nhu the nao moi duoc, tui ghien cai nay lam...

[ngohaibac]

Giới thiệu giao tiếp cổng com - chapter1

mong admin xóa bài này cho em.

[ngohaibac]

Uart

bài này tôi chuyển sang box "Serial Port Conplete".
mong admin xóa bài này cho em

[ngohaibac]

Định dạng và giao thức đồng bộ và không đồng bộ

bài này tôi chuyển ra ngoài rồi.
mong admin xóa bài này cho em

[sonIC]

Cảm ơn bác Bắc lắm lắm!!!!!!!!!!!
bác Bắc cao tay nhỉ,cai gì cũng biết hết trơn,em khâm phục bác lắm
Chắc đồ án 2 em sẽ đụng phải đề tài này,mong các bác tiếp tuc chỉ giáo

[ngohaibac]

Không vấn đề gì. Do đang thi rất gấp, nay vừa thi xong, thứ 6 thi tiếp nên tiến trình viết bài cho chủ đề này có khi hơi chậm mong các bạn thông cảm cho.( còn phải học chứ).
Mình sẽ viết bài từ từ, vì còn phải dịch, đọc thêm sách. Để cho các bạn có hứng thú không thấy nhàm chán với một mớ lí thuyết tôi sẽ hướng dẫn cụ thể về lập trình VB với các tham số và ý nghĩa, cách thiết lập tham số.

[ngohaibac]

Chết thật. Nhìn bài bên "Giao diện mạng trong PC" của vutricongbka thấy giống mình quá. Nhưng hoàn toàn không phải tôi copy của ông ấy đâu nha. Tôi hoàn toàn dịch tài liệu ra. Tôi sẽ đi sâu vào phần lập trình cho các bác nha. Có gì thì có thể bổ sung thêm cho anh ấy.
Hi vọng các bạn sẽ đón nhận nó nhiệt tình. Tôi sẽ hướng dẫn chi tiết.

[vutricongbka]

Chú viết rất khá !

Chú viết rất khá hơn anh rất nhiều .Cố gắng nên để anh em chúng ta cùng tiến bộ .

[ngohaibac]

Cơ chế chống mất dữ liệu

bài này tôi chuyển ra ngoài rồi.
mong admin xóa cho em bài này.

[ngohaibac]

Cơ chế chống mất dữ liệu(tiếp)

bài này tôi gửi ra ngoài rồi.
mong admin xóa bài này cho em