Jogo da Forca

[FehH]

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

[Pinguimbera]

não consegui separar letra por letra aqui, mas ' i ' precisa ser byte? manda um Dim i as integer e depois seta ele i=0

Editado Março 28, 2008 por Pinguimbera

[webdeveloper]

Antes de mostrar a mensagem de que a pessoa acertou, tem que checar se ela acertou a palavra toda.