Hi, ich wollte mal fragen wie es funktioniert die ln funktion selber nachzuschreiben mit ln(1+x)
Das habe ich bis jetzt
Das habe ich bis jetzt
VB.NET-Quellcode
- Public Class Form1
- Private Sub Label4_Click(sender As Object, e As EventArgs) Handles Label4.Click
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim x As Double = 0
- Dim ergebnis As Double = 1
- Dim nachfolger As Double
- Dim vorgaenger As Double = x
- Dim abstand As Double
- Dim k As Double
- Dim n As Double
- Dim i As Double = 1
- x = TextBox1.Text
- k = TextBox2.Text
- For i = 1 And abstand = k And i = +1
- abstand = vorgaenger - nachfolger
- If (abstand < 0) Then
- abstand = -abstand
- vorgaenger = nachfolger
- k = (-k) * x
- nachfolger = k / i
- ergebnis += nachfolger
- End If
- Next
- n = Math.Log(1 + x)
- TextBox3.Text &= "" & ergebnis
- TextBox4.Text &= "" & n
- End Sub
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- AcceptButton = Button1
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- TextBox3.Clear()
- TextBox4.Clear()
- End Sub
- End Class