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