Ausführungszeit der einzelnen Bits messen
Dieser FP-Befehl misst die Dauer des Zustands TRUE der einzelnen Bits in dem Datenbereich beginnend bei Adresse s1_Start mit der Bitzahl n_Bits. Die Ergebnisse werden in den Speicherbereich mit n_Bits*2 Worten beginnend bei d_Start geschrieben. Die Ausführungszeit wird in Sekunden angegeben.
Eingang
Anfangsadresse des Datenbereichs für die auszuwertenden Bits.
Verwenden Sie zum Bestimmen der Größe des Datentyps folgende Formel:
Alle Nachkommastellen im Ergebnis dieser ganzzahligen Division müssen entfernt werden.
n_Bits von 1 bis 16=> Größe beträgt 1 Wort.
n_Bits von 17 bis 32=> Größe beträgt 2 Worte...
Anfangsadresse des Arbeitsbereichs. Er muss dieselbe Größe haben wie s1_Start.
Anzahl der Bits (zulässiger Bereich: 1–65535)
Ausgang
Anfangsadresse des Datenbereichs für die Zählergebnisse, die aus mindestens n_Bits Elementen vom Datentyp DINT oder UDINT bestehen. Verwenden Sie zum Zuweisen dieses Datenbereichs den Befehl Adr_Of_Var_I (KOP/FBS) oder Adr_Of_Var (ST).
Im POE-Kopf werden alle Ein- und Ausgangsvariablen deklariert, die für die Programmierung dieser Funktion verwendet werden. Für alle Programmiersprachen wird der gleiche POE-Kopf verwendet.
VAR
bStart: BOOL:=FALSE;
iTestIndex: INT:=0;
iWorkAreaTime: INT:=0;
arrOpTimeEvents: ARRAY [0..5] of dint:=[6(0)];
END_VAR
Wenn die Variable bStart auf TRUE gesetzt wird, wird die Funktion ausgeführt.
BODY
WORKSPACE
NETWORK_LIST_TYPE := NWTYPELD ;
ACTIVE_NETWORK := 0 ;
END_WORKSPACE
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 6 ;
NETWORK_BODY
B(B_F,FP_EVENTS_OPERATION_TIME!,,12,0,27,6,,?DEN?Ds1_Start?Ds2_WorkArea?Dn_Bits?AENO?Cd_Start);
B(B_VARIN,,iWorkAreaTime,10,3,12,5,);
B(B_VARIN,,6,10,4,12,6,);
B(B_VAROUT,,arrOpTimeEvents[0],37,2,39,4,);
B(B_CONTACT,,bStart,3,1,5,3,);
B(B_VARIN,,iTestIndex,10,2,12,4,);
B(B_F,Adr_Of_Var_O!,,28,2,36,4,,?D?C);
L(1,2,3,2);
L(5,2,12,2);
L(27,3,28,3);
L(36,3,37,3);
L(1,0,1,6);
END_NETWORK_BODY
END_NET_WORK
END_BODY
IF (bStart) then
FP_EVENTS_OPERATION_TIME(s1_Start := iTestIndex,
s2_WorkArea := iWorkAreaTime,
n_Bits := 6,
d_Start => Adr_Of_Var(arrOpTimeEvents[0]));
END_IF;