Jump to content

Matriz,quadro,4 em linha


DP
 Share

Recommended Posts

Ora boas pessoal. se calhar ja viram parte do nosso codigo num post anterior.

bem, ja conseguimos verificar se os jogadores 1 e 2 ganham!!! mas so na vertical e na horizontal.Precisavamos ajuda a fazer o da diagonal. se alguem nos fornecesse o codigo com agradeciamos 🙂

Function Horizontaltest() As String
        Dim x, y As Integer

        For x = 1 To 6
            For y = 1 To 6
                Try
                    If quadro(x, y).Image.Tag = quadro(x, y + 1).Image.Tag And quadro(x, y + 1).Image.Tag = quadro(x, y + 2).Image.Tag And quadro(x, y + 2).Image.Tag = quadro(x, y + 3).Image.Tag Then
                        MsgBox("Ganhou " & quadro(x, y).Image.Tag)
                        Return quadro(x, y).Image.Tag
                    End If
                Catch ex As Exception
                End Try
            Next
        Next
        Return ""
    End Function


    Function Verticaltest() As String
        Dim x, y As Integer
        For y = 1 To 9
            For x = 1 To 3
                Try
                    If quadro(x, y).Image.Tag = quadro(x + 1, y).Image.Tag And quadro(x + 1, y).Image.Tag = quadro(x + 2, y).Image.Tag And quadro(x + 2, y).Image.Tag = quadro(x + 3, y).Image.Tag Then
                        MsgBox("Ganhou " & quadro(x, y).Image.Tag)
                        Return quadro(x, y).Image.Tag
                    End If
                Catch ex As Exception
                End Try
            Next
        Next
        Return ""
    End Function
Link to comment
Share on other sites

Basicamente deve ser o mesmo mas a única diferença é que em vez de ser:

If quadro(x, y).Image.Tag = quadro(x + 1, y).Image.Tag And quadro(x + 1, y).Image.Tag = quadro(x + 2, y).Image.Tag And quadro(x + 2, y).Image.Tag = quadro(x + 3, y).Image.Tag Then

será algo do genero:

If quadro(x, y).Image.Tag = quadro(x + 1, y+1).Image.Tag And quadro(x + 2, y+2).Image.Tag = quadro(x+3, y+3).Image.Tag And quadro(x + 4, y+4).Image.Tag  Then
Link to comment
Share on other sites

Não consigo perceber o teu código...

Trocas x e y de uma função para outra ??!??

Trocas o tamanho do quadro de uma função para outra??!??

O tamanho do quadro deve ser o mesmo SEMPRE... na função horizontal tens o que me parece ser um 6x6, na função vertical tens o que parece ser um 9x3...

Assim não consigo tentar ajudar-te sequer...

" Elogios não me elevam, ofensas não me rebaixam, sou o que sou e não o que acham! "

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.