objet de courbe

X

17/10/2005 à 10:56

Bonjour,

Avec l'objet Microfot Chart Control (MsChart) tu peux créer des courbes,
mais je ne sais pas si tu peux les lisser, alors on peut utiliser des
formules, par exemple:

position = Hauteur - (Hauteur / 2) * (Sin(2 * 3.141592654 * j / cycle) + 1)
' départ du centre ver haut

A titre personnel, je pense que les meilleurs dessins sont faits à la main
en code par des formules de trigo généralement, mais bon, question de
goût...
----------------

"Long YE-SU" a écrit dans le message de news:
435351d4$0$17217$
| Bonjour
| existe t il un objet dans VB 6 pour créer des courbes ?
|
| Sincères salutations
| Long YE-SU
|
|

Long YE-SU

17/10/2005 à 18:39

merci de l'info...

peut on définir avec dans cet objet courbe :
13 courbes à la fois...

comment défini on la série pour une courbe....

Sincères salutations
Long YE-SU

----- Original Message -----
From: "X" <.>
Newsgroups: microsoft.public.fr.vb
Sent: Monday, October 17, 2005 10:56 AM
Subject: Re: objet de courbe

Bonjour,

Avec l'objet Microfot Chart Control (MsChart) tu peux créer des

courbes,

mais je ne sais pas si tu peux les lisser, alors on peut utiliser des
formules, par exemple:

position = Hauteur - (Hauteur / 2) * (Sin(2 * 3.141592654 * j / cycle) +

1)

' départ du centre ver haut

A titre personnel, je pense que les meilleurs dessins sont faits à la main
en code par des formules de trigo généralement, mais bon, question de
goût...
----------------

"Long YE-SU" a écrit dans le message de news:
435351d4$0$17217$
| Bonjour
| existe t il un objet dans VB 6 pour créer des courbes ?
|
| Sincères salutations
| Long YE-SU
|
|

X

17/10/2005 à 20:26

Oui, on peut faire 13 courbes je présume, cependant ça risque de faire un
peu confus, vaut mieux utiliser des bâton ou un fromage... mais bon, on ne
peut représenter qu'une valeur avec un bâton, mais plusieurs avec une ligne,
à toi de voir le choix le plus judicieux...

MsChart
MSChart1.ColumnCount = 13 ' 13 courbes sont déclarées
MSChart1.Column = 1 ' courbe 1
MSChart1.Row = 1 ' courbe 1, donnée 1
MSChart1.Data = 10 ' courbe 1, donnée 1, reçoit la valeur 10
MSChart1.Row = 2 ' courbe 1, donnée 2
MSChart1.Data = 12 ' courbe 1, donnée 2, reçoit la valeur 12
MSChart1.Column = 2 ' courbe 2
MSChart1.Row = 1 ' courbe 2, donnée 1
MSChart1.Data = 33 ' courbe 2, donnée 1, reçoit la valeur 33
MSChart1.Row = 2 ' courbe 2, donnée 2
MSChart1.Data = 22 ' courbe 2, donnée 1, reçoit la valeur 22

Pour le reste il faut et voir les propriétés, et voir l'assistant de
propriétés qui permet par exemple de choisir le type de graphique, dans
l'absolu la valeur d'une grande partie des propriétés peut être dans le
code, cependant c'est assez mal documenté, il faut chercher sur Internet...
-----------------------

"Long YE-SU" a écrit dans le message de news:
4353d2b0$0$27403$
| merci de l'info...
|
| peut on définir avec dans cet objet courbe :
| 13 courbes à la fois...
|
| comment défini on la série pour une courbe....
|
| Sincères salutations
| Long YE-SU
|
|
| ----- Original Message -----
| From: "X" <.>
| Newsgroups: microsoft.public.fr.vb
| Sent: Monday, October 17, 2005 10:56 AM
| Subject: Re: objet de courbe
|
|
| > Bonjour,
| >
| > Avec l'objet Microfot Chart Control (MsChart) tu peux créer des
| courbes,
| > mais je ne sais pas si tu peux les lisser, alors on peut utiliser des
| > formules, par exemple:
| >
| > position = Hauteur - (Hauteur / 2) * (Sin(2 * 3.141592654 * j / cycle) +
| 1)
| > ' départ du centre ver haut
| >
| > A titre personnel, je pense que les meilleurs dessins sont faits à la
main
| > en code par des formules de trigo généralement, mais bon, question de
| > goût...
| > ----------------
| >
| >
| > "Long YE-SU" a écrit dans le message de news:
| > 435351d4$0$17217$
| > | Bonjour
| > | existe t il un objet dans VB 6 pour créer des courbes ?
| > |
| > | Sincères salutations
| > | Long YE-SU
| > |
| > |
| >
| >
|
|

Oui, on peut faire 13 courbes je présume, cependant ça risque de faire un
peu confus, vaut mieux utiliser des bâton ou un fromage... mais bon, on ne
peut représenter qu'une valeur avec un bâton, mais plusieurs avec une ligne,
à toi de voir le choix le plus judicieux...

MsChart
MSChart1.ColumnCount = 13 ' 13 courbes sont déclarées
MSChart1.Column = 1 ' courbe 1
MSChart1.Row = 1 ' courbe 1, donnée 1
MSChart1.Data = 10 ' courbe 1, donnée 1, reçoit la valeur 10
MSChart1.Row = 2 ' courbe 1, donnée 2
MSChart1.Data = 12 ' courbe 1, donnée 2, reçoit la valeur 12
MSChart1.Column = 2 ' courbe 2
MSChart1.Row = 1 ' courbe 2, donnée 1
MSChart1.Data = 33 ' courbe 2, donnée 1, reçoit la valeur 33
MSChart1.Row = 2 ' courbe 2, donnée 2
MSChart1.Data = 22 ' courbe 2, donnée 1, reçoit la valeur 22

Pour le reste il faut et voir les propriétés, et voir l'assistant de
propriétés qui permet par exemple de choisir le type de graphique, dans
l'absolu la valeur d'une grande partie des propriétés peut être dans le
code, cependant c'est assez mal documenté, il faut chercher sur Internet...
-----------------------

"Long YE-SU" <yesu.sdsi@wanadoo.fr> a écrit dans le message de news:
4353d2b0$0$27403$8fcfb975@news.wanadoo.fr...
| merci de l'info...
|
| peut on définir avec dans cet objet courbe :
| 13 courbes à la fois...
|
| comment défini on la série pour une courbe....
|
| Sincères salutations
| Long YE-SU
|
|
| ----- Original Message -----
| From: "X" <.>
| Newsgroups: microsoft.public.fr.vb
| Sent: Monday, October 17, 2005 10:56 AM
| Subject: Re: objet de courbe
|
|
| > Bonjour,
| >
| > Avec l'objet Microfot Chart Control (MsChart) tu peux créer des
| courbes,
| > mais je ne sais pas si tu peux les lisser, alors on peut utiliser des
| > formules, par exemple:
| >
| > position = Hauteur - (Hauteur / 2) * (Sin(2 * 3.141592654 * j / cycle) +
| 1)
| > ' départ du centre ver haut
| >
| > A titre personnel, je pense que les meilleurs dessins sont faits à la
main
| > en code par des formules de trigo généralement, mais bon, question de
| > goût...
| > ----------------
| >
| >
| > "Long YE-SU" <yesu.sdsi@wanadoo.fr> a écrit dans le message de news:
| > 435351d4$0$17217$8fcfb975@news.wanadoo.fr...
| > | Bonjour
| > | existe t il un objet dans VB 6 pour créer des courbes ?
| > |
| > | Sincères salutations
| > | Long YE-SU
| > |
| > |
| >
| >
|
|

