ChangeParametersMultipleElementFlatInput 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

NumObjects := 2;

NumFields := NumObjects * 3;

ValueList := VarArrayCreate([1,NumFields], varOleStr);

For k := 0 to 1 do begin

ValueList[3*k+1] := k;

ValueList[3*k+2] := ‘1’;

ValueList[3*k+3] := k*10;

End;

 

// Make the ChangeParametersMultipleElementFlatInput call

Output = SimAuto.ChangeParametersMultipleElementFlatInput('Gen', _

ParamList, NumObjects, 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

NumObjects = 2

NumFields = NumObjects * 3

Dim ValueList(NumObjects) As Variant

For k = 0 to 1

ValueList(3*k+1) = k

ValueList[3*k+2] := ‘1’;

ValueList[3*k+3] := k*10;

Next

 

' Make the ChangeParametersMultipleElementFlatInput call

Output = SimAuto.ChangeParametersMultipleElementFlatInput("Gen", _

ParamList, NumObjects, ValueList)