Tweet
hiện tại mình đã đã dùng phần mềm Proteus mô phỏng 89c51 giao tiếp với cổng com đã thành công!!
mình tham khảo luồn này để thực hiện http://dientuvietnam.net/forums/showthread.php?t=13005
việc truyền dữ liệu từ máy tính xuống VDK như bài viết đã hoạt động được!!
nhưng khi lập trình gửi 1 kí tự từ VDK đến PC thì không được????( chỉ khác tut là mình dùng chương trình VB 6.0 ) sử dụng sự kiện ngắt ONCOMM để bắt dữ liệu và hiển thị ra ô text.
code nhan du lieu tu 89c51:
-----------------------------------------
Private Sub Form_Load()
'Dong Serial Port neu no mo
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
'Cau hinh lai Serial Port
MSComm1.CommPort = 5 'Dung PORT5
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0 'Doc toan bo buffer
MSComm1.RThreshold = 1 'Khi nhan 1 ki tu se phat sinh su kien CommEvent
MSComm1.PortOpen = True 'Mo cong
'Form hien giua man hinh
Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
End Sub
-------------------------------------------
Private Sub MSComm1_OnComm()
If (MSComm1.CommEvent = comEvReceive) Then ' Nhan du lieu
Text1.Text = MSComm1.Input
End If
End Sub
-------------------------------------------
không bít có cao thủ nào làm được phần 89c51 --> PC!!! plzzz help me!! plzzz
mình tham khảo luồn này để thực hiện http://dientuvietnam.net/forums/showthread.php?t=13005
việc truyền dữ liệu từ máy tính xuống VDK như bài viết đã hoạt động được!!
nhưng khi lập trình gửi 1 kí tự từ VDK đến PC thì không được????( chỉ khác tut là mình dùng chương trình VB 6.0 ) sử dụng sự kiện ngắt ONCOMM để bắt dữ liệu và hiển thị ra ô text.
code nhan du lieu tu 89c51:
-----------------------------------------
Private Sub Form_Load()
'Dong Serial Port neu no mo
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
'Cau hinh lai Serial Port
MSComm1.CommPort = 5 'Dung PORT5
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0 'Doc toan bo buffer
MSComm1.RThreshold = 1 'Khi nhan 1 ki tu se phat sinh su kien CommEvent
MSComm1.PortOpen = True 'Mo cong
'Form hien giua man hinh
Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
End Sub
-------------------------------------------
Private Sub MSComm1_OnComm()
If (MSComm1.CommEvent = comEvReceive) Then ' Nhan du lieu
Text1.Text = MSComm1.Input
End If
End Sub
-------------------------------------------
không bít có cao thủ nào làm được phần 89c51 --> PC!!! plzzz help me!! plzzz
Comment