Hallo,
ich habe ein Problem.
Eine Grafik enthält mehrere Gruppenfelder mit Temperatur und Luftfeuchte Angaben und einem Button "Chart Anzeigen"
Beim ersten Erstellen werden die Gruppenfelder ordnungsgemäss aufgebaut und der Chart1 ebenso (er enthält die Daten der Gruppe1).
Wenn man jetzt die Daten vom Gruppe 2 mittels Button aufrufen will, kommt folgende Fehlermeldung:
Der Index lag außerhalb des Bereiches. Er muss nicht negativ und kleiner als die Auflistung sein.
Parametername: index
Der Unterschied zum 1. Aufbau ist ein Chart1.series.clear in der else Abfrage der Variablen "SG"
Beim ersten Aufruf der .Series(s).Points.AddXY(DatenArray(j, k, 5), DatenArray(j, k, s))
springt das Programm in den Catch ex...
und Tschüs.
Muss ich was auf 0 Stellen oder löschen oder ... ich weiss nicht.
Danke an alle, die nun mit mir leiden wollen
Gruß conger890
ich habe ein Problem.
Eine Grafik enthält mehrere Gruppenfelder mit Temperatur und Luftfeuchte Angaben und einem Button "Chart Anzeigen"
Beim ersten Erstellen werden die Gruppenfelder ordnungsgemäss aufgebaut und der Chart1 ebenso (er enthält die Daten der Gruppe1).
Wenn man jetzt die Daten vom Gruppe 2 mittels Button aufrufen will, kommt folgende Fehlermeldung:
Der Index lag außerhalb des Bereiches. Er muss nicht negativ und kleiner als die Auflistung sein.
Parametername: index
Der Unterschied zum 1. Aufbau ist ein Chart1.series.clear in der else Abfrage der Variablen "SG"
VB.NET-Quellcode
- Function GraficBauen(ByVal Messpl As Integer) As Boolean
- Dim LinienBreite As Integer = 5
- Dim SG as Boolean ' Schalter, der ein wiedeholtes Zeichen der Grunddaten verhindert
- Try
- With (Chart1)
- If SG = False Then
- .Series(0).Name = "LuftTemp"
- .Series(0).ChartType = SeriesChartType.Line
- .Series(0).BorderWidth = LinienBreite
- .Series(0).Color = Color.CadetBlue
- .Series.Add("LuftFeuchte")
- .Series(1).ChartType = SeriesChartType.Line
- .Series(1).BorderWidth = LinienBreite
- .Series(1).Color = Color.Blue
- .Series.Add("SubstratTemp")
- .Series(2).ChartType = SeriesChartType.Line
- .Series(2).BorderWidth = LinienBreite
- .Series(2).Color = Color.Aquamarine
- .Series.Add("Taupunkt")
- .Series(3).ChartType = SeriesChartType.Line
- .Series(3).BorderWidth = LinienBreite
- .Series(3).Color = Color.Orange
- .Series.Add("Differenz")
- .Series(4).ChartType = SeriesChartType.Line
- .Series(4).BorderWidth = LinienBreite
- SG = True
- else
- .Series.clear()
- end if
- 'Hier erfolgt das Zeichnen der einzelnen Punkte
- Dim k As Integer = 3
- For j As Integer = 0 To 48
- For s As Integer = 0 To 4
- .Series(s).Points.AddXY(DatenArray(j, k, 5), DatenArray(j, k, s))
- Next
- Next
- End With
- Return True
- Catch ex As Exception
- MessageBox.Show(ex.Message)
- Return False
- End Try
- End Function
Beim ersten Aufruf der .Series(s).Points.AddXY(DatenArray(j, k, 5), DatenArray(j, k, s))
springt das Programm in den Catch ex...
und Tschüs.
Muss ich was auf 0 Stellen oder löschen oder ... ich weiss nicht.
Danke an alle, die nun mit mir leiden wollen
Gruß conger890