Vous avez filtré cet utilisateur ! Consultez son message

Oui, on peut faire 13 courbes je présume, cependant ça risque de faire un
peu confus, vaut mieux utiliser des bâton ou un fromage... mais bon, on ne
peut représenter qu'une valeur avec un bâton, mais plusieurs avec une ligne,
à toi de voir le choix le plus judicieux...

MsChart
MSChart1.ColumnCount = 13 ' 13 courbes sont déclarées
MSChart1.Column = 1 ' courbe 1
MSChart1.Row = 1 ' courbe 1, donnée 1
MSChart1.Data = 10 ' courbe 1, donnée 1, reçoit la valeur 10
MSChart1.Row = 2 ' courbe 1, donnée 2
MSChart1.Data = 12 ' courbe 1, donnée 2, reçoit la valeur 12
MSChart1.Column = 2 ' courbe 2
MSChart1.Row = 1 ' courbe 2, donnée 1
MSChart1.Data = 33 ' courbe 2, donnée 1, reçoit la valeur 33
MSChart1.Row = 2 ' courbe 2, donnée 2
MSChart1.Data = 22 ' courbe 2, donnée 1, reçoit la valeur 22

Pour le reste il faut et voir les propriétés, et voir l'assistant de
propriétés qui permet par exemple de choisir le type de graphique, dans
l'absolu la valeur d'une grande partie des propriétés peut être dans le
code, cependant c'est assez mal documenté, il faut chercher sur Internet...
-----------------------

"Long YE-SU" a écrit dans le message de news:
4353d2b0$0$27403$
| merci de l'info...
|
| peut on définir avec dans cet objet courbe :
| 13 courbes à la fois...
|
| comment défini on la série pour une courbe....
|
| Sincères salutations
| Long YE-SU
|
|
| ----- Original Message -----
| From: "X" <.>
| Newsgroups: microsoft.public.fr.vb
| Sent: Monday, October 17, 2005 10:56 AM
| Subject: Re: objet de courbe
|
|
| > Bonjour,
| >
| > Avec l'objet Microfot Chart Control (MsChart) tu peux créer des
| courbes,
| > mais je ne sais pas si tu peux les lisser, alors on peut utiliser des
| > formules, par exemple:
| >
| > position = Hauteur - (Hauteur / 2) * (Sin(2 * 3.141592654 * j / cycle) +
| 1)
| > ' départ du centre ver haut
| >
| > A titre personnel, je pense que les meilleurs dessins sont faits à la
main
| > en code par des formules de trigo généralement, mais bon, question de
| > goût...
| > ----------------
| >
| >
| > "Long YE-SU" a écrit dans le message de news:
| > 435351d4$0$17217$
| > | Bonjour
| > | existe t il un objet dans VB 6 pour créer des courbes ?
| > |
| > | Sincères salutations
| > | Long YE-SU
| > |
| > |
| >
| >
|
|

Fox Trot

17/10/2005 à 22:02

Bonjour/soir à tous, dans son message précédent, Long YE-SU a écrit :

Bonjour
existe t il un objet dans VB 6 pour créer des courbes ?

Si ce sonr des courbes de Bézier, essai le code ci dessous, sinon si ce
sont des courbes statistiques, comme dit X, essai le contrôle MSChart

