vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 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: 11.04.11 22:10
Ach, ich kriegs einfach nicht hin..

Option Explicit
Dim a As Double, b As Double, c As Double, dis As Double, x1 As Double, x2 As Double, N1 As Double, N2 As Double, N3 As Double

Private Sub CB_Rechnen_Click()

b = CDbl(TB_B.Text)
c = CDbl(TB_C.Text)

If IsNumeric(TB_A.Text) = True Then
a = CDbl(TB_A.Text)
End If

If a = 0 Then
MsgBox "Keine quadratische Gleichung"
ElseIf a = 1 Then
N1 = b
N2 = c
dis = Sqr(((b / 2) ^ 2) - c)
ElseIf dis > 0 Then
x1 = (-b / 2) - dis
x2 = (-b / 2) + dis
ElseIf dis = 0 Then
x1 = (-b / 2)
TB_X2.Visible = False
Label17.Visible = False
ElseIf dis < 0 Then
TB_X1.Visible = False
Label16.Visible = False
TB_X2.Visible = False
Label17.Visible = False
End If


If a <> 0 Then
N1 = b / a
N2 = c / a
dis = Sqr((((b / a) / 2) ^ 2) - (c / a))
ElseIf dis > 0 Then
x1 = -b / 2 / a - dis
x2 = -b / 2 / a + dis
ElseIf dis < 0 Then
TB_X1.Visible = False
Label16.Visible = False
TB_X2.Visible = False
Label17.Visible = False
ElseIf dis = 0 Then
x1 = -b / a / 2
TB_X2.Visible = False
Label17.Visible = False
End If

If b = 0 Then
TB_N1 = 0
ElseIf c = 0 Then
TB_N2 = 0
End If



End Sub

Private Sub CB_Ende_Click()

End

End Sub


Private Sub CB_Neu_Click()

Label17.Visible = True
TB_X2.Visible = True
TB_A.Text = Empty
TB_B.Text = Empty
TB_C.Text = Empty
TB_Dis.Text = Empty
TB_X1.Text = Empty
TB_X2.Text = Empty
TB_N1.Text = Empty
TB_N2.Text = Empty
TB_A.SetFocus
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.271Franki28.03.11 03:14
Re: pq-Formel automatisieren1.255Manfred X28.03.11 14:15
Re: pq-Formel automatisieren1.296marie9328.03.11 16:52
Re: pq-Formel automatisieren1.315Manfred X28.03.11 17:57
Re: pq-Formel automatisieren1.369Manfred 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.241marie9311.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