embedded
07-23-2007, 03:04 AM
I'm working with the Maxsonar ez1 and i don't understand the data
received.
this is an example of this data:
Data received: 043 000 159 208 086 086 000 043 000 159 208 086 086 000
the program (for debug) i use for capture the output (in decimal
format captured from TX) is 232-Analyzer (from Pc).
I don't know if the data are correct,because the MaxSonar's datasheet
reveal many differences
(e.g. the first character must be "R",but i read 043 that is "+" in
ASCII code!!!).
This is example code:
Static Buffer As String
Dim Reading As String
Dim RPos As Integer
Dim CRPos As Integer
Buffer = Buffer & MSComm1.Input
RPos = InStr(Buffer, "R")
If RPos > 0 Then
CRPos = InStr(RPos, Buffer, vbCr)
If CRPos > 0 Then
Reading = Mid$(Buffer, RPos + 1, CRPos - 1 - RPos)
Buffer = Mid$(Buffer, CRPos + 1)
Debug.Print Reading
CWGraph1.Chart
CWGraph1.ChartY (Reading + Calibration) *
DistanceMultiplier,
0.05
End If
End If
End Sub
The Calibration is 1and DistanceMultiplier is 2.54
please help me!!!
Thanx!
received.
this is an example of this data:
Data received: 043 000 159 208 086 086 000 043 000 159 208 086 086 000
the program (for debug) i use for capture the output (in decimal
format captured from TX) is 232-Analyzer (from Pc).
I don't know if the data are correct,because the MaxSonar's datasheet
reveal many differences
(e.g. the first character must be "R",but i read 043 that is "+" in
ASCII code!!!).
This is example code:
Static Buffer As String
Dim Reading As String
Dim RPos As Integer
Dim CRPos As Integer
Buffer = Buffer & MSComm1.Input
RPos = InStr(Buffer, "R")
If RPos > 0 Then
CRPos = InStr(RPos, Buffer, vbCr)
If CRPos > 0 Then
Reading = Mid$(Buffer, RPos + 1, CRPos - 1 - RPos)
Buffer = Mid$(Buffer, CRPos + 1)
Debug.Print Reading
CWGraph1.Chart
CWGraph1.ChartY (Reading + Calibration) *
DistanceMultiplier,
0.05
End If
End If
End Sub
The Calibration is 1and DistanceMultiplier is 2.54
please help me!!!
Thanx!