de F-DEUZ » Lun 7 Juin 2010 12:52
Salut Guda,
Serveur FSUIPC :
Var 5120, Static
{ CALL &XPDNRCALC}
Var 5122, Static
{ CALL &XPDNRCALC}
Var 5124, Static
{ CALL &XPDNRCALC}
Var 5126, Static
{ CALL &XPDNRCALC}
Var 5128, name INPXPNDR1000, Static, Link IOCARD_ENCODER, Input 160, Aceleration 2, Type 2 // Input 1000
{ IF &SW_XPDNR1000 = 1
{ V5120 = V5120 + &INPXPNDR1000
V5120 = ROTATE 0 ,7 ,0
}
ELSE
{ V5122 = V5122 + &INPXPNDR1000
V5122 = ROTATE 0 ,7 ,0
}
}
Var 5130, name SW_XPDNR1000, Static, Link IOCARD_SW, Input 156, Type P
Var 5132, name INPXPDNR10, Static, Link IOCARD_ENCODER, Input 158, Aceleration 2, Type 2
{ IF &SW_XPDNR10 = 1
{ V5124 = V5124 + &INPXPDNR10
V5124 = ROTATE 0 ,7 ,0
}
ELSE
{ V5126 = V5126 + &INPXPDNR10
V5126 = ROTATE 0 ,7 ,0
}
}
Var 5134, name SW_XPDNR10, Static, Link IOCARD_SW, Input 153, Type P
Var 5136, name SW_TCAS, Static, Link IOCARD_SW, Input 155 // TCAS button
{ IF &SW_TCAS = 0
{ &XPDNRDISP = -999998
}
IF &SW_TCAS = 1
{ &XPDNRDISP = 7000
&XPDNRTOFS = TOBCD &XPDNRDISP
}
}
Var 5138, name XPDNRDISP, Static, Link IOCARD_DISPLAY, Digit 43, Numbers 4
{ L0 = &XPDNRDISP
}
Var 5140, name XPDNRTOFS, Static, Link FSUIPC_INOUT, Offset $0354, Length 2
{ L0 = &XPDNRDISP
}
Var 5142, name XPDNRIN, Static, Value 7000 // XPDNR input from FS
Var 5144, name XPDNRIDENT, Static, Link FSUIPC_OUT, Offset $7B93, Length 4
Var 5146, name SW_IDENT, Static, Link IOCARD_SW, Input 157, Type P
{ IF &SW_IDENT = 1
{ &XPDNRDISP = 1200
&XPDNRTOFS = TOBCD &XPDNRDISP
}
}
Var 5148, name XPDNRCALC, Static, Link SUBRUTINE
{
L0 = V5120 * 1000
L1 = V5122 * 100
L0 = L0 + L1
L1 = V5124 * 10
L0 = L0 + L1
L0 = L0 + V5126
&XPDNRTOFS = TOBCD L0
&XPDNRDISP = L0
}
De Niko Khan il me semble.
A+ - Denis