Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

If ... irgendwas dann mehrere Befehle zusammen sonst...
Autor: Balboa
Datum: 12.11.02 17:42
Hallo, habe hier folgendes Programm: If (Wert_P / 2) ^ 2 - Wert_Q >= 0 Then Wurzel1 = Sqr((Wert_P / 2) ^ 2 - Wert_Q) lblErgebnisX1.Caption = "X1= " & -(Wert_P / 2) + Wurzel1 lblErgebnisX2.Caption = "X2= " & -(Wert_P / 2) - Wurzel1 lblFehlerausgabe.Caption = "" If (Wert_P / 2) ^ 2 - Wert_Q < 0 Then lblFehlerausgabe.Caption = "Eine Lösung ist nicht möglich." lblErgebnisX1.Caption = "X1=" lblErgebnisX1.Caption = "X2=" End If Wenn größer 0 sll Ergebnis X1 und X2 ausgegeben werden und keine Fehlermeldung kommen. Wenn der Wert kleiner 0 ist soll eine Fehlermeldung kommen und als Ergebnis X1= und X2= stehen. Wenn aber keine Lösung möglich ist zeigt das Programm immer eine Lösung für X2 an. Die soll nicht sein. Wo ist der Fehler? und wie sieht es dann richtig aus?

If ... irgendwas dann mehrere Befehle zusammen sonst...	69	Balboa	12.11.02 17:42
Re: If ... irgendwas dann mehrere Befehle zusammen sonst....	471	Dieter	12.11.02 17:47
Re: If ... irgendwas dann mehrere Befehle zusammen sonst...	47	Balboa	12.11.02 17:58
Re: If ... irgendwas dann mehrere Befehle zusammen sonst...	283	Dieter	12.11.02 18:03
Re: If ... irgendwas dann mehrere Befehle zusammen sonst...	42	Balboa	12.11.02 18: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