Γραφικές παραστάσεις
Η σχεδίαση τυποποιημένων γραφικών παραστάσεων από αριθμητικά δεδομένα
γίνεται στη Visual Basic το όργανο Chart
(το προσθέτουμε ως Microsoft Chart Control από την επιλογή Project - Components).
Το όργανο εμφανίζεται με την παρακάτω μορφή:
Για να χρησιμοποιήσουμε το όργανο αυτό ακολουθούμε τα παρακάτω βήματα:
- Θέτουμε την ιδιότητα chartType σύμφωνα με το είδος του γραφήματος
που θέλουμε να σχεδιάσουμε.
Υποστηρίζονται οι παρακάτω σταθερές για τους αντίστοιχους τύπους γραφημάτων:
Constant | Description |
VtChChartType3dBar | 3D Bar |
VtChChartType2dBar | 2D Bar |
VtChChartType3dLine | 3D Line |
VtChChartType2dLine | 2D Line |
VtChChartType3dArea | 3D Area |
VtChChartType2dArea | 2D Area |
VtChChartType3dStep | 3D Step |
VtChChartType2dStep | 2D Step |
VtChChartType3dCombination | 3D Combination |
VtChChartType2dCombination | 2D Combination |
VtChChartType2dPie | 2D Pie |
VtChChartType2dXY | 2D XY |
- Θέτουμε την ιδιότητα columnCount στον αριθμό στηλών των δεδομένων που θέλουμε να εμφανίσουμε.
- Θέτουμε την ιδιότητα rowCount στον αριθμό στηλών των δεδομένων που θέλουμε να εμφανίσουμε.
- Για κάθε τιμή που περιέχεται στο γράφημα θέτουμε τις ιδιότητες
Row και Column στις συντεταγμένες της αντίστοιχης τιμής και στη
συνέχεια την ιδιότητα Data στην τιμή που αντιστοιχεί στις συντεταγμένες εκείνες.
- Θέτουμε άλλες ιδιότητες για να αλλάξουμε τον τρόπο εμφάνισης του
γραφήματος.
Μερικές από τις ιδιότητες αυτές είναι οι AllowDithering,
BorderStyle, Chart3d, Backdrop, ColumnLabel, Legend, Stacking, TitleText.
- Μερικές φορές για να αυξήσουμε την ταχύτητα του εμφάνισης των στοιχείων
κάνουμε το όργανο αρχικά αόρατο με την ιδιότητα Visible και το εμφανίζουμε μόνο
όταν θέσουμε τιμές σε όλα τα στοιχεία.
- Μπορούμε να μεταφέρουμε δεδομένα από ένα τμήμα του γραφήματος σε άλλο
με τις μεθόδους SelectPart, EditCopy, EditPaste.
- Μπορούμε να συνδέσουμε ένα γράφημα με δεδομένα σε έναν πίνακα ή
σε μια βάση δεδομένων με την ιδιότητα DataGrid.
Παράδειγμα (αφού προσθέσουμε ένα όργανο με όνομα MSChart1):
Private Sub Command1_Click()
With Form1.MSChart1
' Displays a 3d chart with 8 columns and 8 rows
.chartType = VtChChartType3dArea
.ColumnCount = 8
.ShowLegend = False
.RowCount = 8
For Column = 1 To 8
For Row = 1 To 8
.Column = Column
.Row = Row
.Data = Row * 10 + Column * 3 + Rnd * 40
Next Row
Next Column
End With
End Sub
Εμφανίζει το παρακάτω γράφημα: