PC-Gamer

silu · 7. Januar 2011, 00:42

Hallo zusammen
Ich bin neu hier und habe in der SuFu nicht gefunden was mir Hilft.
Ich Progge ca seit 5 Monaten mit Viritual Basic 2010.
Im mom bin ich am programmieren eins Spieles dazu brauche ich hilfe!
beim Spiel Handelt es sich um ein Tic Tac Toe by Myself..also keine Youtubefakes sonder selber gemacht..=)
habe vor 2 Tagen angefangen als Lernprojekt..=) also jetzt zu meinem Proplemmli

Ich habe 9 Lables mit einem 0 oder X Player und eine Checkbox mit der ich einen PC-Gamer proggen will
der PC-Gamer sollte bei cheked checkbox den 0 Player übernehmen.
Meine Idee war mithilfe von randomizer den PC Bei Player 0 per zufall irgend eines der 9 labels zu clicken..
allerdings haben alle meine versuche einen code zu schreiben nichts gebracht..
deshalb wie kan ich das am besten schreiben??

Nibel · 7. Januar 2011, 01:29

Warum haben deine Versuche das zu schreiben nichts gebracht, ist doch nicht so schwer?

1. Ein ganz wichtiger Tipp: Trenne die innere Bearbeitung und die Ausgabe!
Also arbeite nicht mit Labels, sondern mit internen Variablen. Die Labels sollen nur gut zur Ausgabe sein, und in deinem Fall auch die Eingabe machen.
Aber teste bitte nicht : If Label.Text = "X" Then
Duu_kannst_hier_nicht_mehr_klicken()
End If

ich hoffe du verstehst was ich meine...

2. Eine KI in TicTacToe zu programmieren ist nicht so schwer, nur (wenn sie gut werden soll) einiges an Aufwand.

Aber eine RandomSet Funktion ist leicht zu implementieren

Einfach so lange eine Zahl zwische 1 und 9 generieren bis sie ein freies Feld trifft und dann dort setzen.

Ich habe mal ein ganzes TicTacToe geschrieben, auch mit KI, das ist ganz ok geworden (glaub ich)

mfG Nibel

Vatter · 7. Januar 2011, 08:35

Nimm bitte nicht Randomize. Da wird bei jedem Programmstart eine identische Zahlenfolge erzeugt.
Besser und einfacher ist die Random-Klasse. Mit Next(Int32, Int32) erzeugst du eine Zufallszahl im angegebenen Bereich (von Zahl1 bis Zahl2 - 1). Auf eines mußt du dabei allerdings achten. Deklariere das Random-Objekt nur einmal im Projekt global.
Fiel Fergnügen
Vatter

FAtheone · 7. Januar 2011, 08:47

Zunächst ein bisschen Pflichtlektüre:

Forumsintern:
[Allgemein] Entwickler-Ressourcen und Tools, Bücher und WebCasts
[Allgemein] Grundlagen: Benennung von Controls (Update: 24.10.2010)
[VB.NET] Beispiele für guten und schlechten Code (Stil)

Galileo Openbooks:
Galileo Openbook VB.NET
Galileo Openbook Einstieg in VB 2008
Galileo Openbook Einstieg in VB 2010

Ein besserer Ansatz:

0.

Option Strict On

1. Das Feld ist...

leer
X
O

also:

VB.NET-Quellcode

Private Enum FieldState
Empty
X
O
End Enum
Dim field(2,2) As FieldState 'Das Spielfeld, 3x3 (0,0) bis (2,2) (Zeile, Spalte)

2. Die Labels bekommen ANSTÄNDIGE Namen (siehe oben, Benennung von Controls)

lblField<Zeile><Spalte> (z.B. lblField00 für Links oben, lblField20 rechts oben etc.)

-EINEN Click-Handler, automatisiert erzeugt.

VB.NET-Quellcode

Private Sub FieldClick(ByVal sender As Object, ByVal e As EventArgs)
Dim clicked As Label = DirectCast(sender, Label) 'Das geklickte Label
'Der code für das klicken eines Labels
'clicked.Name enthält hier lblField<Zeile><Spalte> des geklickten Felds.
'field(<Zeile>,<Spalte>) enthält den aktuellen Zustand des Felds
CheckWins() 'Überprüft, ob emand einen Dreier hat bzw. unentschieden.
End Sub

VB.NET-Quellcode

'In der Form.Load:
AddHandler lblField00.Click, AddressOf FieldClick
'Für ledes Label

3. Die KI

[vb]'... klickt keine Labels an, sondern arbeitet nur mit field(,) und CheckWins()

Noch Fragen?

silu · 7. Januar 2011, 11:54

ok ich danke für eure Antworten bin noch am tüfteln...
noch wegen den labels mein code sieht bis jetzt so aus..
natürlich habe ich Win sub etc auch schon ich habe das ganze programm fertig geproggt bis auf den pcgamer..

