I get the above data when I use the following code:
Dim bBuffer() As Byte
If comRS232.InBufferCount > 0 Then
ReDim bBuffer(comRS232.InBufferCount - 1) As Byte
bBuffer = comRS232.Input
inpString = inpString + StrConv(bBuffer, vbUnicode)
'Parse inpString when whole the message is received
It is incorrect and missing a lot of binary data as per described by the instrument manual :(
When I use ComTestSerial from MicroRidge company and it receives the following data which is the correct data:
[QUOTE]20/ 9/10 8:44 000000074284Z ےے ےے ےے Kے †œ+D نu l ' ‹v x ] ×C
7.5 5.09 13.4 41.3 81.1 26.3 32.4 228 37.3 10.8 51.9 2.8 0.8 3.9 13.9 37.4 12.0 9.3 21.5 57.9154.9 -
Posted on: Sep 10 2020 at 11:36:22 AM
I am using
comRS232.InputMode = comInputModeBinary
Reply - add a comment to this topic.
You may enter letters, numbers and standard punctuation only. HTML and other scripts/tags will be rejected.