Jetter JVM-407B-HMI, Руководство пользователя

Страница: 165 / 300

Jetter AG 165
JVM-407B SAE J1939 STX API
By calling up the function SAEJ1939GetDM2 () , the JVM-407B requests the
current diagnostics error codes (PGN 65227).
#Include "SAEJ1939.stxp"
Var
bySAEJ1939Channel : Byte;
own_Source_Address : Byte;
stdm2stat_pow : TJ1939DM2STAT;
stdm2msg_pow :
Array [ 10 ] of STJ1939DM2MSG;
End_Var ;
Task main autorun
// Initializing CAN 1
bySAEJ1939Channel := 1 ;
own_Source_Address := 20 ;
SAEJ1939Init (bySAEJ1939Channel, own_Source_Address);
// Required for a cyclical task
TaskAllEnableCycle ();
EnableEvents;
End_Task ;
Task t_RequestPGN_5000 cycle 5000
Var
Int;
End_Var ;
// Requesting diagnostics error codes DM2 POW
stdm2stat_pow.lBuffer := sizeof (stdm2msg_pow);
Return_value := SAEJ1939GetDM2 (bySAEJ1939Channel,
0x00 ,
stdm2stat_pow, stdm2msg_pow);
If Return_value Then
Trace ('DM2 Request failed');
End_If ;
End_Task ;
JetSym STX program