MODBUS VERWENDEN
Hier ist ein Beispielcode zum Abrufen von Daten aus dem Apogee Instruments MS-100 mit dem Modbus-
Hardware-Add-on.
Aufgrund von Einschränkungen bei CRbasic oder CR-Loggern fehlt das 2
jedem Rohdaten-Teilsatz.
Das Gerät muss vor der Aufnahme mindestens einmal im Dunkeln kalibriert werden, um genaue Daten zu
erhalten, und warten, bis die Dunkelheit beendet ist.
Um eine Messung durchzuführen, muss das Gerät mit der Funktion 10, Adresse 0xA1 (Write Multiple
Registers) beschrieben werden.
Nach dem Messbefehl muss das Gerät den Auftragsstatus abfragen und warten, bis der Auftragsstatus
"erfolgreich" zurückgegeben wird.
Bitte verwenden Sie das Datenblatt für spezifische Modbus-Register und Adressen.
In diesem Beispiel geht es nur darum, eine Messung durchzuführen, zu warten, bis das Gerät erfolgreich
ist, und einen Datensatz in ein öffentliches Variablen-Array zu übertragen.
Public PTemp, Batt_volt,
'muss dies für jeden Rohdatensatz kopieren, Adressregister (380nm-429nm, 430nm-479nm, 480nm-529nm,
530nm-579nm, 580nm-629nm, 630nm-679nm, 680nm-729nm, 730nm-780nm)
Dim response2(100)As Long, error2
Public ShiftedValues(100) As String *5
Public colorResponse(100) As Float
Dim i,k As Long
Dim CaptureCommand(2) As Long, CaptureIsOkayError as long
Dim CaptureError As Long, CaptureIsOkay As Long
Dim exitloop As Long
'Public response1 As Long, error1
'aufgrund von Einschränkungen des Loggers/crbasic nimmt Modbus das Längenbyte als erstes Byte der Daten auf
Der MS-100 wird mit einer Modbus-Kommunikationskarte geliefert, die
in das Gerät eingesteckt wird.
nd
Byte des letzten Float-Wertes in
34