LEGO MINDSTORMS Robots

' Get the data.
data = .UploadDatalog(index + 1, stepSize)
' Write it out to a file.
For i = o To stepSize -1
line = getTypeString(data(0, i)) + "," + _
Str (data(1, i)) + "," +_
Str (data(2, i))
Print #out, line
Next i
index = index + stepSize
Wend
.CloseComm
' Close the file.
Close #out
End With
End Sub
Function min(n1 As Integer, n2 As Integer) As Integer
If n1 < n2 Then
min = n1
Else
min = n2
End If
End Function
Function getTypeString(ByVal code As Integer) As String
getTypeString = Switch( _
code = 0, "Variable", _
code = 1, "Timer", _
code = 2, "Constant", _
code = 3, "Motor status", _
code = 4, "Random", _
code = 8, "Program number", _
code = 9, "Sensor value", _
code = 10, "Sensor type", _
code = 11, "Sensor mode", _
code = 12, "Sensor raw", _
Page 171
code = 13, "Sensor boolean", _
code = 14, "Watch", _
code = 15, "IR message" _
)
End Function
This example, of course, is really just a jumping-off point. You may want to make the following enhancements:
• Integrate SaveDatalog into a form to create a user-friendly application.
• Modify the output file format to suit your own needs.
Online Resources