V 10
1
LANG:1 2 HV
PANEL,258 70 218 157 N "_3DFace" 0
EEE E E 1 -1 -1 0  20 30
"" 0 1
EE 2
"CBRef""1"
"EClose"E
""
DISPLAY_LAYER, 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0
LAYER, 0 
1
LANG:1 6 Layer1
6 43
"Border1"
""
1 10 150 E E E 1 E 1 E N {0,0,0} E N {204,153,204} E E
 E E
39 0 0 0 0 0
EE E
0
1
LANG:1 0 
1
"dashclr"N "_Transparent"
E E 0 1 1 0 1 E U  1 E 10 10 210 150
2 1
"Text1"
""
1 18 50 E E E 1 E 1 E N {0,0,0} E N "_Transparent" E E
 E E
2 0 0 0 0 0
EE E
0
1
LANG:1 0 
1
"dashclr"N "_Transparent"
E E 0 1 1 0 1 E U  0 E 20 52 87 67
0 2 0 "s" 0 0 0 192 0 0  20 52
 1
1
LANG:1 105 -microsoft windows-Arial-bold-r-normal-*-*-110-100-100-*-*-iso8859-1|-12,0,0,0,700,0,0,0,0,3,2,1,34,Arial
0 ""
1
LANG:1 11 Channel Nb.
2 31
"Text2"
""
1 45 100 E E E 1 E 1 E N {0,0,0} E N "_Transparent" E E
 E E
28 0 0 0 0 0
EE E
0
1
LANG:1 0 
1
"dashclr"N "_Transparent"
E E 0 1 1 0 1 E U  0 E 20 82 80 97
0 2 0 "s" 0 0 0 192 0 0  20 82
 1
1
LANG:1 105 -microsoft windows-Arial-bold-r-normal-*-*-110-100-100-*-*-iso8859-1|-12,0,0,0,700,0,0,0,0,3,2,1,34,Arial
0 ""
1
LANG:1 11 LV slot Nb.
2 33
"Text3"
""
1 45 131 E E E 1 E 1 E N {0,0,0} E N "_Transparent" E E
 E E
29 0 0 0 0 0
EE E
0
1
LANG:1 0 
1
"dashclr"N "_Transparent"
E E 0 1 1 0 1 E U  0 E 20 113 81 128
0 2 0 "s" 0 0 0 192 0 0  20 113
 1
1
LANG:1 105 -microsoft windows-Arial-bold-r-normal-*-*-110-100-100-*-*-iso8859-1|-12,0,0,0,700,0,0,0,0,3,2,1,34,Arial
0 ""
1
LANG:1 11 HV slot Nb.
2 36
"Text5"
""
1 18 20 E E E 1 E 1 E N {0,0,0} E N "_Transparent" E E
 E E
32 0 0 0 0 0
EE E
0
1
LANG:1 0 
1
"dashclr"N "_Transparent"
E E 0 1 1 0 1 E U  0 E 20 22 72 37
0 2 0 "s" 0 0 0 192 0 0  20 22
 1
1
LANG:1 105 -microsoft windows-Arial-bold-r-normal-*-*-110-100-100-*-*-iso8859-1|-12,0,0,0,700,0,0,0,0,3,2,1,34,Arial
0 ""
1
LANG:1 9 Crate Nb.
14 30
"ChannelNb"
""
1 100 51 E E E 1 E 1 E N "_WindowText" E N "_Window" E E
 E E
