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

Ana.clk · 21 de setembro de 2013

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

LNW · 21 de setembro de 2013

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

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

Simon Viegas · 21 de setembro de 2013

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]