Анимация: шарик отскакивает от стенки - VB

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

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

Привет всем!! Спасибо, что уделили время на прочтение этой темы! Прошу вам помочь с анимацией такого типа. Спасибо!!

Решение задачи: «Анимация: шарик отскакивает от стенки»

textual
Листинг программы
Option Explicit
 
Private Sub Command1_Click()
    Dim x As Single, y As Single, dx As Single, dy As Single
    Picture1.Scale (0, 200)-(100, 0)
    x = 0: y = 0: dx = 0.2: dy = 0.1
    Picture1.AutoRedraw = True
    Picture1.FillStyle = 0: Picture1.FillColor = vbRed
    Do
        Picture1.Cls
        Picture1.Circle (x, y), 2, vbRed
        DoEvents
        x = x + dx
        y = y + dy
        If (x > 100 Or x < 0) Then dx = -dx
        If (y > 200 Or y < 0) Then dy = -dy
    Loop
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    End
End Sub

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


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

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

15   голосов , оценка 4 из 5