Pascal/Turbo Pascal - salvapantalla en pascal

   
Vista:

salvapantalla en pascal

Publicado por Ateo (1 intervención) el 04/10/2011 15:02:57
quisiera saber como se puede hacer una salvapantalla negro y que se iluminen distinto puntos se cuenta con un archivo secuencial C:\POSI.DAT EL CUAL ALMACENA VALORES NUMERICOS ENTEROS Y CON UN PROCEDIMIENTO LLAMADO FUENTE, que tiene como parametro un arreglo inidimencional de 2 elementos enteros los cuanles se utilizan para recuperar desde el programa principal las coordenadas (filas y columnas)del punto a iluminar.el proceso debe ser iterativo hasta que el usuario precione una tecla cualquiera.


Desde ya muchas gracias.......
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

salvapantalla en pascal

Publicado por ramon (2072 intervenciones) el 08/10/2011 19:28:05
{Mira esto a ver si te sirve pero como veras solo la salida de el es pulsando una tecla
y la activación es al arrancar el programa no lo realiza automática mente tendría que
ser un programa residente y eso con windows es bastante complicado.
El ciclo lo realiza secuencial mente como podrás ver pero te dará una idea de lo que
quieres.

program salvapan;
uses
crt;

var
x, y : integer;



procedure punto_pantalla(xp, yp : integer);
begin
clrscr;
textcolor(15);
gotoxy(xp,yp);write('ß');
delay(160);
end;

procedure pantalla;
var
sal : boolean;
tecla : char;
cont : integer;
begin
TextBackground(0);
sal := false;
randomize;
x := 1;
y := 1;
repeat
if keypressed then
sal := true
else
begin
x := trunc(random(80));
y := trunc(random(25));
punto_pantalla(x,y);
x := 1;
y := 1;
end;
until sal = true;
end;


begin
clrscr;
pantalla;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar