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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 30.03.2014, 18:49   #1
Ирина93.08.04
Новичок
Джуниор
 
Регистрация: 30.03.2014
Сообщений: 1
По умолчанию Увеличение или уменьшение стрелы

Мне необходимо осуществить увеличение или уменьшение стрелы в движении,непосредственно перед попаданием ее в мишень.Движение стрелы получается путем перерисовки.Помогите пожалуйста.Ниже программа на паскалеABC :
Код:
Program mishen; 
uses graphabc,pointrect;
const speed=1;
var 
i,r,x1,x2,x3,x4,x5,x6,pic,k:integer;
re:rect; 
begin 
setpenwidth(5); 
r:=100; 
x1:=40;
x2:=150; 
x3:=130; 
x4:=150;
x5:=130; 
x6:=150; 
//setpencolor(clred);
for i:=1 to 5 do
begin
setbrushcolor(clblue);
circle(300,200,r);
r:=r-11; 
setbrushcolor(clred);
circle(300,200,r);
r:=r-11;
setbrushcolor(clgreen);
circle(300,200,r);
r:=r-11;
end;
 
setpencolor(clwhite);
for i:=1 to 150 do 
begin
setpencolor(clblack);
line(x1,200,x2,200); 
line(x3,180,x4,200);
line(x5,220,x6,200); 
sleep(10); 
setpencolor(clwhite); 
line(x1,200,x2,200); 
line(x3,180,x4,200); 
line(x5,220,x6,200); 
x1:=x1+1; 
x2:=x2+1; 
x3:=x3+1;
x4:=x4+1; 
x5:=x5+1; 
x6:=x6+1;
end; 
r:=100; 
clearwindow(clwhite);
setpencolor(clblue); 
for i:=1 to 5 do 
begin
re.left:=190;re.top:=90;re.right:=400;re.bottom:=300;
setbrushcolor(clblue);
circle(300,200,r); 
r:=r-11; 
setbrushcolor(clred);
circle(300,200,r); 
r:=r-11;
setbrushcolor(clgreen);
circle(300,200,r);
r:=r-11;
pic:=CreatePictureFromRect(re);
end;
for i:=1 to 250 do
begin
sleep(10);
drawPicture(pic,400+i,100+i);
redraw;
setpencolor(clblack);
line(x1,200,x2,200);
end;
end.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 30.03.2014 в 20:28.
Ирина93.08.04 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
SDL увеличение и уменьшение изображения Кипящий чайник Qt и кроссплатформенное программирование С/С++ 0 24.01.2012 12:08
увеличение - уменьшение изображения subbota HTML и CSS 2 19.06.2010 16:03
Увеличение/уменьшение изображения nikmay Мультимедиа в Delphi 2 18.02.2010 00:01
Уменьшение загрузки ЦП и увеличение скорости программы. Shadow_1329 Gamedev - cоздание игр: Unity, OpenGL, DirectX 80 18.08.2009 15:22
Увеличение и уменьшение картинок zzzzz Мультимедиа в Delphi 2 30.08.2008 20:53