Bonjour
En cherchant dans mes archives ...
J'avais jadis dessiné un radar representé par un cercle quadrillé
radarbox est un picturebox
Private Sub DrawGrid()
Dim x1, x2, y1, y2 As Integer
Dim angle As Integer
Dim segment As Integer
segment = 3
centerx = Me.radarbox.Width / 2
centery = Me.radarbox.Height / 2
Me.radarbox.FillStyle = 0
Me.radarbox.Circle (centerx, centery), radiusradar, RGB(0, 0, 255)
For angle = segment To 180 - segment Step segment
x1 = centerx + (radiusradar) * Cos(DegreeToRad(angle))
y1 = centery + (radiusradar) * Sin(DegreeToRad(angle))
x2 = centerx + (radiusradar) * Cos(DegreeToRad(-angle))
y2 = centery + (radiusradar) * Sin(DegreeToRad(-angle))
Me.radarbox.Line (x1, y1)-(x2, y2), RGB(0, 0, 255)
Next angle
For angle = 90 - segment To -(90 - segment) Step -segment
x1 = (radiusradar) * Cos(DegreeToRad(angle)) + centerx
y1 = (radiusradar) * Sin(DegreeToRad(angle)) + centery
x2 = (radiusradar) * Cos(DegreeToRad(180 - angle)) + centerx
y2 = (radiusradar) * Sin(DegreeToRad(180 - angle)) + centery
Me.radarbox.Line (x1, y1)-(x2, y2), RGB(0, 0, 255)
Next angle
End Sub
17 avril 2017 à 11:29
Je te remercie pour tes explications très claires
En fait je ne savais pas quelle "unité" prendre pour chaque segment du rayon. On en apprend tous les jours et c'est tant mieux !
Cheyenne