[VB6]Rechner Prog Hilfe

[Kevinski92]

Also ich habe zurzeit in der Schule das Thema VB6 was mich auch sehr interesiert. Nun sind wir an einem simplen Rechenprogramm schreiben.
Was das Prog macht/machen soll: Quadratische Gleichungen mit pq Formel lösen.
3x²+ 5 = 0 x1=... x2=...
Es wird alles mit der p und q Formel gelöst:
x1=-p/2+√(p/2)²-q und x2=-p/2-√(p/2)²-q
Die unterstrichenen Stellen werden eingetippt.
Also wer mir helfen will braucht noch ein bischen erinnerungen an die 10te Klasse^^ Bei mir hackt es beim rechnen er rechnet manchmal erhalte ich ein Ergebnis manchmal kommt die Meldung "Keine Lösung" obwohl es eine Lösung gibt.

Hier nochma die Exe+Projekt(source) dabei damit ihr seht wie ich das Prog meine:
http://rapidshare.com/files/149467757/PundQ.rar
EDIT: Link zur pq formel: http://www.matheboard.de/mathe-tipp-...,_q-Formel.htm
Schonmal thx im vorraus.
mfg Kevinski92

[crusher]

bei deinem projekt hat dir form gefehlt, aber hier:

    Dim zA As Double, zB As Double, zC As Double
    'ax²+bx+c = 0
    
    zA = 1
    zB = 2
    zC = 1
    
    Dim zP As Double, zQ As Double
    zP = zB / zA
    zQ = zC / zA
    
    Dim sL1 As String, sL2 As String
    Dim zD As Double
    
    zD = (zP ^ 2 / 4) - zQ
    
    If zD < 0 Then
        sL1 = "-"
        sL2 = "-"
    ElseIf zD = 0 Then
        sL1 = -(zP / 2)
        sL2 = "-"
    ElseIf zD > 0 Then
        sL1 = -(zP / 2) + zD ^ 0.5
        sL2 = -(zP / 2) - zD ^ 0.5
    End If
    
    MsgBox sL1 & vbCrLf & sL2

[Kevinski92]

Thx vielen Dank könntest du mir vllt auch das Projekt/Form (sry kenn den unterschied nicht) hochladen. So find ich den Überblick besser was du wie bennant hast^^ sry für die anstrengungen find ich aber sehr nett das einem Neuling so geholfen wird^^