Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Олимпиады

Страница: 1 | 2 |

 

  Вопрос: Математика, геометрия х.з. :) Добавлено: 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
Автор ответа:
 avdey



ICQ: 219571279 

Вопросов: 34
Ответов: 486
 Профиль | | #17 Добавлено: 03.04.06 19:58
Полный угар, заставил форму по экрану так носиться..))))
Завтра над директором приколюсь!!!!!!!)))

З.Ы. Надеюсь не уволит.....

Ответить

Страница: 1 | 2 |

Поиск по форуму





© Copyright 2002-2011 VBNet.RU | Пишите нам