Изобразите на форме снежинку(как на фотографии)-совокупность объектов line - VB

Узнай цену своей работы

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

вот задача: изобразите на форме снежинку(как на фотографии)-совокупность объектов line.запрограммируйте форму так,чтобы каждый щелчок по ней удалял один луч.

Решение задачи: «Изобразите на форме снежинку(как на фотографии)-совокупность объектов line»

textual
Листинг программы
Option Explicit
Dim z As Integer
 
Private Sub Form_Load()
    Dim i As Integer, j As Integer, P As Double, S As Single, k As Integer
    P = 0.785
    z = 24
    'AutoRedraw = True
    Me.Scale (-100, 100)-(100, -100)
    For i = 1 To 3
       S = 30 * i
       For j = 1 To 8
          k = k + 1
          Load Line1(k)
          Line1(k).X1 = Cos(P * j) * S: Line1(k).Y1 = Sin(P * j) * S
          Line1(k).X2 = Cos(P * j) * (S - 25): Line1(k).Y2 = Sin(P * j) * (S - 25)
          'CurrentX = Line1(k).X1: CurrentY = Line1(k).Y1: Print k
          Line1(k).Visible = True
       Next j
    Next i
End Sub
 
Private Sub Form_Click()
    Line1(z).Visible = False
    If z > 0 Then z = z - 1
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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