Apogee Instruments MS-100 Benutzerhandbuch Seite 36

36
Beispiel für das Abrufen der Rohdaten von Adresse 0x34 oder in dezimaler Form:52
'dies muss für jeden Rohdatensatz kopiert werden, Adressregister (380nm-429nm, 430nm-479nm, 480nm-529nm,
530nm-579nm, 580nm-629nm, 630nm-679nm, 680nm-729nm, 730nm-780nm)
ModbusMaster (error2,Com1,19200,1,3,response2(),53,100,1,300,3) i = 1
For i = 1 To 100 ShiftedValues(i) = Hex(response2(i))
If Len(ShiftedValues(i)) = 3 Then ShiftedValues(i) = "0" & ShiftedValues(i) ElseIf Len(ShiftedValues(i)) = 2 Then
ShiftedValues(i) = "00" & ShiftedValues(i) ElseIf Len(ShiftedValues(i)) = 1 Then ShiftedValues(i) = "000" &
ShiftedValues(i) ElseIf Len(ShiftedValues(i)) = 0 Then ShiftedValues(i) = "0000" EndIf
Next i i = 1
k = 1
For i = 1 To 49 'Einschränkungen von crbasic/logger comms, 50. Wert ist nicht genau
MoveBytes(colorResponse(i),0,HexToDec(shifting(ShiftedValues(k), ShiftedValues(k+1), ShiftedValues(k+2))),0,4,0)
'benutzt Funktion, um einige Bytes zu verschieben, kann es wahrscheinlich innerhalb builtin: movebytes
k = k + 2
Next i
'Andere Messanweisungen eingeben
'Ausgabetabellen aufrufen
'Beispiel: CallTable Test NextScan
EndProg