source: Sophya/trunk/Poubelle/archediab.old/archediab.sources/c/acquisition_general.c@ 643

Last change on this file since 643 was 643, checked in by ansari, 26 years ago

archediab 26
File size: 6.6 KB
Line 
1#include "diabolo.h"
2#include "bolo.h"
3#include "acqui.h"
4#include "carte_acqui.h"
5#include "carte_pci.h"
6#include "trace.h"
7#include "corel.h"
8#include "montimer.h"
9#include "synchro.h"
10#include "fichier.h"
11#include "onde.h"
12#include "tm.h"
13#include "tache.h"
14#include "compress.h"
15#include "controle.h"
16
17
18
19#define temps_timer 10 // 10 ms donc 2500 points pour 4µsec ( fifo 32k )
20
21tmtc* tt; // pointeur global sur la structure tmtc
22
23
24
25#define max_couleur 10
26int bolo_couleur[max_couleur]; // les numero de bolos des 10 couleurs affichées
27#define perm(a) {if(fenetre(a)) permanent(a);}
28
29
30// programme d'acquisition: affichage des résultats en tache de fond tous les 10 ticks (6 fois/seconde)
31
32
33
34void acqui(int fen,int item,double valeur,...)
35{
36int q;
37static int acquisition=0;
38static int count=0;
39static int nberr=0;
40static double x_err,errmoy;
41static int count_moy_err=0;
42int err;
43
44if (item!=tache_de_fond) return;
45if (gg->depou_en_cours) return;
46
47gg->depou_en_cours=1;
48
49/*
50{ // test par envoie continue d'un changement de frequence
51static qq=0;
52qq++;
53if(qq==10) {ecritD(fenetre_acquisition,e_periode,"4"); calfreq(0);}
54if(qq==20) {qq=0;ecritD(fenetre_acquisition,e_periode,"8"); calfreq(0);}
55}
56*/
57
58if( count-- < 0 )
59 {
60 count=3;
61 ecritD(fenetre_controle,con_retard1,"%d",tt->nb_lec_fofo_ext);
62 tt->nb_lec_fofo_ext=0;
63 }
64
65
66err=test_erreur(); //______________ test des erreurs _______________________________
67
68
69//_____________________ lit la table télémesure ______________________________________
70
71
72
73q=(longueur_table_tm+tt->tm.pos_ecrit-tt->tm.pos_lit)%longueur_table_tm;
74
75while(q)
76 {
77 ecritD(fenetre_controle,con_retard2,"%d",(longueur_table_tm+tt->tm.pos_ecrit-tt->tm.pos_lit)%longueur_table_tm);
78
79//*****************************************************************************************
80// ***
81#ifdef _archeops //--------- pour Archeops ----------------------------- ***
82lit_block_archeops(err);
83#endif
84#ifdef _diabolo //--------- pour Diabolo ------------------------------ ***
85lit_block_diabolo(err);
86#endif //----------------------------------------------------------- ***
87// ***
88//*****************************************************************************************
89// printf(" pos=%d \n",tt->tm.pos_lit);
90 tt->tm.pos_lit++; if(tt->tm.pos_lit>=longueur_table_tm) tt->tm.pos_lit-=longueur_table_tm;
91 q--;
92 }
93//________________________________________________________________________________________
94
95gg->depou_en_cours=0;
96}
97
98
99
100
101
102void exec_acquisition(int fen,int item,double valeur,...)
103{
104//char ss[256];
105static TMInfoPtr TTm=0;
106int i,j;
107
108switch(item)
109 {
110 case ouverture : gg->flag_tc_reduite=litD(fen,e_tc_reduite,0);
111 if(tt->PCI_actif==1) reset_carte;
112 ecritD(fen,e_tache_inter,0); // arreter les interruptions
113 reset_epld();
114 calfreq(0); // d'abord fixer la fréquence
115
116 case e_reset : reset_epld();
117
118 case e_bolo_couleur :
119 case e_bolo_couleur+1 :
120 case e_bolo_couleur+2 :
121 case e_bolo_couleur+3 :
122 case e_bolo_couleur+4 :
123 case e_bolo_couleur+5 :
124 case e_bolo_couleur+6 :
125 case e_bolo_couleur+7 :
126 case e_bolo_couleur+8 :
127 case e_bolo_couleur+9 :
128
129 for(i=0;i<max_couleur;i++)
130 {
131 bolo_couleur[i]=litD(fen,e_bolo_couleur+i,0L)-1;
132 if( (bolo_couleur[i]<1) ou (bolo_couleur[i]>nb_max_bolo) ) bolo_couleur[i]=0;
133 printf(" i=%d bolo=%d ",i,bolo_couleur[i]);
134 }
135 printf("\n");
136 break;
137
138 case e_montre : for(j=nb_max_bolo-1;j>=0;j--) if(parametr.bolo[j].bolo_code_util) select(j+1);
139 break;
140
141 case e_sauve : for(j=0;j<nb_max_bolo;j++) if(parametr.bolo[j].bolo_code_util)permanent(j+1);
142 perm(fenetre_acquisition);
143 perm(fenetre_liste_bolos);
144// perm(fenetre_regul);
145// perm(fenetre_auto);
146 perm(fenetre_regulation);
147 perm(fenetre_automatismes);
148// perm(fenetre_dilution);
149// perm(fenetre_senseur_stellaire);
150 break;
151
152
153 case e_flash :
154 case e_telemesure : {
155 long ll=(long)(&(gg->reglage.dilu.transmission))-(long)(&(gg->reglage.dilu));
156 int a=(int) (litD(fenetre_acquisition,e_flash,0)-1);
157 a=a<<4;
158 a=a + (int) (litD(fenetre_acquisition,e_telemesure,0)-1);
159 emission_tc_reduite(tc2_auto_dilu,ll,a);
160 }
161 break;
162
163 case e_vanne : {
164 long ll=(long)(&(gg->reglage.dilu.vanne))-(long)(&(gg->reglage.dilu));
165 int a=(int) valeur;
166 emission_tc_reduite(tc2_auto_dilu,ll,a);
167 }
168 break;
169
170 case e_helium : {
171 long ll=(long)(&(gg->reglage.dilu.helium))-(long)(&(gg->reglage.dilu));
172 int a=(int) valeur;
173 emission_tc_reduite(tc2_auto_dilu,ll,a);
174 }
175 break;
176
177 case e_chauf : {
178 long ll=(long)(&(gg->reglage.dilu.chauffage))-(long)(&(gg->reglage.dilu));
179 int a=(int) valeur;
180 emission_tc_reduite(tc2_auto_dilu,ll,a);
181 }
182 break;
183
184 case e_cmd : emission_tc_reduite(tc2_horloge,tc3_commande,(int) valeur);
185 ecritD(fen,e_cmd,0);
186 break;
187
188
189 case e_tache_inter : calfreq(0); // command ou arrete le flag epld sortie data
190 if(TTm) stoptimer(TTm);
191 if(tt->PCI_actif==1) reset_carte;
192 tt->vi.a=0;
193 if(valeur)
194 {
195 if(!TTm) TTm=setuptimer(temps_timer,lecture_fifo,tt);
196 else redemarretimer(TTm,temps_timer);
197 calfreq(1); // commande le flag epld sortie data
198 }
199 break;
200
201 case fermeture : if(TTm) stoptimer(TTm);
202
203 {long t=TickCount()+60; while(t>TickCount()) {};} //attente 1 sec
204
205 if(TTm) supprimetimer(TTm);
206 break;
207
208
209 case caseferme : cache(fen); stop_exec(fen); break;
210
211
212 case e_periode+1000 :
213 case e_periode : // printf("change la période \n");
214
215 case e_nb_mes : // printf("change le nombre de mesures \n");
216 case e_temp_mort :
217 case e_flag1 : // passe horloge externe ou local
218 case e_flag2 : // passe horloge externe ou local
219 calfreq((int)litD(fen,e_tache_inter,0));
220 break;
221 case e_tc_reduite : gg->flag_tc_reduite=valeur; break;
222
223 case e_correlations : gg->flag_corel=valeur; break;
224
225
226 default : break;
227 }
228}
229
230
231//------------------------------ montracen --------------------------------------
232
233
234void montracen(int fen,int n,double x,double*y)
235{
236int i;
237double yy[max_couleur];
238for(i=0;i<max_couleur;i++)
239 {
240 if(bolo_couleur[i]) yy[i]=y[bolo_couleur[i]-1];
241 else yy[i]=0;
242 }
243tracen(fen,max_couleur,x,yy);
244// printf("0=%g 1=%g 2=%g \n",yy[0],yy[1],yy[2]);
245}
246
247int bolo_rouge(void) // l'indice du bolo rouge
248{
249return(bolo_couleur[0]);
250}
251
Note: See TracBrowser for help on using the repository browser.