VB.NET-Quellcode

Public Class Form1
Dim wert As Integer
Private Sub playLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles playLabel1.Click
If turnplayerLabel.Text = "X" Then
playLabel1.Text = "X"
turnplayerLabel.Text = "0"
Else
playLabel1.Text = "0"
turnplayerLabel.Text = "X"
End If
Call win()
playLabel1.Enabled = False
End Sub
Private Sub playLabel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles playLabel2.Click
If turnplayerLabel.Text = "X" Then
playLabel2.Text = "X"
turnplayerLabel.Text = "0"
Else
playLabel2.Text = "0"
turnplayerLabel.Text = "X"
End If
Call win()
playLabel2.Enabled = False
End Sub
Private Sub playLabel3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles playLabel3.Click
If turnplayerLabel.Text = "X" Then
playLabel3.Text = "X"
turnplayerLabel.Text = "0"
Else
playLabel3.Text = "0"
turnplayerLabel.Text = "X"
End If
Call win()
playLabel3.Enabled = False
End Sub
Private Sub playLabel4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles playLabel4.Click
If turnplayerLabel.Text = "X" Then
playLabel4.Text = "X"
turnplayerLabel.Text = "0"
Else
playLabel4.Text = "0"
turnplayerLabel.Text = "X"
End If
Call win()
playLabel4.Enabled = False
End Sub
Private Sub playLabel5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles playLabel5.Click
If turnplayerLabel.Text = "X" Then
playLabel5.Text = "X"
turnplayerLabel.Text = "0"
Else
playLabel5.Text = "0"
turnplayerLabel.Text = "X"
End If
Call win()
playLabel5.Enabled = False
End Sub
Private Sub playLabel6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles playLabel6.Click
If turnplayerLabel.Text = "X" Then
playLabel6.Text = "X"
turnplayerLabel.Text = "0"
Else
playLabel6.Text = "0"
turnplayerLabel.Text = "X"
End If
Call win()
playLabel6.Enabled = False
End Sub
Private Sub playLabel7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles playLabel7.Click
If turnplayerLabel.Text = "X" Then
playLabel7.Text = "X"
turnplayerLabel.Text = "0"
Else
playLabel7.Text = "0"
turnplayerLabel.Text = "X"
End If
Call win()
playLabel7.Enabled = False
End Sub
Private Sub playLabel8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles playLabel8.Click
If turnplayerLabel.Text = "X" Then
playLabel8.Text = "X"
turnplayerLabel.Text = "0"
Else
playLabel8.Text = "0"
turnplayerLabel.Text = "X"
End If
Call win()
playLabel8.Enabled = False
End Sub
Private Sub playLabel9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles playLabel9.Click
If turnplayerLabel.Text = "X" Then
playLabel9.Text = "X"
turnplayerLabel.Text = "0"
Else
playLabel9.Text = "0"
turnplayerLabel.Text = "X"
End If
Call win()
playLabel9.Enabled = False
End Sub

Mono · 7. Januar 2011, 12:30

Vatter schrieb:

Nimm bitte nicht Randomize. Da wird bei jedem Programmstart eine identische Zahlenfolge erzeugt.
Besser und einfacher ist die Random-Klasse. Mit Next(Int32, Int32) erzeugst du eine Zufallszahl im angegebenen Bereich (von Zahl1 bis Zahl2 - 1). Auf eines mußt du dabei allerdings achten. Deklariere das Random-Objekt nur einmal im Projekt global.
Fiel Fergnügen
Vatter

Hey Vatter, du hasz natürlich prinzipiell mit dem Hinweis auf die Randomklasse recht.
Aber Randomize() erzeugt nicht jedesmal eine identische Zahlenfolge. Ganz im Gegenteil :)
Randomize wird benötigt, um den Startseed für die Funktion Rnd() zu erzeugen. Dieser Seed wird aus dem System.Timer geholt.
Daher ist Randomize der Randomizer der Funktion Rnd(). Diese erzeugt ohne ein Randomize() sonst immer die selben Zahlen.

Vatter · 7. Januar 2011, 12:46

Ahso,
stimmt. Ich muß mir wohl ma genaueres Lesen angewöhnen. Steht ja bei MSDN beschrieben.
Danke für die Aufklärung

Obwohl,
Als Märchenerzähler darf ich das ja....

FAtheone · 7. Januar 2011, 13:10

@TS:

Bitte packe lange Codes in

Quellcode

[expander][/expander]

Blöcke.

Des Weiteren solltest du dir meinen Ansatz ruhig mal durchlesen.
Du siehst doch selbst die Redundanz deines Codes, oder?

In meiner FieldClick kannst du den Status abfragen; wenn er nicht Empty ist, dann einfach keine Veränderung machen.
Hier noch zur Ausgabe der Labels:

