Habe bisher zwar sehr selten ein break in einer Schleife eingesetzt, werde es aber zukünftig nicht mehr machen!

Bisher habe ich beispielsweise eine For-Schleife vorzeitig mit break abgebrochen, wenn ich beispielsweise das gesuchte Element in einer Liste nach einem Wert durchsucht habe.
Aber die Alternative bzw. Konseqenz wäre dann eine while-schleife mit Bedingung, ob das Element gefunden wurde!

Also muss euch beiden recht geben.

Im Normalfall ist es nicht nötig mit break zu arbeiten da mann dies im Ausdruck mit einbauen kann.
Jedoch gibt es häufig spezialfälle bei denen die notwendigen Zustände für den Schleifenaustieg erst beim Durchlaufen der Anweisungen in der Schleife den benötigten Wert erhalten.
Dann ist es sehr wohl wichtig und auch guten Stil mit break bzw continue zu arbeiten.

Goto habe ich noch nie benötigt (halt vor 13 Jahren bei Basic auf SchneiderCPC )

um nochmal deutlich zu machen, wie furchtbar sowas aussehen kann, hab ich mal zwei unveränderte codeschnipsel rausgesucht. das ganze programm sieht so aus:

Code :

1 2 3 4

If MSRDC1(1).Resultset.RowCount = 0 Then GoTo 2005: 'Träger ist noch gar nicht angelegt MSRDC1(1).Resultset.Delete: MSRDC1(1).Refresh: MSRDC1(1).Resultset.AddNew: 2005: Text2(1).Text = Tr_Name$: MSRDC1(1).Refresh: Return

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Rem: ausgabe GoSub 337 GoTo 20   337 Rem: Seite beschränken auf 44 Zeilen, nicht bei Zwischenablage If ausgab2% = 2 Then Clipboard.Clear: Clipboard.SetText z$: Return MS_Report.Text1.Text = z$: MS_Report.Visible = True 3399: ll = DoEvents: If MS_Report.Visible = True Then GoTo 3399 z$ = MS_Report.Text1.Text If z$ = "" Then Return z11$ = "": i = 0 339: ll = InStr(z$, Chr$(13)): If ll = 0 Then z11$ = z11$ + z$: GoSub 338: Return z11$ = z11$ + Left$(z$, ll + 1): z$ = Right$(z$, Len(z$) - ll - 1): i = i + 1: If i > 44 Then GoSub 338: z11$ = "": i = 0 GoTo 339

das ähnelt irgendwie einer mischung aus objektorientiertem urzeit-basic und assembler. eigentlich sogar eine beachtliche leistung, bei sowas noch den überblick zu behalten.
normalerweise wird aber selbst bei visual basic davon abgeraten, goto und ähnliches zu benutzen. sollen sich assembler-programmierer damit rumschlagen.

ieee das ist ja ekelhaft

ieee das ist ja ekelhaft

stimmt, aber das ist noch gar nichts. ich hab das projekt noch mal etwas weiter durchforstet und dabei folgenden vierzeiler gefunden:

Code :

1 2 3 4

On Error GoTo 22 GoTo 20 22 Resume 20 20: On Error GoTo 0

da hab ich nichts dran gelöscht, das steht genau so im code. damit hätte man wahrscheinlich ziemlich gut bei einem wettbewerb zum thema "wie schreibe ich möglichst umständlich ein programm, das gar nichts macht?" gewinnen können.

Die absolute Katastrophe!
So hab ich ja nicht mal zu meinen Anfangszeiten programmiert!