Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Wert muß in Textfeld eingegeben werden...
Autor: Balboa
Datum: 18.12.02 11:38
Also es geht um Quadratische Gleichungen. Hier das Programm: Dim Wurzel1 As Currency Dim Wert_A As Currency Dim Wert_B As Currency Dim Wert_C As Currency Wert_A = txtA_Wert.Text Wert_B = txtB_Wert.Text Wert_C = txtC_Wert.Text If (txtA_Wert.Text = "") And (txtB_Wert.Text = "") And (txtC_Wert.Text = "") Then lblFehlerausgabe.Caption = "Bitte geben Sie für A,B und C Werte ein." Exit Sub Else If Wert_A = 0 Then lblFehlerausgabe.Caption = "Wert A darf nicht 0 sein!" Exit Sub Else If (Wert_B ^ 2 - 4 * Wert_A * Wert_C) >= 0 Then Wurzel1 = Sqr(Wert_B ^ 2 - 4 * Wert_A * Wert_C) lblErgebnisX1.Caption = "X1= " & (-Wert_B + Wurzel1) / (2 * Wert_A) lblErgebnisX2.Caption = "X2= " & (-Wert_B - Wurzel1) / (2 * Wert_A) lblFehlerausgabe.Caption = "" Else lblFehlerausgabe.Caption = "Eine Lösung ist nicht möglich." lblErgebnisX1.Caption = "X1=" lblErgebnisX2.Caption = "X2=" End If End If End If End Sub Wenn ich jetzt nichts in die Textfelder eingebe und es berechnen will, kommt der Laufzeitfehler 13, typen unverträglich. Es geht bis Wert_A = txtA_Wert.Text

Wert muß in Textfeld eingegeben werden...	149	Balboa	18.12.02 11:14
Re: Wert muß in Textfeld eingegeben werden...	374	Wolfgang	18.12.02 11:25
Re: Wert muß in Textfeld eingegeben werden...	81	Balboa	18.12.02 11:26
Re: Wert muß in Textfeld eingegeben werden...	449	Wolfgang	18.12.02 11:30
Re: Wert muß in Textfeld eingegeben werden...	360	Boris	18.12.02 11:33
Re: Wert muß in Textfeld eingegeben werden...	81	Balboa	18.12.02 11:38
Re: Wert muß in Textfeld eingegeben werden...	375	Wolfgang	18.12.02 11:52
Re: Wert muß in Textfeld eingegeben werden...	62	Balboa	26.12.02 17:07
Re: Wert muß in Textfeld eingegeben werden...	353	unbekannt	26.12.02 17:11
Re: Wert muß in Textfeld eingegeben werden...	354	Brian	18.12.02 11:57
Re: Wert muß in Textfeld eingegeben werden...	353	Brian	18.12.02 11:35
Stimmt da habe ich jetzt nicht hingeschaut (oT)	330	Wolfgang	18.12.02 11:49

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