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

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

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

помогите ещё создать с помощью графики эти программы

Решение задачи: «Использование графики для рисования кругов»

textual
Листинг программы
Option Explicit
    Dim J, r, st, i, cl
Dim X, Y
 
 
Private Sub Form_Click()
cls: i = 1
Timer1.Enabled = True
End Sub
 
Private Sub Form_Load()
Me.BackColor = 0
Me.ScaleMode = 3
      HScroll1.Min = 40: HScroll1.Max = 300
st = 0.4: r = 3
    Timer1.Interval = 1
    X = ScaleWidth / 2: Y = ScaleHeight / 2
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
        End
End Sub
 
Private Sub HScroll1_Change()
st = HScroll1.Value / 100
i = 1
cls
Timer1.Enabled = True
End Sub
 
Private Sub HScroll1_Scroll()
st = HScroll1.Value / 100
cls: i = 1
Timer1.Enabled = True
End Sub
 
 
Private Sub Timer1_Timer()
If i < 63 Then
                cl = RGB((64 - i) * 4, 0, 0)
    Circle (X, Y), i * r, cl
    Circle (X, Y), i * r - r / 2, cl
    Circle (X + 1, Y), i * r, cl
    Circle (X + 1, Y), i * r - r / 2, cl
    Circle (X, Y + 1), i * r, cl
    Circle (X, Y + 1), i * r - r / 2, cl
    Circle (X + 1, Y + 1), i * r, cl
    Circle (X + 1, Y + 1), i * r - r / 2, cl
i = i + st
 Else
Timer1.Enabled = False
End If
End Sub

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


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

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

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