28 0 0 0 0 0
EE E
0
1
LANG:1 0 
0
1
LANG:1 119 -microsoft windows-Courier New-normal-r-normal-*-*-110-100-100-*-*-iso8859-1|-12,0,0,0,400,0,0,0,0,3,2,1,49,Courier New
0 ""
98 49 142 75
3 "s" 0 0 0 0 0 0 
E
"main()
{
 
  dpConnect(\"EP_textFieldInCB\",\"HVch.Numb:_original.._value\");

}

EP_textFieldInCB(string dp, int iNewValue)
{
string sTmp;

dpGet(dp, iNewValue);
sprintf(sTmp,\"%2d\",iNewValue);
setValue(\"\", \"text\", sTmp );
}
" 0

"// SimpleCtrlScriptStart {invalid}
main()
{
  EP_textFieldOut();
}

EP_textFieldOut()
{
int iNewValue,iOldValue;
dyn_errClass err;
string sTmp;

  getValue(\"\", \"text\", sTmp);
  sscanf(sTmp, \"%2d\", iNewValue);

  if( iNewValue != sTmp )
  {
    ChildPanelOnCentral( \"vision/MessageWarning\",
                         getCatStr( \"e_para\", \"warning\" ),
                         makeDynString( getCatStr( \"e_para\", \"wrongFormat\" )));
    return;
  }
  dpGet(\"HVch.Numb:_online.._value\", iOldValue);
  dpSet(\"HVch.Indx:_original.._value\", iOldValue);
  dpGet(\"Crate.Numb:_online.._value\", iOldValue);
  dpSet(\"Crate.Indx:_original.._value\", iOldValue);
  dpSetWait(\"HVch.Numb:_original.._value\", iNewValue);
  DebugN(\"button left\", iOldValue, iNewValue);
  err = getLastError();
  if (dynlen(err) > 0)
    errorDialog(err);
}

// SimpleCtrlScript {EP_textFieldOut}
// DP {HVch.Numb}
// Config {:_original.._value}
// DPType {int}
// SimpleCtrlScriptEnd {EP_textFieldOut}
" 0

14 32
"LVslot"
""
1 173 101 E E E 1 E 1 E N "_WindowText" E N "_Window" E E
 E E
29 0 0 0 0 0
EE E
0
1
LANG:1 0 
0
1
LANG:1 119 -microsoft windows-Courier New-normal-r-normal-*-*-110-100-100-*-*-iso8859-1|-12,0,0,0,400,0,0,0,0,3,2,1,49,Courier New
0 ""
98 79 142 105
3 "s" 0 0 0 0 0 0 
E
"main()
{
 
  dpConnect(\"EP_textFieldInCB\",\"HVch.Numb:_original.._value\");

}

EP_textFieldInCB(string dp, int iNewValue)
{
string sTmp;
dyn_int lv;
int slot;

lv=makeDynInt(0,2,3,5,6,8,9,11,12,14,15,17);

dpGet(dp, iNewValue);
iNewValue=iNewValue/4+1;
slot=lv[iNewValue];
sprintf(sTmp,\"%2d\",slot);
setValue(\"\", \"text\", sTmp );
} " 0

"// SimpleCtrlScriptStart {invalid}
main()
{
  EP_textFieldOut();
}

EP_textFieldOut()
{
int iNewValue,channel,donot,iOldValue;
dyn_errClass err;
string sTmp;

  donot==0;
  getValue(\"\", \"text\", sTmp);
  sscanf(sTmp, \"%2d\", iNewValue);

  if( iNewValue != sTmp )
  {
    ChildPanelOnCentral( \"vision/MessageWarning\",
                         getCatStr( \"e_para\", \"warning\" ),
                         makeDynString( getCatStr( \"e_para\", \"wrongFormat\" )));
    return;
  }

  dpGet(\"HVch.Numb:_online.._value\", iOldValue);
  dpSet(\"HVch.Indx:_original.._value\", iOldValue);
  dpGet(\"Crate.Numb:_online.._value\", iOldValue);
  dpSet(\"Crate.Indx:_original.._value\", iOldValue);
  if(iNewValue==0) channel=0;
  else if(iNewValue==2) channel=4;
  else if(iNewValue==3) channel=8;
  else if(iNewValue==5) channel=12;
  else if(iNewValue==6) channel=16;
  else if(iNewValue==8) channel=20;
  else if(iNewValue==9) channel=24;
  else if(iNewValue==11) channel=28;
  else if(iNewValue==12) channel=32;
  else if(iNewValue==14) channel=36;        
  else if(iNewValue==15) channel=40;
  else if(iNewValue==17) channel=44;
  else if(iNewValue>17) 
    {
     ChildPanelOnCentralModal(\"ErrorLVslot.pnl\",
      \"\",
      makeDynString(\"\"));  
      donot==1;
     }
  else 
    {
     /*ChildPanelOnCentralModal(\"ErrorLVslot1.pnl\",
      \"\",
      makeDynString(\"\"));
      */       
      donot==1;
     } 

  if(donot==0)  dpSetWait(\"HVch.Numb:_original.._value\", channel);
  err = getLastError();
  if (dynlen(err) > 0)
    errorDialog(err);

}

// SimpleCtrlScript {EP_textFieldOut}
// DP {HVch.Numb}
// Config {:_original.._value}
// DPType {int}
// SimpleCtrlScriptEnd {EP_textFieldOut}
" 0

14 35
"HVslot"
""
1 173 131 E E E 1 E 1 E N "_WindowText" E N "_Window" E E
 E E
31 0 0 0 0 0
EE E
0
1
LANG:1 0 
0
1
LANG:1 119 -microsoft windows-Courier New-normal-r-normal-*-*-110-100-100-*-*-iso8859-1|-12,0,0,0,400,0,0,0,0,3,2,1,49,Courier New
0 ""
98 109 142 135
3 "s" 0 0 0 0 0 0 
E
"main()
{
 
  dpConnect(\"EP_textFieldInCB\",\"HVch.Numb:_original.._value\");

}

EP_textFieldInCB(string dp, int iNewValue)
{
string sTmp;
dyn_int lv;
int slot;

lv=makeDynInt(1,4,7,10,13,16);

dpGet(dp, iNewValue);
iNewValue=iNewValue/8+1;
slot=lv[iNewValue];
sprintf(sTmp,\"%2d\",slot);
setValue(\"\", \"text\", sTmp );
}" 0

"// SimpleCtrlScriptStart {invalid}
main()
{
  EP_textFieldOut();
}

EP_textFieldOut()
{
int iNewValue,channel,donot,iOldValue;
dyn_errClass err;
string sTmp;

  donot=0;
  getValue(\"\", \"text\", sTmp);
  sscanf(sTmp, \"%2d\", iNewValue);

  if( iNewValue != sTmp )
  {
    ChildPanelOnCentral( \"vision/MessageWarning\",
                         getCatStr( \"e_para\", \"warning\" ),
                         makeDynString( getCatStr( \"e_para\", \"wrongFormat\" )));
    return;
  }

  dpGet(\"HVch.Numb:_online.._value\", iOldValue);
  dpSet(\"HVch.Indx:_original.._value\", iOldValue);
  dpGet(\"Crate.Numb:_online.._value\", iOldValue);
  dpSet(\"Crate.Indx:_original.._value\", iOldValue);
  if(iNewValue==1) channel=0;
  else if(iNewValue==4) channel=8;
  else if(iNewValue==7) channel=16;
  else if(iNewValue==10) channel=24;
  else if(iNewValue==13) channel=32;
  else if(iNewValue==16) channel=40;
  else if(iNewValue>16) 
    {
     ChildPanelOnCentralModal(\"ErrorHVslot.pnl\",
      \"\",
      makeDynString(\"\"));  
      donot=1;
     }
  else 
    {
    // ChildPanelOnCentralModal(\"ErrorHVslot1.pnl\",
    //  \"\",
    //  makeDynString(\"\"));       
      donot=1;
     } 
  if(donot==0) dpSetWait(\"HVch.Numb:_original.._value\", channel);
  err = getLastError();
  if (dynlen(err) > 0)
    errorDialog(err);
}

// SimpleCtrlScript {EP_textFieldOut}
// DP {HVch.Numb}
// Config {:_original.._value}
// DPType {int}
// SimpleCtrlScriptEnd {EP_textFieldOut}
" 0

21 38
"SCrateNb"
""
1 150 20 E E E 1 E 1 E N "_WindowText" E N "_Window" E E
 E E
34 0 0 0 0 0
EE E
0
1
LANG:1 0 
0
1
LANG:1 107 -microsoft windows-Arial-normal-r-normal-*-*-110-100-100-*-*-iso8859-1|-12,0,0,0,400,0,0,0,0,3,2,1,34,Arial
0 ""
148 18 192 44
0
"// SimpleCtrlScriptStart {valid}
main()
{
  EP_textFieldIn();
  EP_setInvalid();
}

EP_textFieldIn()
{
dyn_errClass err;

  if( dpSubStr( \"Crate.Numb:_online.._value\", DPSUB_DP_EL ) == \"\" )
  {
    setValue(\"\", \"color\", \"_dpdoesnotexist\");
    return;
  }

  dpConnect(\"EP_textFieldInCB\",
            \"Crate.Numb:_online.._value\");
  err = getLastError();
  if (dynlen(err) > 0)
    setValue(\"\", \"color\", \"_dpdoesnotexist\");

}


EP_textFieldInCB(string dp, int iNewValue)
{
  setValue(\"\", \"text\", dpValToString(dp, iNewValue, TRUE) );
}

EP_setInvalid()
{
dyn_errClass err;

  if( dpSubStr( \"Crate.Numb:_online.._invalid\", DPSUB_DP_EL ) == \"\" )
  {
    setValue(\"\", \"color\", \"_dpdoesnotexist\");
    return;
  }

  dpConnect(\"EP_setInvalidCB\",
            \"Crate.Numb:_online.._invalid\");
  err = getLastError();
  if (dynlen(err) > 0)
    setValue(\"\", \"color\", \"_dpdoesnotexist\");

}

EP_setInvalidCB(string dp, bool boInvalid)
{
  setValue(\"\", \"color\", (boInvalid ? \"_invalid\" : \"\"));
}

// SimpleCtrlScript {EP_textFieldIn}
// DP {Crate.Numb}
// DPConfig {:_online.._value}
// DPType {int}
// UseDPUnit {TRUE}
// UseDPFormat {TRUE}
// SimpleCtrlScriptEnd {EP_textFieldIn}
// SimpleCtrlScript {EP_setInvalid}
// DP {Crate.Numb}
// DPConfig {:_online.._invalid}
// DPType {bool}
// Attribut {color}
// SimpleCtrlScriptEnd {EP_setInvalid}
" 0

"// SimpleCtrlScriptStart {invalid}
main()
{
  EP_textFieldOut();
}

EP_textFieldOut()
{
int iNewValue,iOldValue;
dyn_errClass err;
string sTmp;

  getValue(\"\", \"text\", sTmp);
  sscanf(sTmp, \"%02d\", iNewValue);

  if( iNewValue != sTmp )
  {
    ChildPanelOnCentral( \"vision/MessageWarning\",
                         getCatStr( \"e_para\", \"warning\" ),
                         makeDynString( getCatStr( \"e_para\", \"wrongFormat\" )));
    return;
  }
  dpGet(\"Crate.Numb:_online.._value\", iOldValue);
  dpSet(\"Crate.Indx:_original.._value\", iOldValue);
   dpGet(\"HVch.Numb:_online.._value\", iOldValue);
  dpSet(\"HVch.Indx:_original.._value\", iOldValue);
  dpSetWait(\"Crate.Numb:_original.._value\", iNewValue);
  err = getLastError();
  if (dynlen(err) > 0)
    errorDialog(err);
}

// SimpleCtrlScript {EP_textFieldOut}
// DP {Crate.Numb}
// Config {:_original.._value}
// DPType {int}
// SimpleCtrlScriptEnd {EP_textFieldOut}
" 0

E

N 0 100 1 0 0 1
21 39
"sChannelNb"
""
1 150 50 E E E 1 E 1 E N "_WindowText" E N "_Window" E E
 E E
35 0 0 0 0 0
EE E
0
1
LANG:1 0 
0
1
LANG:1 119 -microsoft windows-Courier New-normal-r-normal-*-*-110-100-100-*-*-iso8859-1|-12,0,0,0,400,0,0,0,0,3,2,1,49,Courier New
0 ""
148 48 192 74
0
"// SimpleCtrlScriptStart {valid}
main()
{
  EP_textFieldIn();
  EP_setInvalid();
}

EP_textFieldIn()
{
dyn_errClass err;

  if( dpSubStr( \"HVch.Numb:_online.._value\", DPSUB_DP_EL ) == \"\" )
  {
    setValue(\"\", \"color\", \"_dpdoesnotexist\");
    return;
  }

  dpConnect(\"EP_textFieldInCB\",
            \"HVch.Numb:_online.._value\");
  err = getLastError();
  if (dynlen(err) > 0)
    setValue(\"\", \"color\", \"_dpdoesnotexist\");

}


EP_textFieldInCB(string dp, int iNewValue)
{
  setValue(\"\", \"text\", dpValToString(dp, iNewValue, TRUE) );
}

EP_setInvalid()
{
dyn_errClass err;

  if( dpSubStr( \"HVch.Numb:_online.._invalid\", DPSUB_DP_EL ) == \"\" )
  {
    setValue(\"\", \"color\", \"_dpdoesnotexist\");
    return;
  }

  dpConnect(\"EP_setInvalidCB\",
            \"HVch.Numb:_online.._invalid\");
  err = getLastError();
  if (dynlen(err) > 0)
    setValue(\"\", \"color\", \"_dpdoesnotexist\");

}

EP_setInvalidCB(string dp, bool boInvalid)
{
  setValue(\"\", \"color\", (boInvalid ? \"_invalid\" : \"\"));
}

// SimpleCtrlScript {EP_textFieldIn}
// DP {HVch.Numb}
// DPConfig {:_online.._value}
// DPType {int}
// UseDPUnit {TRUE}
// UseDPFormat {TRUE}
// SimpleCtrlScriptEnd {EP_textFieldIn}
// SimpleCtrlScript {EP_setInvalid}
// DP {HVch.Numb}
// DPConfig {:_online.._invalid}
// DPType {bool}
// Attribut {color}
// SimpleCtrlScriptEnd {EP_setInvalid}
" 0

"// SimpleCtrlScriptStart {invalid}
main()
{
  EP_textFieldOut();
}

EP_textFieldOut()
{
int iNewValue,iOldValue;
dyn_errClass err;
string sTmp;

  getValue(\"\", \"text\", sTmp);
  sscanf(sTmp, \"%02d\", iNewValue);

  if( iNewValue != sTmp )
  {
    ChildPanelOnCentral( \"vision/MessageWarning\",
                         getCatStr( \"e_para\", \"warning\" ),
                         makeDynString( getCatStr( \"e_para\", \"wrongFormat\" )));
    return;
  }
  dpGet(\"HVch.Numb:_online.._value\", iOldValue);
  dpSet(\"HVch.Indx:_original.._value\", iOldValue);
 dpGet(\"Crate.Numb:_online.._value\", iOldValue);
  dpSet(\"Crate.Indx:_original.._value\", iOldValue);
  dpSetWait(\"HVch.Numb:_original.._value\", iNewValue);
DebugN(\"button right\", iOldValue, iNewValue);
  err = getLastError();
  if (dynlen(err) > 0)
    errorDialog(err);
}

// SimpleCtrlScript {EP_textFieldOut}
// DP {HVch.Numb}
// Config {:_original.._value}
// DPType {int}
// SimpleCtrlScriptEnd {EP_textFieldOut}
" 0

E

N 0 100 1 0 0 1
14 42
"CrateNb"
""
1 100 21 E E E 1 E 1 E N "_WindowText" E N "_Window" E E
 E E
38 0 0 0 0 0
EE E
0
1
LANG:1 0 
0
1
LANG:1 119 -microsoft windows-Courier New-normal-r-normal-*-*-110-100-100-*-*-iso8859-1|-12,0,0,0,400,0,0,0,0,3,2,1,49,Courier New
0 ""
98 19 142 45
3 "s" 0 0 0 0 0 0 
E
"main()
{
 
  dpConnect(\"EP_textFieldInCB\",\"Crate.Numb:_original.._value\");

}

EP_textFieldInCB(string dp, int iNewValue)
{
string sTmp;

dpGet(dp, iNewValue);
sprintf(sTmp,\"%2d\",iNewValue);
setValue(\"\", \"text\", sTmp );
}
" 0

"// SimpleCtrlScriptStart {invalid}
main()
{
  EP_textFieldOut();
}

EP_textFieldOut()
{
int iNewValue,iOldValue;
dyn_errClass err;
string sTmp;

  getValue(\"\", \"text\", sTmp);
  sscanf(sTmp, \"%2d\", iNewValue);

  if( iNewValue != sTmp )
  {
    ChildPanelOnCentral( \"vision/MessageWarning\",
                         getCatStr( \"e_para\", \"warning\" ),
                         makeDynString( getCatStr( \"e_para\", \"wrongFormat\" )));
    return;
  }
  dpGet(\"Crate.Numb:_online.._value\", iOldValue);
  dpSet(\"Crate.Indx:_original.._value\", iOldValue);
 dpGet(\"HVch.Numb:_online.._value\", iOldValue);
 dpSet(\"HVch.Indx:_original.._value\", iOldValue);
  dpSetWait(\"Crate.Numb:_original.._value\", iNewValue);
  err = getLastError();
  if (dynlen(err) > 0)
    errorDialog(err);
}

// SimpleCtrlScript {EP_textFieldOut}
// DP {HVch.Numb}
// Config {:_original.._value}
// DPType {int}
// SimpleCtrlScriptEnd {EP_textFieldOut}
" 0

0
LAYER, 1 
1
LANG:1 6 Layer2
0
LAYER, 2 
1
LANG:1 6 Layer3
0
LAYER, 3 
1
LANG:1 6 Layer4
0
LAYER, 4 
1
LANG:1 6 Layer5
0
LAYER, 5 
1
LANG:1 6 Layer6
0
LAYER, 6 
1
LANG:1 6 Layer7
0
LAYER, 7 
1
LANG:1 6 Layer8
0
0