FOR #i := 0 TO 15 DO
FOR #j := 0 TO 15 DO
"dbVariableCases".VariableCases.Cases[#i].RangeSelection[#j] := -1;
END_FOR;
END_FOR;
//testing code
IF false THEN
//set up case statement selections example 1
//case Index of
// 0,1,2: "Tag_7":= "but1_1";
// 3,4,5: "Tag_7":= "but1_2";
// 6: "Tag_7":= "but1_3";
"dbVariableCases".VariableCases.Cases[0].RangeSelection[0] := 0;
"dbVariableCases".VariableCases.Cases[0].RangeSelection[1] := 1;
"dbVariableCases".VariableCases.Cases[0].RangeSelection[2] := 2;
"dbVariableCases".VariableCases.Cases[1].RangeSelection[0] := 3;
"dbVariableCases".VariableCases.Cases[1].RangeSelection[1] := 4;
"dbVariableCases".VariableCases.Cases[1].RangeSelection[2] := 5;
"dbVariableCases".VariableCases.Cases[2].RangeSelection[0] := 6;
END_IF;
IF true THEN
//set up case statement selections example 2
//case Index of
// 0,1,2,3,4,5,6,7,8,9: "Tag_7":= "but1_1";
// 10,11,12: "Tag_7":= "but1_2";
// 13,14,15: "Tag_7":= "but1_3";
//
"dbVariableCases".VariableCases.Cases[0].RangeSelection[0] := 0;
"dbVariableCases".VariableCases.Cases[0].RangeSelection[1] := 1;
"dbVariableCases".VariableCases.Cases[0].RangeSelection[2] := 2;
"dbVariableCases".VariableCases.Cases[0].RangeSelection[3] := 3;
"dbVariableCases".VariableCases.Cases[0].RangeSelection[4] := 4;
"dbVariableCases".VariableCases.Cases[0].RangeSelection[5] := 5;
"dbVariableCases".VariableCases.Cases[0].RangeSelection[6] := 6;
"dbVariableCases".VariableCases.Cases[0].RangeSelection[7] := 7;
"dbVariableCases".VariableCases.Cases[0].RangeSelection[8] := 8;
"dbVariableCases".VariableCases.Cases[0].RangeSelection[9] := 9;
"dbVariableCases".VariableCases.Cases[1].RangeSelection[0] := 10;
"dbVariableCases".VariableCases.Cases[1].RangeSelection[1] := 11;
"dbVariableCases".VariableCases.Cases[1].RangeSelection[2] := 12;
"dbVariableCases".VariableCases.Cases[2].RangeSelection[0] := 13;
"dbVariableCases".VariableCases.Cases[2].RangeSelection[1] := 14;
"dbVariableCases".VariableCases.Cases[2].RangeSelection[2] := 15;
END_IF;
//variable case selection
FOR #i := 0 TO 15 DO
FOR #j := 0 TO 15 DO
IF "dbVariableCases".VariableCases.Cases[#i].RangeSelection[#j] <> -1 THEN
#Caseindex := #i;
CASE #Caseindex OF
0:
"Tag_7" := "but1_1";
1:
"Tag_7" := "but1_2";
2:
"Tag_7" := "but1_3";
/// etc etc
END_CASE;
END_IF;
END_FOR;
END_FOR;