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
