trigonometric functions wont work

[2ndHype]

hi, i cant get the trigonometric functions to work... i tried almost everything but it seems that i cant even get the most simpliest things to work... :/
i need sin, cos, tan, aswell as the inverse functions arcsin, arccos and arctan, the numbers are typed into a textbox.

the sin, cos and tan functions are already working

Private Sub sin_Click()
TextBox = Math.sin(Val(TextBox))
End Sub

but i only get the results in radians and i want them in degrees, too. i tried the convertion with 180/pi but that seems wrong (other results in windows calc for example)

a much bigger problem is that inverse sin and cos arent working at all while inverse tan works perfectly (even radians to degrees)

i tried the worksheetfunctions and own functions like arcsin(x) as double but i dont get any results if the number isnt negative and the worksheetfunctions dont work at all...

can anyone help me, please?

[oglcngcmn]

I cannot open my excel, but I guess you should write like dsin or degsin . You can try this.

[2ndHype]

you mean like Math.dsin or Math.degsin? no this doesnt work. :/

[oglcngcmn]

Normally, =sin(30) gives you result as radians.
=sin(degree(30)) gives you result as degree. You can try it for VBA

Please Login or Register  to view this content.

I guess, It should be like this.

[2ndHype]

nop, just shows an error

what about other worksheet functions? how do i use them without an error ?

[mikerickson]

Try

Please Login or Register  to view this content.

Or

Please Login or Register  to view this content.

Or you could use WorksheetFunction.Degrees and WorksheetFunction.Radians

[2ndHype]

option one works perfect for me, thanks!

i tried WorksheetFunction.Degrees and WorksheetFunction.Radians but it does the same as multiplying it with 180/pi

but these functions are useless without the inverse functions :/

it seems that worksheetfunction or an equation with Math.atn is the only possible option for me but i always get errors somewhere.
TextBox = WorksheetFunction.asin(Val(TextBox)) works with positive numbers but not with negative ones, same with WorksheetFunction.acos

can anyone look into this aswell, please?

[MrShorty]

Can you provide some sample inputs and outputs?

Here's a quick spreadsheet I put together to test the trig function. Everything seems to work as expected, both when using the functions in the spreadsheet and when calling the functions from VBA. I think we will need some examples where you get the wrong or unexpected result to help debug this.

[mikerickson]

...
TextBox = WorksheetFunction.asin(Val(TextBox)) works with positive numbers but not with negative ones, same with WorksheetFunction.acos

can anyone look into this aswell, please?

This worked perfectly for me. (I didn't add any handling to deal with ABS (Textbox1.Text) being larger than 1).
It did negative inputs fine. (note that cos(-x)=cos(x), so Acos(x)= Acos(-x))

Please Login or Register  to view this content.