X-Achse innerhalb eines OWC10.Objektes
12.08.2008 13:39:59
Marc
da der Topic etwas limitiert ist werde ich hier versuchen mein Problem einwenig zu verdeutlichen .. folgendes stellt sich mir dar
ich versuche eine Unmenge an Daten mittels eines OWC10.Objektes innerhalb einer Userform garphisch darzustellen. Dabei werden die minutenweise generierten Werte und die dazugehörige Zeit in zwei frei dimensionierte Arrays geschrieben. Wählt man nun mittels verschiedener DTPicker einen Zeitrahmen aus, dann sollten die Werte in die y-Achse wandern und der Zeitrahmen auf der x-Achse dargestellt werden.
Soweit, sogut .. mit den y-Werten ist das alles kein Problem, aber wenn er den Graph erstellt, dann sind keine Zeitangaben vorhanden, sondern nur die Adressierung des Zeitwertes innerhalb des Arrays, sprich wenn 12:00:00 in dem Array die Adressierung Zeiten(10) hat wird auch nur die 10 in der x-Achse eingetragen.
Sehr verwirrend das Ganze, aber vielleicht habt ja ihr eine Idee
Codeauszug:
Call DTPickerZeitVarianten
For k = 1 To UBound(ParaAuswahlList.Auswahl, 2)
tmpDaten = GetParameterAuswahl(ParaAuswahlList, g, k)
ReDim Preserve xValues(k)
xValues(k) = tmpDaten.UhrZeit & ":00"
ReDim Preserve yValues(k)
yValues(k) = tmpDaten.wert
ReDim Preserve dValues(k)
dValues(k) = tmpDaten.Datum
Next k
Point = 1
For q = 1 To UBound(Zeiten)
For x = Point To UBound(xValues)
If Zeiten(q) = xValues(x) Then
ReDim Preserve Werte(q)
ReDim Preserve Datum(q)
Datum(q) = dValues(x)
dMerken = dValues(x)
Werte(q) = yValues(x)
ersterWert = yValues(x)
ersterWert = StrReplace(ersterWert, ".", ",")
If x = UBound(xValues) Then
Exit For
Else
zweiterWert = yValues(x + 1)
zweiterWert = StrReplace(zweiterWert, ".", ",")
Mittelwert = CDbl(zweiterWert / 2) + CDbl(ersterWert / 2)
Mittelwert = StrReplace(Mittelwert, ",", ".")
End If
x = x + 1
Point = x
Exit For
Else
ReDim Preserve Werte(q)
ReDim Preserve Datum(q)
If ParaTyp 0
If ScaleMax 0 Then .SetData chDimValues, chDataLiteral, Zeiten
.SetData chDimValues, chDataLiteral, Werte
If ParaTyp = 7 Or ParaTyp = 8 Then .Type = chChartTypeColumnClustered
If ParaTyp
vielen Dank im voraus, denn ich bin einwenig überfragt
Gruß Marc