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!
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.