Un usercontrol pour les diagrammes, courbes et autres, avec possibilité de faire des courbes de tendance

Télécharger le projet
Commenter

Description

Un ptit UserControl qui permet de faire de jolies courbes en couleur et tout et tout.

On commence par créer une série ( TGraphSerie ), on y ajoute ensuite des points ( TGraphDonnee ), et on insère la série dans le graphique ( ColSeries.add ).

Ensuite, tout se fait à la souris:
- Déplacements du graphique;
- Options d'affichage;
- Ajout de courbes de tendances;
- ...

Dites moi si c'est bien ou tout pourri, ce qui est inutile ou manquant, enfin lachez-vous quoi...

Source / Exemple : 


Un bout de code exemple, à mettre dans une form avec le control:

Private Sub Form_Activate()
    Dim s As TGraphSerie
    Dim i As Double
    Dim d As TGraphDonnee
    Dim j As Integer
    For j = 1 To 5
        Set s = New TGraphSerie
        s.Nom = "Test " + CStr(j)
        For i = 0 To 2 Step 0.1
            Set d = New TGraphDonnee
            d.x = i
            d.y = 1 + i + i ^ (j + 1)
            s.AddPoint d
        Next
        KGraphControl1.AddSerie s
    Next
    KGraphControl1.AxeX.Max = 2
    KGraphControl1.AxeX.Min = 0
    KGraphControl1.AxeX.Pas = 0.5
    KGraphControl1.AxeY.Max = 30
    KGraphControl1.AxeY.Min = 0
    KGraphControl1.MajGlobale
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.