Discussion :

[petit rabot]

Bonjour à tous,
je voudrais réaliser ce type de graphique sur VB6 (voir image), mais je ne sais pas si cela est possible, et je ne sais pas par ou commencer.
Je connais le rayon nominal, ainsi que toutes les déviations par rapport à ce rayon.
Je connais aussi l'intervalle en degré entre chaque point (0,242098184°).

Merci d'avance.

[IMG] Uploaded with ImageShack.us[/IMG]

[OhMonBato]

Bonjour,

c'est bien evidemment possible, je ne sais pas sous quelle forme sont tes points, couple X/Y ou couple angle/distance, mais peu importe, dans le deuxieme cas, un simple calcul trigo te permet de convertir en X/Y. Il te suffit d'utiliser l'instruction Line ou l'API Polyline pour tracer ce genre de courbe.

[petit rabot]

Merci pour ton aide, j'ai résolu mon problème en dessinant ma courbe en point par point.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Form14.PSet (Val(j, 0), Val(j, 1)), couleur

Par contre je suis preneur pour des exemples avec la fonction Polyline.
Merci.

[ThierryAIM]

De AllApi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Type POINTAPI
        X As Long
        Y As Long
End Type
Private Declare Function Polyline Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long
Dim Pts(0 To 6) As POINTAPI
Private Sub Form_Paint()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
 
    Pts(0).X = 10: Pts(0).Y = 10
    Pts(1).X = 10: Pts(1).Y = 100
    Pts(2).X = 10: Pts(2).Y = 50
    Pts(3).X = 50: Pts(3).Y = 10
    Pts(4).X = 10: Pts(4).Y = 50
    Pts(5).X = 50: Pts(5).Y = 100
    Polyline Me.hdc, Pts(0), 6
    Pts(0).X = 60: Pts(0).Y = 100
    Pts(1).X = 60: Pts(1).Y = 10
    Pts(2).X = 100: Pts(2).Y = 10
    Pts(3).X = 100: Pts(3).Y = 50
    Pts(4).X = 60: Pts(4).Y = 50
    Polyline Me.hdc, Pts(0), 5
    Pts(0).X = 110: Pts(0).Y = 10
    Pts(1).X = 150: Pts(1).Y = 10
    Pts(2).X = 160: Pts(2).Y = 20
    Pts(3).X = 160: Pts(3).Y = 90
    Pts(4).X = 150: Pts(4).Y = 100
    Pts(5).X = 110: Pts(5).Y = 100
    Pts(6).X = 110: Pts(6).Y = 10
    Polyline Me.hdc, Pts(0), 7
End Sub

[petit rabot]

Merci ThierryAIM pour ton aide et tes exemples.

[OhMonBato]

Il faut preciser tout de meme que si tu utilises cette API, le scalemode de ton container doit etre en pixels, et les coordonnees doivent etre en pixel egalement, il te faut donc convertir tes valeurs "reelles" en fonction de l'echelle voulue de ton container.

Pour l'utilisation des API, je ne saurais trop te recommander de telecharger APIGuide que tu trouveras dans les Outils VB