[Visual Basic] Mein Programm rechnet falsch!

[undertaker1988]

[visuel basic]

so ich hoffe es kommt hier rein bitte kann mir einer den fehler sagen??

Option Explicit
Dim sngZahl1 As Single, sngZahl2 As Single
Dim sngErgebnis As Single

Private Sub cmdAddition_Click()
    sngErgebnis = (sngZahl1 + sngZahl2)
    sngZahl1 = Val(txtZahl1.Text)
    sngZahl2 = Val(txtZahl1.Text)
    txtErgebnis.Text = Str(sngErgebnis)

    
    
    'sngZahl1 = Val(txt1.Text)
    'sngZahl2 = Val(txt2.Text)
    'sngErgebnis = sngZahl1 + sngZahl2
    'txtErgebnis.Text = Str(sngErgebnis)
End Sub

Private Sub cmdEnde_Click()
    End
End Sub

Private Sub cmdNeu_Click()
    txtZahl1.Text = " "
    txtZahl2.Text = " "
    txtErgebnis.Text = " "
    txtZahl1.SetFocus
End Sub

Private Sub txtErgebnis_Change()

End Sub

Edited by Steffen: Bitte Code-Tags verwenden und von alleine einen aussagekräftigen Betreff wählen!

 

[Loopo]

wie macht sich denn der Fehler überhaupt bemerkbar !?

vielleicht liegt es am "End" !?

 

[undertaker1988]

nee er sagt mir keinen fehler das prog rechnet ja auch nur nen bisschen komisch!!!
denn da is "5 + 5 = 0 und 10 + 5 = 10"!!! rofl

an welchem end??? end oder end sub?

 

[^$uicide^]

du solltest das zusammenrechnen erst dann machen, nachdem du die zahlen eingelesen hast, da der code ja von oben nach unten abgearbeitet wird.

sngZahl1 = Val(txtZahl1.Text)
sngZahl2 = Val(txtZahl1.Text)

fällt dir was auf ?

(vielleicht ja extra aber wollte nur drauf hinweisen)

und die deklaration würde ich in der command_click sub machen, es sei denn du willst noch von anderen subs drauf zugreifen

mfg

$ui

 

[MrDesperados]

hehe, jau das issed. Ich würd sowieso immer erst die Textfelder in Variablen speichern und dann damit arbeiten. Ist übersichtlicher und man kann solche Fehler vermeiden.

 

[undertaker1988]

also erstmal danke aber leider zu spät. sitze grade in der schule aber ich konnte leider nicht mehr hier reinschauen.
trotzdem danke..

mfg undertaker1988