Simulator 16 User Guide - PowerWorld

ChangeParametersMultipleElement Sample Code
Borland® Delphi
Var ParamList, ValueList : OLEVariant
// Set ParamList up to modify the MW output of generators
ParamList := VarArrayCreate([1,3], varOleStr);
ParamList[1] := 'BusNum';
ParamList[2] := 'GenID';
ParamList[3] := ‘GenMW’;
// ValueList is setup with MW values for generators at buses 1 and 2
ValueList := VarArrayCreate([1,2], varOleStr);
For k := 1 to 2 do begin
IndValueList := VarArrayCreate([1,3], varOleStr);
IndValueList[1] := k;
IndValueList[2] := ‘1’;
IndValueList[3] := k*10;
ValueList[k] := IndValueList;
End;
// Make the ChangeParametersMultipleElement call
Output = SimAuto.ChangeParametersMultipleElement('Sim_Solution_Options', _
ParamList, ValueList)
Microsoft® Visual Basic for Applications
' Set ParamList up to modify the MW output of generators
Dim ParamList As Variant
ParamList = Array("BusNum", "GenID", "GenMW")
' ValueList is setup with MW values for generators at buses 1 and 2
Dim ValueList(2) As Variant
For k = 0 to 1
Dim IndValueList As Variant
IndValueList = Array(k+1,"1",(k+1)*10)
ValueList(k) = IndValueList
Next
' Make the ChangeParametersMultipleElement call
©2011 PowerWorld Corporation
1397