Histogramme

Soyez le premier à donner votre avis sur cette source.

Vue 4 623 fois - Téléchargée 782 fois

Description

Traçage d'histogramme en fonction des effectifs d'un tableau données.
Les données sont obtenu aléatoirement.
Traçage du repère, puis de chaque élément du tableau avec coloration des histogrammes.
Vous pouvez superposés des séries de données!

Source / Exemple :


Public Sub les_courbes(abscisse As Double, ordonnee As Double, t() As Double, coul As ColorConstants, Optional epaisseur As Integer = 1)
    Dim i As Double:    Me.DrawWidth = 5
    Me.Line (100, 100)-(100, (70 * ordonnee) + 1000), vbWhite 'axe des ordonnées
    Me.Line (100, (70 * ordonnee) + 1000)-((70 * abscisse) + 270, (70 * ordonnee) + 1000), vbWhite 'axe des abscisses
    For i = ((70 * ordonnee) + 800) To 0 Step -200
        FontSize = 12:      FontBold = True:        FontItalic = False:     ForeColor = vbBlack
        CurrentX = 75:        CurrentY = i:        Print "-"
    Next i
    For i = 0 To abscisse
        Me.DrawWidth = Abs(epaisseur)
        Me.Line ((i * 70) + 200, ordonnee + 1000 - t(i))-((i * 70) + 200, (70 * ordonnee) + 900), coul 'les histogrammes
        FontSize = 4:         FontBold = False:        FontItalic = False:  ForeColor = coul
        Print Right$(t(i), 1) 'les xi
    Next i
End Sub

Conclusion :


Dans le zip!

Codes Sources

A voir également

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.