Jetter JVM-407 Betriebsanleitung Seite 141

JVM-407
JetSym STX-Programm
Jetter AG
JVM-407 fordert mit dem Aufruf der Funktion SAEJ1939GetDM1 () die aktuel-
len Diagnose-Fehlercodes an (PGN 65226).
#Include "SAEJ1939.stxp"
Var
bySAEJ1939Channel
own_Source_Address : Byte;
stdm1stat_pow : TJ1939DM1STAT;
stdm1msg_pow : Array[10]
MyTimer : TTimer;
End_Var;
Task main autorun
// Initialisierung CAN 1
bySAEJ1939Channel := 1;
own_Source_Address := 20;
SAEJ1939Init (bySAEJ1939Channel, own_Source_Address);
TimerStart (MyTimer, T#2s);
Loop
When (TimerEnd (MyTimer)) Continue;
// Die Diagnose-Fehlercodes DM1 POW anfordern
stdm1stat_pow.lBuffer := sizeof (stdm1msg_pow);
SAEJ1939GetDM1 (bySAEJ1939Channel, 0x00, stdm1stat_pow,
stdm1msg_pow);
TimerStart (MyTimer, T#2s);
End_Loop;
End_Task;
: Byte;
of STJ1939DM1MSG;
SAE J1939-STX-API
141