source: Sophya/trunk/Poubelle/archediab.old/archediab.sources/c/rafraichis_fenetre.c@ 2008

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

archediab 28 vol
File size: 3.2 KB
Line 
1#include "diabolo.h"
2#include "bolo.h"
3#include "acqui.h"
4#include "regul.h"
5#include "auto.h"
6#include "config_transputer.h"
7
8
9
10
11void rafraichis_fenetres(void)
12{
13int i,j;
14//printf("rafraichis fenetres ");
15if(fenetre(fenetre_acquisition))
16 {
17 double f1,f2,f3;
18
19 ecritD(fenetre_acquisition,e_periode,"%6.1f",(double)gg->reglage.horloge.periode/5.);
20 ecritD(fenetre_acquisition,e_nb_mes,(int)gg->reglage.horloge.nb_mesures/2);
21 ecritD(fenetre_acquisition,e_temp_mort,(int)gg->reglage.horloge.temp_mort);
22 ecritD(fenetre_acquisition,e_telemesure,1+(0x0f & (int)gg->reglage.dilu.transmission));
23 ecritD(fenetre_acquisition,e_flash,1+((0x30 & (int)gg->reglage.dilu.transmission)>>4));
24 ecritD(fenetre_acquisition,e_vanne,(int)gg->reglage.dilu.vanne);
25 ecritD(fenetre_acquisition,e_helium,(int)gg->reglage.dilu.helium);
26
27 // affichage de toutes les fréquences
28 if(gg->reglage.horloge.periode) f1=5000/(double)gg->reglage.horloge.periode; else f1=1;
29 f2=f1/bitmot;f3=f2*1000./(double)(gg->reglage.horloge.nb_mesures);
30 ecritD(fenetre_acquisition,e_freq,"freq: %5.1f kHz -- %5.2f kHz, modulation: %5.1f Hz",f1,f2,f3);
31
32 gg->periode_echantillonage=(double)gg->reglage.horloge.periode*((double)bitmot)*(double)(gg->reglage.horloge.nb_mesures)/10000000.; // 2 fois la frequence de modulation
33// printf(" periode d'échantillonage= %g \n",gg->periode_echantillonage);
34 }
35
36for(j=0;j<nb_max_bolo;j++)
37 if(fenetre(j+1)) // seuls les bolos avec fenetre ouverte
38 {
39 int V,I,g,v;
40// printf("b%d ",j+1);
41 V=dac_V(gg->reglage.bolo[j]);
42 I=dac_I(gg->reglage.bolo[j]);
43 ecritD(j+1,b_carre,V);
44 ecritD(j+1,b_tri,I);
45 ecritD(j+1,b_lin,dac_L(gg->reglage.bolo[j]));
46 ecritD(j+1,b_trans,dac_T(gg->reglage.bolo[j]));
47 g=gainbrut(gg->reglage.bolo[j]);if(g>15) g=g&3;
48 ecritD(j+1,b_gain,g);
49 ecritD(j+1,b_phase,phase(gg->reglage.bolo[j]));
50 ecritD(j+1,b_comm,comm(gg->reglage.bolo[j]));
51 v=voie(gg->reglage.bolo[j]);
52 if(v) {ecritD(j+1,b_auto,1);ecritD(j+1,b_voie,v);}
53 else ecritD(j+1,b_auto,0);
54 mesures_bolo(j+1,V,I,0);
55 }
56//printf("\n");
57
58/*if(fenetre(fenetre_vitesse_block))
59 for(i=0;i<14;i++)
60 ecritD(fenetre_vitesse_block,ct_cadence+i,"%d",gg->reglage.vitesse[i]);
61*/
62
63if(fenetre(fenetre_regulation))
64 for(i=0;i<nombre_de_regul;i++)
65 {
66 ecritD(fenetre_regulation,regu_mode+i,gg->reglage.regul[i].mode+1);
67 ecritD(fenetre_regulation,regu_bolo+i,gg->reglage.regul[i].num_bolo+1);
68 ecritD(fenetre_regulation,regu_voie_chauf+i,gg->reglage.regul[i].voie_chauf+1);
69 ecritD(fenetre_regulation,regu_prop+i,gg->reglage.regul[i].prop);
70 ecritD(fenetre_regulation,regu_int+i,gg->reglage.regul[i].integ+1);
71 ecritD(fenetre_regulation,regu_deriv+i,gg->reglage.regul[i].deriv+1);
72 if(gg->reglage.regul[i].chauffage>0) ecritD(fenetre_regulation,regu_chauffage+i,gg->reglage.regul[i].chauffage);
73 else ecritD(fenetre_regulation,regu_chauffage+i,-gg->reglage.regul[i].chauffage);
74 }
75
76if(fenetre(fenetre_automatismes))
77 for(i=0;i<nombre_de_voies;i++)
78 {
79 ecritD(fenetre_automatismes,atm_auto+i,gg->reglage.autom[i].mode+1);
80 ecritD(fenetre_automatismes,atm_gain+i,gg->reglage.autom[i].gain+1-20);
81 ecritD(fenetre_automatismes,atm_courant+i,gg->reglage.autom[i].courant+1);
82 ecritD(fenetre_automatismes,atm_delai+i,gg->reglage.autom[i].delai);
83 }
84}
85
86
87
88
89
90
91
92
93
Note: See TracBrowser for help on using the repository browser.