Jump to content
bolycao

problema com o jogo da forca

Recommended Posts

bolycao

Olá!

Eu estou no meio de um dilema, eu já tentei ir a vários sites e nunca consegui encontrar a resposta.

Estou há já 1 semana a fazer um projeto que é o jogo da forca, e preciso de ajuda para que:

-o programa procure se a letra escolhida existe na palavra a ser adivinhada e caso exista mude de um "_" para a letra, o máximo que consegui foi fazer o programa trocar apenas um letra, caso haja mais que uma, ele muda apenas a primeira, já agora, eu usei um array para depois escolher uma palavra aleatória, é o array palavras, aqui vai o código, e obrigado por qualquer ajuda :)

local_letra = InStr(palavras(x), Tb_letra.Text)

        If local_letra <> 0 Then
            Mid(Lb_palavra.Text, local_letra, Len(palavras(x))) = Tb_letra.Text
        End If

Edited by bolycao

Share this post


Link to post
Share on other sites
M6

A substituição deve ser feita com a função Replace e não com a função Mid (vê a documentação).
 

  • Vote 1

10 REM Generation 48K!
20 INPUT "URL:", A$
30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50
40 PRINT "404 Not Found"
50 PRINT "./M6 @ Portugal a Programar."

 

Share this post


Link to post
Share on other sites
bolycao

O problema é que eu tenho a palavra num array e eu quero substituir na label não no array, por isso e que ainda não consegui, o replace iria substituir todos os "_" pela letra escolhida

Share this post


Link to post
Share on other sites
M6
On 1/16/2020 at 4:56 PM, bolycao said:

O problema é que eu tenho a palavra num array e eu quero substituir na label não no array, por isso e que ainda não consegui, o replace iria substituir todos os "_" pela letra escolhida

Tu disseste "o máximo que consegui foi fazer o programa trocar apenas um letra, caso haja mais que uma, ele muda apenas a primeira".
Pensei que querias trocar todas...


10 REM Generation 48K!
20 INPUT "URL:", A$
30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50
40 PRINT "404 Not Found"
50 PRINT "./M6 @ Portugal a Programar."

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.