Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
Ana.clk

[Resolvido] Como que eu faço para limpar a tela apenas para um laço de repetição (Pascal)??

Recommended Posts

Oi,

Eu tenho um projeto para faculdade, onde é necessário criar um jogo da velha. Pois bem, o algoritmo funciona certinho, mas meu professor quer que por exemplo, ao digitar uma casa que já foi ocupada aparece uma mensagem "Casa já ocupada", porém ele quer que essa mensagem apareça e desapareça, porque caso alguém fique digitando a mesma casa diversas vezes essa mensagem fica se acumulando até ocupar toda a tela e o tabuleiro desaparece. Eu tentei usar o clrscr dentro do laço, mas ai a mensagem aparece e desaparece mas o tabuleiro também. Se alguém puder ajudar ficarei muito grata.

:D :D

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ana,

Oi,

Eu tenho um projeto para faculdade, onde é necessário criar um jogo da velha. Pois bem, o algoritmo funciona certinho, mas meu professor quer que por exemplo, ao digitar uma casa que já foi ocupada aparece uma mensagem "Casa já ocupada", porém ele quer que essa mensagem apareça e desapareça, porque caso alguém fique digitando a mesma casa diversas vezes essa mensagem fica se acumulando até ocupar toda a tela e o tabuleiro desaparece. Eu tentei usar o clrscr dentro do laço, mas ai a mensagem aparece e desaparece mas o tabuleiro também. Se alguém puder ajudar ficarei muito grata.

:D :D

Você poderia usar a função ClrEol que limpa a linha a partir da posição atual do cursor. Ex:

GotoXY(5,10);
Writeln('Casa ja ocupada');
ReadKey;
GotoXY(5,10);
ClrEol;

[]'s

LNW

  • Curtir 2

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá.

Outra solução seria reescrever com espaços em cima (ou com o texto que supostamente está em baixo).

Um exemplo (já com outras dicas)

[color=#0000ff]uses[/color]
CRT[color=#000000];[/color]
[color=#0000ff]var[/color]
posX[color=#000000],[/color]posY[color=#000000]:[/color][color=#0000ff]byte[/color][color=#000000];[/color] [color=#008000]//se o compitador não aceitar, mude para interger[/color]
[color=#0000ff]BEGIN[/color]
ClrScr[color=#000000];[/color] [color=#008000]//limpa toda a tela[/color]
[color=#ff0080]TextColor[/color][color=#000000]([/color]White[color=#000000]);[/color] [color=#008000]//White=15=branco[/color]
writeln[color=#000000];[/color] [color=#008000]//pula uma linha[/color]
[color=#ff0080]writeln[/color][color=#000000]([/color][color=#a31515]'Bla bla bla bla'[/color][color=#000000]);[/color]
[color=#ff0080]write[/color] [color=#000000]([/color][color=#a31515]'Bla bla bla bla '[/color][color=#000000]);[/color] [color=#008000]//escreve sem pula uma linha[/color]
[color=#ff0080]TextColor[/color][color=#000000]([/color]Yellow[color=#000000]);[/color] [color=#008000]//Yellow=14 (uma constante) que corresponde a cor amarela[/color]
posX[color=#000000]:=[/color]WhereX[color=#000000];[/color] [color=#008000]//WhereX=valor da coordenada X atual (coluna)[/color]
posY[color=#000000]:=[/color]WhereY[color=#000000];[/color] [color=#008000]//WhereY=valor da coordenada Y atual (linha)[/color]
[color=#ff0080]writeln[/color][color=#000000]([/color][color=#a31515]'Casa ja ocupada'[/color][color=#000000]);[/color]
[color=#ff0080]TextColor[/color][color=#000000]([/color]White[color=#000000]);[/color] [color=#008000]//White=15=branco[/color]
[color=#ff0080]writeln[/color][color=#000000]([/color][color=#a31515]'Bla bla bla bla'[/color][color=#000000]);[/color]
[color=#ff0080]writeln[/color][color=#000000]([/color][color=#a31515]'Bla bla bla bla'[/color][color=#000000]);[/color]
[color=#ff0080]writeln[/color][color=#000000]([/color][color=#a31515]'Bla bla bla bla'[/color][color=#000000]);[/color]
ReadKey[color=#000000];[/color] [color=#008000]//ler uma tecla (funcionando como "aguarda pressionar uma tecla")[/color]
[color=#ff0080]GotoXY[/color][color=#000000]([/color]posX[color=#000000],[/color]posY[color=#000000]);[/color] [color=#008000]//posiciona na coordenada[/color]
[color=#ff0080]writeln[/color][color=#000000]([/color][color=#a31515]' '[/color][color=#000000]);[/color] [color=#008000]//reescre com espaços[/color]
[color=#ff0080]GotoXY[/color][color=#000000]([/color][color=#ff8000]40[/color][color=#000000],[/color][color=#ff8000]20[/color][color=#000000]);[/color] [color=#008000]//um exmeplo caso queira reposicona após apagar[/color]

ReadKey[color=#000000];[/color] [color=#008000]//no meu compilador é preciso colocar algo para a tela não fechar. [/color]
[color=#0000ff]END[/color][color=#000000].[/color]

No aguardo.

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×