Как "уговорить" 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

Оцени полезность:

6   голосов , оценка 3.833 из 5
Похожие ответы