Timestamp within sec. accuracy

[Shakira]

Hi..

Need a timestamp for data coming in for a serial port within second accuracy.How can i achieve this??

[albertw]

Hi..

Need a timestamp for data coming in for a serial port within second accuracy.How can i achieve this??

hi

maybe you can put the systemtime before the incoming data?

 
With MSComm1
    .InputLen = 1
    .RThreshold = 0
    .SThreshold = 0
    .InBufferSize = 10240
    .InputMode = comInputModeText
    .Handshaking = 0
End With
 
sub where you receive your data from rs232...
 
Do
    RxTxt = MSComm1.Input
Loop Until RxTxt > vbNullString
 
inBuffer=vbNullString
Do
    DoEvents
    RxTxt = MSComm1.Input
    If Len(RxTxt) > 0 Then 
        If inBuffer = vbNullString then inBuffer = Format (Time,"hh:mm:ss") & chr(10)    
     inBuffer = inBuffer + RxTxt
    End If
Loop Until RxTxt = vbNullstring 'or any character to end the session