Trigometric Functions

Okay,

I have a sheet with the sine, cosine and tangent of the angesl 1 - 90 and i need to save it as a text file. Instead of typing them into the computer i decided to write a program to do it, what seemed to make a lot of sense. But it appears that vb's sin, cos, & tan functions are screwed up. For ex: vb says the sine of 1 is .8414..., while my sheet (and calculator) say .0174.... Any ideas?

Thanks,
-George

My guess is that VBs functions are in radian mode, and you are entering degrees. I'm not sure how to fix it, unless you want to enter radians instead of degrees.

You could do this:

VB Code:

MsgBox Format(Sin(45 * (3.14159 / 180)), "#.######")

And just replace 45 for the angle you want. That should give you a close enough number.

You can highlight Sin, Cos or Tan and hit the F1 key which will shortcut you to help on the function. It will tell you to multipy the value by PI/180 to convert radians to degrees and 180/PI to convert degrees to radians. The returned value from the above VB functions is in radians.

Quote:

---

Originally posted by rba4321
You can highlight Sin, Cos or Tan and hit the F1 key which will shortcut you to help on the function. It will tell you to multipy the value by PI/180 to convert radians to degrees and 180/PI to convert degrees to radians. The returned value from the above VB functions is in radians.

---

That's what I did in the code above my post. If he doesn't have MSDN, F1 isn't going to do him any good.

Try this:

VB Code:

Dim i As Integer
 
Private Sub Command1_Click()
For i = 1 To 90
Open App.Path & "\CST.txt" For Append As #1
Print #1, "Cosine of" & " " & i & " =" & Format(Cos((i) * (3.14159 / 180)), "#.######")
Print #1, "Sin of" & " " & i & " =" & Format(Sin((i) * (3.14159 / 180)), "#.######")
Print #1, "Tan of" & " " & i & " =" & Format(Tan((i) * (3.14159 / 180)), "#.######")
Close #1
Next i
End Sub

I just used THs idea to print the data to a file.

Quote:

---

Originally posted by Nightwalker83
Try this:

I just used THs idea to print the data to a file.

---

Instead of opening the file 90 times, why not:

VB Code:

Dim i As Integer
 
Private Sub Command1_Click()
    Open App.Path & "\CST.txt" For Output As #1
        For i = 1 To 90
            Print #1, "Cosine of" & " " & i & " =" & Format(Cos((i) * (3.14159 / 180)), "#.######")
            Print #1, "Sin of" & " " & i & " =" & Format(Sin((i) * (3.14159 / 180)), "#.######")
            Print #1, "Tan of" & " " & i & " =" & Format(Tan((i) * (3.14159 / 180)), "#.######")
        Next
    Close #1
End Sub

Quote:

---

Originally posted by The Hobo
Instead of opening the file 90 times, why not:

VB Code:

Dim i As Integer
 
Private Sub Command1_Click()
    Open App.Path & "\CST.txt" For Output As #1
        For i = 1 To 90
            Print #1, "Cosine of" & " " & i & " =" & Format(Cos((i) * (3.14159 / 180)), "#.######")
            Print #1, "Sin of" & " " & i & " =" & Format(Sin((i) * (3.14159 / 180)), "#.######")
            Print #1, "Tan of" & " " & i & " =" & Format(Tan((i) * (3.14159 / 180)), "#.######")
        Next
    Close #1
End Sub

---

Oops I put next and close around the wrong way.