Hi bin neu hier im forum und noch blutiger Anfänger in Sachen Programmierung mit VB.
Muss ein Spiel bis nächste Woche Fertigstellen und habe Probleme bei einigen Programmcodes.
Das Spiel kennt sicherlich jeder von euch. 9 felder sind vorhanden und wenn man z.b. 3 Felder horizontal diagonal oder quer mit kreuzen vollhat gewinnt man.


Private Sub Text3_Change()
If feld(0) = 1 And feld(1) = 1 And feld(2) = 1 Or feld(3) = usw...
Load(TextBox) = Text.Text3_Change(you)
// Hier soll eine Nachricht erscheinen, die dem Spieler Mitteilt dass er gewonnen hat. Zb Player 1 Won the match. Wie mach ich den Code dafür ? Und kann ich dafür ein Textbox verwenden? //


Außerdem soll man mit dem klick auf einen Button ein neues Spiel anfangen können. Also die Kästchen mit den X und den Kreisen sollen sich wieder leeren um ein neues Spiel anfangen zu können. wie macht man das ?


Und noch eine Frage: Wie erstelle ich einen Computergegner in diesem Spiel ?
Kann mir da vielleicht jemand helfen ?

Mfg O.M.P.

Der PC versteht nicht, was du meinst, er macht nur, was du ihm sagst. Wenn du schreibst:

musst du da Klammern machen, sonst wird beim ... Or ... nur dievordre und hintere Bedingung geprüft. Setz das so in Klammern:


Mit ner Textbox Text ausgeben geht so:


Neues Spiel anfangen: Mittels For... das Array duchlaufen, alles auf Standart setzen. Dann mittels Picturebox1.Picture = Nothing (heisst das ev anders?)

Zum Computergegner: Es gibt verschiedene Typen von Gegnern. Z.B. den, dem du dein Array übergibst und der dann mit vielen IFs den Zug sagt. Das setzt allerdings vorraus, dass du den optimalen Zug für jede Situation kennst.
Ich programmiere gerade ein ähnliches Spiel, 3x3 Feld, jede Seite hat 3 Bauern und dann eig wie Schach, nur dass die Bauern nicht "Gerade" schlagen dürfen. Ich habe dem Programm nur mitgeteilt, nach welchen Regeln die Züge erfolgen. Am Anfang kennt mien Programm also nur die Spielregeln, sonst gar nichts. Kommt nun eine Situation, die noch nie vorhanden war (am Anfang recht häufig), sucht das Spiel alle möglichen Züge heruas und speichert das ganze. Jeder Zug hat ein "Gewicht". Gewinnt das Programm, werden bei jedem Zug, der es zum Sieg gebracht hat, das Gewicht positiv verändert. hat es verloren, werden sie negativ geändert. Kennt das Programm nun schon eine Situation und hat alle Züge für diese Situation gespeichert, wird der Zug mit dem höchsten Gewicht ausgeführt. Die Gewichte muss man dann natürlich noch speichern, damit das Programm nicht bei jedem Start wieder von Vorne Anfängt.

Erstmal vielen Dank für die superschnelle antwort

Also ich hab das jetzt so gemacht wie du beschrieben hast, aber wenn ich drei reihen voll habe wird immernoch kein text ausgegeben.
Was habe ich falsch gemacht?

Hier der Code

Private Sub Text3_Change()
If (feld(0) = 1 And feld(1) = 1 And feld(2) = 1) Or (feld(3) = 1 And feld(4) = 1 And feld(5) = 1) Or (feld(6) = 1 And feld(7) = 1 And feld(8) = 1) Or (feld(0) = 1 And feld(4) = 1 And feld(8) = 1) Or (feld(2) = 1 And feld(4) = 1 And feld(6) = 1) Or (feld(0) = 1 And feld(3) = 1 And feld(6) = 1) Or (feld(1) = 1 And feld(4) = 1 And feld(7) = 1) Or (feld(2) = 1 And feld(5) = 1 And feld(8) = 1) Then
Text3.Text = "You win"
End If
End Sub

Die Textbox heisst bei mir Text3.



Mfg O.M.P.

