Loop "internal" parameters in a rule

[Wowbagger2]

Hi,

I'm trying to create a For loop with an integer of 1 To 4 using "internal" parameters ("Dim Inlet1 As Double" maybe there's another name for parameters declared inside a rule?). The rule works if I use user parameters but I'd rather not as these parameters are only gonna be used for counting a number of features and adding it all together to an iproperty.

It looks like this:

Dim Inlet1 As Double
Dim Inlet2 As Double
Dim Inlet3 As Double
Dim Inlet4 As Double


For i As Integer = 1 To 4
	If Not Parameter("Inlet" & i & "Direction") = "Ingen vald" Then
		Inlet & i = Parameter("Inlet" & i & "Pattern_Num")
	Else
		Inlet & i = 0
	End If
Next	



iProperties.Value("Custom", "Test") = Inlet1 + Inlet2 + Inlet3 + Inlet4

Best,

Fredrik

[MechMachineMan · Accepted solution]

They are called variables in programming. But you cannot assign them dynamically like you are trying to do with "inlet & i". You must hardcode them or change your algorithm to accommodate this.

Something such as this should work:

Dim Sum As Double

For i As Integer = 1 To 4
	If Not Parameter("Inlet" & i & "Direction") = "Ingen vald" Then
		SUM = SUM + Parameter("Inlet" & i & "Pattern_Num")
	End If
Next	

iProperties.Value("Custom", "Test") = SUM

[Wowbagger2]

Thank you! This worked great!

One thing, I don't think the "Sum" needs to be declared as a Double or at all but could be wrong.

Thanks for the help!

/Fredrik