Trabalho de programação

Páginas: 11 (2605 palavras) Publicado: 30 de março de 2013
Public Class Form1
Public x As Integer ' Variável usada para contagem do número de execuções do looping do programa, usada também para determinar a posição no vetor, e na contagem do tempo de reposta do programa.
Public value As Integer ' Variável usada para alocar o número aleatório que determina qual retângulo será selecionado.
Public vetor(6) As Integer ' Vetor ondeé guardado que retângulos foram selecionados.
Public vetor2(6) As Integer ' Vetor onde é guardado que retângulos foram selecionados pelo jogador.
Public i As Integer ' Variável que indica que posição do vetor quardará o valor do retângulo selecionado.
Public v As Integer ' Variável que guarda a contagem utilizada para preencher o vetor2.
Public saida As String' Variável auxiliar que faz a saída do Random.
Public truefalse As String ' Variável que guarda o valor para a propriedade enabled dos retângulos.
Public s As Integer ' Variável usada no cálculo do tempo de resposta.
Public d As String ' Variável usada para guardar o texto do resumo da partida.

' Carrega o jogo
Private Sub Form1_Load(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Me.Load
truefalse = "false"
Ativdesativbotao()
End Sub

Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click

' Inicio do jogo. Configura o programa para uma nova rodada após o jogador clicar no botão iniciar.
' Desabilita o botão de começar.
' Desabilita os botões de nível do jogo.
' Zera abarra de progresso.
' Zera os vetores.
' Retorna a cor original dos retângulos.
' Desativa a seleção dos retângulos durante a execução do início do jogo.
' Zera as variáves e reinicia os timers.

Button29.Enabled = False
RadioButton1.Enabled = False
RadioButton2.Enabled = False
RadioButton3.Enabled = False
ProgressBar1.Visible = False
ProgressBar1.Value = 0
apagavetores()
Descolore()truefalse = "false"
Ativdesativbotao()
Label1.Text = "Memorize a sequência"
saida = ""
i = 0
x = 0
v = 0
value = 0
Timer1.Enabled = False
Timer1.Stop()
Timer2.Enabled = False
Timer2.Stop()
Timer1.Enabled = True
Timer1.Start()

End Sub

' Rotina que limpa os vetores para início de nova partida.

Private Sub apagavetores()

For Me.x = 0 To 6
vetor(x) = 0
vetor2(x) = 0
NextEnd Sub

' Rotina que exibe a mensagem para as partidas perdidas.

Private Sub Errou()

Label1.Text = "Tente novamente!"
MsgBox("Você errou..." & d & ". Tente novamente!")
Descolore()
ProgressBar1.Visible = False
finaliza()
End Sub




' Rotina que exibe a mensagem para as partidas ganhas.

Private Sub acertou()
Label1.Text = "Clique em começar para jogar."
MsgBox("VocêAcertou em " & s - x & " segundos! Parabéns! " & d & "")
ProgressBar1.Visible = False
finaliza()
End Sub

' Rotina que configura parte do programa no final do jogo.

Private Sub finaliza()

Button29.Enabled = True
Descolore()
RadioButton1.Enabled = True
RadioButton2.Enabled = True
RadioButton3.Enabled = True
Exit Sub

End Sub

' Rotina que gera o texto do resultado do jogo.Private Sub confere()

Timer2.Stop()
Timer1.Enabled = False

d = "A sequência é " & vetor(0) & " " & _
" " & vetor(1) & " " & _
" " & vetor(2) & " " & _
" " & vetor(3) & " " & _
" " & vetor(4) & " " & _
" " & vetor(5) & " " & _
" e você selecionou " & vetor2(0) & " " & _
" " & vetor2(1) & " " & _
" " & vetor2(2) & " " & _
" " & vetor2(3) & " " & _
" " & vetor2(4) & " " & _
" " &vetor2(5) & " "
If vetor2(0) = vetor(0) And vetor2(1) = vetor(1) And vetor2(2) = vetor(2) And vetor2(3) = vetor(3) And _
vetor2(4) = vetor(4) And vetor2(5) = vetor(5) And vetor2(6) = vetor(6) Then
acertou()
Else
Errou()
End If

End Sub

' ROTINA QUE ATIVA OU DESATIVA OS RETÂNGULOS

Private Sub Ativdesativbotao()
Button1.Enabled = truefalse
Button2.Enabled = truefalse
Button3.Enabled =...
Ler documento completo

Por favor, assinar para o acesso.

Estes textos também podem ser interessantes

  • Trabalho Programaçao
  • Trabalho programação
  • Trabalho de programação
  • Trabalho de programação
  • Trabalho de programação
  • trabalho de programaçao
  • Trabalho de programação
  • Trabalho de programação

Seja um membro do Trabalhos Feitos

CADASTRE-SE AGORA!