Как правильно перевести код с VB6, рисующий разноцветную спираль - Visual Basic .NET
Формулировка задачи:
Здравствуйте!
Прошу помощи. Не знаю, как правильно перевести код с VB6, рисующий разноцветную спираль Пытаюсь создать простую картинку "kap2.jpg", третья сверху http://arbuz.uz/x_galerea1.html Авторский код, копирую:
Мой код, ниже
Решение задачи: «Как правильно перевести код с VB6, рисующий разноцветную спираль»
textual
Листинг программы
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.WindowState = FormWindowState.Maximized End Sub Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint Dim r1 As Integer, r As Integer, pi As Single, x As Single, y As Single Dim n As Integer, j As Byte, i As Single pi = 4 * Math.Atan(1) Dim DrawWidth As Integer = 2 n = 1 For j = 1 To n x = 550 : y = 220 r1 = 10 For i = -pi To pi * 50 Step 0.0015 r = r1 + i * 2.5 + 0.1 * i * Math.Cos(55 * i) ^ 6 e.Graphics.DrawLine(New Pen(Color.FromArgb(Math.Min(Math.Abs(r), 255), _ Math.Min(Math.Abs(255 - Math.Cos(i / 2) * 420), 255), _ Math.Min(Math.Abs(Math.Cos(i * 4) * 250), 255)), _ 1), _ New Point(r * Math.Cos(i) + x - i * 1, r * Math.Sin(i) + y), _ New Point(r * Math.Cos(i) + x - i * 1.2, r * Math.Sin(i) + y)) Next i Next j End Sub End Class
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д