Do While loop with multiple conditions. 2

[tmcnutt]

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]

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]

This is DeMorgan's Theorem.

Basically, these are equivalent:

  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]

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]

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

 

[JohnYingling]

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]

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]

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)