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] := 'ID';

ParamList[3] := ‘MW’;

 

// 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('Gen', _

ParamList, ValueList) 

 

Microsoft® Visual Basic for Applications

' Set ParamList up to modify the MW output of generators

Dim ParamList As Variant

ParamList = Array("BusNum", "ID", "MW")

 

' 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

Output = SimAuto.ChangeParametersMultipleElement("Gen", _

ParamList, ValueList) 

 

Python