Subversion Repositories f9daq

Rev

Rev 161 | Rev 163 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. #include "MPOD.h"
  2. #include "HVtest_ui.h"
  3.  
  4. #define HVSLOT 3
  5.  
  6. static int p1h, pID, rID, tfID;
  7.  
  8. int CVICALLBACK refreshTimer (int panel, int control, int event, void *callbackData,
  9.                               int eventData1, int eventData2) {
  10.   QueueUserEvent (9000, p1h, P1_REFRESHTIMER);
  11.   return (0);
  12. }
  13.  
  14. int __stdcall WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
  15.                        LPSTR lpszCmdLine, int nCmdShow) {
  16.  
  17.   const int mo=3;
  18.   const int ch0=100*mo;
  19.  
  20.   int mainonoff,HVonoffall;
  21.   int HVonoff[4],HVonoff_rID[4]={P1_HVonoff_0,P1_HVonoff_1,P1_HVonoff_2,P1_HVonoff_3};
  22.   int HVvdis_rID[4]={P1_HVvdis_0,P1_HVvdis_1,P1_HVvdis_2,P1_HVvdis_3};
  23.   int HVcdis_rID[4]={P1_HVcdis_0,P1_HVcdis_1,P1_HVcdis_2,P1_HVcdis_3};
  24.   int iret;
  25.   int i, j;
  26.   double ret;
  27.   double HVvset[4],HVcset[4],HVvrise,HVvfall;
  28.   double HVvdis[4],HVcdis[4];
  29.   char cret[2000];
  30.   char cMainSwitch[2][30]= {"Turn system OFF?","Turn system ON?"};
  31.  
  32.   HSNMP crate1;
  33.  
  34.   if (InitCVIRTE (hInstance, 0, 0) == 0)
  35.     return -1;    /* out of memory */
  36.  
  37.   MPOD_Start();
  38. //  MPOD_Open(0,"f9mpod.ijs.si");
  39.   MPOD_Open(0,"arich-mpod1.kek.jp");
  40.   crate1 = crateHsnmp[0];
  41.  
  42. //  iret=MPOD_GetInt(0,"moduleNumber.0");
  43. //  printf("Module Number = %i\n", iret);
  44. //  strcpy(cret, MPOD_GetString(0,"moduleDescription.ma2"));
  45. //  printf("Module type: %s\n",cret);
  46. //  iret=MPOD_GetIntCh(0,"fanNominalSpeed",0);
  47. //  printf("Fan nominal speed = %i\n", iret);
  48.  
  49.   if ((p1h = LoadPanel (0, "HVtest_ui.uir", P1)) < 0) return -1;
  50.   DisplayPanel (p1h);
  51.  
  52. //Initial state
  53.   mainonoff=getMainSwitch(crate1);
  54.   SetCtrlVal (p1h, P1_MSW, mainonoff);
  55.   SetCtrlVal (p1h, P1_MSWLED, mainonoff);
  56.   iret=getMainStatus(crate1);
  57.   SetCtrlVal (p1h, P1_MST, iret);
  58.   iret=getFanNominalSpeed(crate1);
  59.   SetCtrlVal (p1h, P1_MFS, iret);
  60.   if (mainonoff) {
  61.     HVonoffall=0;
  62.     for (i=0;i<4;i++) {
  63.       HVonoff[i]=getChannelSwitch(crate1, ch0+i);
  64.       if (HVonoff[i]) HVonoffall=1;
  65.     }
  66.     for (i=0;i<4;i++) {
  67.       if (!HVonoffall) HVonoff[i]=1;
  68.       SetCtrlVal (p1h, HVonoff_rID[i], HVonoff[i]);
  69.     }
  70.     HVvset[0]=getOutputVoltage(crate1,ch0);
  71.     SetCtrlVal (p1h, P1_HVvset, HVvset[0]);
  72.     HVcset[0]=1e+6*getOutputCurrent(crate1,ch0);
  73.     SetCtrlVal (p1h, P1_HVcset, HVcset[0]);
  74.     HVvrise=getModuleRampSpeedVoltage(crate1,mo);
  75.     SetCtrlVal (p1h, P1_HVvrise, HVvrise);
  76. //    vfall[0]=abs(getOutputFallRate(crate1,ch));
  77. //    SetCtrlVal (p1h, P1_VFA0, vfall[0]);
  78.   }
  79. //  QueueUserEvent (1000, p1h, P1_RESET);
  80.   QueueUserEvent (9000, p1h, P1_REFRESHTIMER);
  81.  
  82.   do {
  83.     GetUserEvent (1, &pID, &rID);
  84.     switch (rID) {
  85.       case P1_REFRESHTIMER:
  86.         mainonoff=getMainSwitch(crate1);
  87.         SetCtrlVal (p1h, P1_MSW, mainonoff);
  88.         SetCtrlVal (p1h, P1_MSWLED, mainonoff);
  89.         iret=getMainStatus(crate1);
  90.         SetCtrlVal (p1h, P1_MST, iret);
  91. //        ret=getOutputSenseMeasurement(crate1, ch);
  92.         for (i=0;i<4;i++) {
  93.           HVvdis[i]=getOutputTerminalMeasurement(crate1, ch0+i);
  94.           SetCtrlVal (p1h, HVvdis_rID[i], HVvdis[i]);
  95.           HVcdis[i]=1e+6*getCurrentMeasurement(crate1, ch0+i);
  96.           SetCtrlVal (p1h, HVcdis_rID[i], HVcdis[i]);
  97.           PlotStripChart (p1h, P1_G1, HVcdis, 4, 0, 0, VAL_DOUBLE);
  98.         break;
  99.       case P1_MSW:
  100.         GetCtrlVal (p1h, P1_MSW, &mainonoff);
  101.         if (ConfirmPopup("Main switch!!!", cMainSwitch[mainonoff]))
  102.           setMainSwitch(crate1, mainonoff);
  103.         if (mainonoff) {
  104.           Delay(5);
  105.           HVonoffall=0;
  106.           for (i=0; i<4; i++) {
  107.             HVonoff[i]=getChannelSwitch(crate1, ch0+i);
  108.             if (HVonoff[i]) HVonoffall=1;
  109.           }
  110.           for (i=0; i<4; i++) {
  111.             if (!HVonoffall) HVonoff[i]=1;
  112.             SetCtrlVal (p1h, HVonoff_rID[i], HVonoff[i]);
  113.           }
  114.           HVvset[0]=getOutputVoltage(crate1,ch0);
  115.           SetCtrlVal (p1h, P1_HVvset, HVvset[0]);
  116.           HVcset[0]=1e+6*getOutputCurrent(crate1,ch0);
  117.           SetCtrlVal (p1h, P1_HVcset, HVcset[0]);
  118.           HVvrise=getModuleRampSpeedVoltage(crate1,mo);
  119.           SetCtrlVal (p1h, P1_HVvrise, HVvrise);
  120.         }
  121.         break;
  122.     }
  123.     if (!mainonoff) continue;
  124.     switch (rID) {
  125.       case P1_HVonoff:
  126.         GetCtrlVal (p1h, P1_HVonoff, &HVonoffall);
  127.         for (i=0;i<4;isetChannelSwitch(crate1, ch, onoff[0]);
  128.         break;
  129.       case P1_V0:
  130.         GetCtrlVal (p1h, P1_V0, &vset[0]);
  131.         setOutputVoltage(crate1, ch, vset[0]);
  132.         break;
  133.       case P1_C0:
  134.         GetCtrlVal (p1h, P1_C0, &cset[0]);
  135.         cset[0]/=1e+6; //[uA]
  136.         setOutputCurrent(crate1, ch, cset[0]);
  137.         break;
  138.       case P1_VRI0:
  139.         GetCtrlVal (p1h, P1_VRI0, &ret);
  140.         setModuleRampSpeedVoltage(crate1, mo, ret);
  141.         vrise[0]=getModuleRampSpeedVoltage(crate1,mo);
  142.         SetCtrlVal (p1h, P1_VRI0, vrise[0]);
  143.         break;
  144. //      case P1_VFA0:
  145. //        GetCtrlVal (p1h, P1_VFA0, &ret);
  146. //        setOutputFallRate(crate1, ch, ret);
  147. //        vfall[0]=abs(getOutputFallRate(crate1,ch));
  148. //        SetCtrlVal (p1h, P1_VFA0, vfall[0]);
  149. //        break;
  150.     }
  151.   } while ((rID != P1_EXIT));
  152.  
  153.   DiscardPanel (p1h);
  154.  
  155.   MPOD_Close(0);
  156.   MPOD_End();
  157.  
  158.   return 0;
  159. }
  160.