Code VB6, nhờ mấy cao thủ chỉ giáo.

[ba_rau]

Em có một thiết bị nó cho protocol của RS232 là :"9600,N,8,1". Em viết 1 đoạn code VB6 để giao tiếp với PC , forms của Em có 2 nút nhấn Connect, Disconnect và 1 text, e viết như sau:

Private Sub Command1_Click()
MSComm1.Settings = "9600,N,8,1"
MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.InputLen = 0
MSComm1.RThreshold = 1
End Sub

Private Sub Command2_Click()
MSComm1.PortOpen = False
End Sub

Private Sub MSComm1_OnComm()
If (MSComm1.CommEvent = comEvReceive) Then
Text1.Text = Asc(MSComm1.Input)
End If
End Sub

Em cho chạy thử nhưng sao không thấy Text chỉ thị giá trị gì hết. nhờ mấy cao thủ xem và chỉ giúp e với.

[mstudio8x]

Thiết bị của chú là thiết bị gì có tài liệu hướng dẫn không upload lên anh em mới giúp chú được