[How to] make your own TicTacToe-Game by germanhacker

germanhacker · 05/02/2010, 15:07

Hello Elitepvpers,
Now I will show you how to create your own TicTacToe-Game.
Let´s go !

1. Open Virtual Basic and create a new Project.

2. do 10 Buttons
Like this:

3. do 7 Labels
Label1 = X
Label2 = ´s turn
Label3 = Score:
Label4 = X:
Label5 = O:
Label6 = 0 (its the number 0)
Label7 = 0 (its the number 0)
Like this:

4.Coding !

double click on Form1 and delete all.
Then put in this Code:

Code:

Public Class Form1
    Dim turn As Integer

End Class

Now we have to make a "disablebuttons" funktion. Code:

Code:

    Private Sub disablebuttons()
        Button1.Enabled = (False)
        Button2.Enabled = (False)
        Button3.Enabled = (False)
        Button4.Enabled = (False)
        Button5.Enabled = (False)
        Button6.Enabled = (False)
        Button7.Enabled = (False)
        Button8.Enabled = (False)
        Button9.Enabled = (False)
    End Sub

Now we have to wright down the combinations to win the game:

Code:

    Private Sub win()
        If Button1.Text = "X" And Button2.Text = "X" And Button3.Text = "X" Then
            MsgBox("Player X has won!")
            Label6.Text += 1
            Call disablebuttons()
        ElseIf Button1.Text = "X" And Button5.Text = "X" And Button9.Text = "X" Then
            MsgBox("Player X has won!")
            Label6.Text += 1
            Call disablebuttons()
        ElseIf Button3.Text = "X" And Button5.Text = "X" And Button7.Text = "X" Then
            MsgBox("Player X has won!")
            Label6.Text += 1
            Call disablebuttons()
        ElseIf Button4.Text = "X" And Button5.Text = "X" And Button6.Text = "X" Then
            MsgBox("Player X has won!")
            Label6.Text += 1
            Call disablebuttons()
        ElseIf Button7.Text = "X" And Button8.Text = "X" And Button9.Text = "X" Then
            MsgBox("Player X has won!")
            Label6.Text += 1
            Call disablebuttons()
        ElseIf Button1.Text = "X" And Button4.Text = "X" And Button7.Text = "X" Then
            MsgBox("Player X has won!")
            Label6.Text += 1
            Call disablebuttons()
        ElseIf Button2.Text = "X" And Button5.Text = "X" And Button8.Text = "X" Then
            MsgBox("Player X has won!")
            Label6.Text += 1
            Call disablebuttons()
        ElseIf Button3.Text = "X" And Button6.Text = "X" And Button9.Text = "X" Then
            MsgBox("Player X has won!")
            Label6.Text += 1
            Call disablebuttons()
        ElseIf Button1.Text = "O" And Button2.Text = "O" And Button3.Text = "O" Then
            MsgBox("Player O has won!")
            Label7.Text += 1
            Call disablebuttons()
        ElseIf Button1.Text = "O" And Button5.Text = "O" And Button9.Text = "O" Then
            MsgBox("Player O has won!")
            Label7.Text += 1
            Call disablebuttons()
        ElseIf Button3.Text = "O" And Button5.Text = "O" And Button7.Text = "O" Then
            MsgBox("Player O has won!")
            Label7.Text += 1
            Call disablebuttons()
        ElseIf Button4.Text = "O" And Button5.Text = "O" And Button6.Text = "O" Then
            MsgBox("Player O has won!")
            Label7.Text += 1
            Call disablebuttons()
        ElseIf Button7.Text = "O" And Button8.Text = "O" And Button9.Text = "O" Then
            MsgBox("Player O has won!")
            Label7.Text += 1
            Call disablebuttons()
        ElseIf Button1.Text = "O" And Button4.Text = "O" And Button7.Text = "O" Then
            MsgBox("Player O has won!")
            Label7.Text += 1
            Call disablebuttons()
        ElseIf Button2.Text = "O" And Button5.Text = "O" And Button8.Text = "O" Then
            MsgBox("Player O has won!")
            Label7.Text += 1
            Call disablebuttons()
        ElseIf Button3.Text = "O" And Button6.Text = "O" And Button9.Text = "O" Then
            MsgBox("Player O has won!")
            Label7.Text += 1
            Call disablebuttons()
        End If

    End Sub

Lets add the Code for the Buttons:

