INVESTOX-Forum

Quellcode

Public Class MyMACD
    <System.Runtime.InteropServices.ComVisible(True)> Public Function Calculate(ByRef cDaten As KSEImportExport7.KSEDataCollection, ByRef Parameter As Object, ByRef Ergebnis As Object) As Integer
        On Error GoTo FehlerAllgemein

        ' Variablen-Deklarationen
        Dim Formel As String
        Dim IndiArt As Long
        Dim ErgID As String
        Dim i As Long

        IndiArt = Parameter(1) ' Übergebener Parameter

        On Error GoTo FehlerAllgemein
        Formel = "MACD(open)"
        ' Die Formel von der Formelmaschine berechnen lassen:
        ErgID = "_@@TempErg" & Format$(Rnd() * 30000, "00000") & "@" & Format$(Rnd() * 30000, "00000") & "@_"
        Dim Formelmaschine As Object
        If IndiArt = 1 Then  ' Berechne den MACD
            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
        Else 'IndiArt=0 ->> Gebe eine Zeitreihe mit "0" zurück
            For i = LBound(Ergebnis) To UBound(Ergebnis)
                Ergebnis(i) = 0
            Next i
        End If

Rücksprung:
        Exit Function

FehlerAllgemein:
        Calculate = ErrExternIndiFehler
        Resume Rücksprung

    End Function

End Class