Salut Guda, 
Merci pour tes explications. Je vais attendre ces nouvelles fonctions. 
A+ - Denis
			
		
 Var 0001, name Float32, Link SUBRUTINE
{
  L0 = TESTBIT &Float32 ,31
  IF L0 = 1
  {
    &Signe = -1    
  }
  ELSE
  {
    &Signe = 1    
  }
  &exp = -127    
  L0 = TESTBIT &Float32 ,23
  &exp = L0 + &exp
  L0 = TESTBIT &Float32 ,24
  L0 = 2 * L0
  &exp = L0 + &exp
  L0 = TESTBIT &Float32 ,25
  L0 = 4 * L0
  &exp = L0 + &exp
  L0 = TESTBIT &Float32 ,26
  L0 = 8 * L0
  &exp = L0 + &exp
  L0 = TESTBIT &Float32 ,27
  L0 = 16 * L0
  &exp = L0 + &exp
  L0 = TESTBIT &Float32 ,28
  L0 = 32 * L0
  &exp = L0 + &exp
  L0 = TESTBIT &Float32 ,29
  L0 = 64 * L0
  &exp = L0 + &exp
  L0 = TESTBIT &Float32 ,30
  L0 = 128 * L0
  &exp = L0 + &exp
  &Mantisse = 0    
  L0 = TESTBIT &Float32 ,22
  L0 = L0 / 2
  L0 = L0 * 10000000
  &Mantisse = L0 + &Mantisse
  L0 = TESTBIT &Float32 ,21
  L0 = L0 / 4
  L0 = L0 * 10000000
  &Mantisse = L0 + &Mantisse
  L0 = TESTBIT &Float32 ,20
  L0 = L0 / 8
  L0 = L0 * 10000000
  &Mantisse = L0 + &Mantisse
  L0 = TESTBIT &Float32 ,19
  L0 = L0 / 16
  L0 = L0 * 10000000
  &Mantisse = L0 + &Mantisse
  L0 = TESTBIT &Float32 ,18
  L0 = L0 / 32
  L0 = L0 * 10000000
  &Mantisse = L0 + &Mantisse
  L0 = TESTBIT &Float32 ,17
  L0 = L0 / 64
  L0 = L0 * 10000000
  &Mantisse = L0 + &Mantisse
  L0 = TESTBIT &Float32 ,16
  L0 = L0 / 128
  L0 = L0 * 10000000
  &Mantisse = L0 + &Mantisse
  L0 = TESTBIT &Float32 ,15
  L0 = L0 / 256
  L0 = L0 * 10000000
  &Mantisse = L0 + &Mantisse
  L0 = TESTBIT &Float32 ,14
  L0 = L0 / 512
  L0 = L0 * 10000000
  &Mantisse = L0 + &Mantisse
  L0 = TESTBIT &Float32 ,13
  L0 = L0 / 1024
  L0 = L0 * 10000000
  &Mantisse = L0 + &Mantisse
  L0 = TESTBIT &Float32 ,12
  L0 = L0 / 2048
  L0 = L0 * 10000000
  &Mantisse = L0 + &Mantisse
  L0 = TESTBIT &Float32 ,11
  L0 = L0 / 4096
  L0 = L0 * 10000000
  &Mantisse = L0 + &Mantisse
  L0 = TESTBIT &Float32 ,10
  L0 = L0 / 8192
  L0 = L0 * 10000000
  &Mantisse = L0 + &Mantisse
  L0 = TESTBIT &Float32 ,9
  L0 = L0 / 16384
  L0 = L0 * 10000000
  &Mantisse = L0 + &Mantisse
  L0 = TESTBIT &Float32 ,8
  L0 = L0 / 32768
  L0 = L0 * 10000000
  &Mantisse = L0 + &Mantisse
  L0 = TESTBIT &Float32 ,7
  L0 = L0 / 65536
  L0 = L0 * 10000000
  &Mantisse = L0 + &Mantisse
  L0 = TESTBIT &Float32 ,6
  L0 = L0 / 131072
  L0 = L0 * 10000000
  &Mantisse = L0 + &Mantisse
  L0 = TESTBIT &Float32 ,5
  L0 = L0 / 262144
  L0 = L0 * 10000000
  &Mantisse = L0 + &Mantisse
  L0 = TESTBIT &Float32 ,4
  L0 = L0 / 524288
  L0 = L0 * 10000000
  &Mantisse = L0 + &Mantisse
  L0 = TESTBIT &Float32 ,3
  L0 = L0 / 1048576
  L0 = L0 * 10000000
  &Mantisse = L0 + &Mantisse
  L0 = TESTBIT &Float32 ,2
  L0 = L0 / 2097152
  L0 = L0 * 10000000
  &Mantisse = L0 + &Mantisse
  L0 = TESTBIT &Float32 ,1
  L0 = L0 / 4194304
  L0 = L0 * 10000000
  &Mantisse = L0 + &Mantisse
  L0 = TESTBIT &Float32 ,0
  L0 = L0 / 8388608
  L0 = L0 * 10000000
  &Mantisse = L0 + &Mantisse
  L0 = &Mantisse / 10000000
  L0 = L0 + 1
  L1 = POWER 2 ,&exp
  L2 = &Signe * L0
  L2 = L2 * L1
  L2 = L2 * 100
  &Resultat = TRUNC L2
}
Var 0002, name Signe
Var 0003, name exp
Var 0004, name Mantisse
Var 0006, name Resultat
Var 0007, name eng1fuel, Link FSUIPC_INOUT, Offset $090C, Length 4
{
  CALL &Float32, &eng1fuel
}
Retourner vers Add-Ons d'instruments sur un ou plusieurs PC
Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 4 invités