Apogee Instruments MS-100 Benutzerhandbuch Seite 35

'Diese Funktion führt also eine Verschiebung der Daten durch, um die Daten von Long zu String zu Float zu ordnen
'gibt den umgeordneten Wert (im String-Format) zurück, um den ABCD IEEE Float-Wert darzustellen
Function shifting(x As String,y As String,z As String) As String
Dim a As String,b As String,c As String,d As String,e As String,f As String
f = x&y&z
a = Right(y,2)
b = Left(z,2)
c = Right(x,2)
d = Left(y,2)
e = a&b&c&d
Return e
EndFunction
'Datentabellen definieren.
DataTable (test,1,-1) 'Setzen Sie die Tabellengröße auf die Anzahl der Datensätze, oder -1, um automatisch
zuzuordnen. DataInterval (0,60,Sec,10)
Minimum (1,Batt_volt,FP2,False,False)
Sample (1,PTemp,FP2)
'i = 1
'For i = 1 To 50
' Sample (1,colorResponse(i),IEEE4)
'Next i
EndTable
'Unterprogramme definieren
'Sub
'Sub-Anweisungen hier eingeben
'EndSub
'Hauptprogramm
BeginProg CaptureCommand(1) = &h03e8 'Belichtungszeit als long
CaptureCommand(2) = &h0101 'CRI einbeziehen oder nicht, automatische Belichtungszeit oder nicht
SW12(1)
Scan (20,Sec,0,0) SerialOpen (Com1,19200,0,1000,100,1)
'ModbusMaster (error1,Com1,19200,1,3,response1,17,1,1,300,3)
ModbusMaster (CaptureError,Com1,19200,1,16,CaptureCommand(),162,2,1,100,3)
Do exitloop = 1
ModbusMaster (CaptureIsOkayError,Com1,19200,1,3,CaptureIsOkay,164,1,1,100,3)
If CaptureIsOkay = 32768
Exit Do EndIf
Delay (0,500,mSec) exitloop = exitloop + 1
If exitloop >= 20
Exit Do EndIf
Schleife
35