Subversion Repositories f9daq

Rev

Rev 164 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 164 Rev 165
Line 1... Line 1...
1 
#include "MPOD.h"
 1 
#include "MPOD.h"
2 
#include <utility.h>
 2 
#include <utility.h>
3 
#include "HVtest_ui.h"
 3 
#include "HVtest_ui.h"
4 
 
 4 
 
5 
#define HVSLOT 3
 5 
#define HVSLOT 3
6 
#define NTICSMAX 120
 6 
#define NTICSMAX 240
7 
 
 7 
 
8 
static int p1h, pID, rID; //, tfID;
 8 
static int p1h, pID, rID; //, tfID;
9 
 
 9 
 
10 
int CVICALLBACK refreshTimer (int panel, int control, int event, void *callbackData,
 10 
int CVICALLBACK refreshTimer (int panel, int control, int event, void *callbackData,
11 
                              int eventData1, int eventData2) {
 11 
                              int eventData1, int eventData2) {
Line 33... Line 33...
33 
  char cMainSwitch[2][30]= {"Turn system OFF?","Turn system ON?"};
 33 
  char cMainSwitch[2][30]= {"Turn system OFF?","Turn system ON?"};
34 
  char HVBid[4][4];
 34 
  char HVBid[4][4];
35 
  int HVBid_rID[4]={P1_HVBid_1,P1_HVBid_2,P1_HVBid_3,P1_HVBid_4};
 35 
  int HVBid_rID[4]={P1_HVBid_1,P1_HVBid_2,P1_HVBid_3,P1_HVBid_4};
36 
  char HVBfname[4][200];
 36 
  char HVBfname[4][200];
37 
  FILE *HVBfp[4]={NULL,NULL,NULL,NULL};
 37 
  FILE *HVBfp[4]={NULL,NULL,NULL,NULL};
- 
 
 38 
  FILE *LIDfp=NULL;
38 
 
 39 
 
39 
  HSNMP crate1;
 40 
  HSNMP crate1;
40 
 
 41 
 
41 
  if (InitCVIRTE (hInstance, 0, 0) == 0)
 42 
  if (InitCVIRTE (hInstance, 0, 0) == 0)
42 
    return -1;    /* out of memory */
 43 
    return -1;    /* out of memory */
Line 54... Line 55...
54 
//  printf("Fan nominal speed = %i\n", iret);
 55 
//  printf("Fan nominal speed = %i\n", iret);
55 
 
 56 
 
56 
  if ((p1h = LoadPanel (0, "HVtest_ui.uir", P1)) < 0) return -1;
 57 
  if ((p1h = LoadPanel (0, "HVtest_ui.uir", P1)) < 0) return -1;
57 
  DisplayPanel (p1h);
 58 
  DisplayPanel (p1h);
58 
  SetCtrlVal (p1h, P1_TESTon, 0);
 59 
  SetCtrlVal (p1h, P1_TESTon, 0);
- 
 
 60 
  LIDfp=fopen("lastids.txt","r");
- 
 
 61 
  for (i=0;i<4;i++) {
- 
 
 62 
    fscanf(LIDfp,"%s",HVBid[i]);
- 
 
 63 
    SetCtrlVal(p1h,HVBid_rID[i],HVBid[i]);
59 
 
 64 
  }
- 
 
 65 
  fclose(LIDfp);
- 
 
 66 
  LIDfp=NULL;
60 
 
 67 
 
61 
//Initial state
 68 
//Initial state
62 
  mainonoff=getMainSwitch(crate1);
 69 
  mainonoff=getMainSwitch(crate1);
63 
  SetCtrlVal (p1h, P1_MSW, mainonoff);
 70 
  SetCtrlVal (p1h, P1_MSW, mainonoff);
64 
  SetCtrlVal (p1h, P1_MSWLED, mainonoff);
 71 
  SetCtrlVal (p1h, P1_MSWLED, mainonoff);
65 
  iret=getMainStatus(crate1);
 72 
  iret=getMainStatus(crate1);
66 
  SetCtrlVal (p1h, P1_MST, iret);
 73 
  SetCtrlVal (p1h, P1_MST, iret);
67 
  iret=getFanNominalSpeed(crate1);
 74 
  iret=getFanNominalSpeed(crate1);
68 
  SetCtrlVal (p1h, P1_MFS, iret);
 75 
  SetCtrlVal (p1h, P1_MFS, iret);
69 
  if (mainonoff) {
 76 
  if (mainonoff) {
70 
    HVonoffall=0;
 77 
    HVonoffall=0;
71 
    for (i=0;i<4;i++) {
 78 
    for (i=0;i<4;i++) {
72 
      HVonoff[i]=getChannelSwitch(crate1, ch0+i);
 79 
      HVonoff[i]=getChannelSwitch(crate1, ch0+i);
73 
      if (HVonoff[i]) HVonoffall=1;
 80 
      if (HVonoff[i]) HVonoffall=1;
74 
    }
 81 
    }
75 
    for (i=0;i<4;i++) {
 82 
    for (i=0;i<4;i++) {
76 
      if (!HVonoffall) HVonoff[i]=1;
 83 
      if (!HVonoffall) HVonoff[i]=1;
77 
        SetCtrlVal (p1h, HVonoff_rID[i], HVonoff[i]);
 84 
        SetCtrlVal (p1h, HVonoff_rID[i], HVonoff[i]);
78 
    }
 85 
    }
79 
    HVvset[0]=getOutputVoltage(crate1,ch0);
 86 
    HVvset[0]=getOutputVoltage(crate1,ch0);
80 
    SetCtrlVal (p1h, P1_HVvset, HVvset[0]);
 87 
    SetCtrlVal (p1h, P1_HVvset, HVvset[0]);
81 
    HVcset[0]=1e+6*getOutputCurrent(crate1,ch0);
 88 
    HVcset[0]=1e+6*getOutputCurrent(crate1,ch0);
Line 89... Line 96...
89 
//  QueueUserEvent (1000, p1h, P1_RESET);
 96 
//  QueueUserEvent (1000, p1h, P1_RESET);
90 
  QueueUserEvent (9000, p1h, P1_REFRESHTIMER);
 97 
  QueueUserEvent (9000, p1h, P1_REFRESHTIMER);
91 
 
 98 
 
92 
  do {
 99 
  do {
93 
    GetUserEvent (1, &pID, &rID);
 100 
    GetUserEvent (1, &pID, &rID);
94 
    switch (rID) {
 101 
    switch (rID) {
95 
      case P1_REFRESHTIMER:
 102 
      case P1_REFRESHTIMER:
96 
        mainonoff=getMainSwitch(crate1);
 103 
        mainonoff=getMainSwitch(crate1);
97 
        SetCtrlVal (p1h, P1_MSW, mainonoff);
 104 
        SetCtrlVal (p1h, P1_MSW, mainonoff);
98 
        SetCtrlVal (p1h, P1_MSWLED, mainonoff);
 105 
        SetCtrlVal (p1h, P1_MSWLED, mainonoff);
99 
        if (mainonoff) {
 106 
        if (mainonoff) {
Line 123... Line 130...
123 
              case NTICSMAX:
 130 
              case NTICSMAX:
124 
                SetCtrlVal (p1h, P1_TESTon, 0);
 131 
                SetCtrlVal (p1h, P1_TESTon, 0);
125 
                QueueUserEvent (1001, p1h, P1_TESTon);
 132 
                QueueUserEvent (1001, p1h, P1_TESTon);
126 
                break;
 133 
                break;
127 
              default:
 134 
              default:
128 
                break;
 135 
                break;
129 
            }
 136 
            }
130 
          }
 137 
          }
131 
        }
 138 
        }
132 
        break;
 139 
        break;
133 
      case P1_MSW:
 140 
      case P1_MSW:
134 
        GetCtrlVal (p1h, P1_MSW, &mainonoff);
 141 
        GetCtrlVal (p1h, P1_MSW, &mainonoff);
Line 142... Line 149...
142 
            if (HVonoff[i]) HVonoffall=1;
 149 
            if (HVonoff[i]) HVonoffall=1;
143 
          }
 150 
          }
144 
          for (i=0; i<4; i++) {
 151 
          for (i=0; i<4; i++) {
145 
            if (!HVonoffall) HVonoff[i]=1;
 152 
            if (!HVonoffall) HVonoff[i]=1;
146 
            SetCtrlVal (p1h, HVonoff_rID[i], HVonoff[i]);
 153 
            SetCtrlVal (p1h, HVonoff_rID[i], HVonoff[i]);
147 
          }
 154 
          }
148 
          HVvset[0]=getOutputVoltage(crate1,ch0);
 155 
          HVvset[0]=getOutputVoltage(crate1,ch0);
149 
          SetCtrlVal (p1h, P1_HVvset, HVvset[0]);
 156 
          SetCtrlVal (p1h, P1_HVvset, HVvset[0]);
150 
          HVcset[0]=1e+6*getOutputCurrent(crate1,ch0);
 157 
          HVcset[0]=1e+6*getOutputCurrent(crate1,ch0);
151 
          SetCtrlVal (p1h, P1_HVcset, HVcset[0]);
 158 
          SetCtrlVal (p1h, P1_HVcset, HVcset[0]);
152 
          SetAxisScalingMode (p1h, P1_G1, VAL_LEFT_YAXIS, VAL_MANUAL, -(HVcset[0]+1), 1.);
 159 
          SetAxisScalingMode (p1h, P1_G1, VAL_LEFT_YAXIS, VAL_MANUAL, -(HVcset[0]+1), 1.);
153 
          HVvrise=getModuleRampSpeedVoltage(crate1,mo);
 160 
          HVvrise=getModuleRampSpeedVoltage(crate1,mo);
154 
          SetCtrlVal (p1h, P1_HVvrise, HVvrise);
 161 
          SetCtrlVal (p1h, P1_HVvrise, HVvrise);
- 
 
 162 
        }
- 
 
 163 
        break;
- 
 
 164 
      case P1_HVBidinc:
- 
 
 165 
        if (!TESTon) {
- 
 
 166 
          for (i=0;i<4;i++) {
- 
 
 167 
            GetCtrlVal(p1h, HVBid_rID[i], HVBid[i]);
- 
 
 168 
            sscanf(HVBid[i],"%d",&iret);
- 
 
 169 
            iret+=4;
- 
 
 170 
            sprintf(HVBid[i],"%3.3d",iret);
- 
 
 171 
            SetCtrlVal(p1h, HVBid_rID[i], HVBid[i]);
- 
 
 172 
          }
155 
        }
 173 
        }
