Использование цикла for для графики - VB

Формулировка задачи:

Приветствую. Дали задание изобразить рупор и что-то подобное на четырехгранную звезду методом circle с использованием оператора for. (В прикрепленных файлах). С рупором методом Тыкова получилось родить такой код:
Private Sub Picture1_Paint()
Dim i, s As Integer
Const x = 1200
Const y = 2000
Const x1 = 1800
Const y1 = 3000
For i = 1 To 2000 Step 40
s = x + i + i
d = y + 1
f = i + 1
Picture1.Circle (s, d), f, vbRed, , , 1.8
Next i
End Sub
Я вроде и понимаю, что все абсолютно так же, но когда начинаю подстраивать этот код для второй пикчи, получается только выкидыш какой-то. Благодарствую.

Код к задаче: «Использование цикла for для графики - VB»

textual
Private Sub Command1_Click()
    Picture1.Scale (-100, 100)-(100, -100)
    Picture1.AutoRedraw = True
    Picture1.Cls
    For i = -50 To 50 Step 2
       Picture1.Circle (i, 0), (i + 51) / 2, vbRed, , , 1.8
    Next i
End Sub
 
 
Private Sub Command2_Click()
    Picture1.Scale (-100, 100)-(100, -100)
    Picture1.AutoRedraw = True
    Picture1.Cls
    For i = -100 To 100 Step 2
       Picture1.Circle (i, i), (101 - Abs(i)) / 5, vbRed
       Picture1.Circle (-i, i), (101 - Abs(i)) / 5, vbRed
    Next i
End Sub

14   голосов, оценка 4.357 из 5


СОХРАНИТЬ ССЫЛКУ