INVESTOX-Forum

Quellcode

Public Class SimpleGD
    <System.Runtime.InteropServices.ComVisible(True)> Public Function Calculate(ByRef cDaten As KSEImportExport7.KSEDataCollection, ByRef Parameter As Object, ByRef Ergebnis As Object) As Integer
        ' Dieser Indikator zeigt, wie auf die Formelmaschine von Investox zugegriffen
        ' werden kann. Der Indikator berechnet einfach einen gleitenden Durchschnitt,
        ' wobei die Berechnungsbasis als 1. und die Perioden als 2. Parameter übergeben
        ' werden.
        ' Ab Version 3.2 von Investox kann cDaten auch als "KSEDataCollection" deklariert werden

        On Error GoTo FehlerAllgemein

        '' Variablen-Deklarationen
        Dim i As Long
        Dim StartI As Long
        Dim EndI As Long
        Dim DatenKey As String
        Dim Perioden As Long
        Dim Formel As String

        On Error GoTo FehlerDaten
        '' hier nichts zu tun

        On Error GoTo FehlerParameter

        DatenKey = Parameter(1) ' Der Zeiger auf die zu glättenden Daten
        Perioden = Parameter(2)
        If Perioden < 1 Then ' <1 nicht zulässig!
            Perioden = 1
        End If

        On Error GoTo FehlerAllgemein

        ' Nun die Formel konstruieren: ein Standard-gleitender Durchschnitt
        ' der mit den angegebenen Perioden für die angebebenen Daten durchgeführt wird
        Formel = "GD(" & DatenKey & ", " & Perioden & ",S)"
        '' Die Formel von der Formelmaschine berechnen lassen:
        Dim ErgID$
        ErgID = "_@@TempErg" & Format$(Rnd() * 30000, "00000") & "@" & Format$(Rnd() * 30000, "00000") & "@_"
        Dim Formelmaschine As Object
        Formelmaschine = cDaten("#_InvFormelMaschine#")
        If Formelmaschine.BerechneInvestoxFormel(Formel, ErgID) = True Then
            Ergebnis = cDaten(ErgID)
            cDaten.Remove(ErgID)
            Calculate = True ' Berechnung OK
        Else
            Calculate = Formelmaschine.FehlerNr
        End If

Rücksprung:
        Exit Function

FehlerAllgemein:
        ' Hier gflls. Fehlerbehandlung
        Calculate = ErrExternIndiFehler
        Resume Rücksprung

FehlerDaten:
        ' Hier gflls. Fehlerbehandlung
        Calculate = ErrNoData
        Resume Rücksprung

FehlerParameter:
        ' Hier gflls. Fehlerbehandlung
        Calculate = ErrInvalidParameter
        Resume Rücksprung
    End Function

End Class