Call Functions Until One Meets Condition

Member 4694807

Rate me:

5.00/5 (1 vote)

6 Apr 2011CPOL

5.6K

Sorry, but I don't like adding additional artificial elements like function arrays . I would code it as following:If isok(Step1()) OrElse isok(Step2(1,1)) OrElse isok(Step3() OrElse isok(Step4() OrElse isok(0+1) thenend ifFunction isok(ByVal rc as Integer) As Boolean ...

Sorry, but I don't like adding additional artificial elements like function arrays . I would code it as following:

If isok(Step1()) OrElse
   isok(Step2(1,1)) OrElse
   isok(Step3() OrElse
   isok(Step4() OrElse
   isok(0+1) then
end if

Function isok(ByVal rc as Integer) As Boolean
    if(rc>=5) Return True
    return False
End Function

I think it's less coding and easier to understand.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Written By

Member 4694807

Germany

This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

Call Functions Until One Meets Condition

License

Comments and Discussions