비주얼베이직 언어인데요.. 이 코드를 안드로이드로 돌리고 싶은데..
어떻게 작성하면 좋을까요? ㅠㅠ
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
비주얼베이직 언어인데요.. 이 코드를 안드로이드로 돌리고 싶은데..
어떻게 작성하면 좋을까요? ㅠㅠ
3D 입체 집 모양인데.. 터치한채 집 모양을 돌려보는건데요.. 어떻게하면 안드로이 코드로 바꿀 수 있을까요?
(어려운 질문이긴 하지만... 혹시나 하는 마음에 올려봅니다... 요즘 이거 때문에 미치겠네요....ㅠㅠㅠㅠㅠ)
