Error en visual basic de Vchart
Publicado: 06 Jul 2006 14:17
alguien sabe porque puede pasar esto ?
S2
'¡¡ Parameters
'Parameters !!
Const Data As Long = 0
Dim DX5 As Long
Dim AvExponentialDX5 As Long
Option Explicit
Public APP As OscUserApp
Implements Indicator
Public Sub Indicator_OnInitCalculate()
With APP
DX5 = .GetSymbolIdentifier("010015DX", 5, crMinutos, "02/01/2001", "01/01/2037")
AvExponentialDX5 = .GetIndicatorIdentifier(AvExponential, DX5, 200, PriceClose)
.StartBar = 0
End With
End Sub
Public Sub Indicator_OnCalculateBar(ByVal Bar As Long)
With APP
If .Close(0, DX5) > .GetIndicatorValue(AvExponentialDX5) Then
.SetIndicatorValue 1
Else
.SetIndicatorValue 0
End If
End With
End Sub
S2
'¡¡ Parameters
'Parameters !!
Const Data As Long = 0
Dim DX5 As Long
Dim AvExponentialDX5 As Long
Option Explicit
Public APP As OscUserApp
Implements Indicator
Public Sub Indicator_OnInitCalculate()
With APP
DX5 = .GetSymbolIdentifier("010015DX", 5, crMinutos, "02/01/2001", "01/01/2037")
AvExponentialDX5 = .GetIndicatorIdentifier(AvExponential, DX5, 200, PriceClose)
.StartBar = 0
End With
End Sub
Public Sub Indicator_OnCalculateBar(ByVal Bar As Long)
With APP
If .Close(0, DX5) > .GetIndicatorValue(AvExponentialDX5) Then
.SetIndicatorValue 1
Else
.SetIndicatorValue 0
End If
End With
End Sub