| Вопрос: Математика, геометрия х.з. :) | Добавлено: 29.03.06 12:38 |
Автор вопроса:  HACKER
|
| Ответы | Всего ответов: 17 |
|
Номер ответа: 16 Автор ответа:  avdey ICQ: 219571279 Вопросов: 34 Ответов: 486 |
Профиль | | #16 | Добавлено: 03.04.06 19:39 |
|
Гыгы... Заставил круг по фигуре Лиссажу бегать, полный угар, а если с числами поколдовать...
Кто хочет попробовать, вот (тока форму на весь экран, 2 кнопки и 1 таймер): Option Explicit
Dim xx, yy, xmax, ymax, v, rr, ind As Variant Dim x(360002), y(360002) Private Sub Command1_Click() xmax = 15000 ymax = 10000 rr = 4000 For v = 0 To 360 Step 0.02 ind = ind + 1 xx = rr * (Sin(0.99 * v) + 0.7 * Cos(3.01 * v)) + xmax / 2 'Тута меняем 0.99, 0.7 или 3.01 тока не увлекайтесь меняйте на 0.01 или 0.001 yy = rr * (Cos(1.01 * v) - 0.1 * Sin(15.03 * v)) + ymax / 2 ' x(ind) = xx y(ind) = yy Next Command1.Caption = ind End Sub Private Sub Command2_Click() Timer1.Enabled = Not Timer1.Enabled End Sub Private Sub Timer1_Timer() v = v + 1 Circle (x(v - 1), y(v - 1)), 1000, RGB(255, 255, 255) Circle (x(v), y(v)), 1000 If v = ind Then Timer1.Enabled = False End Sub |
||
|
Номер ответа: 17 Автор ответа: avdeyICQ: 219571279 Вопросов: 34 Ответов: 486 |
Профиль | | #17 | Добавлено: 03.04.06 19:58 |
|
Полный угар, заставил форму по экрану так носиться..))))
Завтра над директором приколюсь!!!!!!!))) З.Ы. Надеюсь не уволит..... |
||