Private Sub Timer1_Timer()
If MSComm1.PortOpen = False Then
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
End If
MSComm1.InputMode = comInputModeText
strabc = MSComm1.Input
text1.text= strabc
End Sub
this is my code and timer interval is 100
when i change the timer interval to 1000 it will show the full text but take delay not real time
|