Ir para conteúdo
Fórum Script Brasil
  • 0

Jogo da Forca


FehH

Pergunta

Olá amigos,

Estou um jogo da forca no curso e quando escolho uma letra já aparece a mensagem dizendo que ganhou o jogo.

Vo postar a função do botão da letra.

Private Sub cmd_letra_Click(Index As Integer)
    Dim letr As String
    Dim palavra As String
    Dim i As Byte
    Dim acerto As Boolean
    Dim final As Boolean
    
    letr = cmd_letra(Index).Caption
    palavra = UCase(txt_pala.Text)
    
        For i = 1 To Len(palavra)
            If Mid(palavra, i, 1) = letr Then
                acerto = True
            End If
        Next
            
        cmd_letra(Index).Enabled = False
        If (Not acerto) Then
            Image1(erros).Visible = True
                erros = erros + 1
        End If
        
        final = True
            For i = 0 To Len(palavra) - 1
                If (lbl_resp(i).Caption = "") Then
                    final = False
                End If
                If (erros = 6) Then
                    finaliza ("Perdeu Preiboi")
                End If
                
            Next
                finaliza ("Parabéns você Ganhouuuuuuuuuuuu!!!")
End Sub

Parace que ele pula tudo isso e vai direto para mensagem.

Se estiver algo errado me digam.

Obrigado.

Abra´z

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...