vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 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: 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.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.377marie9307.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