Llamadas a procedimientos en VisualChart

De FinancialPedia

Para poder organizar el codigo es interesante utilizar llamadas a procedimientos estos

El ejemplo que comentamos a continuacion recibe los parametros:

• Barx1
• Barx2
• x1
• x2
• Linea
• BarX

Definiendo unas variables al principio

' Pinta una linea partiendo de los extremos de la linea, separados en el tiempo
Public Sub LineaA_B(Barx1 As Long, Barx2 As Long, x1 As Double, x2 As Double, Linea As Integer, BarX As Long)
With APP
Dim m#, i&, ValX#, BarValX#
    If (Barx1 - Barx2) <> 0 Then m = (x2 - x1) / (Barx1 - Barx2)
    .SetIndicatorValue x1, Linea, Barx1
    For i = Barx1 - 1 To BarX Step -1
        ValX = m * (Barx1 - i) + x1
        .SetIndicatorValue ValX, Linea, i
    Next i
End With
End Sub