• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

kikoscp

Ajuda 4 em linha

2 mensagens neste tópico

TAva no sudoku mas o meu stor disse que era muito complicado então estou a fazer 4 em linha...

A questão é a seguinte....

Nas diagonais de baixo não consigo colocar o jogo a reconheçer 4 em linha e nao consigo determinar um empate quando ninguem vence

Public Function VerificaDiagonalInferiorDirecta(ByVal d As Integer) As Boolean

        Dim j As Integer = -1

        Dim d1 As Integer = 0

        Dim i As Integer

        Dim x As Integer

        For i = d To Linhas - 1

            x = i - d

            If x > Colunas - 1 Then

                Return False

            End If

            If _matriz(i, x) <> 0 Then

                If j = _matriz(i, x) Then

                    d1 += 1

                Else

                    d1 = 1

                    j = _matriz(i, x)

                End If

            Else

                d1 = 0

                j = -1

            End If

            If d1 = 4 Then Return True

        Next

        Return False

Public Function VerificaDiagonalInferiorInversa(ByVal d As Integer) As Boolean

        Dim j As Integer = -1

        Dim d1 As Integer = 0

        Dim i As Integer

        Dim x As Integer

        For i = d To Linhas - 1

            x = Colunas - 1 - i + d

            If x > Colunas - 1 Or x < 0 Then

                Return False

            End If

            If _matriz(i, x) <> 0 Then

                If j = _matriz(i, x) Then

                    d1 += 1

                Else

                    d1 = 1

                    j = _matriz(i, x)

                End If

            Else

                d1 = 0

                j = -1

            End If

            If d1 = 4 Then Return True

        Next

        Return False

os erros estão aí mas não os detecto

os erros estão nessas diagonais

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

bem, só uma pergunta... que tipo de erro te aparece?ainda não vi muito bem, mas tenho a impressão que te faltam aí umas coisas...

0

Partilhar esta mensagem


Link 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