benvenuti su tutto e di più


SCOPRI SU TUTTOEDIPIU IL METEO DI OGGI

Sei Appassionato di Minecraft? Visita il mio nuovo sito Wiki Minecraft ITALIA !!!




mercoledì 2 febbraio 2011

programmi con Visual Basic: il gioco del tris

volete creare il gioco del tris per computer, per non disegnare tutte le volte su un foglio?
allora guardate questo video:
(i codici sono scritti sotto il video)
video














CODICI: (fate pure copia e incolla)
doppio click su nuova partita

giocatore = 1
        Button1.Text = ""
        Button2.Text = ""
        Button3.Text = ""
        Button4.Text = ""
        Button5.Text = ""
        Button6.Text = ""
        Button7.Text = ""
        Button8.Text = ""
        Button9.Text = ""
sotto la prima scritta (Public Class Form1)


    Dim giocatore As Integer = 1
    Private Sub controlla()
        If Button1.Text = "X" And Button2.Text = "X" And Button3.Text = "X" Then
            MsgBox("ha vinto il giocatore " & TextBox1.Text)
        ElseIf Button1.Text = "O" And Button2.Text = "O" And Button3.Text = "O" Then
            MsgBox("ha vinto il giocatore " & TextBox2.Text)
        End If
        If Button4.Text = "X" And Button5.Text = "X" And Button6.Text = "X" Then
            MsgBox("ha vinto il giocatore " & TextBox1.Text)
        ElseIf Button4.Text = "O" And Button5.Text = "O" And Button6.Text = "O" Then
            MsgBox("ha vinto il giocatore " & TextBox2.Text)
        End If
        If Button7.Text = "X" And Button8.Text = "X" And Button9.Text = "X" Then
            MsgBox("ha vinto il giocatore " & TextBox1.Text)
        ElseIf Button7.Text = "O" And Button8.Text = "O" And Button9.Text = "O" Then
            MsgBox("ha vinto il giocatore " & TextBox2.Text)
        End If
        If Button1.Text = "X" And Button4.Text = "X" And Button7.Text = "X" Then
            MsgBox("ha vinto il giocatore " & TextBox1.Text)
        ElseIf Button1.Text = "O" And Button4.Text = "O" And Button7.Text = "O" Then
            MsgBox("ha vinto il giocatore " & TextBox2.Text)
        End If
        If Button2.Text = "X" And Button5.Text = "X" And Button8.Text = "X" Then
            MsgBox("ha vinto il giocatore " & TextBox1.Text)
        ElseIf Button2.Text = "O" And Button5.Text = "O" And Button8.Text = "O" Then
            MsgBox("ha vinto il giocatore " & TextBox2.Text)
        End If
        If Button3.Text = "X" And Button6.Text = "X" And Button9.Text = "X" Then
            MsgBox("ha vinto il giocatore " & TextBox1.Text)
        ElseIf Button3.Text = "O" And Button6.Text = "O" And Button9.Text = "O" Then
            MsgBox("ha vinto il giocatore " & TextBox2.Text)
        End If
        If Button1.Text = "X" And Button5.Text = "X" And Button9.Text = "X" Then
            MsgBox("ha vinto il giocatore " & TextBox1.Text)
        ElseIf Button1.Text = "O" And Button5.Text = "O" And Button9.Text = "O" Then
            MsgBox("ha vinto il giocatore " & TextBox2.Text)
        End If
        If Button3.Text = "X" And Button5.Text = "X" And Button7.Text = "X" Then
            MsgBox("ha vinto il giocatore " & TextBox1.Text)
        ElseIf Button3.Text = "O" And Button5.Text = "O" And Button7.Text = "O" Then
            MsgBox("ha vinto il giocatore " & TextBox2.Text)
        End If
    End Sub
 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If giocatore = 1 And Button1.Text = "" Then
            Button1.Text = "X"
            giocatore = 2
            controlla()
        ElseIf giocatore = 2 And Button1.Text = "" Then
            Button1.Text = "O"
            giocatore = 1
            controlla()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If giocatore = 1 And Button2.Text = "" Then
            Button2.Text = "X"
            giocatore = 2
            controlla()
        ElseIf giocatore = 2 And Button2.Text = "" Then
            Button2.Text = "O"
            giocatore = 1
            controlla()
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If giocatore = 1 And Button3.Text = "" Then
            Button3.Text = "X"
            giocatore = 2
            controlla()
        ElseIf giocatore = 2 And Button3.Text = "" Then
            Button3.Text = "O"
            giocatore = 1
            controlla()
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If giocatore = 1 And Button4.Text = "" Then
            Button4.Text = "X"
            giocatore = 2
            controlla()
        ElseIf giocatore = 2 And Button4.Text = "" Then
            giocatore = 1
            Button4.Text = "O"
            controlla()
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If giocatore = 1 And Button5.Text = "" Then
            Button5.Text = "X"
            giocatore = 2
            controlla()
        ElseIf giocatore = 2 And Button5.Text = "" Then
            giocatore = 1
            Button5.Text = "O"
            controlla()
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If giocatore = 1 And Button6.Text = "" Then
            Button6.Text = "X"
            giocatore = 2
            controlla()
        ElseIf giocatore = 2 And Button6.Text = "" Then
            giocatore = 1
            Button6.Text = "O"
            controlla()
        End If
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If giocatore = 1 And Button7.Text = "" Then
            Button7.Text = "X"
            giocatore = 2
            controlla()
        ElseIf giocatore = 2 And Button7.Text = "" Then
            giocatore = 1
            Button7.Text = "O"
            controlla()
        End If
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If giocatore = 1 And Button8.Text = "" Then
            Button8.Text = "X"
            giocatore = 2
            controlla()
        ElseIf giocatore = 2 And Button8.Text = "" Then
            giocatore = 1
            Button8.Text = "O"
            controlla()
        End If
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If giocatore = 1 And Button9.Text = "" Then
            Button9.Text = "X"
            giocatore = 2
            controlla()
        ElseIf giocatore = 2 And Button9.Text = "" Then
            giocatore = 1
            Button9.Text = "O"
            controlla()
        End If
    End Sub

 
 
End Class

2 commenti:

  1. la qualita del video fa schifo:( ma e bello il programma

    RispondiElimina
  2. E se la partita finisce in parità?

    RispondiElimina