Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Дмитрий1999
0 / 0 / 0
Регистрация: 20.11.2016
Сообщений: 1
1

Как сделать чтобы вырисовывалась линия с интервалом времени? в PascalABC

20.11.2016, 17:30. Просмотров 420. Ответов 3
Метки нет (Все метки)

Как сделать, чтобы две движущиеся точки рисовали линию ежесекундно.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Program net;
uses crt, GraphABC;
 var x0,y0,x,y,r1,r2,r3,t1,t2,t3,u,i,x1,y1: integer;
 begin
 
  SetWindowSize(900,600);
  r1:=50;    t1:=4;   
  r2:=80;   t2:=4;
  r3:=140;   t3:=2;
  x0:=450; y0:=300;
  for u:=-270 to 90 do
  begin
    ClearWindow(clBlack);
                    SetPenWidth(0);
                    SetPenColor(clWhite);
                    Drawcircle(450,300,80);
                    SetPenColor(clWhite);
                    Drawcircle(450,300,140);
    Setbrushcolor(clyellow);
    SetPenColor(clBlack);
    circle(450,300,10);
    SetPenWidth(1);
    x:=x0+Round(r1*sin(t1*Pi*u/180));
    y:=y0-Round(r1*cos(t1*Pi*u/180));
    SetPenWidth(1);
    Setbrushcolor(clRed);
    x1:=x0+Round(r2*sin(t2*Pi*u/180));
    y1:=y0-Round(r2*cos(t2*Pi*u/180));
    circle(x1,y1,5);
    SetPenWidth(1);
    Setbrushcolor(clWhite);
    x:=x0+Round(r3*sin(t3*Pi*u/180));
    y:=y0-Round(r3*cos(t3*Pi*u/180));
    circle(x,y,5);
    begin
    SetPenColor(clWhite);
    Line(x,y,x1,y1);
   end;   
   delay(30);
 
   end;
 end.




Вот так в общем должно получится: https://psv4.vk.me/c612817/u20000074...JFzflzdkufooKQ
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.11.2016, 17:30
Ответы с готовыми решениями:

Как зарисовать квадрат, и сделать так, чтобы он мигал по кругу с интервалом 1-4 сек
как зарисовать квадраты . И сделать так что бы они мигали по кругу с интервалом 1-4 сек. Помогите...

Как сделать так, чтобы в анимации за точкой рисовалась линия
Как сделать так,чтобы в анимации за точкой рисовалась линия?

Как сделать так, чтобы линия разрыва страницы НЕ ПРОХОДИЛА через объединенные ячейки?
Братья и сёстры, кто подскажет - как сделать так, чтобы линия разрыва страницы НЕ ПРОХОДИЛА через...

Сделать, чтобы при движении курсора за ним шла линия, как хвост у кометы
Здравствуйте. Нужно чтобы при движении курсора за ним шла линия как хвост у кометы. Нужно чтобы это...

3
Puporev
Модератор
59390 / 44821 / 30935
Регистрация: 18.05.2008
Сообщений: 107,519
20.11.2016, 18:49 2
Цитата Сообщение от Дмитрий1999 Посмотреть сообщение
от так в общем должно получится
Ссылка не рабочая.
0
ProGraf
0 / 0 / 0
Регистрация: 27.06.2015
Сообщений: 96
20.11.2016, 19:55 3
Puporev, помогите пост выше этого
0
Puporev
Модератор
59390 / 44821 / 30935
Регистрация: 18.05.2008
Сообщений: 107,519
20.11.2016, 19:58 4
Тогда напишите точное и полное условие задачи, из кода не понятно что там нужно изменить или добавить.
0
20.11.2016, 19:58
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.11.2016, 19:58

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Написать графический редактор - как сделать, чтобы элемент (например, линия или прямоугольник) был объектом?
Здравствуйте! Передомной стоит задача написать графический редактор, собственно подскажите...

Как сделать так, чтобы линия "тянулась" за мышью?
Доброго времени суток! При написании графического редактора столкнулся с проблемой, никак не...

Сделать анимацию чтобы каждая фигура появлялась последовательно с интервалом в 3 секунды
uses graphABC,crt; var x,y,i : integer; begin SetWindowWidth(600); SetWindowHeight(600);...

Сделать чтобы на графике была не одна линия а пять
Есть функция которой я строю график, на графике отображается одна линия, как сделать чтобы было 5...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.