Arc de cercle avec deux points et le centreRésolu

Question

Bonjour, juste une question graphique de base, comment faire pour tracer un arc de cercle à partir des deux point extrêmes et du centre du cercle, sachant qu'il y a deux arcs possible donc qu'il faut pouvoir specifier lequel tracer.
Merci

Benbedo

cs_rene38 · Accepted Answer

petite correction : If Xdep - Xcentre <> 0 Then AnglDep = Atn((Ydep - Ycentre) / (Xdep - Xcentre)) Else AnglDep = (2 - Sgn(Ydep - Ycentre)) * Pi / 2 End If If Xarr - Xcentre <> 0 Then AnglArr = Atn((Yarr - Ycentre) / (Xarr - Xcentre)) Else AnglArr = (2 - Sgn(Yarr - Ycentre)) * Pi / 2 End If

cs_DARKSIDIOUS · Answer

Utilise la fonction de l'API Windows ArcTo.

La fonction Circle de VB le permet aussi, mais il faut lui indiquer des angles et non des points !
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

benbedo · Answer

Arcto necessite 4 points, la je n'en donne que trois...
Benbedo

cs_DARKSIDIOUS · Answer

oui : il demande le rectangle dans lequel sera tracé le cercle... Pas trop dur à définir si tu connais le rayon et un point du cercle...

_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

benbedo · Answer

ok donc en faite je dois donner les coordonnées des deux coins du carrée qui entoure mon cercle, mais aprés, les deux autres points se rapporte a quoi? au  deux points, celui de départ et celui d'arrivé?
Je vais faire des tests. thx

Benbedo

benbedo · Answer

J'ai fais des essais, mais il ne sont pas concluant... peut etre peux-tu m'aider a comprendre l'API par un petit exemple, comment je peux faire pour tracer un arc de cercle de centre (x0,y0), de rayon r, partant du point (x1,y1) et allant jusqu'au point (x2,y2) ceci dans une picture box de taille widht*height. 

J'ai essayé cela mais ca marche pas, ca ne trace qu'une droite:


ArcTo(Picture1.hdc, Picture1.Width / 2 - r , Picture1.Height / 2 - r , Picture1.Width / 2 + r, Picture1.Height / 2 + r, x1, y1 , x2 ,y2)


Benbedo

cs_rene38 · Answer

Bonjour voici qui devrait marcher : Private Sub TraceArc(Xcentre As Double, Ycentre As Double, Xdep As Double, Ydep As Double, Xarr As Double, Yarr As Double) Const Pi As Double = 3.14159265 Dim Rayon As Double, Verif As Double Dim AnglDep As Double Dim AnglArr As Double Rayon = Sqr((Xcentre - Xdep) ^ 2 + (Ycentre - Ydep) ^ 2) Verif = Sqr((Xcentre - Xarr) ^ 2 + (Ycentre - Yarr) ^ 2) If Rayon <> Verif Then MsgBox "Impossible": Exit Sub If Xdep - Xcentre <> 0 Then AnglDep = Atn((Ydep - Ycentre) / (Xdep - Xcentre)) Else AnglDep = Pi / 2 End If If Xarr - Xcentre <> 0 Then AnglArr = Atn((Yarr - Ycentre) / (Xarr - Xcentre)) Else AnglArr = Pi / 2 End If Picture1.Circle (Xcentre, Ycentre), Rayon, , AnglDep, AnglArr End Sub

benbedo · Answer

Merci bien pour ton aide... je vais tester cela...
Cela ne marche pas trés bien dans mon problème, mais cel vient surement de moi car dans la théorie ton programme semble fonctionner... j'ai du faire une erreur quelque part genre dans mes conversions de mesures ou d'angles... j'accepte ta réponse et je vais chercher de moi même... merci

Benbedo