비주얼베이직으로 짠 코드 안드로이드 코드로 수정하는 방법

Question

비주얼베이직 언어인데요.. 이 코드를 안드로이드로 돌리고 싶은데..
어떻게 작성하면 좋을까요? ㅠㅠ
3D 입체 집 모양인데.. 터치한채 집 모양을 돌려 볼려고 하는데요..
어떻게하면 안드로이드 코드로 바꿀 수 있을까요?

Dim f(100) As Long
Dim arrx(100), arry(100,) arryz(100) As Long
Dim PX, PY As Double
Dim rx, ry, rz As Integer

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Sigle)
 If Button = 1 Then
  Form1.CurrentX = X
  Form1.CurrentY = Y
 End If
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Sigle)

 If Button = 1 Then

  Form1. Cls
  ax = (rx + (ry - X)) * 3.14159 / 180
  ay = (ry + (ry - Y)) * 3.14159 / 180
  az = rz * 3.14159 / 180

  For i = 1 To 39
   Call rotation(ax, ay, az, arrx(i), arry(), arrz(i), PX, PY)
   If f(i)  = -1 Then PSet (PX, PY) Else Line - (PX, PY)
  Next i
 End If
End Sub

Private Sub Form_Paint()
 Dim ax, ay, az
 Open "input.txt" For Input As #1
 Scale (-160, -100) - (160, 100)

 rx = 20
 ry = 10
 rz = 160
 ax = rx * 3.14159 / 180
 ay = ry * 3.14159 / 180
 az = rz * 3.14159 / 180

 For i = 1 To 39
  input #1, f(i), arrx(i), arry(i), arrz(i)
  Call rotation(ax, ay, az, arrx(i), arry(i), arrz(i), PX, PY)

  If f(i) = -1 Then PSet (PX, PY) Else Line- (PX, PY)
 Next i

End Sub

Sub rotation(ax, ay, az, X, Y, z, PX, PY)

 Dim x1, y1, z1, x2, y2, As Double
 x1 = X * Cos(ay) + z * Sin(ay)
 y1 = Y
 z1 = -x * Sin(ay) + z * Cos(ay)
 x2 = x1
 y2 = y1 * Cos(ax) - z1 * Sin(ax)
 PY = x2 * Cos(az) - y2 * Sin(az)
 PY = x2 * Sin(az) - y2 * Cos(az)

End Sub

Comments

비주얼 베이직은 안해봤지만
비주얼베이직 의 해당 기능이 자바에도 있을거니
찾아서 바꿔주면 될것같습니다만.

Answer 1

현재 소스 내용을 이해하셨다면

Java에서 같은 기능을 하는 함수로 바꿔 주시면 됩니다.

(예를들면 Cos() ->  Math.Cos() )

터치 이벤트랑 Math클래스, File 등만 해주시면 될거같습니다.

Comments

위 코드를 이해를 못하니깐.. 이렇게 도움을 요청하는겁니다...ㅠㅠ
요즘 이거 땜에 미치겠네요 ㅠ 그냥 완성해서 제출만 하면 되는데..
눈 딱 감고 한번 도와주세요 ㅠㅠㅠ