Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: MSChart Element Liniendiagramm
Autor: noroot
Datum: 16.05.06 22:55
SO Hab die Loesung nun bereits: Private Sub Timer7_Timer() Dim freierram, gesamterram, swapfree, swapal, virtal, virtfre As String ' Makes Axis title visible for all axes of a ' 3D chart. Static i As Integer With MSChart1.DataGrid .ColumnCount = 6 .RowCount = 61 If i > 60 Then i = 0 freierram = (Messctrl1.ausgabe_phys_ram_free / 1024) / 1024 gesamterram = (Messctrl1.ausgabe_phys_ram_total / 1024) / 1024 swapal = (Messctrl1.ausgabe_swap_file_total / 1024) / 1024 swapfree = (Messctrl1.ausgabe_swap_file_free / 1024) / 1024 virtal = (Messctrl1.ausgabe_virt_ram_total / 1024) / 1024 virtfre = (Messctrl1.ausgabe_virt_ram_free / 1024) / 1024 .SetData i + 1, 1, freierram, False .SetData i + 1, 2, gesamterram, False .SetData i + 1, 3, swapfree, False .SetData i + 1, 4, swapal, False .SetData i + 1, 5, virtal, False .SetData i + 1, 6, virtfre, False .RowLabel(i + 1, 1) = "" .ColumnLabel(1, 1) = "Freier physikalischer RAM" .ColumnLabel(2, 1) = "Gesamter physikalischer RAM" .ColumnLabel(3, 1) = "Swap Datei frei" .ColumnLabel(4, 1) = "Gesamte Swap Dateigroese" .ColumnLabel(5, 1) = "Virtalell Gesamter Speicher" .ColumnLabel(6, 1) = "Virtuell freier Speicher" End With i = i + 1 End Sub Private Sub Form_Load() Option2.Value = True Dim XAxis As Object Set XAxis = MSChart1.Plot.Axis(VtChAxisIdX, 1) With MSChart1 .TitleText = "Datenuebersicht im Linien/Diagramm in Megabyte" .chartType = VtChChartType2dLine End With End Sub

MSChart Element Liniendiagramm	3.214	noroot	15.05.06 22:00
Re: Diagramm - Diagramm ziel grafikbeispiel	1.276	noroot	16.05.06 05:31
Re: MSChart Element Liniendiagramm	1.303	noroot	16.05.06 22:55

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen