WebSVN – f9daq – Diff – /HVtest/HVtest.c


#include "MPOD.h"
#include <utility.h>
#include "HVtest_ui.h"
 
#define HVSLOT 3
#define NTICSMAX 240
 
static int p1h, pID, rID; //, tfID;
 
int CVICALLBACK refreshTimer (int panel, int control, int event, void *callbackData,
                              int eventData1, int eventData2) {
  QueueUserEvent (9000, p1h, P1_REFRESHTIMER);
  return (0);
}
 
int __stdcall WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
                       LPSTR lpszCmdLine, int nCmdShow) {
 
  const int mo=HVSLOT;
  const int ch0=100*mo;
 
  int mainonoff,HVonoffall;
  int HVonoff[4]={0,0,0,0};
  int HVonoff_rID[4]={P1_HVonoff_1,P1_HVonoff_2,P1_HVonoff_3,P1_HVonoff_4};
  int HVvdis_rID[4]={P1_HVvdis_1,P1_HVvdis_2,P1_HVvdis_3,P1_HVvdis_4};
  int HVcdis_rID[4]={P1_HVcdis_1,P1_HVcdis_2,P1_HVcdis_3,P1_HVcdis_4};
  int iret;
  int i;
  int TESTon=0,ntics=0;
  double HVvset[4],HVcset[4],HVvrise; //,HVvfall;
  double HVvdis[4],HVcdis[4];
//  char cret[2000];
  char cMainSwitch[2][30]= {"Turn system OFF?","Turn system ON?"};
  char HVBid[4][4];
  int HVBid_rID[4]={P1_HVBid_1,P1_HVBid_2,P1_HVBid_3,P1_HVBid_4};
  char HVBfname[4][200];
  FILE *HVBfp[4]={NULL,NULL,NULL,NULL};
  FILE *LIDfp=NULL;
 
  HSNMP crate1;
 
  if (InitCVIRTE (hInstance, 0, 0) == 0)
    return -1;    /* out of memory */
 
  MPOD_Start();
//  MPOD_Open(0,"f9mpod.ijs.si");
  MPOD_Open(0,"arich-mpod1.kek.jp");
  crate1 = crateHsnmp[0];
 
//  iret=MPOD_GetInt(0,"moduleNumber.0");
//  printf("Module Number = %i\n", iret);
//  strcpy(cret, MPOD_GetString(0,"moduleDescription.ma2"));
//  printf("Module type: %s\n",cret);
//  iret=MPOD_GetIntCh(0,"fanNominalSpeed",0);
//  printf("Fan nominal speed = %i\n", iret);
 
  if ((p1h = LoadPanel (0, "HVtest_ui.uir", P1)) < 0) return -1;
  DisplayPanel (p1h);
  SetCtrlVal (p1h, P1_TESTon, 0);
  LIDfp=fopen("lastids.txt","r");
  for (i=0;i<4;i++) {
    fscanf(LIDfp,"%s",HVBid[i]);
    SetCtrlVal(p1h,HVBid_rID[i],HVBid[i]);
  }
  fclose(LIDfp);
  LIDfp=NULL;
 
//Initial state
  mainonoff=getMainSwitch(crate1);
  SetCtrlVal (p1h, P1_MSW, mainonoff);
  SetCtrlVal (p1h, P1_MSWLED, mainonoff);
  iret=getMainStatus(crate1);
  SetCtrlVal (p1h, P1_MST, iret);
  iret=getFanNominalSpeed(crate1);
  SetCtrlVal (p1h, P1_MFS, iret);
  if (mainonoff) {
    HVonoffall=0;
    for (i=0;i<4;i++) {
      HVonoff[i]=getChannelSwitch(crate1, ch0+i);
      if (HVonoff[i]) HVonoffall=1;
    }
    for (i=0;i<4;i++) {
      if (!HVonoffall) HVonoff[i]=1;
        SetCtrlVal (p1h, HVonoff_rID[i], HVonoff[i]);
    }
    HVvset[0]=getOutputVoltage(crate1,ch0);
    SetCtrlVal (p1h, P1_HVvset, HVvset[0]);
    HVcset[0]=1e+6*getOutputCurrent(crate1,ch0);
    SetCtrlVal (p1h, P1_HVcset, HVcset[0]);
    SetAxisScalingMode (p1h, P1_G1, VAL_LEFT_YAXIS, VAL_MANUAL, -(HVcset[0]+1), 1.);
    HVvrise=getModuleRampSpeedVoltage(crate1,mo);
    SetCtrlVal (p1h, P1_HVvrise, HVvrise);
//    vfall[0]=abs(getOutputFallRate(crate1,ch));
//    SetCtrlVal (p1h, P1_VFA0, vfall[0]);
  }
//  QueueUserEvent (1000, p1h, P1_RESET);
  QueueUserEvent (9000, p1h, P1_REFRESHTIMER);
 
  do {
    GetUserEvent (1, &pID, &rID);
    switch (rID) {
      case P1_REFRESHTIMER:
        mainonoff=getMainSwitch(crate1);
        SetCtrlVal (p1h, P1_MSW, mainonoff);
        SetCtrlVal (p1h, P1_MSWLED, mainonoff);
        if (mainonoff) {
          iret=getMainStatus(crate1);
          SetCtrlVal (p1h, P1_MST, iret);
//        ret=getOutputSenseMeasurement(crate1, ch);
          for (i=0; i<4; i++) {
            HVvdis[i]=getOutputTerminalMeasurement(crate1, ch0+i);
            SetCtrlVal (p1h, HVvdis_rID[i], HVvdis[i]);
            HVcdis[i]=1e+6*getCurrentMeasurement(crate1, ch0+i);
            SetCtrlVal (p1h, HVcdis_rID[i], HVcdis[i]);
          }
          PlotStripChart (p1h, P1_G1, HVcdis, 4, 0, 0, VAL_DOUBLE);
          if (TESTon) {
            ntics++;
            for (i=0;i<4;i++)
              fprintf(HVBfp[i],"%5d %10.1f %10.4f\n",ntics,HVvdis[i],HVcdis[i]);
            switch (ntics) {
              case 5:
                SetCtrlVal(p1h,P1_HVonoffall, 1);
                QueueUserEvent (1001, p1h, P1_HVonoffall);
                break;
              case NTICSMAX-25:
                SetCtrlVal(p1h,P1_HVonoffall, 0);
                QueueUserEvent (1001, p1h, P1_HVonoffall);
                break;
              case NTICSMAX:
                SetCtrlVal (p1h, P1_TESTon, 0);
                QueueUserEvent (1001, p1h, P1_TESTon);
                break;
              default:
                break;
            }
          }
        }
        break;
      case P1_MSW:
        GetCtrlVal (p1h, P1_MSW, &mainonoff);
        if (ConfirmPopup("Main switch!!!", cMainSwitch[mainonoff]))
          setMainSwitch(crate1, mainonoff);
        if (mainonoff) {
          Delay(5);
          HVonoffall=0;
          for (i=0; i<4; i++) {
            HVonoff[i]=getChannelSwitch(crate1, ch0+i);
            if (HVonoff[i]) HVonoffall=1;
          }
          for (i=0; i<4; i++) {
            if (!HVonoffall) HVonoff[i]=1;
            SetCtrlVal (p1h, HVonoff_rID[i], HVonoff[i]);
          }
          HVvset[0]=getOutputVoltage(crate1,ch0);
          SetCtrlVal (p1h, P1_HVvset, HVvset[0]);
          HVcset[0]=1e+6*getOutputCurrent(crate1,ch0);
          SetCtrlVal (p1h, P1_HVcset, HVcset[0]);
          SetAxisScalingMode (p1h, P1_G1, VAL_LEFT_YAXIS, VAL_MANUAL, -(HVcset[0]+1), 1.);
          HVvrise=getModuleRampSpeedVoltage(crate1,mo);
          SetCtrlVal (p1h, P1_HVvrise, HVvrise);
        }
        break;
      case P1_HVBidinc:
        if (!TESTon) {
          for (i=0;i<4;i++) {
            GetCtrlVal(p1h, HVBid_rID[i], HVBid[i]);
            sscanf(HVBid[i],"%d",&iret);
            iret+=4;
            sprintf(HVBid[i],"%3.3d",iret);
            SetCtrlVal(p1h, HVBid_rID[i], HVBid[i]);
          }
        }
        break;
      }
    if (!mainonoff) continue;
    switch (rID) {
      case P1_HVonoffall:
        GetCtrlVal (p1h, P1_HVonoffall, &HVonoffall);
        for (i=0;i<4;i++) {
          GetCtrlVal (p1h, HVonoff_rID[i], &HVonoff[i]);
          if (HVonoff[i])
            setChannelSwitch(crate1, ch0+i, HVonoffall);
        }
        break;
      case P1_HVvset:
        GetCtrlVal (p1h, P1_HVvset, &HVvset[0]);
        for (i=0;i<4;i++)
          setOutputVoltage(crate1, ch0+i, HVvset[0]);
        break;
      case P1_HVcset:
        GetCtrlVal (p1h, P1_HVcset, &HVcset[0]);
        SetAxisScalingMode (p1h, P1_G1, VAL_LEFT_YAXIS, VAL_MANUAL, -(HVcset[0]+1), 1.);
        HVcset[0]/=1e+6; //[uA]
        for (i=0;i<4;i++)
          setOutputCurrent(crate1, ch0+i, HVcset[0]);
        break;
      case P1_HVvrise:
        GetCtrlVal (p1h, P1_HVvrise, &HVvrise);
        setModuleRampSpeedVoltage(crate1, mo, HVvrise);
        HVvrise=getModuleRampSpeedVoltage(crate1,mo);
        SetCtrlVal (p1h, P1_HVvrise, HVvrise);
        break;
      case P1_TESTon:
          GetCtrlVal (p1h, P1_TESTon, &TESTon);
          if (TESTon) {
            ntics=0;
            ClearStripChart (p1h, P1_G1);
            LIDfp=fopen("lastids.txt","w");
            for (i=0;i<4;i++) {
              GetCtrlVal(p1h, HVBid_rID[i], HVBid[i]);
              sprintf(HVBfname[i],"data/HVB_%s.dat",HVBid[i]);
              fprintf(LIDfp,"%s\n",HVBid[i]);
              HVBfp[i]=fopen(HVBfname[i],"w");
            }
            fclose(LIDfp);
            LIDfp=NULL;
          } else {
            SetCtrlVal(p1h,P1_HVonoffall, 0);
            QueueUserEvent (1001, p1h, P1_HVonoffall);
            for (i=0;i<4;i++) {
              fclose(HVBfp[i]);
              HVBfp[i]=NULL;
            }
            QueueUserEvent(1002,p1h,P1_HVBidinc);
          }
        break;        
//      case P1_VFA0:
//        GetCtrlVal (p1h, P1_VFA0, &ret);
//        setOutputFallRate(crate1, ch, ret);
//        vfall[0]=abs(getOutputFallRate(crate1,ch));
//        SetCtrlVal (p1h, P1_VFA0, vfall[0]);
//        break;
    }
  } while ((rID != P1_EXIT));
 
  DiscardPanel (p1h);
 
  MPOD_Close(0);
  MPOD_End();
 
  return 0;
}
 

Rev 165	Rev 166
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 240	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) {
12	QueueUserEvent (9000, p1h, P1_REFRESHTIMER);	12	QueueUserEvent (9000, p1h, P1_REFRESHTIMER);
13	return (0);	13	return (0);
14	}	14	}
15		15
16	int __stdcall WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,	16	int __stdcall WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
17	LPSTR lpszCmdLine, int nCmdShow) {	17	LPSTR lpszCmdLine, int nCmdShow) {
18		18
19	const int mo=HVSLOT;	19	const int mo=HVSLOT;
20	const int ch0=100*mo;	20	const int ch0=100*mo;
21		21
22	int mainonoff,HVonoffall;	22	int mainonoff,HVonoffall;
23	int HVonoff[4]={0,0,0,0};	23	int HVonoff[4]={0,0,0,0};
24	int HVonoff_rID[4]={P1_HVonoff_1,P1_HVonoff_2,P1_HVonoff_3,P1_HVonoff_4};	24	int HVonoff_rID[4]={P1_HVonoff_1,P1_HVonoff_2,P1_HVonoff_3,P1_HVonoff_4};
25	int HVvdis_rID[4]={P1_HVvdis_1,P1_HVvdis_2,P1_HVvdis_3,P1_HVvdis_4};	25	int HVvdis_rID[4]={P1_HVvdis_1,P1_HVvdis_2,P1_HVvdis_3,P1_HVvdis_4};
26	int HVcdis_rID[4]={P1_HVcdis_1,P1_HVcdis_2,P1_HVcdis_3,P1_HVcdis_4};	26	int HVcdis_rID[4]={P1_HVcdis_1,P1_HVcdis_2,P1_HVcdis_3,P1_HVcdis_4};
27	int iret;	27	int iret;
28	int i;	28	int i;
29	int TESTon=0,ntics=0;	29	int TESTon=0,ntics=0;
30	double HVvset[4],HVcset[4],HVvrise; //,HVvfall;	30	double HVvset[4],HVcset[4],HVvrise; //,HVvfall;
31	double HVvdis[4],HVcdis[4];	31	double HVvdis[4],HVcdis[4];
32	// char cret[2000];	32	// char cret[2000];
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	FILE *LIDfp=NULL;
39		39
40	HSNMP crate1;	40	HSNMP crate1;
41		41
42	if (InitCVIRTE (hInstance, 0, 0) == 0)	42	if (InitCVIRTE (hInstance, 0, 0) == 0)
43	return -1; /* out of memory */	43	return -1; /* out of memory */
44		44
45	MPOD_Start();	45	MPOD_Start();
46	// MPOD_Open(0,"f9mpod.ijs.si");	46	// MPOD_Open(0,"f9mpod.ijs.si");
47	MPOD_Open(0,"arich-mpod1.kek.jp");	47	MPOD_Open(0,"arich-mpod1.kek.jp");
48	crate1 = crateHsnmp[0];	48	crate1 = crateHsnmp[0];
49		49
50	// iret=MPOD_GetInt(0,"moduleNumber.0");	50	// iret=MPOD_GetInt(0,"moduleNumber.0");
51	// printf("Module Number = %i\n", iret);	51	// printf("Module Number = %i\n", iret);
52	// strcpy(cret, MPOD_GetString(0,"moduleDescription.ma2"));	52	// strcpy(cret, MPOD_GetString(0,"moduleDescription.ma2"));
53	// printf("Module type: %s\n",cret);	53	// printf("Module type: %s\n",cret);
54	// iret=MPOD_GetIntCh(0,"fanNominalSpeed",0);	54	// iret=MPOD_GetIntCh(0,"fanNominalSpeed",0);
55	// printf("Fan nominal speed = %i\n", iret);	55	// printf("Fan nominal speed = %i\n", iret);
56		56
57	if ((p1h = LoadPanel (0, "HVtest_ui.uir", P1)) < 0) return -1;	57	if ((p1h = LoadPanel (0, "HVtest_ui.uir", P1)) < 0) return -1;
58	DisplayPanel (p1h);	58	DisplayPanel (p1h);
59	SetCtrlVal (p1h, P1_TESTon, 0);	59	SetCtrlVal (p1h, P1_TESTon, 0);
60	LIDfp=fopen("lastids.txt","r");	60	LIDfp=fopen("lastids.txt","r");
61	for (i=0;i<4;i++) {	61	for (i=0;i<4;i++) {
62	fscanf(LIDfp,"%s",HVBid[i]);	62	fscanf(LIDfp,"%s",HVBid[i]);
63	SetCtrlVal(p1h,HVBid_rID[i],HVBid[i]);	63	SetCtrlVal(p1h,HVBid_rID[i],HVBid[i]);
64	}	64	}
65	fclose(LIDfp);	65	fclose(LIDfp);
66	LIDfp=NULL;	66	LIDfp=NULL;
67		67
68	//Initial state	68	//Initial state
69	mainonoff=getMainSwitch(crate1);	69	mainonoff=getMainSwitch(crate1);
70	SetCtrlVal (p1h, P1_MSW, mainonoff);	70	SetCtrlVal (p1h, P1_MSW, mainonoff);
71	SetCtrlVal (p1h, P1_MSWLED, mainonoff);	71	SetCtrlVal (p1h, P1_MSWLED, mainonoff);
72	iret=getMainStatus(crate1);	72	iret=getMainStatus(crate1);
73	SetCtrlVal (p1h, P1_MST, iret);	73	SetCtrlVal (p1h, P1_MST, iret);
74	iret=getFanNominalSpeed(crate1);	74	iret=getFanNominalSpeed(crate1);
75	SetCtrlVal (p1h, P1_MFS, iret);	75	SetCtrlVal (p1h, P1_MFS, iret);
76	if (mainonoff) {	76	if (mainonoff) {
77	HVonoffall=0;	77	HVonoffall=0;
78	for (i=0;i<4;i++) {	78	for (i=0;i<4;i++) {
79	HVonoff[i]=getChannelSwitch(crate1, ch0+i);	79	HVonoff[i]=getChannelSwitch(crate1, ch0+i);
80	if (HVonoff[i]) HVonoffall=1;	80	if (HVonoff[i]) HVonoffall=1;
81	}	81	}
82	for (i=0;i<4;i++) {	82	for (i=0;i<4;i++) {
83	if (!HVonoffall) HVonoff[i]=1;	83	if (!HVonoffall) HVonoff[i]=1;
84	SetCtrlVal (p1h, HVonoff_rID[i], HVonoff[i]);	84	SetCtrlVal (p1h, HVonoff_rID[i], HVonoff[i]);
85	}	85	}
86	HVvset[0]=getOutputVoltage(crate1,ch0);	86	HVvset[0]=getOutputVoltage(crate1,ch0);
87	SetCtrlVal (p1h, P1_HVvset, HVvset[0]);	87	SetCtrlVal (p1h, P1_HVvset, HVvset[0]);
88	HVcset[0]=1e+6*getOutputCurrent(crate1,ch0);	88	HVcset[0]=1e+6*getOutputCurrent(crate1,ch0);
89	SetCtrlVal (p1h, P1_HVcset, HVcset[0]);	89	SetCtrlVal (p1h, P1_HVcset, HVcset[0]);
90	SetAxisScalingMode (p1h, P1_G1, VAL_LEFT_YAXIS, VAL_MANUAL, -(HVcset[0]+1), 1.);	90	SetAxisScalingMode (p1h, P1_G1, VAL_LEFT_YAXIS, VAL_MANUAL, -(HVcset[0]+1), 1.);
91	HVvrise=getModuleRampSpeedVoltage(crate1,mo);	91	HVvrise=getModuleRampSpeedVoltage(crate1,mo);
92	SetCtrlVal (p1h, P1_HVvrise, HVvrise);	92	SetCtrlVal (p1h, P1_HVvrise, HVvrise);
93	// vfall[0]=abs(getOutputFallRate(crate1,ch));	93	// vfall[0]=abs(getOutputFallRate(crate1,ch));
94	// SetCtrlVal (p1h, P1_VFA0, vfall[0]);	94	// SetCtrlVal (p1h, P1_VFA0, vfall[0]);
95	}	95	}
96	// QueueUserEvent (1000, p1h, P1_RESET);	96	// QueueUserEvent (1000, p1h, P1_RESET);
97	QueueUserEvent (9000, p1h, P1_REFRESHTIMER);	97	QueueUserEvent (9000, p1h, P1_REFRESHTIMER);
98		98
99	do {	99	do {
100	GetUserEvent (1, &pID, &rID);	100	GetUserEvent (1, &pID, &rID);
101	switch (rID) {	101	switch (rID) {
102	case P1_REFRESHTIMER:	102	case P1_REFRESHTIMER:
103	mainonoff=getMainSwitch(crate1);	103	mainonoff=getMainSwitch(crate1);
104	SetCtrlVal (p1h, P1_MSW, mainonoff);	104	SetCtrlVal (p1h, P1_MSW, mainonoff);
105	SetCtrlVal (p1h, P1_MSWLED, mainonoff);	105	SetCtrlVal (p1h, P1_MSWLED, mainonoff);
106	if (mainonoff) {	106	if (mainonoff) {
107	iret=getMainStatus(crate1);	107	iret=getMainStatus(crate1);
108	SetCtrlVal (p1h, P1_MST, iret);	108	SetCtrlVal (p1h, P1_MST, iret);
109	// ret=getOutputSenseMeasurement(crate1, ch);	109	// ret=getOutputSenseMeasurement(crate1, ch);
110	for (i=0; i<4; i++) {	110	for (i=0; i<4; i++) {
111	HVvdis[i]=getOutputTerminalMeasurement(crate1, ch0+i);	111	HVvdis[i]=getOutputTerminalMeasurement(crate1, ch0+i);
112	SetCtrlVal (p1h, HVvdis_rID[i], HVvdis[i]);	112	SetCtrlVal (p1h, HVvdis_rID[i], HVvdis[i]);
113	HVcdis[i]=1e+6*getCurrentMeasurement(crate1, ch0+i);	113	HVcdis[i]=1e+6*getCurrentMeasurement(crate1, ch0+i);
114	SetCtrlVal (p1h, HVcdis_rID[i], HVcdis[i]);	114	SetCtrlVal (p1h, HVcdis_rID[i], HVcdis[i]);
115	}	115	}
116	PlotStripChart (p1h, P1_G1, HVcdis, 4, 0, 0, VAL_DOUBLE);	116	PlotStripChart (p1h, P1_G1, HVcdis, 4, 0, 0, VAL_DOUBLE);
117	if (TESTon) {	117	if (TESTon) {
118	ntics++;	118	ntics++;
119	for (i=0;i<4;i++)	119	for (i=0;i<4;i++)
120	fprintf(HVBfp[i],"%5d %10.1f %10.4f\n",ntics,HVvdis[i],HVcdis[i]);	120	fprintf(HVBfp[i],"%5d %10.1f %10.4f\n",ntics,HVvdis[i],HVcdis[i]);
121	switch (ntics) {	121	switch (ntics) {
122	case 5:	122	case 5:
123	SetCtrlVal(p1h,P1_HVonoffall, 1);	123	SetCtrlVal(p1h,P1_HVonoffall, 1);
124	QueueUserEvent (1001, p1h, P1_HVonoffall);	124	QueueUserEvent (1001, p1h, P1_HVonoffall);
125	break;	125	break;
126	case NTICSMAX-25:	126	case NTICSMAX-25:
127	SetCtrlVal(p1h,P1_HVonoffall, 0);	127	SetCtrlVal(p1h,P1_HVonoffall, 0);
128	QueueUserEvent (1001, p1h, P1_HVonoffall);	128	QueueUserEvent (1001, p1h, P1_HVonoffall);
129	break;	129	break;
130	case NTICSMAX:	130	case NTICSMAX:
131	SetCtrlVal (p1h, P1_TESTon, 0);	131	SetCtrlVal (p1h, P1_TESTon, 0);
132	QueueUserEvent (1001, p1h, P1_TESTon);	132	QueueUserEvent (1001, p1h, P1_TESTon);
133	break;	133	break;
134	default:	134	default:
135	break;	135	break;
136	}	136	}
137	}	137	}
138	}	138	}
139	break;	139	break;
140	case P1_MSW:	140	case P1_MSW:
141	GetCtrlVal (p1h, P1_MSW, &mainonoff);	141	GetCtrlVal (p1h, P1_MSW, &mainonoff);
142	if (ConfirmPopup("Main switch!!!", cMainSwitch[mainonoff]))	142	if (ConfirmPopup("Main switch!!!", cMainSwitch[mainonoff]))
143	setMainSwitch(crate1, mainonoff);	143	setMainSwitch(crate1, mainonoff);
144	if (mainonoff) {	144	if (mainonoff) {
145	Delay(5);	145	Delay(5);
146	HVonoffall=0;	146	HVonoffall=0;
147	for (i=0; i<4; i++) {	147	for (i=0; i<4; i++) {
148	HVonoff[i]=getChannelSwitch(crate1, ch0+i);	148	HVonoff[i]=getChannelSwitch(crate1, ch0+i);
149	if (HVonoff[i]) HVonoffall=1;	149	if (HVonoff[i]) HVonoffall=1;
150	}	150	}
151	for (i=0; i<4; i++) {	151	for (i=0; i<4; i++) {
152	if (!HVonoffall) HVonoff[i]=1;	152	if (!HVonoffall) HVonoff[i]=1;
153	SetCtrlVal (p1h, HVonoff_rID[i], HVonoff[i]);	153	SetCtrlVal (p1h, HVonoff_rID[i], HVonoff[i]);
154	}	154	}
155	HVvset[0]=getOutputVoltage(crate1,ch0);	155	HVvset[0]=getOutputVoltage(crate1,ch0);
156	SetCtrlVal (p1h, P1_HVvset, HVvset[0]);	156	SetCtrlVal (p1h, P1_HVvset, HVvset[0]);
157	HVcset[0]=1e+6*getOutputCurrent(crate1,ch0);	157	HVcset[0]=1e+6*getOutputCurrent(crate1,ch0);
158	SetCtrlVal (p1h, P1_HVcset, HVcset[0]);	158	SetCtrlVal (p1h, P1_HVcset, HVcset[0]);
159	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.);
160	HVvrise=getModuleRampSpeedVoltage(crate1,mo);	160	HVvrise=getModuleRampSpeedVoltage(crate1,mo);
161	SetCtrlVal (p1h, P1_HVvrise, HVvrise);	161	SetCtrlVal (p1h, P1_HVvrise, HVvrise);
162	}	162	}
163	break;	163	break;
164	case P1_HVBidinc:	164	case P1_HVBidinc:
165	if (!TESTon) {	165	if (!TESTon) {
166	for (i=0;i<4;i++) {	166	for (i=0;i<4;i++) {
167	GetCtrlVal(p1h, HVBid_rID[i], HVBid[i]);	167	GetCtrlVal(p1h, HVBid_rID[i], HVBid[i]);
168	sscanf(HVBid[i],"%d",&iret);	168	sscanf(HVBid[i],"%d",&iret);
169	iret+=4;	169	iret+=4;
170	sprintf(HVBid[i],"%3.3d",iret);	170	sprintf(HVBid[i],"%3.3d",iret);
171	SetCtrlVal(p1h, HVBid_rID[i], HVBid[i]);	171	SetCtrlVal(p1h, HVBid_rID[i], HVBid[i]);
172	}	172	}
173	}	173	}
174	break;	174	break;
175	}	175	}
176	if (!mainonoff) continue;	176	if (!mainonoff) continue;
177	switch (rID) {	177	switch (rID) {
178	case P1_HVonoffall:	178	case P1_HVonoffall:
179	GetCtrlVal (p1h, P1_HVonoffall, &HVonoffall);	179	GetCtrlVal (p1h, P1_HVonoffall, &HVonoffall);
180	for (i=0;i<4;i++) {	180	for (i=0;i<4;i++) {
181	GetCtrlVal (p1h, HVonoff_rID[i], &HVonoff[i]);	181	GetCtrlVal (p1h, HVonoff_rID[i], &HVonoff[i]);
182	if (HVonoff[i])	182	if (HVonoff[i])
183	setChannelSwitch(crate1, ch0+i, HVonoffall);	183	setChannelSwitch(crate1, ch0+i, HVonoffall);
184	}	184	}
185	break;	185	break;
186	case P1_HVvset:	186	case P1_HVvset:
187	GetCtrlVal (p1h, P1_HVvset, &HVvset[0]);	187	GetCtrlVal (p1h, P1_HVvset, &HVvset[0]);
188	for (i=0;i<4;i++)	188	for (i=0;i<4;i++)
189	setOutputVoltage(crate1, ch0+i, HVvset[0]);	189	setOutputVoltage(crate1, ch0+i, HVvset[0]);
190	break;	190	break;
191	case P1_HVcset:	191	case P1_HVcset:
192	GetCtrlVal (p1h, P1_HVcset, &HVcset[0]);	192	GetCtrlVal (p1h, P1_HVcset, &HVcset[0]);
193	SetAxisScalingMode (p1h, P1_G1, VAL_LEFT_YAXIS, VAL_MANUAL, -(HVcset[0]+1), 1.);	193	SetAxisScalingMode (p1h, P1_G1, VAL_LEFT_YAXIS, VAL_MANUAL, -(HVcset[0]+1), 1.);
194	HVcset[0]/=1e+6; //[uA]	194	HVcset[0]/=1e+6; //[uA]
195	for (i=0;i<4;i++)	195	for (i=0;i<4;i++)
196	setOutputCurrent(crate1, ch0+i, HVcset[0]);	196	setOutputCurrent(crate1, ch0+i, HVcset[0]);
197	break;	197	break;
198	case P1_HVvrise:	198	case P1_HVvrise:
199	GetCtrlVal (p1h, P1_HVvrise, &HVvrise);	199	GetCtrlVal (p1h, P1_HVvrise, &HVvrise);
200	setModuleRampSpeedVoltage(crate1, mo, HVvrise);	200	setModuleRampSpeedVoltage(crate1, mo, HVvrise);
201	HVvrise=getModuleRampSpeedVoltage(crate1,mo);	201	HVvrise=getModuleRampSpeedVoltage(crate1,mo);
202	SetCtrlVal (p1h, P1_HVvrise, HVvrise);	202	SetCtrlVal (p1h, P1_HVvrise, HVvrise);
203	break;	203	break;
204	case P1_TESTon:	204	case P1_TESTon:
205	GetCtrlVal (p1h, P1_TESTon, &TESTon);	205	GetCtrlVal (p1h, P1_TESTon, &TESTon);
206	if (TESTon) {	206	if (TESTon) {
207	ntics=0;	207	ntics=0;
208	ClearStripChart (p1h, P1_G1);	208	ClearStripChart (p1h, P1_G1);
209	LIDfp=fopen("lastids.txt","w");	209	LIDfp=fopen("lastids.txt","w");
210	for (i=0;i<4;i++) {	210	for (i=0;i<4;i++) {
211	GetCtrlVal(p1h, HVBid_rID[i], HVBid[i]);	211	GetCtrlVal(p1h, HVBid_rID[i], HVBid[i]);
212	sprintf(HVBfname[i],"data/HVB_%s.dat",HVBid[i]);	212	sprintf(HVBfname[i],"data/HVB_%s.dat",HVBid[i]);
213	fprintf(LIDfp,"%s\n",HVBid[i]);	213	fprintf(LIDfp,"%s\n",HVBid[i]);
214	HVBfp[i]=fopen(HVBfname[i],"w");	214	HVBfp[i]=fopen(HVBfname[i],"w");
215	}	215	}
216	fclose(LIDfp);	216	fclose(LIDfp);
217	LIDfp=NULL;	217	LIDfp=NULL;
218	} else {	218	} else {
219	SetCtrlVal(p1h,P1_HVonoffall, 0);	219	SetCtrlVal(p1h,P1_HVonoffall, 0);
220	QueueUserEvent (1001, p1h, P1_HVonoffall);	220	QueueUserEvent (1001, p1h, P1_HVonoffall);
221	for (i=0;i<4;i++) {	221	for (i=0;i<4;i++) {
222	fclose(HVBfp[i]);	222	fclose(HVBfp[i]);
223	HVBfp[i]=NULL;	223	HVBfp[i]=NULL;
224	}	224	}
-		225	QueueUserEvent(1002,p1h,P1_HVBidinc);
225	}	226	}
226	break;	227	break;
227	// case P1_VFA0:	228	// case P1_VFA0:
228	// GetCtrlVal (p1h, P1_VFA0, &ret);	229	// GetCtrlVal (p1h, P1_VFA0, &ret);
229	// setOutputFallRate(crate1, ch, ret);	230	// setOutputFallRate(crate1, ch, ret);
230	// vfall[0]=abs(getOutputFallRate(crate1,ch));	231	// vfall[0]=abs(getOutputFallRate(crate1,ch));
231	// SetCtrlVal (p1h, P1_VFA0, vfall[0]);	232	// SetCtrlVal (p1h, P1_VFA0, vfall[0]);
232	// break;	233	// break;
233	}	234	}
234	} while ((rID != P1_EXIT));	235	} while ((rID != P1_EXIT));
235		236
236	DiscardPanel (p1h);	237	DiscardPanel (p1h);
237		238
238	MPOD_Close(0);	239	MPOD_Close(0);
239	MPOD_End();	240	MPOD_End();
240		241
241	return 0;	242	return 0;
242	}	243	}
243		244

Subversion Repositories f9daq

(root)/HVtest/HVtest.c @ 319 – Rev 165 → 166