156 
        break;
 174 
        break;
157 
      }
 175 
      }
158 
    if (!mainonoff) continue;
 176 
    if (!mainonoff) continue;
159 
    switch (rID) {
 177 
    switch (rID) {
Line 186... Line 204...
186 
      case P1_TESTon:
 204 
      case P1_TESTon:
187 
          GetCtrlVal (p1h, P1_TESTon, &TESTon);
 205 
          GetCtrlVal (p1h, P1_TESTon, &TESTon);
188 
          if (TESTon) {
 206 
          if (TESTon) {
189 
            ntics=0;
 207 
            ntics=0;
190 
            ClearStripChart (p1h, P1_G1);
 208 
            ClearStripChart (p1h, P1_G1);
- 
 
 209 
            LIDfp=fopen("lastids.txt","w");
191 
            for (i=0;i<4;i++) {
 210 
            for (i=0;i<4;i++) {
192 
              GetCtrlVal(p1h, HVBid_rID[i], HVBid[i]);
 211 
              GetCtrlVal(p1h, HVBid_rID[i], HVBid[i]);
193 
              sprintf(HVBfname[i],"HVB_%s.dat",HVBid[i]);
 212 
              sprintf(HVBfname[i],"data/HVB_%s.dat",HVBid[i]);
- 
 
 213 
              fprintf(LIDfp,"%s\n",HVBid[i]);
194 
              HVBfp[i]=fopen(HVBfname[i],"w");
 214 
              HVBfp[i]=fopen(HVBfname[i],"w");
195 
            }
 215 
            }
- 
 
 216 
            fclose(LIDfp);
- 
 
 217 
            LIDfp=NULL;
196 
          } else {
 218 
          } else {
197 
            SetCtrlVal(p1h,P1_HVonoffall, 0);
 219 
            SetCtrlVal(p1h,P1_HVonoffall, 0);
198 
            QueueUserEvent (1001, p1h, P1_HVonoffall);
 220 
            QueueUserEvent (1001, p1h, P1_HVonoffall);
199 
            for (i=0;i<4;i++)
 221 
            for (i=0;i<4;i++) {
200 
              fclose(HVBfp[i]);
 222 
              fclose(HVBfp[i]);
- 
 
 223 
              HVBfp[i]=NULL;
- 
 
 224 
            }
201 
          }
 225 
          }
202 
        break;        
 226 
        break;        
203 
//      case P1_VFA0:
 227 
//      case P1_VFA0:
204 
//        GetCtrlVal (p1h, P1_VFA0, &ret);
 228 
//        GetCtrlVal (p1h, P1_VFA0, &ret);
205 
//        setOutputFallRate(crate1, ch, ret);
 229 
//        setOutputFallRate(crate1, ch, ret);