Querido D. Francisco:
Llevo más de cinco horas intentando que me funciones el archivo Llinares en un spread que puso sobre el Bund y el Bobl (y en todos los demás) y no consigo que me salga. Los parámetros: Una vez instalada la herramienta, para confeccionar el indicador se inserta primero el gráfico del fut. del BOBL - Después el del BUND, por último, se inserta el indicador "llinares" poniendo los siguientes parámetros:
Price Source = Data1
Factor1 = 2
Factor2 = -1
Factor3 = 0
Factor4 = 0
Factor5 = 0
Donde los modifico?
'¡¡ Parameters
Dim Factor1 As Double '1
Dim Factor2 As Double '2
Dim Factor3 As Double '3
Dim Factor4 As Double '4
Dim Factor5 As Double '5
Const Data As Long = 0
Const Data1 As Long = 1
Const Data2 As Long = 2
Const Data3 As Long = 3
Const Data4 As Long = 4
Const Data5 As Long = 5
'Parameters !!
Dim Valor_Indicador As Double
Option Explicit
Public APP As OscUserApp
Implements Indicator
Public Sub Indicator_OnInitCalculate()
With APP
.StartBar = 0
End With
End Sub
Public Sub Indicator_OnCalculateBar(ByVal Bar As Long)
With APP
Valor_Indicador = 0
If Factor1 <> 0 Then
Valor_Indicador = Valor_Indicador + Factor1 * .Close(0, Data1)
End If
If Factor2 <> 0 Then
Valor_Indicador = Valor_Indicador + Factor2 * .Close(0, Data2)
End If
If Factor3 <> 0 Then
Valor_Indicador = Valor_Indicador + Factor3 * .Close(0, Data3)
End If
If Factor4 <> 0 Then
Valor_Indicador = Valor_Indicador + Factor4 * .Close(0, Data4)
End If
If Factor5 <> 0 Then
Valor_Indicador = Valor_Indicador + Factor5 * .Close(0, Data5)
End If
.SetIndicatorValue Valor_Indicador
End With
End Sub
Public Sub Indicator_OnSetParameters(ParamArray ParamList() As Variant)
'¡¡ Parameters initialization
Factor1 = ParamList(1)
Factor2 = ParamList(2)
Factor3 = ParamList(3)
Factor4 = ParamList(4)
Factor5 = ParamList(5)
'Parameters initialization !!
Lamento ser tan ignorante, pero voluntad le pongo.
Cuente conmigo para lo que necesite, de verdad. Me voy a la cama que hay que madrugar.
Quizás mañana lo pueda sacar, que Vd. estará ocupado en cosas más importantes. Mckorr
