• Home
 · 
• Math/Dates
 · 
• How to solve sin(x)

How to solve sin(x)

How to solve sin(x)

Rate How to solve sin(x)

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim x As Double
Dim n As Long
Dim xs As Double
Dim sign As Integer
sign = 1
x = Val(txtx.Text)
If x < 0 Then sign = -1
xs = x
n = Val(txtn.Text)
If n <= 0 Then
  lbldisplay.Caption = "******No solution for zero terms."
Else
        x = Abs(x)
        Do While x > twopi
        x = x - twopi
        Loop
        lbldisplay.Caption = "sin(" & x & ") = " & _
                                                       sign * xsine(x, n) _
                                & vbNewLine & "sin(" & xs & ")=" & Sin(xs)
                                
End If
End Sub
Private Function xsine(x As Double, n As Long) As Double
Dim ans As Double
Dim e As Long
Dim sign As Integer
sign = 1
ans = x
For e = 3 To (2 * n) Step 2
sign = sign * (-1)
newterm = x ^ e / factorial(e) * sign
ans = ans + newterm
Next e
xsine = ans
End Function
Private Function factorial(e As Long) As Double
Dim p As Double
Dim k As Long
p = 1
For k = e To 1 Step -1
p = p * k
Next k
factorial = p
End Function


Private Sub cmdclear_Click()
txtx.Text = ""
txtn.Text = ""
lbldisplay.Caption = ""

End Sub

Private Sub cmdexit_Click()
End

End Sub