Deux questions simples
Comment définir le point 0 de la circonférence d'un cercle
Comment définir le point de rencontre d'un angle et de la circonférence du cercle.
J'ai un cercle de rayon R, le 0 est à midi, j'ai un angle de 47°, ou est le point d'intersection ?
Option Explicit On Public Class Form1 Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Left = 10 Me.Top = 10 Me.Width = 450 Me.Height = 450 End Sub Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown Call dessin() End Sub Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize Call dessin() End Sub Sub dessin() Dim r As Long = 150 Dim ox As Long = 200 Dim oy As Long = 200 Dim g As System.Drawing.Graphics = Me.CreateGraphics() Dim ar As Double ' angle en radians Dim i As Long Dim sinus As Double Dim cosinus As Double Dim x As Long Dim y As Long Dim xy As PointF() = New PointF(360) {} ' nombre degrés boucle : matrice v(x, y) Dim c As New Pen(Color.FromArgb(1, 2, 3), 2) ' couleur rgb 2) = taille trait For i = 0 To 360 ar = i * 3.14 / 180 cosinus = Math.Cos(ar) x = r * cosinus + ox xy(i).X = x sinus = Math.Sin(ar) y = oy - r * sinus xy(i).Y = y Next i g.DrawLines(c, xy) ' imprime écran matrice g.Dispose() c.Dispose() End Sub End Class
le point de rencontre d'un angle et de la circonférence du cercle.
J'ai un cercle de rayon R, le 0 est à midi, j'ai un angle de 47°, ou est le point d'intersection ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
le point de rencontre d'un angle et de la circonférence du cercle.
J'ai un cercle de rayon R, le 0 est à midi, j'ai un angle de 47°, ou est le point d'intersection ?
Le but c'est de définir les X et Y d'arrivée de la droite qui part du centre et coupe le cercle, en s’arrêtant sur le cercle. Comme une aiguille des minutes qui marquerait 20 (min)
x = R * Cos(phi) y = R * Sin(phi)
ox = centre abscisse oy = centre ordonnée r = rayon i = angle en degré (positifs par défaut) ar = i * 3.14 / 180 ' ar (angle radian) conversion cosinus = Math.Cos(ar) sinus = Math.Sin(ar) x = r * cosinus + ox y = oy - r * sinus ' attention l'un s'additionne, l'autre se soustrait
x = R * Cos(phi) y = R * Sin(phi)