bolycao Posted January 15, 2020 at 07:37 PM Report Share #617079 Posted January 15, 2020 at 07:37 PM (edited) 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 January 15, 2020 at 08:51 PM by bolycao Link to comment Share on other sites More sharing options...
M6 Posted January 16, 2020 at 09:45 AM Report Share #617087 Posted January 16, 2020 at 09:45 AM A substituição deve ser feita com a função Replace e não com a função Mid (vê a documentação). 1 Report 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." Link to comment Share on other sites More sharing options...
bolycao Posted January 16, 2020 at 04:56 PM Author Report Share #617091 Posted January 16, 2020 at 04:56 PM 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 Link to comment Share on other sites More sharing options...
M6 Posted January 20, 2020 at 08:53 AM Report Share #617126 Posted January 20, 2020 at 08:53 AM 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." Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now