// * Fabien Deheegher
// * FileName : transpondeur_bendix.txt
// * Date : 31/12/2016
// declaration des 3 in de chaque encodeur
// endodeur unités
Var 0001, name A1, Link IOCARD_SW, Input 0
{
CALL &CALC_XPDR
}
Var 0002, name A2, Link IOCARD_SW, Input 1
{
CALL &CALC_XPDR
}
Var 0003, name A4, Link IOCARD_SW, Input 2
{
CALL &CALC_XPDR
}
// endodeur dizaines
Var 0004, name B1, Link IOCARD_SW, Input 3
{
CALL &CALC_XPDR
}
Var 0005, name B2, Link IOCARD_SW, Input 4
{
CALL &CALC_XPDR
}
Var 0006, name B4, Link IOCARD_SW, Input 5
{
CALL &CALC_XPDR
}
// endodeur centaines
Var 0007, name C1, Link IOCARD_SW, Input 6
{
CALL &CALC_XPDR
}
Var 0008, name C2, Link IOCARD_SW, Input 7
{
CALL &CALC_XPDR
}
Var 0009, name C4, Link IOCARD_SW, Input 8
{
CALL &CALC_XPDR
}
// endodeur milliers
Var 0010, name D1, Link IOCARD_SW, Input 9
{
CALL &CALC_XPDR
}
Var 0011, name D2, Link IOCARD_SW, Input 10
{
CALL &CALC_XPDR
}
Var 0012, name D4, Link IOCARD_SW, Input 11
{
CALL &CALC_XPDR
}
// declaration de la variable valeur du transpondeur
Var 0020, name ValTRXP_U
Var 0021, name ValTRXP_D
Var 0022, name ValTRXP_C
Var 0023, name ValTRXP_M
Var 0024, name ValTRXP
// declaration de l'offset du transpondeur
Var 0025, name FS_XPDR, Link FSUIPC_INOUT, Offset $0354, Length 2
Var 0030, name CALC_XPDR, Link SUBRUTINE
{
&ValTRXP_U = 0
&ValTRXP_D = 0
&ValTRXP_C = 0
&ValTRXP_M = 0
IF &A1 = 0
{
&ValTRXP_U = &ValTRXP_U + 1
}
IF &A2 = 0
{
&ValTRXP_U = &ValTRXP_U + 2
}
IF &A4 = 0
{
&ValTRXP_U = &ValTRXP_U + 4
}
IF &B1 = 0
{
&ValTRXP_D = &ValTRXP_D + 10
}
IF &B2 = 0
{
&ValTRXP_D = &ValTRXP_D + 20
}
IF &B4 = 0
{
&ValTRXP_D = &ValTRXP_D + 40
}
IF &C1 = 0
{
&ValTRXP_C = &ValTRXP_C + 100
}
IF &C2 = 0
{
&ValTRXP_C = &ValTRXP_C + 200
}
IF &C4 = 0
{
&ValTRXP_C = &ValTRXP_C + 400
}
IF &D1 = 0
{
&ValTRXP_M = &ValTRXP_M + 1000
}
IF &D2 = 0
{
&ValTRXP_M = &ValTRXP_M + 2000
}
IF &D4 = 0
{
&ValTRXP_M = &ValTRXP_M + 4000
}
&ValTRXP = &ValTRXP_U
&ValTRXP = &ValTRXP + &ValTRXP_D
&ValTRXP = &ValTRXP + &ValTRXP_C
&ValTRXP = &ValTRXP + &ValTRXP_M
&FS_XPDR = TOBCD &ValTRXP
}
Retourner vers Tableau de bord
Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 3 invités