![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Эффект падающих цифр
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]ви цикле.