VB6 - MSChartControl - X Achse Skalieren

[Philipp (Gast)]

Hi,

ich bekomme über die Serielle Schnittstelle jede Sekunde Daten, die ich 
jede Sekunde live Plotten möchte. Im Anhang ist ein Testgraph als PDF, 
weil ich das direkt mit einem PDF Drucker aus VB6 gedruckt habe.
Ich schaffe es aber nicht die vertikalen Striche einzustellen. Ich 
möchte die variabel verändern können. Jeder Punkt soll geplotet werden, 
aber nur alle z.b. 30Sek soll ein vertikal Strich sein, unter dem 
außerdem noch die Sekunden stehen.
Hier ist mein Testprogramm, aber ich konnte nichts finden, wie ich das 
so einstellen kann. Ich hoffe ihr könnt mir helfen.
Lg
Philipp

Private Sub chart_setup()
    With MSChart1
        .Plot.Axis(VtChAxisIdX).AxisTitle = "Zeit in Sekunden"
        .Plot.Axis(VtChAxisIdY).AxisTitle = "Spannung/Strom in Volt/Ampere"
        
        .ShowLegend = True
        '4 Graphen für Zellen und Strom
        .ColumnCount = 4
        .Column = 1
        .ColumnLabel = "Zelle 1"
        
        .Column = 2
        .ColumnLabel = "Zelle 2"
        
        .Column = 3
        .ColumnLabel = "Zelle 3"
        
        .Column = 4
        .ColumnLabel = "Strom"
        'Aktuell nur 1 Reihe, wird mehr, mit mehr Empfang
        .RowCount = 100
        .Row = 1
        
        Dim i As Integer
        For i = 1 To 100
            .RowLabel = ""
            .Row = i
            .Column = 1
            .Data = 2
            
            .Column = 2
            .Data = 3
            
            .Column = 3
            .Data = 4
            
            .Column = 4
            .Data = 8
        Next i
        
    End With
End Sub