Ratespiel

shiZZle

Hi Leute. Ich muss ein Ratespiel programmieren.

Meine Beweggründe hier rein zu schreiben:

- Wie kann ich es programmieren, sodass der "rater" nur 10 Möglichkeiten hat, zu raten? Ich habs mir ner Zählerschleife probiert, aber klappt leider net. PLS need help

- Verbesserungen und Tipps immer gerne erwünscht

Code

Private Sub cmd_raten_Click()
ratezahl = 45
zahl = Val(tf_zahl.Text)


If zahl > 45 Then
 MsgBox ("Die Zahl ist kleiner als Ihre!")

    Else
        If zahl < 45 Then
         MsgBox ("Die Zahl ist größer als Ihre")

            Else
                If zahl = 45 Then
                 MsgBox ("Glückwunsch! Richtig geraten!")
                End If
        End If
End If






End Sub

Alles anzeigen

Christoph R.

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

Trux

unter vs08 würds so aussehen

PHP

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

Alles anzeigen

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.

shiZZle

irgendwie klappt dein code nicht. ( hab vb06)

Dim counter = 5

Dort kommt ne Fehlermeldung, dass nen Ausdruck erwartet wird.

michi204

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.

shiZZle

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

michi204

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

Code

dim counter = 5

diese zeile

Code

dim counter as integer

und schreib in das form_load-ereignis

Code

counter = 5

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?

michi204

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

Code

imgErraten.visible = true

shiZZle

ahh ok, dann hab ichs ja doch richtig gemacht xD

Meine letzte Frage ist:

Kann man die ZuerrateneZahl eigentlich auch zufällig einen wert geben? Gibt es da irgendeine möglichkeit?

Jetzt mitmachen!