|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
28.03.2013, 17:11 | #21 |
Пользователь
Регистрация: 22.03.2013
Сообщений: 28
|
привет)
у меня еще одна просьба: можете дописать комментарии к 2-м программам со снегом и с буквой??? uses ABCObjects; var z:array[1..10] of PictureABC; i,j: integer; procedure MoveAll(a,b: integer); var j: integer; begin for j:=1 to Objects.Count do Objects[j].moveOn(a,b); end; begin // LockDrawingObjects; for i:=1 to 10 do begin z[i]:=PictureABC.Create(random(400),ran dom(400),'C:\Temp\Снежинка3.bmp'); end; MoveAll(100,100); LockDrawingObjects; RedrawObjects; while True do begin for j:=1 to Objects.Count do Objects[j].moveOn(Random(3)-1,1); for i:=1 to 10 do begin if z[i].Top>400 then z[i].Top:=0-random(100); end; RedrawObjects; sleep(20); end; end. uses ABCObjects; var bt: TextABC; x: integer; begin bt:=CreateTextABC(60,110,110,RGB(22 4,224,224),'G'); x:=15; while x>0 do begin Dec(x); bt:=TextABC(bt.Clone); bt.Color:=RGB(x*10,x*5,x); bt.MoveOn(1,1); end; end. |
28.03.2013, 17:27 | #22 |
Пользователь
Регистрация: 24.01.2013
Сообщений: 67
|
Код:
|
28.03.2013, 17:43 | #23 |
Пользователь
Регистрация: 24.01.2013
Сообщений: 67
|
Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
рисунки в Pascal ABC | Rainer082 | Помощь студентам | 9 | 21.02.2017 11:33 |
Pascal ABC | Fizik03 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 14.05.2012 23:22 |
Программы в Pascal, среда pascal ABC. Лабораторные работы | Одинокая Волчица | Фриланс | 8 | 10.02.2012 20:09 |
Неудобство ABC Pascal и глюк Borland Pascal | proser93 | Помощь студентам | 0 | 19.11.2011 19:01 |
Turbo Pascal or Pascal ABC | Ikram | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 27.04.2010 13:44 |