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

05/02/2010 15:07 germanhacker#1
Hello Elitepvpers,
Now I will show you how to create your own TicTacToe-Game.
Let´s go ! :D

1. Open Virtual Basic and create a new Project.

2. do 10 Buttons
Like this:
[Only registered and activated users can see links. Click Here To Register...]

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:
[Only registered and activated users can see links. Click Here To Register...]

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:

[Only registered and activated users can see links. Click Here To Register...]

Thank you and Enjoy ! :):):)
Vielen Dank und viel Spaß ! :):):)
05/03/2010 21:25 ●ROBBY●#2
Wow ne Menge Code dafür dass du noch relativ neu bist. Respekt.
05/04/2010 16:46 BlackWu#3
Du erwartest also das man durch Code kopieren lernt?

Mfg BlackWu
05/05/2010 14:54 germanhacker#4
haha sag mir bitte wo ich das kopiert habe omg.
Macht man sich so viel Arbeit und dann kommen so Besserwisser tzz
05/05/2010 14:56 beefm4ker#5
Respekt :-)
und schließlich ist es auch nur ein How to und kein Tut ;-)
05/05/2010 16:33 Jay Niize#6
Quote:
Originally Posted by germanhacker View Post
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 :D
05/08/2010 23:29 germanhacker#7
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
05/08/2010 23:32 Elektrochemie#8
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.