Шар по траектории! - VB
Формулировка задачи:
Нужно написать программу, чтобы шар двигался по такой траектории. Не могу понять, что и как делать. Могу заставить шар двигаться шар с края в край, только, что надо не получается. Помогите, пожалуйста!
Решение задачи: «Шар по траектории!»
textual
Листинг программы
Option Explicit Dim dx As Single, dy As Single, x As Single, y As Single Private Sub Command1_Click() Do P1.Cls P1.Circle (x, y), 1, vbBlue DoEvents y = y + dy x = x + dx If x < -9 Or x > 9 Then dx = -dx If y < -9 Or y > 9 Then dy = -dy Loop End Sub Private Sub Form_Load() P1.ScaleMode = 3 P1.FillColor = vbBlue P1.Scale (-10, 10)-(10, -10) x = 0 y = 9 dx = -0.01 dy = -0.01 P1.FillStyle = 0 P1.AutoRedraw = True End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) End End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д