Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Эффект падающих цифр


Страницы:   1 2 3

datorn ©   (2009-07-17 19:57:00) 

Добрового времени суток, мастера! Подскажите, пожалуйста, как реализовать эффект падающих цифр ("дождь из цифр")? Этот эффект реализован в фильме "Матрица".
Вот реализовал один столбик "дождя", но как их сделать много и независимыми?

var
y_old:integer;
s:string;
c1,c2:TColor;
begin
c1:=$002FFF6D;
c2:=$00008800;
canvas.Font.Color:=c1;
//setbkmode(form1.canvas.Handle,Transparent);

s:=inttostr(random(2))+inttostr(random(2));

 y_old := y-canvas.TextHeight(s);
 canvas.TextOut(x,y,s);
 canvas.Font.Color:=c2;
 canvas.TextOut(x,y_old,s1);
 s1:=s;
end;


datorn   (2009-07-17 20:37:00) [41]

Пробовал пинать, не катится.


sniknik   (2009-07-17 20:36:00) [42]

> В цикле - всё будет одновременно происходить. Идеально было бы для каждой процедуры организовать свой таймер со случайным х,
> но не размещу же я 50 таймеров на форме!
таймер должен быть только один! © Дункан Маклауд
с минимальным интервалом, и массив из 50ти х выраженных в этих интервалах, полученных естественно рандомно. кончились интервалы - сработало, получай новый, не кончились - пропускай. все.

> Ну а как??? Я пытался через цикл, использовал sleep, изменял икс и игрек, а всё равно не тот эффект!
а по колесу пинать пробовал?


@!!ex   (2009-07-17 20:35:00) [43]

> [9] datorn ©   (17.07.09 20:26)

Простой совет. Обычно он тем кому я преподаю помогает:
попробуй расписать задачу на человеческом языке. В виде алгоритма.


Сергей М.   (2009-07-17 20:32:00) [44]


> пытался через цикл, использовал sleep, изменял икс и игрек,
>  а всё равно


Мдя ..
Не видать тебе, Данила-мастер, цветка каменного как своих ушей ..


datorn   (2009-07-17 20:31:00) [45]

))) Та уже три батончика съел))


Сергей М.   (2009-07-17 20:29:00) [46]


> не лаба. Просто захотелось


Мож лучше "сникерснуть" ?


Anatoly Podgoretsky   (2009-07-17 20:28:00) [47]

> Сергей М.  (17.07.2009 20:21:06)  [6]

Не лаба, но лучше делом заняться.


datorn   (2009-07-17 20:26:00) [48]

Ну а как??? Я пытался через цикл, использовал sleep, изменял икс и игрек, а всё равно не тот эффект!


@!!ex   (2009-07-17 20:24:00) [49]

> [3] datorn ©   (17.07.09 20:09)

Не нужно 50 таймеров.


> [7] datorn ©   (17.07.09 20:22)

Не мозгов, а базовых знаний.


datorn   (2009-07-17 20:22:00) [50]

Та не лаба)) Просто захотелось сделать такой эффект, а мозгов, по ходу, не хватает:'(


Сергей М.   (2009-07-17 20:21:00) [51]

Ну точно не лаба)..


datorn   (2009-07-17 20:16:00) [52]

Вот здесь есть похожий эффект -
http://softsearch.ru/programs/179-568-dos-matrix-2003-download.shtml


datorn   (2009-07-17 20:16:00) [53]

Вот здесь есть похожий эффект -
http://softsearch.ru/programs/179-568-dos-matrix-2003-download.shtml


datorn   (2009-07-17 20:09:00) [54]

В цикле - всё будет одновременно происходить. Идеально было бы для каждой процедуры организовать свой таймер со случайным х, но не размещу же я 50 таймеров на форме!


Сергей М.   (2009-07-17 20:06:00) [55]

На лабу, вроде, не похоже ..


@!!ex   (2009-07-17 19:58:00) [56]

ви цикле.


Страницы:   1 2 3

Наверх

Титульная страница Поиск, карта сайта Написать письмо