Engine Anti Ice

Attention, ce code (en NOIR) ne peut pas être utilisé en copier-collé à cause des explications (en JAUNE).
Pour que cela ne vous pose pas de souci rendez vous ICI pour retrouver le programme complet sans explication.

 

// *****************************************************************************
// * Config_SIOC ver 3.7B1   -     By Manolo Vélez    -    www.opencockpits.com
// *****************************************************************************
// * FileName : sioc.txt
// * Date : 19/07/2010



Var 0000, name iNITIALISATION
{
  CALL &Init_inters     // Sub 0300
  CALL &Init_voyants     // Sub 0399
}

Var 0027, name ENG_ANTI_ICE_L, Link FSUIPC_INOUT, Offset $08B2, Length 2     // Dégivrage moteur gauche
{
  &ENG_ANTI_ICE_L = &ENGIN_ICE_L_SW   
}

Var 0028, name ENG_ANTI_ICE_R, Link FSUIPC_INOUT, Offset $094A, Length 2     // Dégivrage moteur droit
{
  &ENG_ANTI_ICE_R = &ENGIN_ICE_R_SW   
}

Var 0300, name Init_inters, Link SUBRUTINE     // Initialisation des Inters
{
  &ENG_ANTI_ICE_L = &ENGIN_ICE_L_SW   
  &ENG_ANTI_ICE_R = &ENGIN_ICE_R_SW   
}

Var 0317, name L_ICE_VANE, Link SUBRUTINE     // Calcul L ICE VANE voir sub 325
{
  &L_ICE_VANE = &L_ICE_VANE + &ENGIN_ICE_L_SW
}

Var 0320, name R_ICE_VANE, Link SUBRUTINE     // Cacul R ICE VANE voir sub 0329
{
  &R_ICE_VANE = &R_ICE_VANE + &ENGIN_ICE_R_SW
}

Var 0325, name L_ICE_VANE_EXT, Link SUBRUTINE     // Alarme verte & jaune ICE Vane moteur gau
{
  IF &L_ICE_VANE = 0     // L'Inter vient d'être basculé sur OFF...
  {
    &L_ICE_EXT_LED = DELAY 0 ,1400     // ...Led s'éteint après 14"
  }
  IF &L_ICE_VANE = 2     // L'Inter vient d'être basculé sur ON...
  {
    IF &L_ENGINCOMBUST = 1     // Si moteur démarré
    {
      L0 = RANDOM 400 ,2000     // Temps aléatoire entre 4 & 20"
      L1 = L0 + 500     // On ajoute 5" à L0
      &L_ICE_EXT_LED = DELAY 1 ,L0     // Led Verte s'allume après L0
      IF L0 > 1600     // Si L0 est plus grand que 16"
      {
        &L_ICE_VANE_LED = DELAY 1 ,1500     // Led défaut ICE VANE s'allume après 15"
        &L_ICE_VANE_LED = DELAY 0 ,L1     // et s'éteint 5" après allumage de la vert
      }
      &L_ICE_VANE = 0         // Remise à zéro du compteur
    }
  }
  ELSE     // Pour n'allumer l'alarme défaut...
  {
    IF &L_ICE_VANE = 1     // ...qu'au basculement de l'inter...
    {
      &L_ICE_EXT_LED = 1         // ... de la position Off à On.
    }
  }
}

Var 0329, name R_ICE_VANE_EXT, Link SUBRUTINE     // Alarme verte & jaune ICE Vane moteur dro
{
  IF &R_ICE_VANE = 0     // L'Inter vient d'être basculé sur OFF...
  {
    &R_ICE_EXT_LED = DELAY 0 ,1400     // ...Led s'éteint après 14"
  }
  IF &R_ICE_VANE = 2     // L'Inter vient d'être basculé sur ON...
  {
    IF &R_ENGINCOMBUST = 1     // Si moteur démarré
    {
      L0 = RANDOM 400 ,2000     // Temps aléatoire entre 4 & 20"
      L1 = L0 + 500     // On ajoute 5" à L0
      &R_ICE_EXT_LED = DELAY 1 ,L0     // Led Verte s'allume après L0
      IF L0 > 1600     // Si L0 est plus grand que 16"
      {
        &R_ICE_VANE_LED = DELAY 1 ,1500     // Led défaut ICE VANE s'allume après 15"
        &R_ICE_VANE_LED = DELAY 0 ,L1     // et s'éteint 5" après allumage de la vert
      }
      &R_ICE_VANE = 0         // Remise à zéro du compteur
    }
  }
  ELSE     // Pour n'allumer l'alarme défaut...
  {
    IF &R_ICE_VANE = 1     // ...qu'au basculement de l'inter...
    {
      &R_ICE_EXT_LED = 1         // ... de la position Off à On.
    }
  }
}

Var 0399, name Init_voyants, Link SUBRUTINE     // Initialisation des sorties
{
  IF &BATTERY = 0
  {
    &L_ICE_VANE_LED = 0   
    &R_ICE_VANE_LED = 0   
    &L_ICE_EXT_LED = 0   
    &R_ICE_EXT_LED = 0     
  }
  ELSE     // Si inter déjà sur"ON" à l'initialisation
  {
    CALL &L_ICE_VANE_EXT     // Sub 0325 L ICE VANE EXT led
    CALL &R_ICE_VANE_EXT     // Sub 0329 R ICE VANE EXT led
  }
}

Var 0410, name ENGIN_ICE_L_SW, Link IOCARD_SW, Input 2     // inter anti ice moteur gauche
{
  &ENG_ANTI_ICE_L = &ENGIN_ICE_L_SW         // var 0027
  &L_ICE_VANE = &ENGIN_ICE_L_SW         // Sub 0317
  CALL &L_ICE_VANE_EXT     // Sub 0325 L ICE VANE EXT led
}

Var 0411, name ENGIN_ICE_R_SW, Link IOCARD_SW, Input 1     // inter anti ice moteur droit
{
  &ENG_ANTI_ICE_R = &ENGIN_ICE_R_SW         // var 0028
  &R_ICE_VANE = &ENGIN_ICE_R_SW         // Sub 0320
  CALL &R_ICE_VANE_EXT     // Sub 0329 R ICE VANE EXT led
}

Var 0723, name L_ICE_VANE_LED, Link IOCARD_OUT, Output 35     // Alarme Jaune L ICE VANE

Var 0726, name R_ICE_VANE_LED, Link IOCARD_OUT, Output 45     // Alarme Jaune R ICE VANE

Var 0731, name L_ICE_EXT_LED, Link IOCARD_OUT, Output 41     // Alarme verte LEFT ICE VANE EXT

Var 0735, name R_ICE_EXT_LED, Link IOCARD_OUT, Output 52     // Alarme verte R ICE VANE EXT