Do While loop with multiple conditions. 2

tmcnutt · Sep 29, 2004

I have the following loop that will not exit when I test for multiple conditions. Here is the code
Do
Result = (InputBox("ESF or HSC (E or H)", "Select type of pump", "E"))
Loop While Result <> ("E" Or "H")

I have tried additional loop test variations such as
Loop While Result <> "E" or Result <> "H"

If I use only test case instead of two, it works okay.
I do no know what I am missing. Any help would be greatly appreciated.

Thanks,
Tom

tmcnutt · Sep 29, 2004

I changed the "or" to "and" and it works, but it doesn't make sense to me. Can someone explain or show me how to use the "or"?

chiph · Sep 29, 2004

This is DeMorgan's Theorem.

Basically, these are equivalent:

Code:

  C = NOT A OR NOT B

  C = NOT (A AND B)

Chip H.

____________________________________________________________________
If you want to get the best response to a question, please read FAQ222-2244 first

JohnYingling · Sep 29, 2004

Loop While Not(Result = "E" Or Result = "H")

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing

http://www.VBCompare.com

Compare Code

http://www.VBSortGen.com

Generate Sort Class in VB

http://www.Vbcompare.com/Check.Htm(1979

Check To MS)

tmcnutt · Sep 29, 2004

Thanks for the responses and the code sample. I changed my code to John's recommendation and it worked fine.

JohnYingling · Sep 29, 2004

small whoops. This is VB.Net so we should "short circuit"
Loop While Not(Result = "E" OrElse Result = "H")

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing

http://www.VBCompare.com

Compare Code

http://www.VBSortGen.com

Generate Sort Class in VB

http://www.Vbcompare.com/Check.Htm(1979

Check To MS)

tmcnutt · Sep 30, 2004

John,

I changed it to "OrElse" and I remember reading about that and "AndAlso"for short circuiting. Using "Or" or "And", did it always evaluate all conditions regardless?

Thanks,
Tom

JohnYingling · Sep 30, 2004

Yes. So
If obj is Nothing or obj.Length = 0 then
would throw an exception if obj Is Nothing whereas
If obj is Nothing OrElse obj.Length = 0 then
is cool.

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing

http://www.VBCompare.com

Compare Code

http://www.VBSortGen.com

Generate Sort Class in VB

http://www.Vbcompare.com/Check.Htm(1979

Check To MS)

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Do While loop with multiple conditions. 2

tmcnutt

Programmer

tmcnutt

Programmer

chiph

Programmer

JohnYingling

Programmer

tmcnutt

Programmer

JohnYingling

Programmer

tmcnutt

Programmer

JohnYingling

Programmer

Similar threads

Part and Inventory Search

Sponsor