
Originally Posted by
DataMiser
Most definitely but since you did not show any code all we could do is guess. most likely you are not writing to the file correctly to get the output you want and that is the source of your issue
Here's the code you asked for
Note that the text1 box shows the complete string all on one line
but the file has each letter on a new line.
Code:
Private Sub MSComm1_OnComm()
Dim InBuffer as String
Dim bytesIn as Integer
Dim idx as Integer
bytesIn = MSComm1.InBufferCount
InBuffer = MSComm1.Input
Sleep 500
me.text1.text = InBuffer
call Write_log_file(InBuffer)
End Sub
public Sub write_log_file(inString as String)
Print #fhandle, inString
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
MSComm1.RThreshold = 1
End Sub