Code:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If turn = 1 Then
            Button1.Text = "O"
            Label1.Text = "X"
        Else
            Button1.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button1.Enabled = False

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If turn = 1 Then
            Button2.Text = "O"
            Label1.Text = "X"
        Else
            Button2.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button2.Enabled = False

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If turn = 1 Then
            Button3.Text = "O"
            Label1.Text = "X"
        Else
            Button3.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button3.Enabled = False

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If turn = 1 Then
            Button4.Text = "O"
            Label1.Text = "X"
        Else
            Button4.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button4.Enabled = False

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If turn = 1 Then
            Button5.Text = "O"
            Label1.Text = "X"
        Else
            Button5.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button5.Enabled = False

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If turn = 1 Then
            Button6.Text = "O"
            Label1.Text = "X"
        Else
            Button6.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button6.Enabled = False

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If turn = 1 Then
            Button7.Text = "O"
            Label1.Text = "X"
        Else
            Button7.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button7.Enabled = False

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If turn = 1 Then
            Button8.Text = "O"
            Label1.Text = "X"
        Else
            Button8.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button8.Enabled = False

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If turn = 1 Then
            Button9.Text = "O"
            Label1.Text = "X"
        Else
            Button9.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button9.Enabled = False

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Button1.Text = ""
        Button1.Enabled = True
        Button2.Text = ""
        Button2.Enabled = True
        Button3.Text = ""
        Button3.Enabled = True
        Button4.Text = ""
        Button4.Enabled = True
        Button5.Text = ""
        Button5.Enabled = True
        Button6.Text = ""
        Button6.Enabled = True
        Button7.Text = ""
        Button7.Enabled = True
        Button8.Text = ""
        Button8.Enabled = True
        Button9.Text = ""
        Button9.Enabled = True
    End Sub

If you did everything correctly it looks like this :

Code:

Public Class Form1
    Dim turn As Integer
    Private Sub disablebuttons()
        Button1.Enabled = (False)
        Button2.Enabled = (False)
        Button3.Enabled = (False)
        Button4.Enabled = (False)
        Button5.Enabled = (False)
        Button6.Enabled = (False)
        Button7.Enabled = (False)
        Button8.Enabled = (False)
        Button9.Enabled = (False)
    End Sub
    Private Sub win()
        If Button1.Text = "X" And Button2.Text = "X" And Button3.Text = "X" Then
            MsgBox("Player X has won!")
            Label6.Text += 1
            Call disablebuttons()
        ElseIf Button1.Text = "X" And Button5.Text = "X" And Button9.Text = "X" Then
            MsgBox("Player X has won!")
            Label6.Text += 1
            Call disablebuttons()
        ElseIf Button3.Text = "X" And Button5.Text = "X" And Button7.Text = "X" Then
            MsgBox("Player X has won!")
            Label6.Text += 1
            Call disablebuttons()
        ElseIf Button4.Text = "X" And Button5.Text = "X" And Button6.Text = "X" Then
            MsgBox("Player X has won!")
            Label6.Text += 1
            Call disablebuttons()
        ElseIf Button7.Text = "X" And Button8.Text = "X" And Button9.Text = "X" Then
            MsgBox("Player X has won!")
            Label6.Text += 1
            Call disablebuttons()
        ElseIf Button1.Text = "X" And Button4.Text = "X" And Button7.Text = "X" Then
            MsgBox("Player X has won!")
            Label6.Text += 1
            Call disablebuttons()
        ElseIf Button2.Text = "X" And Button5.Text = "X" And Button8.Text = "X" Then
            MsgBox("Player X has won!")
            Label6.Text += 1
            Call disablebuttons()
        ElseIf Button3.Text = "X" And Button6.Text = "X" And Button9.Text = "X" Then
            MsgBox("Player X has won!")
            Label6.Text += 1
            Call disablebuttons()
        ElseIf Button1.Text = "O" And Button2.Text = "O" And Button3.Text = "O" Then
            MsgBox("Player O has won!")
            Label7.Text += 1
            Call disablebuttons()
        ElseIf Button1.Text = "O" And Button5.Text = "O" And Button9.Text = "O" Then
            MsgBox("Player O has won!")
            Label7.Text += 1
            Call disablebuttons()
        ElseIf Button3.Text = "O" And Button5.Text = "O" And Button7.Text = "O" Then
            MsgBox("Player O has won!")
            Label7.Text += 1
            Call disablebuttons()
        ElseIf Button4.Text = "O" And Button5.Text = "O" And Button6.Text = "O" Then
            MsgBox("Player O has won!")
            Label7.Text += 1
            Call disablebuttons()
        ElseIf Button7.Text = "O" And Button8.Text = "O" And Button9.Text = "O" Then
            MsgBox("Player O has won!")
            Label7.Text += 1
            Call disablebuttons()
        ElseIf Button1.Text = "O" And Button4.Text = "O" And Button7.Text = "O" Then
            MsgBox("Player O has won!")
            Label7.Text += 1
            Call disablebuttons()
        ElseIf Button2.Text = "O" And Button5.Text = "O" And Button8.Text = "O" Then
            MsgBox("Player O has won!")
            Label7.Text += 1
            Call disablebuttons()
        ElseIf Button3.Text = "O" And Button6.Text = "O" And Button9.Text = "O" Then
            MsgBox("Player O has won!")
            Label7.Text += 1
            Call disablebuttons()
        End If

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If turn = 1 Then
            Button1.Text = "O"
            Label1.Text = "X"
        Else
            Button1.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button1.Enabled = False

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If turn = 1 Then
            Button2.Text = "O"
            Label1.Text = "X"
        Else
            Button2.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button2.Enabled = False

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If turn = 1 Then
            Button3.Text = "O"
            Label1.Text = "X"
        Else
            Button3.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button3.Enabled = False

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If turn = 1 Then
            Button4.Text = "O"
            Label1.Text = "X"
        Else
            Button4.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button4.Enabled = False

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If turn = 1 Then
            Button5.Text = "O"
            Label1.Text = "X"
        Else
            Button5.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button5.Enabled = False

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If turn = 1 Then
            Button6.Text = "O"
            Label1.Text = "X"
        Else
            Button6.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button6.Enabled = False

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If turn = 1 Then
            Button7.Text = "O"
            Label1.Text = "X"
        Else
            Button7.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button7.Enabled = False

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If turn = 1 Then
            Button8.Text = "O"
            Label1.Text = "X"
        Else
            Button8.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button8.Enabled = False

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If turn = 1 Then
            Button9.Text = "O"
            Label1.Text = "X"
        Else
            Button9.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button9.Enabled = False

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Button1.Text = ""
        Button1.Enabled = True
        Button2.Text = ""
        Button2.Enabled = True
        Button3.Text = ""
        Button3.Enabled = True
        Button4.Text = ""
        Button4.Enabled = True
        Button5.Text = ""
        Button5.Enabled = True
        Button6.Text = ""
        Button6.Enabled = True
        Button7.Text = ""
        Button7.Enabled = True
        Button8.Text = ""
        Button8.Enabled = True
        Button9.Text = ""
        Button9.Enabled = True
    End Sub
End Class

German Code:

Code:

Public Class Form1
    Dim turn As Integer
    Private Sub win()
        If Button1.Text = "X" And Button2.Text = "X" And Button3.Text = "X" Then
            MsgBox("Player X has won!")
            Label6.Text += 1
            Call disablebuttons()
        ElseIf Button1.Text = "X" And Button5.Text = "X" And Button9.Text = "X" Then
            MsgBox("Player X has won!")
            Label6.Text += 1
            Call disablebuttons()
        ElseIf Button3.Text = "X" And Button5.Text = "X" And Button7.Text = "X" Then
            MsgBox("Player X has won!")
            Label6.Text += 1
            Call disablebuttons()
        ElseIf Button4.Text = "X" And Button5.Text = "X" And Button6.Text = "X" Then
            MsgBox("Player X has won!")
            Label6.Text += 1
            Call disablebuttons()
        ElseIf Button7.Text = "X" And Button8.Text = "X" And Button9.Text = "X" Then
            MsgBox("Player X has won!")
            Label6.Text += 1
            Call disablebuttons()
        ElseIf Button1.Text = "X" And Button4.Text = "X" And Button7.Text = "X" Then
            MsgBox("Player X has won!")
            Label6.Text += 1
            Call disablebuttons()
        ElseIf Button2.Text = "X" And Button5.Text = "X" And Button8.Text = "X" Then
            MsgBox("Player X has won!")
            Label6.Text += 1
            Call disablebuttons()
        ElseIf Button3.Text = "X" And Button6.Text = "X" And Button9.Text = "X" Then
            MsgBox("Player X has won!")
            Label6.Text += 1
            Call disablebuttons()
        ElseIf Button1.Text = "O" And Button2.Text = "O" And Button3.Text = "O" Then
            MsgBox("Player O has won!")
            Label7.Text += 1
            Call disablebuttons()
        ElseIf Button1.Text = "O" And Button5.Text = "O" And Button9.Text = "O" Then
            MsgBox("Player O has won!")
            Label7.Text += 1
            Call disablebuttons()
        ElseIf Button3.Text = "O" And Button5.Text = "O" And Button7.Text = "O" Then
            MsgBox("Player O has won!")
            Label7.Text += 1
            Call disablebuttons()
        ElseIf Button4.Text = "O" And Button5.Text = "O" And Button6.Text = "O" Then
            MsgBox("Player O has won!")
            Label7.Text += 1
            Call disablebuttons()
        ElseIf Button7.Text = "O" And Button8.Text = "O" And Button9.Text = "O" Then
            MsgBox("Player O has won!")
            Label7.Text += 1
            Call disablebuttons()
        ElseIf Button1.Text = "O" And Button4.Text = "O" And Button7.Text = "O" Then
            MsgBox("Player O has won!")
            Label7.Text += 1
            Call disablebuttons()
        ElseIf Button2.Text = "O" And Button5.Text = "O" And Button8.Text = "O" Then
            MsgBox("Player O has won!")
            Label7.Text += 1
            Call disablebuttons()
        ElseIf Button3.Text = "O" And Button6.Text = "O" And Button9.Text = "O" Then
            MsgBox("Player O has won!")
            Label7.Text += 1
            Call disablebuttons()
        End If

    End Sub
    Private Sub disablebuttons()
        Button1.Enabled = (False)
        Button2.Enabled = (False)
        Button3.Enabled = (False)
        Button4.Enabled = (False)
        Button5.Enabled = (False)
        Button6.Enabled = (False)
        Button7.Enabled = (False)
        Button8.Enabled = (False)
        Button9.Enabled = (False)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If turn = 1 Then
            Button1.Text = "O"
            Label1.Text = "X"
        Else
            Button1.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button1.Enabled = False

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If turn = 1 Then
            Button2.Text = "O"
            Label1.Text = "X"
        Else
            Button2.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button2.Enabled = False

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If turn = 1 Then
            Button3.Text = "O"
            Label1.Text = "X"
        Else
            Button3.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button3.Enabled = False

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If turn = 1 Then
            Button4.Text = "O"
            Label1.Text = "X"
        Else
            Button4.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button4.Enabled = False

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If turn = 1 Then
            Button5.Text = "O"
            Label1.Text = "X"
        Else
            Button5.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button5.Enabled = False

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If turn = 1 Then
            Button6.Text = "O"
            Label1.Text = "X"
        Else
            Button6.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button6.Enabled = False

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If turn = 1 Then
            Button7.Text = "O"
            Label1.Text = "X"
        Else
            Button7.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button7.Enabled = False

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If turn = 1 Then
            Button8.Text = "O"
            Label1.Text = "X"
        Else
            Button8.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button8.Enabled = False

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If turn = 1 Then
            Button9.Text = "O"
            Label1.Text = "X"
        Else
            Button9.Text = "X"
            Label1.Text = "O"
        End If
        turn += 1
        If turn > 2 Then
            turn = 1

        End If
        Call win()
        Button9.Enabled = False

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Button1.Text = ""
        Button1.Enabled = True
        Button2.Text = ""
        Button2.Enabled = True
        Button3.Text = ""
        Button3.Enabled = True
        Button4.Text = ""
        Button4.Enabled = True
        Button5.Text = ""
        Button5.Enabled = True
        Button6.Text = ""
        Button6.Enabled = True
        Button7.Text = ""
        Button7.Enabled = True
        Button8.Text = ""
        Button8.Enabled = True
        Button9.Text = ""
        Button9.Enabled = True
    End Sub
