Jetter JVM-407 Betriebsanleitung Seite 138

7 SAE J1939-STX-API
138
// Initialisierung CAN 1
bySAEJ1939Channel := 1;
own_Source_Address := 20;
SAEJ1939Init (bySAEJ1939Channel, own_Source_Address);
// Engine Hours, Revolutions
SAEJ1939AddRx (bySAEJ1939Channel, 65253, 0x00, 1, 0,
SAEJ1939_DWORD, sizeof(EngineTotalHours), EngineTotalHours,
EngineHoursTbl, 5000, 150);
// Wird benötigt für einen zyklischen Task
TaskAllEnableCycle ();
EnableEvents;
End_Task;
Task t_RequestPGN_5000 cycle
Var
Return_value : Int;
End_Var;
// Gesamte Betriebsstunden der Maschine anfordern
Return_value := SAEJ1939RequestPGN (bySAEJ1939Channel, 0x00,
65253);
If Return_value Then
Trace ('PGN Request failed');
End_If;
End_Task;
-- on Request
5000
Jetter AG