Giao tiếp RS232 trên PC bằng Visual Basic.

[controlufo]

tui sưu tầm các hướng dẫn của mr maneger(ngohaibac) đem áp dụng sài không được trong form access
form nhap
texbox vao

tui có gửi file access kèm theo mong manager box """"design"""" lại dùm ....giúp tui đi tui chuyển sang dề tài khác ngâm cứu chứ cái vụ này lấy của tui mất hơn 1 tháng rùi ngohaibac ui...

Dim x As Variant

Private Sub Form_Load()
On Error Resume Next
With MSComm1
If .PortOpen = True Then .PortOpen = False
.CommPort = 2
.Settings = "9600,N,8,1"
.InBufferSize = 2000
.InputLen = 0
.OutBufferSize = 64
.PortOpen = True
End With
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
MSComm1_OnComm
Timer1.Enabled = True
End Sub

Private Sub MSComm1_OnComm()
With MSComm1
If .InBufferCount >= 1 Then
x = MSComm1.Output
Forms!nhap!vao = x
End If
End With
End Sub

mong hồi âm
xin chân thành cám ơn....chúc công việc vui vẻ