vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Allgemeine Diskussionen
Re: pq-Formel automatisieren 
Autor: marie93
Datum: 07.04.11 13:44
Fallunterscheidung habe ich jetzt gemacht, aber es funktioniert immer noch nicht.. Kann mir vll. jemand sagen, was ich noch ändern muss?

Private Sub CB_Rechnen_Click()

a = CDbl(TB_a.Text)
b = CDbl(TB_b.Text)
c = CDbl(TB_c.Text)


If a = 0 Then
n1 = a
n2 = b
n3 = c
Wurzel = Runden(Sqr(((b / 2) ^ 2) - c), 2)
ElseIf Wurzel > 0 Then
x1 = Runden((-b / 2) - Wurzel, 2)
x2 = Runden((-b / 2) + Wurzel, 2)
ElseIf Wurzel = 0 Then
x1 = Runden((-b / 2), 2)
TB_x2.Visible = False
Label_x2.Visible = False
ElseIf Wurzel < 0 Then
TB_x1.Visible = False
Label_x1.Visible = False
TB_x2.Visible = False
Label_x2.Visible = False
End If

If a <> 0 Then
n1 = Runden(a / a, 2)
n2 = Runden(b / a, 2)
n3 = Runden(c / a, 2)
Wurzel = Runden(Sqr((((b / a) / 2) ^ 2) - (c / a)), 2)
ElseIf Wurzel > 0 Then
x1 = Runden(-b / 2 / a - Wurzel, 2)
x2 = Runden(-b / 2 / a + Wurzel, 2)
ElseIf Wurzel < 0 Then
TB_x1.Visible = False
Label_x1.Visible = False
TB_x2.Visible = False
Label_x2.Visible = False
ElseIf Wurzel = 0 Then
x1 = Runden(-b / a / 2, 2)
TB_x2.Visible = False
Label_x2.Visible = False
End If


TB_n1.Text = Format(n1)
TB_n2.Text = Format(n2)
TB_n3.Text = Format(n3)
TB_Wurzel.Text = Format(Wurzel)
TB_x1.Text = Format(x1)
TB_x2.Text = Format(x2)
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
pq-Formel automatisieren2.911marie9325.03.11 05:56
Re: pq-Formel automatisieren1.389ModeratorRalfE25.03.11 09:24
Re: pq-Formel automatisieren1.388marie9325.03.11 21:05
Re: pq-Formel automatisieren1.340Franki26.03.11 05:57
Quadratische Gleichung??2.300Manfred X26.03.11 17:31
Re: pq-Formel automatisieren1.386marie9327.03.11 19:08
Re: pq-Formel automatisieren1.270Franki28.03.11 03:14
Re: pq-Formel automatisieren1.254Manfred X28.03.11 14:15
Re: pq-Formel automatisieren1.296marie9328.03.11 16:52
Re: pq-Formel automatisieren1.314Manfred X28.03.11 17:57
Re: pq-Formel automatisieren1.368Manfred X28.03.11 18:28
Re: pq-Formel automatisieren1.380marie9331.03.11 14:20
Re: pq-Formel automatisieren1.356Manfred X31.03.11 16:41
Re: pq-Formel automatisieren1.400Manfred X31.03.11 17:18
Re: pq-Formel automatisieren1.214marie9306.04.11 15:51
Re: pq-Formel automatisieren1.253marie9306.04.11 20:10
Re: pq-Formel automatisieren1.199Manfred X06.04.11 20:25
Re: pq-Formel automatisieren1.342Franki07.04.11 05:50
Re: pq-Formel automatisieren1.378marie9307.04.11 13:44
Re: pq-Formel automatisieren1.334Manfred X07.04.11 13:53
Re: pq-Formel automatisieren1.374Franki08.04.11 04:30
Re: pq-Formel automatisieren1.240marie9311.04.11 22:10
Re: pq-Formel automatisieren1.445Manfred X12.04.11 10:56
Re: pq-Formel automatisieren1.313Franki13.04.11 03:24

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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel