| Вопрос: Прошу помощь зала!!! | Добавлено: 11.01.08 20:37 |
Автор вопроса:  Папоторник
|
| Все кто может!! Все кто знает!! Подскажите!! Как сделать так, чтобы безпрерывно штук 20-30 шейпов(массив) из одной точки, поочереди, начинали движение, причем каждый с Random вектором и величиной скорости. Я чувствую ОДНИМ таймером сдесь не обойтись... для Вас может и просто, а мне очень нужно! |
| Ответы | Всего ответов: 17 |
|
Номер ответа: 1 Автор ответа:  20vek Вопросов: 10 Ответов: 71 |
Профиль | | #1 | Добавлено: 11.01.08 22:07 |
| Позвони лучше другу. Здесь халявы .net | ||
|
Номер ответа: 2 Автор ответа: JJl ICQ: 436784110 Вопросов: 1 Ответов: 8 |
Профиль | | #2 | Добавлено: 11.01.08 22:53 |
|
Option Explicit
Dim i, d1(), d2() As Long Private Sub begin_Click() ReDim d1(0 To 30) ReDim d2(0 To 30) For i = 0 To 30 Randomize Timer d1(i) = Rnd * (Timer1.Interval - 1) + 1 d2(i) = Rnd * (Timer1.Interval - 1) + 1 Next i Timer1.Enabled = True End Sub Private Sub Timer1_Timer() For i = 0 To 30 Shape1(i).Left = Shape1(i).Left + d1(i) Shape1(i).Top = Shape1(i).Top + d2(i) Next i End Sub |
||
|
Номер ответа: 3 Автор ответа: ПапоторникВопросов: 6 Ответов: 22 |
Профиль | | #3 | Добавлено: 11.01.08 23:53 |
| Спасибки. Ща попробуем... | ||
|
Номер ответа: 4 Автор ответа: ПапоторникВопросов: 6 Ответов: 22 |
Профиль | | #4 | Добавлено: 12.01.08 00:00 |
|
Попробавали... норм, вот только есть одно но... поочереди !!))
|
||
|
Номер ответа: 5 Автор ответа: ПапоторникВопросов: 6 Ответов: 22 |
Профиль | | #5 | Добавлено: 12.01.08 00:25 |
| Сорри, JJl. Я сглупил... Все работает!!!! | ||
|
Номер ответа: 6 Автор ответа: JJlICQ: 436784110 Вопросов: 1 Ответов: 8 |
Профиль | | #6 | Добавлено: 12.01.08 00:45 |
| Ура(: Рада, что помогла) УДАЧИ (= | ||
|
Номер ответа: 7 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #7 | Добавлено: 12.01.08 15:18 |
| Прошу заметить - в теме не отписались владельцы синих звезд. Кое о чем-таки говорит! | ||
|
Номер ответа: 8 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #8 | Добавлено: 12.01.08 15:30 |
Ни о чем ровным счетом 
|
||
|
Номер ответа: 9 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #9 | Добавлено: 12.01.08 16:08 |
| блин | ||
|
Номер ответа: 10 Автор ответа: gvozdРазработчик Offline Client Вопросов: 164 Ответов: 1317 
|
Web-сайт: Профиль | | #10 | Добавлено: 12.01.08 16:58 |
| +1 | ||
|
Номер ответа: 11 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #11 | Добавлено: 12.01.08 18:34 |
| Жму руку, gvozd! Уж у тебя-то звезда заслуженая! | ||
|
Номер ответа: 12 Автор ответа: gvozdРазработчик Offline Client Вопросов: 164 Ответов: 1317
|
Web-сайт: Профиль | | #12 | Добавлено: 12.01.08 19:11 |
| Служу народу Украины! | ||
|
Номер ответа: 13 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #13 | Добавлено: 13.01.08 02:40 |
|
Служу Советскому Союзу!
|
||
|
Номер ответа: 14 Автор ответа: BUMM ® Вопросов: 8 Ответов: 482 |
Профиль | | #14 | Добавлено: 13.01.08 03:18 |
|
извиняюсь за оффтоп
Служу Советскому Союзу!
я когда в италии получал документы по рабочей визе, в графе "страна в которой родился" мне написали Украина. Через 2 года пришел продлевать документы, так меня чуть не депортировали, сказали в 1977 страна Украина не существовала. В новых документах написали СССР )))
|
||
|
Номер ответа: 15 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #15 | Добавлено: 13.01.08 03:20 |
| Синие! | ||