Как "уговорить" Visual Basic 6.0 нарисовать такую Картинку? - VB
Формулировка задачи:
Здравствуйте!
Прошу помощи. Подскажите, пожалуйста, как "уговорить" Visual Basic 6.0 нарисовать такую Картинку, ниже.Какие изменения надо внести в исходный код?
Сам код появился в 2007 году. Возможно, в ту пору не хватало умельцев, чтобы дать сюжету Вторую Жизнь. Исходный кодРешение задачи: «Как "уговорить" Visual Basic 6.0 нарисовать такую Картинку?»
textual
Листинг программы
Dim A, fi Dim Nn, k, N Dim X(), y() Dim x0, y0 Sub TwelveNodes() ReDim X(k * N - 1) ReDim y(k * N - 1) A = 43 * N For Nn = 0 To k * N - 1 X(Nn) = (A * Sin(A * Nn * fi)) / 3 + (1 - Cos(Nn * fi / 6)) * Nn * Cos(Nn * fi) y(Nn) = (-A * Cos(A * Nn * fi)) / 3 + (1 - Cos(Nn * fi / 6)) * Nn * Sin(Nn * fi) Next Nn Nn = 0 'Timer1.Enabled = True 'For Nn = 1 To k * N - 1 'Me.Line (x0 + x(Nn - 1), y0 + y(Nn - 1))-(x0 + x(Nn), y0 + y(Nn)), RGB(0, Nn * 255 / (k * N), (k * N - 1 - Nn) * 255 / (k * N)) 'Next Nn End Sub Private Sub Draw_3d() Dim X Randomize Z1 = Int(100 * Rnd) For X = 0 To 200 Draw3dTxt 300 + X - X1, X - Y1, " Sasha Smirnov, kliknite levoy knokoy myshki po ekranu!", X, X, X, Z1 Next X End Sub Private Sub Draw3dTxt(ByVal start_x As Single, ByVal start_y As Single, ByVal txt As String, r, g, b, Z) CurrentX = start_x CurrentY = start_y Font.Size = 28 ForeColor = RGB(r + Z, g + Z, b + Z) Print txt End Sub Private Sub Form_Activate() Timer1.Enabled = False Timer1.Interval = 1 AutoRedraw = True WindowState = 2 Print ".............Sasha_Smirnov...kliknite levoy knokoy myshki po ekranu..! " End Sub Private Sub Form_Click() Dim Pi Cls Draw_3d ' äîáГ*ГўГЎ ñòðî÷êó âûçîâГ* ïðîöåäóðû Me.Print ".............Sasha_Smirnov " x0 = Me.Width / 2: y0 = Me.Height / 2 Pi = 4 * Atn(1) k = Int(Rnd * 5) + 47 N = 54 'Int(Rnd * 10) + 50 fi = 8 * Pi / N / k TwelveNodes Timer1.Enabled = True End Sub Private Sub Timer1_Timer() If Nn < k * N - 10 Then cl = Nn * 255 / (k * N) For i = Nn + 1 To Nn + 10 Me.Line (x0 + X(i - 1), y0 + y(i - 1))-(x0 + X(i), y0 + y(i)), RGB(cl, 0, 255 - cl) Next i Nn = Nn + 10 Else Timer1.Enabled = False End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д