Changeset 649 in Sophya for trunk/Poubelle/archediab.old/archediab.sources/c/acquisition_general.c

Timestamp:

Nov 25, 1999, 2:56:34 PM (26 years ago)

Author:

ansari

Message:

archediab 28 vol

File:

• trunk/Poubelle/archediab.old/archediab.sources/c/acquisition_general.c (modified) (6 diffs)

trunk/Poubelle/archediab.old/archediab.sources/c/acquisition_general.c

@@ -14 +14 @@
 #include "compress.h"
 #include "controle.h"
+#include "simulmission.h"
 
 
@@ -41 +42 @@
 static int count_moy_err=0;
 int err;
+static bilan_err=0;             
 
 if      (item!=tache_de_fond)           return;
@@ -56 +58 @@
 */
 
-if( count-- < 0 ) 
+//if( count-- < 0 ) 
                 {
                 count=3; 
-                ecritD(fenetre_controle,con_retard1,"%d",tt->nb_lec_fofo_ext);
-                tt->nb_lec_fofo_ext=0;
+                ecritD(fenetre_controle,con_fifo,tt->val_con_fifo/2);
+                tt->val_con_fifo=0;
                 }
 
 
 err=test_erreur();  //______________   test des erreurs   _______________________________
+
+if(err) bilan_err+=10*err;
+
+// Pour la simulation, rempli les buffers avec les donnees simulees
+
+if (tt->PCI_actif==3) SimulMissionReadLoop();
 
 
 //_____________________   lit la table télémesure  ______________________________________
                                         
-
+if(bilan_err>100)       bilan_err=100;
+if(bilan_err>50)        bilan_err-=20;
+if(bilan_err>10)        bilan_err-=5;
+if(bilan_err>0)         bilan_err--;
+if(bilan_err)   ecritD(fenetre_controle,con_erreur,20+bilan_err*10);
+else            ecritD(fenetre_controle,con_erreur,0);
 
 q=(longueur_table_tm+tt->tm.pos_ecrit-tt->tm.pos_lit)%longueur_table_tm;
+
+ecritD(fenetre_controle,con_pile,(1000*((longueur_table_tm+tt->tm.pos_ecrit-tt->tm.pos_lit)%longueur_table_tm))/longueur_table_tm);
+ecritD(fenetre_controle,con_donnee,tt->val_con_donnee);
 
 while(q)
         {
-        ecritD(fenetre_controle,con_retard2,"%d",(longueur_table_tm+tt->tm.pos_ecrit-tt->tm.pos_lit)%longueur_table_tm);
-
+        ecritD(fenetre_controle,con_pile,(1000*((longueur_table_tm+tt->tm.pos_ecrit-tt->tm.pos_lit)%longueur_table_tm))/longueur_table_tm);
+//      printf(" pile = %d  \n",(1000*((longueur_table_tm+tt->tm.pos_ecrit-tt->tm.pos_lit)%longueur_table_tm))/longueur_table_tm);
 //*****************************************************************************************
 //                                                                                      ***
@@ -109 +125 @@
         {
         case ouverture  :       gg->flag_tc_reduite=litD(fen,e_tc_reduite,0);
-                                if(tt->PCI_actif==1) reset_carte;
+                                if(acquisition_PCI) reset_carte;
                                 ecritD(fen,e_tache_inter,0);    // arreter les interruptions
                                 reset_epld();
@@ -161 +177 @@
                                 break;
 
-        case e_vanne    :       {
-                                long ll=(long)(&(gg->reglage.dilu.vanne))-(long)(&(gg->reglage.dilu));
+        case e_vanne    :       
+                                        {
+                                        long ll=(long)(&(gg->reglage.dilu.vanne))-(long)(&(gg->reglage.dilu));
                                 int a=(int) valeur;     
+                                if(a==vanne_ouvre)      
+                                        if(alerte(2,"voulez-vous vraiment ouvrir la vanne ??")!=1) break;
                                 emission_tc_reduite(tc2_auto_dilu,ll,a);
                                 }
@@ -189 +208 @@
         case e_tache_inter :    calfreq(0);     //  command ou arrete le flag epld sortie data
                                 if(TTm)         stoptimer(TTm);
-                                if(tt->PCI_actif==1) reset_carte;
+                                if(acquisition_PCI) reset_carte;
                                 tt->vi.a=0;
                                 if(valeur)