Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.06.2015, 07:21   #1
Asp729
 
Регистрация: 31.05.2015
Сообщений: 6
По умолчанию Поворот линии клавишами

Поворот линии осуществляется с помощью нажатия клавиш вверх и вниз. Проблема заключается в том, что линия все-таки поворачивается на указанный угол, но при этом становится либо длиннее, либо короче. Помогите, пожалуйста. Вот код программы:
Код:
Program Lines;
Uses GraphAbc;
Const r=100;
Var angle:real;
Procedure KeyDown(key:integer);
Begin
 Lockdrawing;
 Clearwindow;
 case key of
  VK_Up:begin
         setpencolor(clcyan);
         angle:=angle+30;
         Line(155,155,round(255+r*cos(angle*pi/180))+r,round(155-r*sin(angle*pi/180)));
        end;
  VK_Down:begin
           setpencolor(clmaroon);
           angle:=angle+30;
           Line(155,155,round(255+r*cos(angle*pi/180))+r,round(155+r*sin(angle*pi/180)))
          end;
 end;
 redraw;
 sleep(80)
End;
Begin
 angle:=0;
 setpencolor(clblue);
 Line(155,155,255+r,155);
 OnKeyDown:=KeyDown
End.

Последний раз редактировалось Аватар; 08.06.2015 в 07:53.
Asp729 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Рисую линии поверх картинки при перемещении картинки линии исчезают( sherlocked Общие вопросы Delphi 4 16.01.2015 19:37
Сделать из линии, толщиной в несколько пикселей, линии, толщиной 1 пиксель. ImmortalAlexSan Общие вопросы Delphi 12 25.10.2012 19:05
управление клавишами pop3 Паскаль, Turbo Pascal, PascalABC.NET 1 05.07.2012 14:36
Проблемка с клавишами VmanMaslov Общие вопросы C/C++ 3 04.10.2011 15:57
поворот изображения на форме (либо поворот файла с картинкой) mystiql Microsoft Office Access 2 21.06.2011 22:03