Использование графики для рисования кругов - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д