среда, 04 января 2006
20:34

WillDrug
An it harm none, do what thou wilt
Хелп ми. этож страх и ужасть.

Компилятор: Паскаль 7.0

KeyDown(key) {KeyDown делает:

if (keypressed) then

key:=ord(readkey);

if key=0

then

key:=ord(readkey);

}



Case key of

left: begin

gotoxy(WhereX+13,wherey);

inc(i);

end;

right:begin

GotoXY(WhereX+13,WhereY);

dec(i);

end;

end;



Ну и так далее, с UP и DOwn ... В кодах клавиш я уверен. вопрос - куда закралась ЛОГИЧЕСКАЯ ошибка.? он компилируется.

URL
Комментарии
04.01.2006 в 20:57

Drakosha
Жизнь слишком коротка, чтобы лечить себя от себя / Just born to find my sampled piece of mind
Эко ж тебя.. на Паскаль потянуло... скажи лучше в чем логичекая ошибка выражается.
URL
04.01.2006 в 21:00

WillDrug
An it harm none, do what thou wilt
Drakosha

Ну вот потянуло...

Потом потянет на C++, assembler, Dephi, Actionsсriрt, php...

А ошибка простая. эта часть кода НЕ РАБОТАЕТ
URL
04.01.2006 в 21:02

Drakosha
Жизнь слишком коротка, чтобы лечить себя от себя / Just born to find my sampled piece of mind
Логично, что если есть ошибка - она не работает. Что эта часть кода должна делать?
URL
04.01.2006 в 21:05

WillDrug
An it harm none, do what thou wilt
Drakosha

процедура KeyDown ждет нажатия клавиши и цапает её код в переменную key

А далее

если эта самая key будет кодом Left (константа, которая прописана) - то переместить курсор налево на 13 позиций.

Аналогично с "RIght"
URL
04.01.2006 в 21:29

Drakosha
Жизнь слишком коротка, чтобы лечить себя от себя / Just born to find my sampled piece of mind
Вообще алгоритм прост, я правда с этими возможностями не работала.



константы left rigth - код одной клавиши, т.е. в key накапливание не должно производиться?
URL
04.01.2006 в 21:31

WillDrug
An it harm none, do what thou wilt
Drakosha

Не должно.
URL
04.01.2006 в 21:35

Drakosha
Жизнь слишком коротка, чтобы лечить себя от себя / Just born to find my sampled piece of mind
и не работает оно - т.е. вуообще ничего не далет при нужных клавишах?
URL
04.01.2006 в 21:44

WillDrug
An it harm none, do what thou wilt
Drakosha

Да. Буду тестить - ставить вывод позиции курсора.
URL