Полная версия: Графика
Написать программу, по которой осуществляется управление перемещением в текстовом режиме символа ”*” по экрану в любом из горизонтальных и вертикальных направлений в пределах экрана
так тебе в графическом или текстовом режыми надо делать задачу,
если в текстовом то читаеш нажатую клавишу (например стрелка вверх
- двигаем звездачку вверх).
А то место где она стояла затираем пробелом.
Вот и все
если в текстовом то читаеш нажатую клавишу (например стрелка вверх
- двигаем звездачку вверх).
А то место где она стояла затираем пробелом.
Вот и все
Вот решения для текстового режима
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;
Код
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;
Цитата
А если хочешь избавится от курсора то используй эту процедуру
А поиском воспользоваться? Я же приводил процедуры для скрытия/установки курсора... Здесь: КурсорКстати, в заголовке темы явно указано: "Графика". При чем тут текстовый режим?
Цитата(Артур @ 20.02.2006 0:25) 
Написать программу, по которой осуществляется управление перемещением в текстовом режиме символа ”*” по экрану в любом из горизонтальных и вертикальных направлений в пределах экрана
Спасибо большое !!!!!
Мне нужно было в текстовом режиме, а графику я так нечайно написал.
Еще раз спасибо !!!!!!!!!!!!!!!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.