Code trouvé grâce à AllApi.net

Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function PolyBezier Lib "gdi32.dll" (ByVal hdc As Long,
lppt As POINTAPI, ByVal cPoints As Long) As Long
Private Declare Function PolyBezierTo Lib "gdi32.dll" (ByVal hdc As
Long, lppt As POINTAPI, ByVal cCount As Long) As Long
Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal
x As Long, ByVal y As Long, lpPoint As Any) As Long
Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x
As Long, ByVal y As Long) As Long
Private Declare Function PolyPolygon Lib "gdi32.dll" (ByVal hdc As
Long, lpPoint As POINTAPI, lpPolyCounts As Long, ByVal nCount As Long)
As Long
Private Sub Form_Paint()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail:
Dim pts(0 To 6) As POINTAPI
Dim numpoints(0 To 1) As Long
'set the coördinates
pts(0).x = 0: pts(0).y = 100
pts(1).x = 125: pts(1).y = 75
pts(2).x = 255: pts(2).y = 148
pts(3).x = 219: pts(3).y = 199
pts(4).x = 315: pts(4).y = 203
pts(5).x = 236: pts(5).y = 16
pts(6).x = 122: pts(6).y = 123
'set the forecolor to green
Me.ForeColor = vbGreen
'draw the bézier
PolyBezier Me.hdc, pts(0), 7
'set the forecolor to red
Me.ForeColor = vbRed
'move the 'active' point
MoveToEx Me.hdc, 200, 25, ByVal 0&
'set the coördinates
pts(0).x = 125: pts(0).y = 50
pts(1).x = 123: pts(1).y = 200
pts(2).x = 102: pts(2).y = 100
pts(3).x = 102: pts(3).y = 100
pts(4).x = 312: pts(4).y = 75
pts(5).x = 289: pts(5).y = 125
'draw the bézier
PolyBezierTo Me.hdc, pts(0), 6
'set the forecolor to blue
Me.ForeColor = vbBlue
'set the points belonging to the rectangle
pts(0).x = 20: pts(0).y = 10
pts(1).x = 200: pts(1).y = 10
pts(2).x = 200: pts(2).y = 190
pts(3).x = 20: pts(3).y = 190
numpoints(0) = 4
'set the points belonging to the triangle
pts(4).x = 100: pts(4).y = 0
pts(5).x = 50: pts(5).y = 100
pts(6).x = 150: pts(6).y = 100
numpoints(1) = 3
'draw the polygons
PolyPolygon Me.hdc, pts(0), numpoints(0), 2
End Sub

--
Fox Trot

Bonjour/soir à tous, dans son message précédent, Long YE-SU a écrit :

Bonjour
existe t il un objet dans VB 6 pour créer des courbes ?

Si ce sonr des courbes de Bézier, essai le code ci dessous, sinon si ce
sont des courbes statistiques, comme dit X, essai le contrôle MSChart

Code trouvé grâce à AllApi.net

Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function PolyBezier Lib "gdi32.dll" (ByVal hdc As Long,
lppt As POINTAPI, ByVal cPoints As Long) As Long
Private Declare Function PolyBezierTo Lib "gdi32.dll" (ByVal hdc As
Long, lppt As POINTAPI, ByVal cCount As Long) As Long
Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal
x As Long, ByVal y As Long, lpPoint As Any) As Long
Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x
As Long, ByVal y As Long) As Long
Private Declare Function PolyPolygon Lib "gdi32.dll" (ByVal hdc As
Long, lpPoint As POINTAPI, lpPolyCounts As Long, ByVal nCount As Long)
As Long
Private Sub Form_Paint()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim pts(0 To 6) As POINTAPI
Dim numpoints(0 To 1) As Long
'set the coördinates
pts(0).x = 0: pts(0).y = 100
pts(1).x = 125: pts(1).y = 75
pts(2).x = 255: pts(2).y = 148
pts(3).x = 219: pts(3).y = 199
pts(4).x = 315: pts(4).y = 203
pts(5).x = 236: pts(5).y = 16
pts(6).x = 122: pts(6).y = 123
'set the forecolor to green
Me.ForeColor = vbGreen
'draw the bézier
PolyBezier Me.hdc, pts(0), 7
'set the forecolor to red
Me.ForeColor = vbRed
'move the 'active' point
MoveToEx Me.hdc, 200, 25, ByVal 0&
'set the coördinates
pts(0).x = 125: pts(0).y = 50
pts(1).x = 123: pts(1).y = 200
pts(2).x = 102: pts(2).y = 100
pts(3).x = 102: pts(3).y = 100
pts(4).x = 312: pts(4).y = 75
pts(5).x = 289: pts(5).y = 125
'draw the bézier
PolyBezierTo Me.hdc, pts(0), 6
'set the forecolor to blue
Me.ForeColor = vbBlue
'set the points belonging to the rectangle
pts(0).x = 20: pts(0).y = 10
pts(1).x = 200: pts(1).y = 10
pts(2).x = 200: pts(2).y = 190
pts(3).x = 20: pts(3).y = 190
numpoints(0) = 4
'set the points belonging to the triangle
pts(4).x = 100: pts(4).y = 0
pts(5).x = 50: pts(5).y = 100
pts(6).x = 150: pts(6).y = 100
numpoints(1) = 3
'draw the polygons
PolyPolygon Me.hdc, pts(0), numpoints(0), 2
End Sub

