Tweet
Chào các bác, em mới tìm hiểu về vấn đề này nên còn nhiều bỡ ngỡ. Hiện giờ thì việc nhận dữ liệu từ máy tính đi vào con vdk thì em làm OK rùi. Nhưng việc phát dữ liệu từ vdk tới máy tính thì em loay hoay hoài không ra. Chỉ là một chương trình đơn giản thui, là cho con vdk phát đến máy tính chữ "A", để sau đó trên máy nó hiện ra chữ "A" là được. Mà làm hoài không xong. Code của em đây, các bác xem coi nó bị lỗi gì?
code cho vdk:
mov scon, #52H
mov tmod, #20H
mov th1,#(-3)
setb tr1
loop:
clr ti
mov sbuf,#"A"
jnb ti,$
sjmp loop
end
code cho vb6:
Private Sub Form_Load()
MSComm1.CommPort = 5
MSComm1.PortOpen = True
MSComm1.InputLen = 0
MSComm1.RThreshold = 1
End Sub
Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = comEvReceive Then
Text1.Text = MSComm1.Input
End If
End Sub
Đây là các file em đã làm, gồm file mô phỏng proteus, file vb6, file code vdk:
http://www.mediafire.com/?aasr4id9e7zadr2
máy em đã cài đầy đủ cả, có cổng com ảo, kết nối giữa chương trình mô phỏng proteus và vb6 rồi.
Ước mong của em là làm sao cho cái ô nhập liệu text1 nó hiện ra chữ "A" là được mà mãi vẫn không thấy. Em đang bế tắc quá! Mong các bác giúp đỡ! Cảm ơn các bác nhiều!
code cho vdk:
mov scon, #52H
mov tmod, #20H
mov th1,#(-3)
setb tr1
loop:
clr ti
mov sbuf,#"A"
jnb ti,$
sjmp loop
end
code cho vb6:
Private Sub Form_Load()
MSComm1.CommPort = 5
MSComm1.PortOpen = True
MSComm1.InputLen = 0
MSComm1.RThreshold = 1
End Sub
Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = comEvReceive Then
Text1.Text = MSComm1.Input
End If
End Sub
Đây là các file em đã làm, gồm file mô phỏng proteus, file vb6, file code vdk:
http://www.mediafire.com/?aasr4id9e7zadr2
máy em đã cài đầy đủ cả, có cổng com ảo, kết nối giữa chương trình mô phỏng proteus và vb6 rồi.
Ước mong của em là làm sao cho cái ô nhập liệu text1 nó hiện ra chữ "A" là được mà mãi vẫn không thấy. Em đang bế tắc quá! Mong các bác giúp đỡ! Cảm ơn các bác nhiều!
Comment