Télécharger @EVN_MNG.procedur

Retour à la liste

Numérotation des lignes :

  1. * @EVN_MNG PROCEDUR MB234859 17/09/26 21:15:03 9567
  2. ***********************************************************************
  3. *
  4. * CETTE PROCEDURE A ETE MISE GRACIEUSEMENT A DISPOSITION DES
  5. * UTILISATEURS PAR LE LTDS - Ecole Centrale Lyon (S. Fouvry et S.Garcin)
  6. *
  7. ******************************************************************
  8. * MANAGEUR D'EVENEMENTS (@EVN_MNG)
  9. *
  10. * Test les indicateurs d etat et les declancheurs d actions
  11. * pour gerer la realisation des actions utiles
  12. *
  13. * Entrees :
  14. * T1 : Table de PASAPAS
  15. * ID_BU : Entier donnant le numero de la BOITE D'USURE a considerer
  16. *
  17. * Sortie :
  18. * T1 : Table de PASAPAS avec les booleens mis a jour
  19. *
  20. * Appelee par PERSO1
  21. *
  22. ******************************************************************
  23. DEBP @EVN_MNG T1*'TABLE' ID_BU*'ENTIER';
  24.  
  25. BOITE_US = T1.'BOITES_USURES'. ID_BU ;
  26. YesAcqED = BOITE_US.'YesAcqED' ;
  27. YesCANPU = BOITE_US.'YesCANPU' ;
  28. TermineC = BOITE_US.'TermineC' ;
  29. InPhasUs = BOITE_US.'InPhasUs' ;
  30. T1.'ARRET' = FAUX ;
  31.  
  32. * Acquisition des donnees de contact et Calcul de la densite d'energie
  33. * dissipee
  34. SI YesAcqED ;
  35. T1 = @PRCA1 T1 ID_BU;
  36. FINSI ;
  37.  
  38. * Enregistrement du cycle de fretting
  39. SI InPhasUs ;
  40. T1 = @PRCA2 T1 ID_BU;
  41. FINSI ;
  42.  
  43. * Calcul de la repartition de la deformee a appliquer en profondeur
  44. SI YesCANPU ;
  45. T1 = @PRCA3 T1 ID_BU;
  46. SI TermineC ; T1 = @PRCA5 T1 ID_BU; FINSI ;
  47. T1.'ARRET' = VRAI ;
  48. FINSI ;
  49.  
  50. * Evaluation des donnees utiles lors de la fin des cycles numeriques
  51. SI (ET TermineC (NON YesCANPU));
  52. T1 = @PRCA5 T1 ID_BU;
  53. FINSI ;
  54.  
  55. FINP T1;
  56.  
  57.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales