JOGO da FORCA !

[allen]

Opa pessoal beleza?

Venho aqui pedir uma jauda a vocês. Sou novo em programação, e estou fazendo uma cadeira na faculdade de visual basic. Nossa meta e desenvolver um jogo da forca propriamente.

Podemos usar apenas os comandos LEN , for , if , Mid , & ... enfim,apenas as comandos básicos.

Tem ocmo voces me ajudarem no problema abaixo? não sei como fazer :S

-----------------------------

-----------------------------

Sub jogo()


frase = InputBox(" pala ")
Dim t(20)

For chances = 1 To 3   'Vai rodar as 3 chances de acertar '

tentativa = InputBox("3 cha")

            For x = 1 To Len(frase) 

   
            Next x
          

            For B = 1 To Len(frase) 
   
            total = total & t(B)

            Next B
    
   
MsgBox (total) 
   

Next chances

---------------------------

---------------------------

Se vocês rodarem o arquivo , entenderão bem o problema. Não sei como inserir o valor dentro do primeiro total,

e a cada laço ele agrega mais vezes a palavra,isto é, entre as tentativas ele não usa o mesmo jogo de palavras. Aff não sei como explicar hehehe , mas é bem intendível se vocês rodarem o programa, pelo menos ele roda hehe

abraços forum espero que me ajudem

Allen

End Sub

Editado Agosto 25, 2008 por allen
Adicionar tag CODE

[kuroi]

então, antes de comecar o for, preencha o total com o numero de tracinhos equivalente ao len da frase (exemplo, se a frase tiver 6 letras, preencha com 6 tracinhos).

ai, troque essa linha

t(x) = "-" ' Se não coloca " - " na que não é igual '

por

t(x) = Mid$(total, x, 1)

assim, ele vai pegar tb as letras q foram acertadas anteriormente q estarao salvas nas suas posicoes na variavel total (se não tiver sido acertada, estara gravado o "-").

e, pra finalizar, antes do abrir o for q monta o total (a linha For B = 1 To Len(frase)), grave um valor vazio em total ("") porque senao você vai juntando o valor novo com o antigo.

veja se resolve, qualquer coisa poste.

[allen]

Opa obrigado Kuroi, deu uma melhorada no código,também consegui entender aonde você quer chegar

olha só como ta:

----------------------------

----------------------------

----------------------

----------------------

Agora, quando digito por exemplo 'casa" e tento acertar, quando coloco o "a" ele me acusa como " caa" . Como faço

para inserir os "-" junto ao else que me resolve as letras?

obrigadão !!!

Editado Agosto 25, 2008 por allen
Adicionar tag CODE

[kuroi]

allen, quando for postar codigo, lembra sempre de por dentro da tag CODE, beleza?? porque senao ele perde a tabulacao, e com o CODE a gente diferencia o codigo do texto normal.

tipo assim:

[C.O.D.E]isto é um código[/C.O.D.E]

só q sem os pontos.

e pra resolver o seu problema, adicione essa linha antes do for:

total = mostra_qtde

porque senao isso q eu disse aqui não vai ter efeito.

ai, troque essa linha

t(x) = "-" ' Se não coloca " - " na que não é igual '

por

t(x) = Mid$(total, x, 1)

assim, ele vai pegar tb as letras q foram acertadas anteriormente q estarao salvas nas suas posicoes na variavel total (se não tiver sido acertada, estara gravado o "-").

os "-" devem estar dentro da variavel total.

[allen]

FUNCIONOU !!!

Obrigado Kuroi , estava a tempos tentando resolver este problema

Ah okay vou colocar os Code agora :P

abraços vlw mais uma vez

allen, quando for postar codigo, lembra sempre de por dentro da tag CODE, beleza?? porque senao ele perde a tabulacao, e com o CODE a gente diferencia o codigo do texto normal.

tipo assim:

[C.O.D.E]isto é um código[/C.O.D.E]

só q sem os pontos.

e pra resolver o seu problema, adicione essa linha antes do for:

total = mostra_qtde

porque senao isso q eu disse aqui não vai ter efeito.

ai, troque essa linha

t(x) = "-" ' Se não coloca " - " na que não é igual '

por

t(x) = Mid$(total, x, 1)

assim, ele vai pegar tb as letras q foram acertadas anteriormente q estarao salvas nas suas posicoes na variavel total (se não tiver sido acertada, estara gravado o "-").

os "-" devem estar dentro da variavel total.