29. März 2024, 10:49
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0415
  VB6: pq-Formel mit VB
 Von Rantantan
 Am 29. Dezember 2008 um 13:04:44
 Frage Hallo Leute

schreibe ein Programm mit dem man die Koeffizienten in Textboxen eingibt und das Programm berechnet die Lösungen x1,x2 der quadr. Gleichung.

Ich kriege aber keine Ausgabe für Realteil/Imaginärteil. Re und Im sind immer 0. Aber x1 und x2 kann er richtig berechnen, vorausgesetzt natürlich, die Wurzel ist nichtnegativ.
Dim a As Double
Dim p As Double
Dim q As Double
Dim c As Double
Dim x1 As Double
Dim x2 As Double
Dim Re As Double
Dim Im As Double

Private Sub Command1_Click()

' Gleichung der Form ax^2+px+q=c '

a = Text1.Text
p = Text2.Text
q = Text3.Text
c = Text4.Text

If (p / (2 * a)) ^ 2 < (q / a) - (c / a) Then
Re = -p / (a * 2)
Im = ((p / (2 * a) ^ 2) - ((q / a) - (c / a))) ^ (1 / 2)




x1 = -p / (a * 2) + ((p / (a * 2)) ^ 2 - ((q / a) - (c / a))) ^ (1 / 2)

x2 = -p / (a * 2) - ((p / (a * 2)) ^ 2 - ((q / a) - (c / a))) ^ (1 / 2)

End If

Label4 = x1 & vbCrLf & x2

Label5 = Re & "+j*" & Im & vbCrLf & Re & "-j*" & Im
[ VB-/VBA-Forum | Archiv 0415 | Archiv-Übersicht ]
 Antworten
VB6: pq-Formel mit VB - Rantantan 29. Dezember 2008 um 13:04:44
Re: pq-Formel mit VB - Felix 05. Januar 2009 um 13:48:49

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum