F: CODIGO FUENTE INDICADOR MANSFIELD PARA VC5.

Para quien pueda ser de utilidad os adjunto el código fuente del indicador RSC Mansfield para Visual Chart 5.

Si alguien tiene dudas como instalarlo me lo comenta y con mucho gusto pongo los pasos.


'¡¡ Parameters
Dim Period As Long '52
Dim Factor As Double '10
'Parameters !!
Option Explicit
Public APP As OscUserApp
Implements Indicator
Public Sub Indicator_OnInitCalculate()
With APP
.StartBar = Period - 1
End With
End Sub
Public Sub Indicator_OnCalculateBar(ByVal Bar As Long)
With APP
Dim BasePrice#, i&, CountR#, R#, PR#
For i = (Period - 1) To 0 Step -1
R = 0
If .Close(i, Data2) <> 0 Then R = .Close(i, Data1) / .Close(i, Data2)
CountR = CountR + R
Next
If Period <> 0 Then BasePrice = CountR / Period
If BasePrice <> 0 Then PR = ((R / BasePrice) - 1) * Factor
.SetIndicatorValue PR, 1
.SetIndicatorValue 0, 2
End With
End Sub
Public Sub Indicator_OnSetParameters(ParamArray ParamList() As Variant)
'¡¡ Parameters initialization
Period = ParamList(1)
Factor = ParamList(2)
'Parameters initialization !!
End Sub
Public Sub Indicator_OnCalculateRange(ByVal StartBar As Long, ByVal FinalBar As Long)
Dim i As Long
i = APP.StartBar
If StartBar > i Then
i = StartBar
End If
While Not APP.ShouldTerminate And i <= FinalBar
APP.CurrentBar = i
Indicator_OnCalculateBar i
i = i + 1
Wend
End Sub
Private Sub OscUserAppInstance_OnConnection(ByVal Application As OscUserApp, ByVal MTDllInst As Object, Custom() As Variant)
Set APP = Application
End Sub