Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Kleine Frage, BITTE HELFEN
Autor: Daniel001
Datum: 13.06.05 18:27
Hallo Leute, habe in der Schule ein code von meinem Lehrer bekommen, den habe ich (nach meiner meinung, verbessert), beides ist wohl richtig, aber was würdet ihr denn nun als profis, besser bezeichnen: Jetzt einfach nur auf die Art achten. VOM LEHRER: Private Sub Command3_click() Option2.Value = True r4 = Val(Text4.Text) r5 = Val(Text5.Text) r6 = Val(Text6.Text) If r4 = 0 Or r5 = 0 Or r6 = 0 Then GoTo M1 Else r7 = 1 / r4 + 1 / r5 + 1 / r6 r8 = 1 / r7 Label1.Caption = Format(r8, "0.00" & "Ohm") GoTo M2 End If M1: Label1.Caption = Format("0.00" & "Ohm") M2: End Sub Meins: Private Sub Command3_click() Option2.Value = True r4 = Val(Text4.Text) r5 = Val(Text5.Text) r6 = Val(Text6.Text) If r4 = 0 Or r5 = 0 Or r6 = 0 Then Label1.Caption = Format("0.00" & "Ohm") GoTo m1 End If r7 = 1 / r4 + 1 / r5 + 1 / r6 r8 = 1 / r7 Label1.Caption = Format(r8, "0.00" & "Ohm") m1: End Sub Also ich habe ein goto weniger und ein else. Also welcher Code ist besser und wozu braucht man ein else? Liebe Grüße

Kleine Frage, BITTE HELFEN	664	Daniel001	13.06.05 18:27
Re: Kleine Frage, BITTE HELFEN	476	vbtricks	13.06.05 20:03
Re: Kleine Frage, BITTE HELFEN	486	Daniel001	14.06.05 17:56

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen