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

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

archediab 26
File size: 3.0 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
25 // affichage de toutes les fréquences
26 if(gg->reglage.horloge.periode) f1=5000/(double)gg->reglage.horloge.periode; else f1=1;
27 f2=f1/bitmot;f3=f2*1000./(double)(gg->reglage.horloge.nb_mesures);
28 ecritD(fenetre_acquisition,e_freq,"freq: %5.1f kHz -- %5.2f kHz, modulation: %5.1f Hz",f1,f2,f3);
29
30 gg->periode_echantillonage=(double)gg->reglage.horloge.periode*((double)bitmot)*(double)(gg->reglage.horloge.nb_mesures)/10000000.; // 2 fois la frequence de modulation
31// printf(" periode d'échantillonage= %g \n",gg->periode_echantillonage);
32 }
33
34for(j=0;j<nb_max_bolo;j++)
35 if(fenetre(j+1)) // seuls les bolos avec fenetre ouverte
36 {
37 int V,I,g,v;
38// printf("b%d ",j+1);
39 V=dac_V(gg->reglage.bolo[j]);
40 I=dac_I(gg->reglage.bolo[j]);
41 ecritD(j+1,b_carre,V);
42 ecritD(j+1,b_tri,I);
43 ecritD(j+1,b_lin,dac_L(gg->reglage.bolo[j]));
44 ecritD(j+1,b_trans,dac_T(gg->reglage.bolo[j]));
45 g=gainbrut(gg->reglage.bolo[j]);if(g>15) g=g&3;
46 ecritD(j+1,b_gain,g);
47 ecritD(j+1,b_phase,phase(gg->reglage.bolo[j]));
48 ecritD(j+1,b_comm,comm(gg->reglage.bolo[j]));
49 v=voie(gg->reglage.bolo[j]);
50 if(v) {ecritD(j+1,b_auto,1);ecritD(j+1,b_voie,v);}
51 else ecritD(j+1,b_auto,0);
52 mesures_bolo(j+1,V,I,0);
53 }
54//printf("\n");
55
56/*if(fenetre(fenetre_vitesse_block))
57 for(i=0;i<14;i++)
58 ecritD(fenetre_vitesse_block,ct_cadence+i,"%d",gg->reglage.vitesse[i]);
59*/
60
61if(fenetre(fenetre_regulation))
62 for(i=0;i<nombre_de_regul;i++)
63 {
64 ecritD(fenetre_regulation,regu_mode+i,gg->reglage.regul[i].mode+1);
65 ecritD(fenetre_regulation,regu_bolo+i,gg->reglage.regul[i].num_bolo+1);
66 ecritD(fenetre_regulation,regu_voie_chauf+i,gg->reglage.regul[i].voie_chauf+1);
67 ecritD(fenetre_regulation,regu_prop+i,gg->reglage.regul[i].prop);
68 ecritD(fenetre_regulation,regu_int+i,gg->reglage.regul[i].integ+1);
69 ecritD(fenetre_regulation,regu_deriv+i,gg->reglage.regul[i].deriv+1);
70 ecritD(fenetre_regulation,regu_chauffage+i,gg->reglage.regul[i].chauffage);
71 }
72
73if(fenetre(fenetre_automatismes))
74 for(i=0;i<nombre_de_voies;i++)
75 {
76 ecritD(fenetre_automatismes,atm_auto+i,gg->reglage.autom[i].mode+1);
77 ecritD(fenetre_automatismes,atm_gain+i,gg->reglage.autom[i].gain+1-20);
78 ecritD(fenetre_automatismes,atm_courant+i,gg->reglage.autom[i].courant+1);
79 ecritD(fenetre_automatismes,atm_delai+i,gg->reglage.autom[i].delai);
80 }
81}
82
83
84
85
86
87
88
89
90
Note: See TracBrowser for help on using the repository browser.