Struktogramm für VB Code

[RedBullSuchti]

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 2010 von grueni

[lupo49]

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.