Private Sub txtErgebnis_Change()
Me.txtErgebnis.Text = strAntwort1 + vbNewLine + strAntwort2
'Textausgabe mit Antwort1 - Zeilenumbruch - Antwort2
End Sub
Wieso sollte das dazu führen, dass in der Textbox irgendwas erscheint? Dazu müsstest du erst etwas in txtErgebnis eintragen... was aber dann zu nem Überlauf führen müsste...
Private Sub cmdEnde_Click()
Unload Me
End Sub
Private Sub cmdFertig_Click()
'Variablendeklaration
Dim bteVorgabezahl As Byte
'Vorgabezahl als ganzzahliger Wert
Dim bteEingabezahl As Byte
'Eingabezahl als ganzzahliger Wert
Dim strAntwort1 As String
'Ausgabetext1 als Zeichenkette
Dim strAntwort2 As String
'Ausgabetext2 als Zeichenkette
Dim bteMaximum As Byte
'Das Maximum soll als ganzzahliger Wert betrachtet werden
Dim bteMinimum As Byte
'Das Maximum soll als ganzzahliger Wert betrachtet werden
'Eingabe
bteVorgabezahl = Val(Me.txtEingabe.Value)
'Vorgabezahl soll aus txtEingabe ausgelesen werden
bteEingabezahl = Val(Me.txtRaten.Value)
'Eingabezahl soll aus txtRaten ausgelesen werden
'Verarbeitung und Ausgabe
bteMinimum = bteVorgabezahl - 10
'Minimum ist Vorgabezahl minus 10
bteMaximum = bteVorgabezahl + 10
'Maximum ist Vorgabezahl + 10
If bteVorgabezahl <= 0 Then
strAntwort1 = MsgBox("Sie mogeln! Die Zahl soll größer als 0 sein!", vbOK, "Mogelhinweis")
Me.txtEingabe.Text = ""
Me.txtEingabe.SetFocus
'Popup mit Fehlermeldung, Löschen des Eingabefeldes und Cursorsetzen
ElseIf bteVorgabezahl >= 100 Then
strAntwort1 = MsgBox("Sie mogeln! Die Zahl soll kleiner als 100 sein!", vbOK, "Mogelhinweis")
Me.txtEingabe.Text = ""
Me.txtEingabe.SetFocus
'Popup mit Fehlermeldung, Löschen des Eingabefeldes und Cursorsetzen
Else
Select Case bteEingabezahl
Case Is = bteVorgabezahl
strAntwort1 = "Gratulation. Sie haben es geschafft!"
'richtige Eingabe
Case Is >= bteMinimum
strAntwort1 = "Das ist schon ziemlich gut."
'Eingabezahl ist um höchstens 10 kleiner als Vorgabezahl
Case Is <= bteMaximum
strAntwort1 = "Das ist schon ziemlich gut."
'Eingabezahl ist um höchstens 10 größer als Vorgabezahl
Case Is > bteMaximum
strAntwort1 = "Strengen Sie sich etwas mehr an!"
'Eingabezahl ist um mehr als 10 größer als Vorgabezahl
Case Is < bteMinimum
strAntwort1 = "Strengen Sie sich etwas mehr an!"
'Eingabezahl ist um mehr als 10 kleiner als Vorgabezahl
Case Is < bteVorgabezahl
strAntwort2 = "Sie müssen in größeren Dimensionen denken."
'Eingabezahl ist zu klein
Case Is > bteVorgabezahl
strAntwort2 = "Sie werden übermütig."
'Eingabezahl ist zu groß
Case Else
End Select
End If
txtergebis=strantwort1+vbnewline+strantwort2
End Sub
Wenn das nicht funktioniert, dann versuch doch mal MsgBoxen einzubauen, um rauszufinden, ob die Zwischenergebnisse richtig sind.
Lösch aber auf jeden Fall "Private Sub txtErgebnis_Change()"!
|