[RESOLVED] Really Annoying Invalid Procedure Call or Argument

[treddie]

This is so pissing me off!

Can anyone figure out what the heck is going on here?

As you can see in the attached screen capture, the error is being raised on the highlighted line in the code. But what is causing the error?! If you look at the Immediate Window, you can see that I can take the contents of the variable, "Righto_PREP1" and raise it to the "LoftExp" power with no problem. But when I try to simply let it do the operation as shown in the Code Window, it fails. All of my variables are double precision as you can see, and there are no reserved words being used as variable names.

I'm stumped!

Many thanks for any replies.

[treddie]

...and what is stranger still, is that my calculator has the same problem, so I am doing something fundamentaly stupid here, but my brain fart is now so big, my eyes have exploded.

[leinkyle]

what are those variable types anyway??, as i saw on your declaration area, righttoprep1,righttoprep2 dont have any datatypes
so i think the system will assign it as a variant, i think by a small chance. try to add a data type on your declaration. if your trying to compute declare it as a double

Public RighttoPREP1 as Double,RighttoPREP2 as Double

and so as the other variable, depending on their usage

[leinkyle]

and oh, i forgot, the program will accept data from textbox right?? try this
i think the problem is, the inputted data is red as a string and not a number so try to convert it to a number first.

RighttoPREP1=val(txtNo.text)     'to convert the inputted data into a number
RighttoPREP2=RighttoPREP1 ^ LoftExp

and oh, why are you converting the result into a string??

text1.text=str(RighttoPREP2)
text1.text=RighttoPREP2      'use this instead

i hope i helped you

[Doogle]

From MSDN Documetation of ^ Operator

result = number^exponent

A number can be negative only if exponent is an integer value. When more than one exponentiation is performed in a single expression, the ^ operator is evaluated as it is encountered from left to right.

Looks like you'll have to remember the sign of RightoPREP1 and Abs() it in the calculation and then apply the original sign back to RightoPREP2.

Private Sub Command1_Click()
Dim intx As Integer
xBaseMax = 3
a = 8
xmax = 6.8
LoftExp = 1.2
RightoPREP1 = ((-xBaseMax * a * Abs((xe) - xmax)) / xmax)
intx = Sgn(RightoPREP1)
RightoPREP2 = Abs(RightoPREP1) ^ (LoftExp)
RightoPREP2 = RightoPREP2 * intx
End Sub

[anhn]

intx = Sgn(RightoPREP1)
RightoPREP2 = Abs(RightoPREP1) ^ (LoftExp)
RightoPREP2 = RightoPREP2 * intx

Although those 3 lines will prevent the error happens, but that is incorrect.
We cannot say: (-4)^0.5 = Sgn(-4)*(Abs(-4))^0.5 = (-1)*4^0.5 = -√(4) = -2
Because: (-4)^0.5 = √(-4) is invalid on "Real" numbers.

Only you can have:

... ...
LoftExp = 1.2
RightoPREP1 = ((-xBaseMax * a * Abs((xe) - xmax)) / xmax)
If LoftExp = Int(LoftExp) Or RightoPREP1 >= 0 Then
   RightoPREP2 = RightoPREP1 ^ LoftExp
Else
   ... ...
End If

[treddie]

leynkyle>
1. the data types are taken care of by the DefDbl A-Z statement.
2. No, the textbox merely reports the result from the computation.
Thank you for the response, however.

doogle, anhn>
AAAHHHH!!!...THANKS FOR RESETTING MY BRAIN! Now I see that it was a heiarchy issue. The varable, RightoPREP1 CONTAINED the (-) sign so vb operated it first as if it was in parentheses with the value, THEN calculated the exponent. But in the Immediate Window, vb could separate the (-) sign out and use the standard heirarchy rules to evaluate the exponent first, THEN the (-) sign.

Major, MAJOR brain fart. I just couldn't see the dumb error I was making. That's what happens when you work late. Thanks for the reboot.

[MartinLiss]

Now that we've helped you, you can help us by pulling down the Thread Tools menu and clicking the Mark Thread Resolved button which will let everyone know that you have your answer. Also if someone has been particularly helpful, or even particularly unhelpful, you have the ability to affect a their forum "reputation" by rating their post. Your rating won't actually count until you have 20 posts, but the person you rate will see it and know that you appreciate their help.