VB.NET-Quellcode

Private Sub DrawField()
Dim tmpLbl As Label
For row = 0 To 2
For col = 0 To 2
tmpLbl = Me.Controls("lbl" & row.ToString() & col.ToString())
Select Case field(row, col)
Case Empty
tmpLbl.Text = ""
Case X
tmpLbl.Text = "X"
Case O
tmpLbl.Text = "O"
End Select
Next
Next
End Sub

silu · 7. Januar 2011, 13:32

joop habs durchgelesen..=)
ist mit sicherheit die bessere lösung als die die ich kreiert habe..=)
aber zur entschuldigung..ich bin noch neuling und habe einfach mal so wild angefangen zu kreieren nachdem ich 1 buch angefangen habe zu lesen und alle 4 demos in VB gemacht habe..=)
Ok ich will meinen code nich nochmal total überarbeiten da es ja wie gesagt ein übugsprogramm ist...
eifentlich will ich nur noch diesen pcgamer fertigmachen und dan mit einem sauberen neuen projekt anfangen..=)
also kan ich das auch so lösen..??

Public Class Form1
'ich sage dem pc das es sich um ein random handelt'
Dim random As New Random
danach ordne ich die 9 playlabels dem random zu und sage wen das hägli in der checkbox ist und Spieler 0 Dran ist soll mir VB irgend eines der 9 felder clicken

ist das so möglich?? wen ja wie kan ich das random zu den labels zuordnen??
sorry die fragen aber ich werde einfach im mom aus den Beschreibungen im buch nicht schlau..=(

FAtheone · 7. Januar 2011, 13:37

Gucke dir .PerformClick() der Labels an.

Und natürlich die oben verlinkten OpenBooks (kostenlos als eBook, auch in gedruckter Form erhältlich) schön durchkauen

silu · 7. Januar 2011, 13:41

lol habe mir ein buch gekauft..ist aber nicht so der hammer das ding...
macht mir ein grösseresdurcheinander als das programm selber..=)
ok..werde nach neuem buch ausschau halten..und die openbook von link oben anschauen gehen..=)
..wie mache ich den das mit den perform clicks???
thx für die hilfe

FAtheone · 7. Januar 2011, 13:44

lbl00.PerformClick() für einen "Simulierten Klick" auf lbl00

silu · 7. Januar 2011, 14:17

ok werde es auspropieren..wird schon schief gehen..=)
danke für die hilfe.=)

Kangaroo · 7. Januar 2011, 14:21

FAtheone schrieb:

Des Weiteren solltest du dir meinen Ansatz ruhig mal durchlesen.
Du siehst doch selbst die Redundanz deines Codes, oder?

Obwohl ein besserer Ansatz, bezweifle ich doch dass ein Neuling nach 6 Wochen schon viel mit AddHandler, DirectCast, ControlsCollection etc anfangen kann, ohne eine Menge Erklärungen dazu mitzugeben :rolleyes:

Aber da es ein Lernprojekt ist, kann er ja alles in der nächsten Version besser machen. Ich glaube der wichtigste Hniweis überhaupt kam von Nibel: trenne die Präsentation der Daten von ihrer internen Darstellung ...

silu schrieb:

Dim random As New Random
danach ordne ich die 9 playlabels dem random zu und sage wen das hägli in der checkbox ist und Spieler 0 Dran ist soll mir VB irgend eines der 9 felder clicken
ist das so möglich?? wen ja wie kan ich das random zu den labels zuordnen??

Dafür ist es nötig zu wissen, dass bestimmte Controls (Form, Panel, Groupbox, ...) als Container für andere Controls dienen können und man diese diese in ihrer .Controls Property abrufen kann. Diese kann man auch mit einer For...Each Schleife durchlaufen.

Insofern solltest Du folgendes machen:
- lege Dir eine leere Liste an dim emptyLabels as new List(of Control)
- durchlaufe alle controls in der Form.Controls Collection und speichere die Label in der Liste ab die noch unbesetzt (leer) sind
- ermittle eine Zufallszahl zwischen 0 und der Länge der Liste
- wenn keine Elemente mehr frei sind so ist das Spiel zu Ende
- simuliere einen Click mit .PerformClick

Kommst Du mit diesen Hinweisen zurecht oder brauchst Du ein Beispiel ?

silu · 7. Januar 2011, 14:50

Kangaroo schrieb:

FAtheone schrieb:

Des Weiteren solltest du dir meinen Ansatz ruhig mal durchlesen.
Du siehst doch selbst die Redundanz deines Codes, oder?

Obwohl ein besserer Ansatz, bezweifle ich doch dass ein Neuling nach 6 Wochen schon viel mit AddHandler, DirectCast, ControlsCollection etc anfangen kann, ohne eine Menge Erklärungen dazu mitzugeben Aber da es ein Lernprojekt ist, kann er ja alles in der nächsten Version besser machen. Ich glaube der wichtigste Hniweis überhaupt kam von Nibel: trenne die Präsentation der Daten von ihrer internen Darstellung ...

silu schrieb:

Dim random As New Random
danach ordne ich die 9 playlabels dem random zu und sage wen das hägli in der checkbox ist und Spieler 0 Dran ist soll mir VB irgend eines der 9 felder clicken
ist das so möglich?? wen ja wie kan ich das random zu den labels zuordnen??

Dafür ist es nötig zu wissen, dass bestimmte Controls (Form, Panel, Groupbox, ...) als Container für andere Controls dienen können und man diese diese in ihrer .Controls Property abrufen kann. Diese kann man auch mit einer For...Each Schleife durchlaufen.

Insofern solltest Du folgendes machen:
- lege Dir eine leere Liste an dim emptyLabels as new List(of Control)
- durchlaufe alle controls in der Form.Controls Collection und speichere die Label in der Liste ab die noch unbesetzt (leer) sind
- ermittle eine Zufallszahl zwischen 0 und der Länge der Liste
- wenn keine Elemente mehr frei sind so ist das Spiel zu Ende
- simuliere einen Click mit .PerformClick

Kommst Du mit diesen Hinweisen zurecht oder brauchst Du ein Beispiel ?

lol ja ich bin neuling und habe auch nicht viel zeit zum proggen..=) mache das so zwischendurch....bin zwar seit ca6 monaten dran habe etwa 6h zum proggen gebraucht bis jetzt..=)
ja ein biespiel wäre sehr toll..=)

Mapag · 7. Januar 2011, 14:59

Eigentlich nennt sich da der Computer-Spieler (KI) also Künstliche Intelligenz.

Kangaroo · 7. Januar 2011, 15:47

Jetzt hat mich FAtheone natürlich extrem reingerissen: ein PerformClick gibt es zwar für Buttons aber dummerweise nicht für Labels.

Habe es jetzt im Beispiel mal über Reflection gelöst, ist aber ziemlich unschön :

VB.NET-Quellcode

' im Kopf der Klasse angeben
Dim r As New Random
...
Sub randomLabelClick()
' leere control Liste anlegen
Dim emptyLabels As New List(Of Control)
' alle controls der Form durchlaufen
For Each c As Control In Me.Controls
' prüfe auf Name und unbesetzt -> füge zur liste hinzu
If c.Name.StartsWith("playLabel") AndAlso c.Text = "" Then emptyLabels.Add(c)
Next
' wenn liste leer -> keine freien Felder
If emptyLabels.Count = 0 Then MessageBox.Show("keine freien Felder") : Return
' ermittle Zufallselement
Dim i As Integer = r.Next(0, emptyLabels.Count) ' obere Grenze wird nie erreicht
Dim randomCtrl As Control = emptyLabels(i)
' click per system.Reflection (sehr unschön)
Dim onClickMethod As System.Reflection.MethodInfo = randomCtrl.GetType().GetMethod("OnClick", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
onClickMethod.Invoke(randomCtrl, New Object() {Nothing})
End Sub

Sauberer wäre es für alle playLabels einen AddHandler zu setzten und dann nur die Methode aufzurufen um einen Click zu simulieren.

silu · 7. Januar 2011, 15:57

ok sieht relativ kompliziert aus aber danke..bin immer noch ein bisschen am tüfteln aber kommt schon..=)

Kangaroo · 7. Januar 2011, 15:59

silu schrieb:

ok sieht relativ kompliziert aus

Daher die ganzen Kommentare: es macht genau das was ich Dir oben beschrieben hatte. Nur der simulierte Click über System.Reflection ist etwas komplizierter, der Rest ist normale Praxis.

Im Zweifel einfach nachfragen ....

silu · 7. Januar 2011, 16:57

ahhhhh f..........
ich bringe es einfach nicht hin..
habe jetzt auch mit dem gedanken gespielt per random eine zahl von 1-9 zu generieren und diese den labels zuzuordnen..
ich krieg einfach keinen funktionierenden code hin!!
also ich will das mit random machen..

sollte dan irgendswie so sein

Spieler 0 ist dran
if turnplayerlabel.text = "0" then
dan sollte mir random eine zahl zwischen 1-9 geben mit der sich das zugewiesene label klickt..=)
l

PC-Gamer

PC-Gamer

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Vatter schrieb:

Quellcode

VB.NET-Quellcode

FAtheone schrieb:

silu schrieb:

Kangaroo schrieb:

FAtheone schrieb:

silu schrieb:

VB.NET-Quellcode

silu schrieb:

Ähnliche Themen

3 Benutzer haben hier geschrieben