Escribo esto por el simple motivo el cual estoy necesitado de una ayuda .
Les agradezco por interesarse y espero puedan ayudar.
Les paso a contar estoy con un juego que quiero hacer hace rato y no logro conseguir que la nave mire el Mouse.
(tengo un modulo que me permite girar la imagen 360 así haré que la nave mire el Mouse ,el problema esta que me pide el grado y no lo tengo)
Se me ocurrió una idea que es con las coordenadas de la nave más las del Mouse
se puede armar un triangulo con el cual al sacar unos de sus ángulos podría arreglarme para hallar el grado en el cual posesionare la nave.
Utilizando teorema de Pitágoras y el del seno logro sacar el ángulo, que forma las líneas verde y roja, con el cual me basta para lo que yo nenecito.
USO éSTE CóDIGO Y NO ME FUNCIONA...
Código:
cv=catetoverde
ca=catetoazul
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim cv, ca, h As Long
cv = x - 128
ca = x - 128
h = Sqr(cv ^ 2 + ca ^ 2)
z = (Sin(90) * ca) / h
angulo_del_triangulo = Atn(z / Sqr(-z * z + 1))
End Sub
saludos