End Class

Screenshot:

Thank you and Enjoy !

Vielen Dank und viel Spaß !

●ROBBY● · 05/03/2010, 21:25

Wow ne Menge Code dafür dass du noch relativ neu bist. Respekt.

BlackWu · 05/04/2010, 16:46

Du erwartest also das man durch Code kopieren lernt?

Mfg BlackWu

germanhacker · 05/05/2010, 14:54

haha sag mir bitte wo ich das kopiert habe omg.
Macht man sich so viel Arbeit und dann kommen so Besserwisser tzz

beefm4ker · 05/05/2010, 14:56

Respekt :-)
und schließlich ist es auch nur ein How to und kein Tut ;-)

Jay Niize · 05/05/2010, 16:33

Quote:

Originally Posted by germanhacker

haha sag mir bitte wo ich das kopiert habe omg.
Macht man sich so viel Arbeit und dann kommen so Besserwisser tzz

xD

er meint nicht das du des kopiert hast, er meint das die anderen davon lernen, as nur Code ist^^

@Topic : Eigentlich sehr schönes tut

germanhacker · 05/08/2010, 23:29

Wenn man Englisch kann, versteht man den Code auch so :S
Bsp:
If Button1.text = "X" then ' = Falls der Button1 den Text "X" hat soll er....
MsgBox("Player X has won") ' = ein NachrichtFenster öffnet sich mit dem Text "Player X has won"
Label6.Text += 1 ' bedeutet.. Der Punktestand "0" wird um "1" erhöht
Call disablebuttons() ' Es lassen sich die Buttons 1 - 9 nicht mehr drücken
End If ' Ende

~~Elektrochemie~~ · 05/08/2010, 23:32

Naja hättest "for" und Arrays verwenden können statt den 1000 if abfragen, aber is Ordnung

Achja, auskommentieren der codestellen wäre auch gut gewesen.