---

Hallo zusammen,

kann man mittels Makro einen Logarithmus berechnen lassen?

Gruss
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielleicht etwas präziser:

gibt es eine Formel, die ich in einem Makro einbauen kann, welche mir dann den Logarithmus berechnet?
ln(.....)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

Visual Basic 6-Funktion 
Abs
Gibt den absoluten Wert einer bestimmten Zahl zurück.

Atn
Gibt einen Wert vom Typ Double zurück, der den Winkel enthält, dessen Tangente die angegebene Zahl ist.

Cos
Gibt einen Wert vom Typ Double zurück, der den Kosinus des angegebenen Winkels enthält.

Exp
Gibt einen Wert vom Typ Double zurück, der e (die Basis des natürlichen Logarithmus) potenziert mit dem angegebenen Wert enthält.

Log
Gibt einen Wert vom Typ Double zurück, der den Logarithmus einer bestimmten Zahl enthält. Diese Methode ist überladen und gibt entweder den natürlichen Logarithmus (Basis e) einer bestimmten Zahl oder den Logarithmus einer bestimmten Zahl mit einer bestimmten Basis zurück.

Round
Gibt einen Wert vom Typ Double zurück, der die Zahl enthält, die dem angegebenen Wert am nächsten ist. Zusätzliche Rundungsfunktionen sind als Methoden von systeminternen Typen wie Round verfügbar.

Sgn
Gibt einen Wert vom Typ Integer zurück, der das Vorzeichen einer Zahl angibt.

Sin
Gibt einen Wert vom Typ Double zurück, der den Sinus eines Winkels angibt.

Sqr
Gibt einen Wert vom Typ Double zurück, der die Quadratwurzel einer Zahl angibt.

Tan
Gibt einen Wert vom Typ Double zurück, der den Tangens eines Winkels enthält.

HTH

------------------
MFG
Rick Schulz

        Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Tom,

anbei mal ein Beispiel. Hierbei wird nicht, wie auf den meisten Taschenrechner, nur der Logarithmus zur Basis 10 berechnet sondern zu jeder beliebigen Basis ;-). Funktioniert in VBA, CATScript und CATVbs.

Code:

---

Sub CATMain()

    Dim dblBasis As Double
    Dim dblWert As Double
   
    On Error Resume Next
    dblBasis = CDbl(InputBox("Bitte geben Sie den Wert der Basis ein", "Basic-Wert", "2"))
    If Err.Number <> 0 Then
        MsgBox "Eingabe ungültig", vbExclamation, "ABBRUCH"
    End If
   
    On Error Resume Next
    dblWert = CDbl(InputBox("Bitte geben Sie den Wert ein", "Wert", "64"))
    If Err.Number <> 0 Then
        MsgBox "Eingabe ungültig", vbExclamation, "ABBRUCH"
    End If
   
   
    MsgBox "Das Ergebis ist:" + vbNewLine & CStr(CalcLog(dblBasis, dblWert)), vbInformation, "ERGEBNIS"
   

End Sub

Public Function CalcLog(ByVal dblBasisUeb As Double, _
  ByVal dblWertUeb As Double) As Double

  CalcLog = Log(dblWertUeb) / Log(dblBasisUeb)
 
End Function

---

Falls deine Basis immer 10 ist dann lautet der Code folgendermaßen:

Code:

---

Sub CATMain()

    Dim dblWert As Double
     
    On Error Resume Next
    dblWert = CDbl(InputBox("Bitte geben Sie den Wert ein", "Wert", "64"))
    If Err.Number <> 0 Then
        MsgBox "Eingabe ungültig", vbExclamation, "ABBRUCH"
    End If
   
   
    MsgBox "Das Ergebis ist:" + vbNewLine & CStr(CalcLog(dblWert)), vbInformation, "ERGEBNIS"
   

End Sub

Public Function CalcLog(ByVal dblWertUeb As Double) As Double

  CalcLog = Log(dblWertUeb)
 
End Function

---

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo  ,

...mehr gibtŽs nicht zu sagen...NICE Rick 

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,

vielen Dank! Eure Antworten haben mich zum Ziel geführt!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP