Γραφικές παραστάσεις

Η σχεδίαση τυποποιημένων γραφικών παραστάσεων από αριθμητικά δεδομένα γίνεται στη Visual Basic το όργανο Chart (το προσθέτουμε ως Microsoft Chart Control από την επιλογή Project - Components). Το όργανο εμφανίζεται με την παρακάτω μορφή:

Για να χρησιμοποιήσουμε το όργανο αυτό ακολουθούμε τα παρακάτω βήματα:

  1. Θέτουμε την ιδιότητα chartType σύμφωνα με το είδος του γραφήματος που θέλουμε να σχεδιάσουμε. Υποστηρίζονται οι παρακάτω σταθερές για τους αντίστοιχους τύπους γραφημάτων:
    ConstantDescription
    VtChChartType3dBar3D Bar
    VtChChartType2dBar2D Bar
    VtChChartType3dLine3D Line
    VtChChartType2dLine2D Line
    VtChChartType3dArea3D Area
    VtChChartType2dArea2D Area
    VtChChartType3dStep3D Step
    VtChChartType2dStep2D Step
    VtChChartType3dCombination3D Combination
    VtChChartType2dCombination2D Combination
    VtChChartType2dPie2D Pie
    VtChChartType2dXY2D XY
  2. Θέτουμε την ιδιότητα columnCount στον αριθμό στηλών των δεδομένων που θέλουμε να εμφανίσουμε.
  3. Θέτουμε την ιδιότητα rowCount στον αριθμό στηλών των δεδομένων που θέλουμε να εμφανίσουμε.
  4. Για κάθε τιμή που περιέχεται στο γράφημα θέτουμε τις ιδιότητες Row και Column στις συντεταγμένες της αντίστοιχης τιμής και στη συνέχεια την ιδιότητα Data στην τιμή που αντιστοιχεί στις συντεταγμένες εκείνες.
  5. Θέτουμε άλλες ιδιότητες για να αλλάξουμε τον τρόπο εμφάνισης του γραφήματος. Μερικές από τις ιδιότητες αυτές είναι οι AllowDithering, BorderStyle, Chart3d, Backdrop, ColumnLabel, Legend, Stacking, TitleText.
Παράδειγμα (αφού προσθέσουμε ένα όργανο με όνομα 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
Εμφανίζει το παρακάτω γράφημα: