Автор: Артур 20.02.2006 4:25
Написать программу, по которой осуществляется управление перемещением в текстовом режиме символа ”*” по экрану в любом из горизонтальных и вертикальных направлений в пределах экрана
Автор: Bokul 20.02.2006 6:45
так тебе в графическом или текстовом режыми надо делать задачу,
если в текстовом то читаеш нажатую клавишу (например стрелка вверх
- двигаем звездачку вверх).
А то место где она стояла затираем пробелом.
Вот и все
Автор: Bokul 20.02.2006 7:12
Вот решения для текстового режима
Код
uses crt;
var ch:char;
i,j:byte;
begin
clrscr;
i:=1;
j:=1;
while ch<>#27 do
begin
ch:=readkey;
gotoxy(i,j);
write(' ');
if (ch=#77) and (i<80) then inc(i);
if (ch=#75) and (i>1) then dec(i);
if (ch=#80) and (j<25) then inc(j);
if (ch=#72) and (j>1) then dec(j);
gotoxy(i,j);
write('*');
end;
end.
Esc для выхода
А если хочешь избавится от курсора то используй эту процедуру
Код
procedure Hide_Cursor;
var Regs :Registers;
begin
with Regs do begin
Ah:=1;
Ch:=$20;
Cl:=0;
Bh:=0;
Intr($10,Regs);
end;
end;
Автор: volvo 20.02.2006 14:02
Цитата
А если хочешь избавится от курсора то используй эту процедуру
А поиском воспользоваться? Я же приводил процедуры для скрытия/установки курсора... Здесь: http://forum.pascal.net.ru/index.php?s=&showtopic=6531&view=findpost&p=48355
Кстати, в заголовке темы явно указано: "Графика". При чем тут текстовый режим?
Автор: Artur 21.02.2006 16:01
Цитата(Артур @ 20.02.2006 0:25)
Написать программу, по которой осуществляется управление перемещением в текстовом режиме символа ”*” по экрану в любом из горизонтальных и вертикальных направлений в пределах экрана
Спасибо большое !!!!!
Мне нужно было в текстовом режиме, а графику я так нечайно написал.
Еще раз спасибо !!!!!!!!!!!!!!!