Et le script :
Il faut simplement changer les 2 numéros de sortie en début de code par celles que vous utiliserez ...
- Code: Tout sélectionner
// *****************************************************************************
// * Fabien Deheegher Jauge Flap
// *****************************************************************************
// * FileName : EFDE_TestFlap.txt
// * Date : 10/03/2019
Var 0000, name init, Value 0
{
CALL &FLAP_RAZ
}
// Indiquer la sortie utilisée pour décrémenter la jauge
Var 0010, name OUT_DEC, Link IOCARD_OUT, Output 11
// ******************************************
// Indiquer la sortie utilisée pour incrémenter la jauge
Var 0020, name OUT_INC, Link IOCARD_OUT, Output 12
// ******************************************
Var 0030, name FLAP_POS
Var 0040, name FLAP_CONSIGNE
{
CALL &FLAP_MOVE
}
Var 0050, name FS_flap, Link FSUIPC_INOUT, Offset $0BE0, Length 4
{
L0 = &FS_flap / 16384
&FLAP_CONSIGNE = L0 * 31
}
Var 1030, name FLAP_MOVE, Link SUBRUTINE
{
IF &FLAP_CONSIGNE > &FLAP_POS
{
&FLAP_INC = &FLAP_INC + 1
}
IF &FLAP_CONSIGNE < &FLAP_POS
{
&FLAP_DEC = &FLAP_DEC + 1
}
}
Var 1000, name FLAP_RAZ, Link SUBRUTINE
{
&FLAP_POS = 0
&OUT_DEC = 1
&OUT_INC = 1
&OUT_DEC = DELAY 0 ,10
&OUT_INC = DELAY 0 ,10
}
Var 1010, name FLAP_INC, Link SUBRUTINE
{
IF &FLAP_POS < 30
{
&FLAP_POS = &FLAP_POS + 1
&OUT_INC = 1
&OUT_INC = DELAY 0 ,1
IF &FLAP_CONSIGNE > &FLAP_POS
{
&FLAP_INC = DELAY 0 ,20
}
}
}
Var 1020, name FLAP_DEC, Link SUBRUTINE
{
IF &FLAP_POS > 0
{
&FLAP_POS = &FLAP_POS - 1
&OUT_DEC = 1
&OUT_DEC = DELAY 0 ,1
IF &FLAP_CONSIGNE < &FLAP_POS
{
&FLAP_DEC = DELAY 0 ,20
}
}
}
Je mets la carte au catalogue mercredi ...