Es ist zwar kein schöner Programmierstil, aber bei einer so langen Bedingung würd eich mehrere Ifs schreiben und zwar für jede Reihe, Splate und Diagonale, insgesamt also 9. In jedes if kommt dann das mit der Textbox, denn so eine Lange bedingung ist nur schwer zu lesen.
Wieso machst du dieses If denn in TextBox_TextChanged? Das wird ja dann nur aufgerufen, wenn sich der Text geändert hat. Ich hab das bei mir so geregelt (hab ne ähnliche Methode die überprüft, ob der Spieler gewonnen hat), dass ich die Abfragen in eine Methode gemacht hab, die entweder true oder false zurückgibt. Dann musst du bei jedem Zug diese Methode aufrufen. Als Argument kannst du noch die Farbe mitübergeben, das hat später den Vorteil, dass du mit der selben Methode prüfen kannst, ob der Computer gewonnen hat. Dann müsstest du die ganzen einsen durch die mitübergeben Variable ersetzen. Beim Klick auf eine der Pictureboxen passiert dann das hier:

Also ich hab jetzt eine MsgBox erstellt. Beim klick auf Ja wenn die Messagebox fragt ob das momentane spiel beendet werden soll, wird diese Funktion aufgerufen




Das Problem ist das die Bilder beim klick auf die felder nichtmehr wieder erscheinen. Wie mach ich das?
Ich bin echt am ende ich hab schon alles versucht ich bekomm es einfach nicht hin.

kann mir jemand sagen wie genau der code aussehen muss, damit die Bilder nach dem klick wieder geladen werden?

hm, eigentlich müsste das gehen. Es könnte daran liegen, dass du eventuell vergessen hast, das Array wieder auf den Standartwert zu setzen?



und die Variable kreuz nicht vergessen, die muss auch wieder auf den Standartwert.

Vielen Dank Dusti das hat wunderbar geklappt
Sorry schon dumm das ich nicht selbst auf sowas gekommen bin aber ich bin noch ein blutiger noob in VB

Ich will euch ja nicht weiter mit meinen Primitiven Fragen nerven aber das mit der Benachrichtigung klappt noch nicht wirklich. Wenn ich eine Reihe voll hab zb. mit X dann passiert nichts, wenn ich zwei reihen mit x und Kreisen voll hab, erscheint die nachricht nur, wenn ich auf die Box klicke!
Und die Nachricht wird beim nächsten Spielstart nicht geläscht.

Könntest du mir bitte nochmal dabei helfen dusti, wäre echt nett von dir muss das spiel in 2 Tagen fertig haben

Hier nochmal der Code:


End Sub


Und dashier ist der Code für den Button mit dem Ich das Spiel zum Anfang zurücksetze:




Nochmals vielen dank für deine Mühe Dusti du hast mir sehr weitergeholfen

das liegt daran, dass dein If-Abfrage im Label3_Click() steht, d.h. es wird nur überprüft, wenn du auf das Label klickst. Mach diese überprfung als Methode und ruf die Methode dann bei einem Klcik auf die Picture1-Picture9 (ich weiss den genauen Namen nicht, es sind deine "Spielfelder" gemeint). Dann wird das bei jedem Zug überprüft.
Wie gesagt, ich würde dieses riesenlange if aufteilen, das ist viel leichter zu lesen.

Ich habe es jetzt so gemacht:







Der Text erscheint immernoch nicht automatisch.

Kann man in dem Sub win2() nicht einfach irgendeine anweisung reinschreiben wie alert oder so, oder geht das nicht? Muss ich den Code nochmal neu schreiben oder geht das auch irgendwie so?

Wie ich dir jetzt schon zum 3. mal schreibe, es kann nicht erscheinen, da die Ifs nur abgefragt werden, wenn du auf Label3 Klickst, so hast dus ja geschrieben. Mach das in eine eigenen Mehtode und ruf die nach jedem Zug auf.

Wie genau macht man das denn in einer eigenen Methode?

Ich habs jetzt so gemacht:

Private Sub Picture1_Click()
if feld(0)=1 then
Label3 = "You win"
End Sub

Ist das so richtig?
Könttest du vielleicht ein Beispiel schreiben, wie man das mit der Methode macht? Die Felder heissen feld (0-8)
Wie gesagt, ich habe grademal eine Woche mit diesem Programm gearbeitet und von daher nicht so viel ahnung.

ersetzt du durch



Achtung, ist alles Pseudocode von mir, besonders das "Function gewonnen". Ich weiss nicht, ob das funktioniert, schau halt und versuch zu korrigieren.

Alles klar jetzt klappt es

Vielen dank für deine Hilfe+Mühe

Mfg OMP

Jetzt vielleicht noch die Function mit End Function abschließen.

Tipp:
Ich würde die Bilder nur mit relativem Pfad laden oder direkt ins Programm einbinden, nicht jeder heißt enkkad und bewahrt dann noch seine Progamme in den Eigenen Dateien auf.