OVH Cloud OVH Cloud

Graphisme

5 réponses
Avatar
Jean-Michel
Bonjour,

Je voudrais savoir ce qu'il faut utiliser pour faire un graphique tout
simple, je dois representer une barre et que ca represente chaque coupe de
cette barre par des variables ( longueur de la coupe ) dans un tableau par
exemple ...

Merci de m'aiguiller

5 réponses

Avatar
Clive Lumb
Coller le suivant dans un form vide
Private Sub Form_Activate()
Dim Coupes(1 To 5) As Single
Dim LBarre As Single
Dim I As Integer
Dim Espace As Single
Dim Hauteur As Single
Hauteur = 10
LBarre = 3.2
Coupes(1) = 0.25
Coupes(2) = 0.75
Coupes(3) = 1.1
Coupes(4) = 2.5
Coupes(5) = 2.9
Espace = LBarre / 100
Me.ScaleWidth = LBarre + 5 * Espace

Me.ScaleHeight = 100
Me.Line (0, 0)-(Coupes(1), Hauteur), vbBlue, BF

For I = 2 To 5
Me.Line Step(Espace, -Hauteur)-Step(Coupes(I) - Coupes(I - 1), Hauteur),
vbBlue, BF
Next I

End Sub




"Jean-Michel" a écrit dans le
message de news:
Bonjour,

Je voudrais savoir ce qu'il faut utiliser pour faire un graphique tout
simple, je dois representer une barre et que ca represente chaque coupe de
cette barre par des variables ( longueur de la coupe ) dans un tableau par
exemple ...

Merci de m'aiguiller




Avatar
Clive Lumb
J'ai oublié une ligne à mettre après le "next I"
Me.Line Step(Espace, -Hauteur)-Step(LBarre, Hauteur), vbBlue, BF


"Jean-Michel" a écrit dans le
message de news:
Bonjour,

Je voudrais savoir ce qu'il faut utiliser pour faire un graphique tout
simple, je dois representer une barre et que ca represente chaque coupe de
cette barre par des variables ( longueur de la coupe ) dans un tableau par
exemple ...

Merci de m'aiguiller




Avatar
Jean-Michel
Merci ca marche super ton truk, mais je voudrai savoir, comment supprimer la
barre apres !

Merci !

"Clive Lumb" a écrit dans le message news:

J'ai oublié une ligne à mettre après le "next I"
Me.Line Step(Espace, -Hauteur)-Step(LBarre, Hauteur), vbBlue, BF


"Jean-Michel" a écrit dans le
message de news:
> Bonjour,
>
> Je voudrais savoir ce qu'il faut utiliser pour faire un graphique tout
> simple, je dois representer une barre et que ca represente chaque coupe


de
> cette barre par des variables ( longueur de la coupe ) dans un tableau


par
> exemple ...
>
> Merci de m'aiguiller
>
>




Avatar
Clive Lumb
Au lieu de le dessiner sur la forme (qui n'était qu'un exemple) on le
dessine dans un picturebox. Ensuite on peut utiliser la méthode .Clear pour
l'effacer.

"Jean-Michel" a écrit dans le
message de news:%
Merci ca marche super ton truk, mais je voudrai savoir, comment supprimer


la
barre apres !

Merci !

"Clive Lumb" a écrit dans le message news:

> J'ai oublié une ligne à mettre après le "next I"
> Me.Line Step(Espace, -Hauteur)-Step(LBarre, Hauteur), vbBlue, BF
>
>
> "Jean-Michel" a écrit dans le
> message de news:
> > Bonjour,
> >
> > Je voudrais savoir ce qu'il faut utiliser pour faire un graphique tout
> > simple, je dois representer une barre et que ca represente chaque


coupe
de
> > cette barre par des variables ( longueur de la coupe ) dans un tableau
par
> > exemple ...
> >
> > Merci de m'aiguiller
> >
> >
>
>




Avatar
Jean-Michel
Tres bien merci beaucoup !

"Clive Lumb" a écrit dans le message news:
e#
Au lieu de le dessiner sur la forme (qui n'était qu'un exemple) on le
dessine dans un picturebox. Ensuite on peut utiliser la méthode .Clear


pour
l'effacer.

"Jean-Michel" a écrit dans le
message de news:%
> Merci ca marche super ton truk, mais je voudrai savoir, comment


supprimer
la
> barre apres !
>
> Merci !
>
> "Clive Lumb" a écrit dans le message news:
>
> > J'ai oublié une ligne à mettre après le "next I"
> > Me.Line Step(Espace, -Hauteur)-Step(LBarre, Hauteur), vbBlue, BF
> >
> >
> > "Jean-Michel" a écrit dans le
> > message de news:
> > > Bonjour,
> > >
> > > Je voudrais savoir ce qu'il faut utiliser pour faire un graphique


tout
> > > simple, je dois representer une barre et que ca represente chaque
coupe
> de
> > > cette barre par des variables ( longueur de la coupe ) dans un


tableau
> par
> > > exemple ...
> > >
> > > Merci de m'aiguiller
> > >
> > >
> >
> >
>
>