|
Bạn thử đổi Code VB của bạn một chút xem sao:
Dim dulieu as String
Private Sub MSComm1_OnComm()
If (MSComm1.CommEvent = comEvReceive) Then
dulieu = Asc(MSComm1.Input)
txtReceive.Text = txtReceive.Text + dulieu
End If
End Sub
hoac la:
Private Sub MSComm1_OnComm()
If (MSComm1.CommEvent = comEvReceive) Then
txtReceive.Text = txtReceive.Text + Asc(MSComm1.Input)
End If
End Sub
|