thx das is auch eine lösung allerdings hab ich das jetz so gemacht:
Private Sub Command1_Click()
Randomize
y = Int((1000 - 0 + 1) * Rnd) + 1
z = 1
Do
strX = InputBox("Geben Sie eine Zahl ein")
If strX <> "" And IsNumeric(strX) Then
x = Int(strX)
Else
MsgBox "Keine Zahl"
End
End If
If Int(x) < y Then
MsgBox " zu klein ", (vbOKOnly), ("Zahlenraten")
z = z + 1
ElseIf Int(x) > y Then
MsgBox " zu groß ", (vbOKOnly), ("Zahlenraten")
z = z + 1
Else
MsgBox z, (vbOKOnly), ("Benötigte Versuche")
End If
Loop Until Int(x) = y
End Sub
also wenn man jetz einen buchctaben etc eingibt und man dann auf ok klickt bricht er ab. das is deswegen so weil er sonst immer gezeigt hätte: " zu klein" nun hätte ich aber gerne das er statt zu beenden wieder zu dem eintrag zahlen geht. wie geht das?
PS: anbei die datei.
|