Изменить код, чтобы солнце двиголось по пораболе - VB

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

Помогите пожалуйста visual basic нужно сделать что бы солнце двиголось по пораболе помогите пожалуйста
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), 4, QBColor(14)
For J = 1 To 60000000
Next J
Picture1.FillColor = QBColor(10)
Picture1.Circle (I, 40), 4, QBColor(10)
 
Next I
End Sub

Код к задаче: «Изменить код, чтобы солнце двиголось по пораболе - VB»

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


СОХРАНИТЬ ССЫЛКУ