none
Ajuda para perceber o código RRS feed

  • Pergunta

  • Olá bem aqui fazer uma pergunta, pois necessito mesmo da resposta.

    Gosta que alguém me ajuda-se a perceber o seguinte código ou seja alguém me pode dizer o que ele faz por favor 

    O código pertence a um "Timer" de uma "progressbar" de um jogo que é Batalha naval serve para ver onde os utilizadores escondem um barco.

        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            Me.Enabled = False
            Form9.ProgressBar1.Increment(1)
            If Form9.ProgressBar1.Value = Form9.ProgressBar1.Maximum Then
                Timer1.Stop()
                Me.Enabled = True
                rndnunmber = New Random
                number = rndnunmber.Next(31, 60)

    y = 0
                While y = 0
                    c = 0
                    For i = 0 To n
                        If numeros(i) = number Then
                            c = 1
                        End If
                    Next
                    If c = 0 Then
                        numeros(n) = number
                        n = n + 1
                        y = 1
                    Else
                        rndnunmber = New Random
                        number = rndnunmber.Next(31, 60)
                    End If

                End While

                Form9.Close()
                If number = 50 Then
                    If Button50.BackColor = Color.Gray Or Button50.BackColor = Color.Black Or Button50.BackColor = Color.MidnightBlue Or Button50.BackColor = Color.White Then
                        Button50.BackColor = Color.Blue

                        MsgBox("O COM Acertou! Foi Atingido. O COM irá jogar outra vez...", MsgBoxStyle.Critical)
                        contp = contp + 1
                        If vbOK Then
                            If contp = 10 Then
                                Dim x As Integer
                                x = MsgBox("COM Venceu o Jogo! Deseja jogar de novo?", MsgBoxStyle.YesNo)
                                If x = 6 Then
                                    Form2.Close()
                                    Me.Close()
                                    Form5.Show()
                                Else
                                    Form2.Close()
                                    Me.Close()
                                    Form1.Show()
                                End If
                            Else
                                Form9.Show()
                                Timer1.Start()
                            End If
                        End If
                    End If
                    If Button50.BackColor = Color.LightBlue Then
                        Button50.BackColor = Color.DarkOrange

                        MsgBox("COM Falhou! É a sua vez.", MsgBoxStyle.Information)
                    End If
                End If


             

    sábado, 21 de junho de 2014 22:43

Respostas

  • Bom dia Robinlak,

    Você gostaria de saber o que esse código significa?

    Att,

    segunda-feira, 23 de junho de 2014 11:00
  • Bom dia Robinlak,

    Esse timer do código é o tempo de espera para o jogador decidir se quer jogar novamente, tipo o game over dos jogos que tem um tempo para você decidir se quer continuar ou voltar pro inicio. Mas esse código tem um erro n alinha 3 coluna 93, é um dado inválido. Você retirou ele de onde?

    Att,

    terça-feira, 24 de junho de 2014 13:24

Todas as Respostas

  • Bom dia Robinlak,

    Você gostaria de saber o que esse código significa?

    Att,

    segunda-feira, 23 de junho de 2014 11:00
  • Bom dia Robinlak,

    Esse timer do código é o tempo de espera para o jogador decidir se quer jogar novamente, tipo o game over dos jogos que tem um tempo para você decidir se quer continuar ou voltar pro inicio. Mas esse código tem um erro n alinha 3 coluna 93, é um dado inválido. Você retirou ele de onde?

    Att,

    terça-feira, 24 de junho de 2014 13:24
  • Obrigado pela sua explicação, estou muito agradecido .

    Eu retirei esse código de um jogo de batalha Naval 

    sexta-feira, 27 de junho de 2014 19:10