package
{
import Box2D.Collision.b2ContactPoint;
import Box2D.Dynamics.b2Body;
import Box2D.Dynamics.b2ContactListener;
import flash.media.Sound;
import flash.net.URLRequest;
public class ContactListener extends b2ContactListener {
private var sound:Sound;
public override function Add(point:b2ContactPoint):void {
sound.play();
}
internal function load():void {
sound = new Sound(new URLRequest("sample.mp3"));
}
}
}
Public Class Form1
Private Function RecursiveCos(ByVal angleDegree As Integer) As Double
If (Math.Abs(angleDegree) = 1) Then
Return 0.99984769515639127
ElseIf (angleDegree = 0) Then
Return 1
Else
Dim arg As Double = angleDegree / 2
Dim a As Integer = Math.Floor(arg)
Dim b As Integer = Math.Ceiling(arg)
Return RecursiveCos(a) * RecursiveCos(b) - RecursiveSin(a) * RecursiveSin(b)
End If
End Function
Private Function RecursiveSin(ByVal angleDegree As Integer) As Double
If (Math.Abs(angleDegree) = 1) Then
Return 0.017452406437283512 * Math.Sign(angleDegree)
ElseIf (angleDegree = 0) Then
Return 0
Else
Dim arg As Double = angleDegree / 2
Dim a As Integer = Math.Floor(arg)
Dim b As Integer = Math.Ceiling(arg)
Return RecursiveSin(a) * RecursiveCos(b) + RecursiveCos(a) * RecursiveSin(b)
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim var As Integer
If (Not Integer.TryParse(TextBox1.Text, var)) Then
MsgBox("FormatException")
Return
End If
If (RadioButton1.Checked) Then
Label1.Text = RecursiveSin(var).ToString()
Else
Label1.Text = RecursiveCos(var).ToString()
End If
End Sub
End Class
