Réponse acceptée !
si j'ai compris, c'est en fait les 2 segments que tu veux tracer, et pas vraiment ton angle... :)
déjà, par clarté, je mettrais les origines de mes coordonnées dans des variables (par exemple Ox et Oy)
ensuite, ce petit bout de code devrait marcher (il faut simplement que
tu vérifies le signe de ton angle, tout dépend de tes conventions). il
faut bien sûr faire toutes les déclarations nécessaires... attention,
les angles sont donnés en radians!
Private Const PI = 3.141593
R =
' la
longueur de ton 2e segment
Alpha = ' angle entre tes 2 segments
dX = X2-X1
dY = Y2-Y1
' angle de ton 1er segment avec l'axe x
If dX > 0 Then
Phi = Atn(dY / dX)
ElseIf dX < 0 Then
Phi = PI + Atn(dY / dX)
Else
Phi = Sgn(dY) * PI / 2
End If
' angle de ton 2e segment avec l'axe x toujours
Phi = Phi - Alpha
' les 2 segments se croisent en (X1,Y1)
Picture1.Line (X1, Y1)-Step(R * Cos(Phi), R * Sin(Phi))
Les maths, c'est tellement plus mieux! 