Programmieren - alles kontrollieren 4.934 Themen, 20.613 Beiträge

Ein kleines Visual Basic Problem

wfoc / 6 Antworten / Flachansicht Nickles

Habe noch nicht viel Programmiererfahrung. Schon das untenstehende Beispiel überfordert mich ein wenig.
Es ist ein sehr einfaches Programm mit den Textfelder txt1, text2, text3.
In text3 soll der Benutzer die Summe von text1 und text2 eintragen.
Es klappt durchaus bei einigen Aufgaben, aber bei Kommazahlen erfolgt manchmal die Meldung "Falsch", obwohl das richtige Ergbnis eingegeben wurde!!!!
Wäre sehr dankbar für einen Tipp, was an dem Code falsch ist!


Option Explicit
Dim a As Single
Dim b As Single
Dim c As Single


Private Sub Form_Load()
Call NeueAufgabe
End Sub

Private Sub NeueAufgabe()
a = Int(Rnd * 100) / 100
b = Int(Rnd * 100) / 10
Text1.Text = a
Text2.Text = b
End Sub


Private Sub Command2_Click()
c = Text3.Text
If c = a + b Then
MsgBox "Richtig"
Call NeueAufgabe
Else
MsgBox "Falsch"
End If
End Sub

bei Antwort benachrichtigen
wfoc T-Rex „Habe jetzt nicht viel geändert: Grüße Helge “
Optionen

Das war ein Volltreffer! Bin bestens zufrieden.
Allerbesten Dank für deine Hilfe!

Evt. ist da nur noch ein einziges Problem: Wenn ich bei 2,3 + 0,7 als Ergebnis 3,0 eingebe, kommt die Meldung "Falsch". Könnte das daran liegen, das "Round" (ist mir auch nicht bekannt, aber das heißt nichts) nicht definiert ist? Mein VB5 streikte bei dem Begriff jedenfalls und ich musste "Round" aus dem Code entfernen!
Ansonsten nochmals vielen Dank!
Grüße aus dem Emsland von werner focke

bei Antwort benachrichtigen