Ir para o conteúdo
DP

Matriz,quadro,4 em linha

Mensagens Recomendadas

DP

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

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
veaoum

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

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
HIT_Braga

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! "

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
DP

Obrigado pela ajuda.

Ja conseguimos concluir o projeto. fizemos como o veaoum disse e so que fizemos duas funçoes uma que verifica para a direita e outra para a esquerda.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.