Do While statement case

[danijel.radenkovic]

Hello,

I have a little problem to move from iLogic code to VBA code.

Here is the statement which I have to convert in VBA code:

If RealValue < TargetValue Then
	
	While RealValue < TargetValue
	pDistance = pDistance - .1
	RuleParametersOutput()
	InventorVb.DocumentUpdate(True)
	End While

ElseIf RealValue > TargetValue Then
	While RealValue > TargetValue
	pDistance = pDistance + .1
	RuleParametersOutput()
	InventorVb.DocumentUpdate(True)
	End While
End If

Any help is very appreciated.

Danijel

[NachoShaw · Accepted solution]

Hi

Based on your code, I would typically approach it this way however, I don't know what your code is doing or whether RealValue is updating during this particular code section. If its not, then it 'could' loop indefinitely as you are telling to continue in a loop until RealValue < TargetValue

Select Case RealValue
    Case < TargetValue
        Do While RealValue =< TargetValue
            pDistance = pDistance - .1
            RuleParametersOutput()
            InventorVb.DocumentUpdate(True)
        Loop

    Case > TargetValue
        Do While RealValue >= TargetValue
            pDistance = pDistance + .1
            RuleParametersOutput()
            InventorVb.DocumentUpdate(True)
        Loop
End Select

Hope that helps

Nacho

[danijel.radenkovic]

---

@nmjshaw150 wrote:

Hi

Based on your code, I would typically approach it this way however, I don't know what your code is doing or whether RealValue is updating during this particular code section. If its not, then it 'could' loop indefinitely as you are telling to continue in a loop until RealValue < TargetValue

Select Case RealValue
    Case < TargetValue
        Do While RealValue =< TargetValue
            pDistance = pDistance - .1
            RuleParametersOutput()
            InventorVb.DocumentUpdate(True)
        Loop

    Case > TargetValue
        Do While RealValue >= TargetValue
            pDistance = pDistance + .1
            RuleParametersOutput()
            InventorVb.DocumentUpdate(True)
        Loop
End Select

Hope that helps

Nacho

---

Hi Nacho,

That is what I was trying to do. To convert vb.net statement to vba statement. In other words:

While
End While

'into:

Do While
Loop

Code between was not a problem. Differences between vb.net code and vba code can be a problem sometimes.

Thank you very much for the help!

Danijel