vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Allgemeine Diskussionen
Re: pq-Formel automatisieren 
Autor: marie93
Datum: 28.03.11 16:52
So, jetzt siehts so aus, aber ich komme i.wie nicht weiter...


Option Explicit
Dim a As Double, b As Double, c As Double, x1 As Currency, x2 As Currency, p As Double, q As Double


Private Sub CB_Berechnen_Click()

On Error GoTo Fehler

a = CDbl(TB_a.Text)
b = CDbl(TB_b.Text)
c = CDbl(TB_c.Text)
p = CDbl(TB_p.Text)
q = CDbl(TB_q.Text)

If a <> 0 Then
p = b / a
q = c / a
Else
p = b
q = c
End If

If a = "" Then
ElseIf b = "" Then
ElseIf c = "" Then
Fehler:
MsgBox "Quadratische Funktion eingeben!", vbCritical, "Fehler!"


End If

x1 = -p / 2 + Sqr((p / 2) * (p / 2) - q)
x2 = -p / 2 - Sqr((p / 2) * (p / 2) - q)



End Sub

Private Sub CB_Ende_Click()

End

End Sub

Private Sub CB_Neu_Click()

TB_a.Text = ""
TB_b.Text = ""
TB_c.Text = ""
TB_p.Text = ""
TB_q.Text = ""
TB_x1.Text = ""
TB_x2.Text = ""
TB_a.SetFocus
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
pq-Formel automatisieren2.993marie9325.03.11 05:56
Re: pq-Formel automatisieren1.436ModeratorRalfE25.03.11 09:24
Re: pq-Formel automatisieren1.444marie9325.03.11 21:05
Re: pq-Formel automatisieren1.398Franki26.03.11 05:57
Quadratische Gleichung??2.383Manfred X26.03.11 17:31
Re: pq-Formel automatisieren1.437marie9327.03.11 19:08
Re: pq-Formel automatisieren1.323Franki28.03.11 03:14
Re: pq-Formel automatisieren1.308Manfred X28.03.11 14:15
Re: pq-Formel automatisieren1.346marie9328.03.11 16:52
Re: pq-Formel automatisieren1.366Manfred X28.03.11 17:57
Re: pq-Formel automatisieren1.422Manfred X28.03.11 18:28
Re: pq-Formel automatisieren1.442marie9331.03.11 14:20
Re: pq-Formel automatisieren1.402Manfred X31.03.11 16:41
Re: pq-Formel automatisieren1.455Manfred X31.03.11 17:18
Re: pq-Formel automatisieren1.272marie9306.04.11 15:51
Re: pq-Formel automatisieren1.301marie9306.04.11 20:10
Re: pq-Formel automatisieren1.254Manfred X06.04.11 20:25
Re: pq-Formel automatisieren1.397Franki07.04.11 05:50
Re: pq-Formel automatisieren1.469marie9307.04.11 13:44
Re: pq-Formel automatisieren1.384Manfred X07.04.11 13:53
Re: pq-Formel automatisieren1.465Franki08.04.11 04:30
Re: pq-Formel automatisieren1.294marie9311.04.11 22:10
Re: pq-Formel automatisieren1.497Manfred X12.04.11 10:56
Re: pq-Formel automatisieren1.368Franki13.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-2025 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