Ich würde einen Zähler in Form einer Klassenvariable (ich glaub in VB nennt man die globale Variablen oder so) machen.

unter vs08 würds so aussehen

Public Class Form1


    Dim zahl As Integer, ratezahl As Integer
    Dim counter = 5


    Private Sub cmd_raten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_raten.Click
        ratezahl = 45
        zahl = Val(tf_zahl.Text)


        If (counter = 0) Then
            MsgBox("Alle Versuche aufgebraucht")
            Return
        End If


        If zahl > ratezahl Then
            MsgBox("Die Zahl ist kleiner als Ihre!")
            counter = counter - 1
        ElseIf zahl < ratezahl Then
            MsgBox("Die Zahl ist größer als Ihre")
            counter = counter - 1
        Else
            MsgBox("Glückwunsch! Richtig geraten!")
        End If


    End Sub
End Class

Zitat von shiZZle

- Verbesserungen und Tipps immer gerne erwünscht

dein if statement war etwas unübersichtlich.
die ratezahl sollte nicht mehrmals im code stehn. es ist besser die variable zu verwenden.

Zitat von shiZZle

irgendwie klappt dein code nicht. ( hab vb06)

Dim counter = 5

Dort kommt ne Fehlermeldung, dass nen Ausdruck erwartet wird.

was meinst du mit vb06? vb 6? :distur:

dann wäre es kein wunder, dass der code nicht funktioniert.

Zitat von shiZZle

ja ich persönlich hätte kein problem damit, VB08 zu benutzen, doch unser lehrer schreibt 6 vor.

das ist mehr als 10 jahre alt. daher keine ahnung, was genau das problem ist. probier vielleicht statt

dim counter = 5

diese zeile

dim counter as integer

und schreib in das form_load-ereignis

counter = 5

Zitat von shiZZle

du bist genial genau das war das problem xD

Jetzt hab ich nur eine Frage. Wie kann ich ein Bild aufzeigen lassen, wenn er die richtige Zahl erraten hat? Also es soll dann hinter der MSGBox und vor dem Form Load sein. Geht das irgendwie?

du kannst in deinem formular ein image oder picture einfügen und schon zur entwurfszeit ein bild auswählen (picture heißt die eigenschaft glaube ich). visible setzt du dann auf false. und an der stelle wo du es haben willst, schreibst du einfach zB

imgErraten.visible = true