Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Unsolved
Views: 2797

Page 1
2
Next

You are currently viewing page 1 of this multi-page discussion thread

Sep 28th, 2005

If functions

Expand Post »

HI, sorry if this is really thick, but I'm abit stuck...I have written this piece of code as part of a bigger function:

If Z = 1 Then
SIDE = W - (V / 3600#)
End If
If Z = 2 Then
SIDE = W + (V / 3600#)
End If
If Z = 3 Then
SIDE = W - (V / 3600#)
End If
If Z = 4 Then
SIDE = W + (V / 3600#)
End If
If Z = 5 Then
SIDE = W - (V / 3600#)
End If
If Z = 6 Then
SIDE = W + (V / 3600#)
End If

I know it's a stupid way of doing it, but I tried:
If Z = 1 or 3 or 5 Then
SIDE = W - (V / 3600#)
else
SIDE=W + (V / 3600#)
End If

Could someone please help me to find a neater way of telling it to perform different formula for odd and even numbers?

Any help would be much appreciated

Similar Threads

User defined functions in C++
VB's Left, Right, Mid Functions in C++? in C++
Double Linked Lists and Functions required in C++
How to write FNVAL functions in Java
I dont see any difference between these 2 functions, DO YOU? in C

grandfilth

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

16 posts
since Sep 2005

Permalink

Sep 29th, 2005

Re: If functions

If Z=1 or Z=2 or Z=3 or Z=4 or Z=5 or Z=6 then
SIDE = W - (V / 3600#)
End If

purplegerbil

Reputation Points: 24

Solved Threads: 6

Junior Poster in Training

Offline

78 posts
since Apr 2005

Permalink

Sep 29th, 2005

Re: If functions

cheers, that's very helpful...
have a good one

grandfilth

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

16 posts
since Sep 2005

Permalink

Sep 29th, 2005

Re: If functions

Sorry purplegerbil, but that makes all 6 values equal the same thing.
Try this:

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
If Z = 1 Or If Z = 3 Or If Z = 5 Then<blockquote>SIDE = W - (V/3600#)</blockquote>End if
If Z = 2 Or If Z = 4 Or If Z = 6 Then<blockquote>SIDE = W + (V/3600#)</blockquote>End If
If Z = 1 Or If Z = 3 Or If Z = 5 Then<blockquote>SIDE = W - (V/3600#)</blockquote>End if
If Z = 2 Or If Z = 4 Or If Z = 6 Then<blockquote>SIDE = W + (V/3600#)</blockquote>End If

w00dy

Reputation Points: 11

Solved Threads: 2

Junior Poster in Training

Offline

70 posts
since Jun 2005

Permalink

Sep 29th, 2005

Re: If functions

Yeah that's true, but I got the idea...

grandfilth

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

16 posts
since Sep 2005

Permalink

Oct 2nd, 2005

Re: If functions

if Z is interger, you also can do this way without using If

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
SIDE = W + ((-1) ^ Z)*(V / 3600#)
SIDE = W + ((-1) ^ Z)*(V / 3600#)

invisal

Reputation Points: 350

Solved Threads: 63

Posting Pro

Offline

562 posts
since Mar 2005

Permalink

Oct 2nd, 2005

Re: If functions

I just realised it should have been

If Z = 1 Or Z = 3 Or Z= 5 (only one If at the start of the line, sorry, silly mistake)

However, Invisal, I like neat one-liners but I don't actually follow that one, could you explain it?

w00dy

Reputation Points: 11

Solved Threads: 2

Junior Poster in Training

Offline

70 posts
since Jun 2005

Permalink

Oct 2nd, 2005

Re: If functions

first i check grandfilth code pattern
then we got

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
If Z = 1 Or Z = 3 Or Z= 5 Then
     SIDE = W - (V / 3600#)
Else
     SIDE = W + (V / 3600#)
End If
If Z = 1 Or Z = 3 Or Z= 5 Then
     SIDE = W - (V / 3600#)
Else
     SIDE = W + (V / 3600#)
End If

mean if Z = odd number then SIDE = W - (V / 3600#)
and if Z = not odd number then SIDE = W + (V / 3600#)

my solution is SIDE = W + ((-1) ^ Z) * (V / 3600#)

if Z = odd number like 1, 3, 5 and etc..., then (-1)^Z = -1
if Z <> odd number like 2, 4, 6 and etc..., then (-1)^Z = 1

I am not good on explain so i hope you understan

invisal

Reputation Points: 350

Solved Threads: 63

Posting Pro

Offline

562 posts
since Mar 2005

Permalink

Oct 2nd, 2005

Re: If functions

and i got another one line solution

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
SIDE = IIf(Z Mod 2, W - (V / 3600#), W + (V / 3600#))
SIDE = IIf(Z Mod 2, W - (V / 3600#), W + (V / 3600#))

invisal

Reputation Points: 350

Solved Threads: 63

Posting Pro

Offline

562 posts
since Mar 2005

Permalink

Oct 2nd, 2005

Re: If functions

Interesting, that. I'll do a test project and play with it, and the Iif one.
Have to say though that although I've used Iif before, I found that it didn't cope with complicated logic very well, so I stopped using it even though it meant a few more lines.

w00dy

Reputation Points: 11

Solved Threads: 2

Junior Poster in Training

Offline

70 posts
since Jun 2005

Page 1
2
Next

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: hi

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Brand new to VB

DaniWeb Message

Cancel Changes

User Name
Password