Zitat:

Der fertige Code von Manfred (danke auf jeden Fall dafür! War mal interessant, n fertiges Spiel zu sehen) hat mir leider auch nur bedingt geholfen. Konnte nicht alle Schritte nachvollziehen und ich würd auch gern die mögliche Versuchsanzahl nicht festlegen, sondern solange raten lassen, bis die Zahl gefunden ist.

Module Zahlenraten_CODE
 
    Private Structure INTERNAL_DATA
        Dim boolGameIsStarted As Boolean
        Dim lngNumberOfTries As Long
        Dim intZufallszahl As Integer
    End Structure
 
    'Varable für Structure mit Internen Werten (damit sie alle zusammen sind)
    Dim ID As INTERNAL_DATA
 
    Sub SetButtonAndLabelText()
 
        'Schrift des Buttons einstellen
        If ID.boolGameIsStarted = True Then
            Zahlenraten.Button_Action.Text = "Raten"
        Else
            Zahlenraten.Button_Action.Text = "Neues Spiel"
        End If
 
        'Anzahl der Versuche anzeigen
        Zahlenraten.Label_Wert_Anzahl_Versuche.Text = CStr(ID.lngNumberOfTries)
 
        'sicherheitshalber Refreshen (funktioniert vielleicht auch ohne)
        Zahlenraten.Button_Action.Refresh()
        Zahlenraten.Label_Wert_Anzahl_Versuche.Refresh()
 
    End Sub
    Function ValidateTextBoxContent() As Boolean
        Dim boolNumeric As Boolean = False
 
        'Überprüfen ob der Wert in der TextBox auch numerisch ist (Keine 
        ' Buchstaben usw.)
        Try
            boolNumeric = IsNumeric(Zahlenraten.TextBox_Number.Text)
        Catch ex As Exception
            boolNumeric = False
        End Try
 
        'MessageBox ausgeben, wenn der TextBox-Inhalt nicht numerisch ist.
        If boolNumeric = False Then MsgBox("Nur Zahlen eingeben!", _
          MsgBoxStyle.Critical, "Nur Zahlen eingeben!")
 
        Return boolNumeric
    End Function
 
    Sub CreateNewRandomNumber()
        Dim intZufallszahl As Integer = Nothing
        Dim TmpRnd As New Random
 
        'Neue Zufallszahl von 1 bis 1000 erstellen
        intZufallszahl = TmpRnd.Next(1, 1001)
 
        'Wert merken
        ID.intZufallszahl = intZufallszahl
 
    End Sub
 
    Sub Button_Action_Click()
 
        'Wenn das Spiel noch nicht gestartet wurde, dann
        If ID.boolGameIsStarted = False Then
            'Neue Zufallzahl erstellen und merken
            Zahlenraten_CODE.CreateNewRandomNumber()
 
            'Spiel wurde gestartet festlegen
            ID.boolGameIsStarted = True
 
            'Label und Button aktualisieren
            Zahlenraten_CODE.SetButtonAndLabelText()
 
            'Meldung ausgeben, dass neues Spiel gestartet wurde
            Zahlenraten.Label_Meldung.Text = "Neues Spiel gestartet"
        Else
            'Wenn das Spiel bereits läuft
 
            'Überprüfen ob der TextBox-Inhalt In Ordnung ist
            If Zahlenraten_CODE.ValidateTextBoxContent() = True Then
                'Auswertung des Inhaltes der TextBox
                Zahlenraten_CODE.CheckTextBoxValue()
            End If
        End If
 
    End Sub
    Sub CheckTextBoxValue()
        Dim intNummerTextBox As Integer = Nothing
 
        intNummerTextBox = CInt(Zahlenraten.TextBox_Number.Text)
 
        'Wenn die Zahl erraten wurde
        If intNummerTextBox = ID.intZufallszahl Then
 
            'MessageBox anzeigen
            MsgBox("Richtig!", MsgBoxStyle.Information, "Richtig!")
 
            'Interne Werte wieder auf 0 setzen (für nächstes Spiel)
            Zahlenraten_CODE.ResetInternalData()
 
            'TextBox und Label mit Meldung leer machen
            Zahlenraten.TextBox_Number.Text = Nothing
            Zahlenraten.Label_Meldung.Text = Nothing
 
 
            'Wenn die Zahl größer ist
        ElseIf intNummerTextBox < ID.intZufallszahl Then
            'Meldung anzeigen und Wert für Versuche um eins erhöhen
            Zahlenraten.Label_Meldung.Text = "Die gesuchte Zahl ist größer."
            ID.lngNumberOfTries = ID.lngNumberOfTries + 1
 
            'Wenn die Zahl kleiner ist
        ElseIf intNummerTextBox > ID.intZufallszahl Then
            'Meldung anzeigen und Wert für Versuche um eins erhöhen
            Zahlenraten.Label_Meldung.Text = "Die gesuchte Zahl ist kleiner."
            ID.lngNumberOfTries = ID.lngNumberOfTries + 1
        End If
 
        'Labels und Button neu anzeigen
        Zahlenraten_CODE.SetButtonAndLabelText()
 
    End Sub
 
    Sub ResetInternalData()
        ID.boolGameIsStarted = False
        ID.lngNumberOfTries = 0
        ID.intZufallszahl = 0
    End Sub
End Module