Lieber Besucher, herzlich willkommen bei: INVESTOX-Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
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 |
aber Fehlermeldung in Investox