--
Fox Trot

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour/soir à tous, dans son message précédent, Long YE-SU a écrit :

Bonjour
existe t il un objet dans VB 6 pour créer des courbes ?

Si ce sonr des courbes de Bézier, essai le code ci dessous, sinon si ce
sont des courbes statistiques, comme dit X, essai le contrôle MSChart

Code trouvé grâce à AllApi.net

Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function PolyBezier Lib "gdi32.dll" (ByVal hdc As Long,
lppt As POINTAPI, ByVal cPoints As Long) As Long
Private Declare Function PolyBezierTo Lib "gdi32.dll" (ByVal hdc As
Long, lppt As POINTAPI, ByVal cCount As Long) As Long
Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal
x As Long, ByVal y As Long, lpPoint As Any) As Long
Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x
As Long, ByVal y As Long) As Long
Private Declare Function PolyPolygon Lib "gdi32.dll" (ByVal hdc As
Long, lpPoint As POINTAPI, lpPolyCounts As Long, ByVal nCount As Long)
As Long
Private Sub Form_Paint()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail:
Dim pts(0 To 6) As POINTAPI
Dim numpoints(0 To 1) As Long
'set the coördinates
pts(0).x = 0: pts(0).y = 100
pts(1).x = 125: pts(1).y = 75
pts(2).x = 255: pts(2).y = 148
pts(3).x = 219: pts(3).y = 199
pts(4).x = 315: pts(4).y = 203
pts(5).x = 236: pts(5).y = 16
pts(6).x = 122: pts(6).y = 123
'set the forecolor to green
Me.ForeColor = vbGreen
'draw the bézier
PolyBezier Me.hdc, pts(0), 7
'set the forecolor to red
Me.ForeColor = vbRed
'move the 'active' point
MoveToEx Me.hdc, 200, 25, ByVal 0&
'set the coördinates
pts(0).x = 125: pts(0).y = 50
pts(1).x = 123: pts(1).y = 200
pts(2).x = 102: pts(2).y = 100
pts(3).x = 102: pts(3).y = 100
pts(4).x = 312: pts(4).y = 75
pts(5).x = 289: pts(5).y = 125
'draw the bézier
PolyBezierTo Me.hdc, pts(0), 6
'set the forecolor to blue
Me.ForeColor = vbBlue
'set the points belonging to the rectangle
pts(0).x = 20: pts(0).y = 10
pts(1).x = 200: pts(1).y = 10
pts(2).x = 200: pts(2).y = 190
pts(3).x = 20: pts(3).y = 190
numpoints(0) = 4
'set the points belonging to the triangle
pts(4).x = 100: pts(4).y = 0
pts(5).x = 50: pts(5).y = 100
pts(6).x = 150: pts(6).y = 100
numpoints(1) = 3
'draw the polygons
PolyPolygon Me.hdc, pts(0), numpoints(0), 2
End Sub

--
Fox Trot

objet de courbe

4 réponses

Veuillez sélectionner un problème