topic Re: Do While statement case in Inventor Programming Forum

Do While statement case

danijel.radenkovic — Sat, 10 Dec 2016 04:04:58 GMT

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

Re: Do While statement case

NachoShaw — Sun, 11 Dec 2016 00:12:17 GMT

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

Re: Do While statement case

danijel.radenkovic — Sun, 11 Dec 2016 18:35:40 GMT

@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