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:45