Изменить код, чтобы солнце двиголось по пораболе - VB
Формулировка задачи:
Помогите пожалуйста visual basic нужно сделать что бы солнце двиголось по пораболе помогите пожалуйста
Решение задачи: «Изменить код, чтобы солнце двиголось по пораболе»
textual
Листинг программы
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Command1_Click() Picture1.Scale (0, 50)-(50, 0) Picture1.Line (10, 10)-(26, 20), QBColor(11), BF Picture1.Line (12, 13)-(17, 18), QBColor(14), BF Picture1.Line (10, 20)-(20, 30), QBColor(12) Picture1.Line (20, 30)-(26, 20), QBColor(12) Picture1.Line (19, 11)-(24, 19), QBColor(12), BF For i% = 50 To 0 Step -5 Picture1.FillColor = vbYellow Picture1.Circle (i%, 40 - 0.02 * (i% - 25) ^ 2), 3, QBColor(14) Sleep 200 Picture1.FillColor = QBColor(15) Picture1.Circle (i%, 40 - 0.02 * (i% - 25) ^ 2), 3, QBColor(15) Next i% End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д