xử lí da ta từ pc truyền xuống

[phandinh]

Private Sub Command1_Click()
Dim data_send As Variant
If Text1.Text = "" Then
Exit Sub
End If
data_send = Text1.Text
MSComm1.Output = " @ " & Chr(2) & Chr(8) & data_send & Chr(255)
Text1.Text = ""
End Sub

Private Sub Command2_Click()
Text2.Text = ""
End Sub

Private Sub Form_Load()
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If 'dong serial port neu no mo
' cau hinh lai cho serial port
MSComm1.CommPort = 5 ' dung port 5
MSComm1.Settings = " 9600 , n , 8 , 1" 'baud = 9600, 8 bit
MSComm1.InputLen = 0 ' doc buffer
MSComm1.RThreshold = 1 ' neu nhan 1 ki tu don se phat sinh su kien commevents
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm()

If (MSComm1.CommEvent = comEvReceive) Then
Text2.Text = Text2.Text + MSComm1.Input
End If


End Sub