Hallo,

bin grad übelzt am durchdrehen. Muss ein Struktogramm für einen VB-Code erstellen.

Könnte mir da mal jemand Hilfe geben?

Habe keine Ahnung wie genau Struktogramme aufgebaut sind.

Hier der VB Code:

Private Sub TextBox1_Change()

Dim Eingabe As Long

If TextBox1.Text > 30 Then

MsgBox ("zu groß")

Else

Eingabe = TextBox1.Text

End If

End Sub

Private Sub (CommandButton1_Click ()

Dim Eingabe As Long

Dim e As Double

Dim i As Double

Dim tmp As Double

i = 1

Eingabe = TextBox1.Text

e=1

Do

tmp = Eingabe ^ i / faku(i)

If tmp >= 0.00001 Then

e = e + tmp

i = i + 1

End If

Loop Until tmp <= 0.00001

Label1 = e


End Sub


Public Function faku (zahl As Double) As Double

Dim Fakultät As Double

Dim n As Double

Fakultät = 1

For n = 1 To zahl

Fakultät = Fakultät * n

Next n

faku = Fakultät

End Function

Würde mich über Hilfe freuen.

Gruß RedBullSuchti

Bearbeitet 4. Mai 201016 j von grueni

Es wird dir hier keiner ein fertiges Struktogramm basteln. Es gibt mehr als ausreichend Beispiel von Struktogrammen im Netz.

Versuch eins zu erstellen und wir korrigieren dich dann, wenn nötig.