Llamadas a funciones en VisualChart

De FinancialPedia

La diferencia con respecto a los procedimientos es que las funciones devuelven un valor

Un ejemplo de funcion sería el siguiente

Public Function DibujarPatronHCH() As Boolean
With APP
Dim BarActual&
Dim BMinInitLS&, BMaxLS&, BMinLS&, BMaxH&, BMinH&, BMaxRS&, BMinEnd&
Dim PMinInitLS#, m#
    BarActual = .CurrentBar
    '-- Comprobar que hay 3 Max y 2 Min
    If BMax1 <> 0 And BMax2 <> 0 And BMax3 <> 0 And BMin1 <> 0 And BMin2 <> 0 Then
        BMaxLS = BarActual - BMax1: BMaxH = BarActual - BMax2: BMaxRS = BarActual - BMax3
        BMinLS = BarActual - BMin1: BMinH = BarActual - BMin2: BMinEnd = BarActual - BMin3
        '-- Calculate InitLS
        m = (PMin2 - PMin1) / (BMinLS - BMinH)
        BMinInitLS = BMaxLS + (BMaxLS - BMinLS)
        PMinInitLS = PMin1 + (m * (BMinLS - BMinInitLS))
        'Left Shoulder Advancing Line
        LineaA_B BMinInitLS, BMaxLS, .GetPrice(PriceBottom, BMinInitLS), PMax1, Linea1, BMaxLS
        'Left Shoulder Decline Line
        LineaA_B BMaxLS, BMinLS, PMax1, PMin1, Linea1, BMinLS
        'Head Advancing Line
        LineaA_B BMinLS, BMaxH, PMin1, PMax2, Linea1, BMaxH
        'Head Decline Line
        LineaA_B BMaxH, BMinH, PMax2, PMin2, Linea1, BMinH
        'Right Shoulder Advancing Line
        LineaA_B BMinH, BMaxRS, PMin2, PMax3, Linea1, BMaxRS
        'Right Shoulder Decline Line
        LineaA_B BMaxRS, BMinEnd, PMax3, .GetPrice(PriceBottom, BMinEnd), Linea1, BMinEnd
        'Neckline
        LineaA_B BMinInitLS, BMinLS, PMinInitLS, PMin1, Linea2, BMinEnd
    End If
End With
End Function