Module Matematikai_alaprutinok
#Region "Általános matemetikai függvények"

    'Abs: abszolút érték
    Sub AbszolútÉrték()
        Debug.Print(Math.Abs(5)) '5
        Debug.Print(Math.Abs(-5)) '5
    End Sub

    'Round: Kerekítés
    Sub Kerekít()
        '.5-től felfelé, alatta lefelé kerekít
        Dim Szám As Single
        Dim HányTizedes As Integer
        Szám = 123.4567
        HányTizedes = 2
        Debug.Print(Math.Round(Szám, HányTizedes)) '123.46
        HányTizedes = 0
        Debug.Print(Math.Round(Szám, HányTizedes)) '123
    End Sub

    'Int: Egész
    Sub Egész()
        'Mindig lefelé kerekít: A hozzá képest kisebb egészre
        Debug.Print(Int(10.2))  '10
        Debug.Print(Int(-10.2)) '-11
    End Sub

    'Fix: Egész rész
    Sub EgészRész()
        'A szám egész részét adja
        Debug.Print(Fix(10.2))  '10
        Debug.Print(Fix(-10.2)) '-10
    End Sub

    'Sign: Előjel
    Function Előjel(ByVal Szám) As Integer
        Előjel = Math.Sign(Szám)
    End Function
#End Region

#Region "Hatványozás"

    'Sqrt: Négyzetgyök
    Function Négyzetgyök(ByVal Szám) As Double
        Négyzetgyök = Math.Sqrt(Szám)
    End Function

    'Exp: Hatványozás
    Function Hatvány(ByVal Szám, ByVal Kitevő) As Single
        Hatvány = Szám ^ Kitevő
    End Function
#End Region

#Region "Természetes alapú Logaritmus, 'e' hatványai"

    'Log: Természetes alapú logaritmus
    Function Ln(ByVal Szám) As Double
        Ln = Math.Log(Szám)
    End Function

    'Exp: "e" hatványai
    Function e_hatány(ByVal Kitevő) As Double
        e_hatány = Math.Exp(Kitevő)
    End Function

#End Region

#Region "Nevezetes számok: 'Pi', 'e'"

    '"Pi" és az "e" értéke
    Sub NevezetesSzámok()
        Debug.Print(Math.PI)
        Debug.Print(Math.E)
    End Sub

#End Region

#Region "Szögfüggvények"

    'Szögfüggvények: sin, cos, tg, ctg
    Sub Szögfüggvények(ByVal Szög)
        'A szöget radiánban kell megadni
        Debug.Print("sin: " & Math.Sin(Szög))
        Debug.Print("cos: " & Math.Cos(Szög))
        Debug.Print("tg: " & Math.Tan(Szög))
        Debug.Print("ctg: " & 1 / Math.Tan(Szög))
    End Sub

    'Arcus függvények (értékből szög): Atan: Arcus tangens, Asin:Arcus sinus, Acos: Arcus cosinus
    Sub Arcus(ByVal Érték)
        'Az szöget radiánban kapjuk
        Debug.Print("Asin: " & Math.Asin(Érték))
        Debug.Print("Acos: " & Math.Asin(Érték))
        Debug.Print("Atan: " & Math.Atan(Érték))
    End Sub

#End Region

End Module