Изменить код, чтобы солнце двиголось по пораболе - 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

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


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

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

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