Aligner des cercles selon un droiteRésolu

Question

Bonjour à toutes et tous

j'ai besoin de dessiner un edroite sur laquelle figure un nombre de cercle distant entre eux et avec un nombre porportionnel a la longueur de la droite

quelqu'un aurait il une sol pour cela

grand  merci à vous

Laurent

Gobillot · Accepted Answer

Bonjour,

trace sur une Ligne de coordonn&#233;es (x1,y1)-(x2,y2), des cercles de Rayon R,

&#233;quidistants les uns des autres et centr&#233;s sur la droite.

ancun sinus ni cosinus n'est utilis&#233;

c'est pas beau &#231;a !





Private Sub Command2_Click()

    Dim x  As Single

    Dim y  As Single

    Dim x1 As Single

    Dim y1 As Single

    Dim x2 As Single

    Dim y2 As Single

    Dim Lx As Single

    Dim Ly As Single

    Dim nb As Integer

    Dim dx As Single

    Dim dy As Single

    Dim R  As Integer

    Dim i   As Integer

    

' les donn&#233;es, Rayon et coordonn&#233;es de la Ligne

    R = 40

    x1 = Line1.x1

    y1 = Line1.y1

    x2 = Line1.x2

    y2 = Line1.y2



'calcul diff&#233;rences des x et des y

    Lx = x2 - x1

    Ly = y2 - y1



'calcul nombre de cercles

    nb = Int(Sqr(Lx * Lx + Ly * Ly) / R / 2)



'calcul distance des cercles

    dx = Lx / nb

    dy = Ly / nb

 

'calcul coordonn&#233;es  du 1er cercle

    x = x1 - dx / 2

    y = y1 - dy / 2

    

'tra&#231;ages des cercles

    For i = 1 To nb

        x = x + dx

        y = y + dy

        Picture1.Circle (x, y), R

        Next

    

End Sub


Daniel

cs_sp62 · Answer

Daniel, je vous remercie

Aligner des cercles selon un droite

2 réponses

Discussions similaires