Проблемы с движением шарика в пределах PictureBox

[inkda1]

Задача такова: в PictureBox должен появляться circle в рэндомном месте и все время двигаться в пределах пикчер бокса, то есть он должен отталкиваться от рамок.
Как сделать что бы он появлялся в рэндомном месте? Рэндомными значениями заполнять координаты Picture.Scale?
Как сделать так что бы шарик отталкивался от границ?

[Денис]

Что значит "задание"? Уточните-ка, а то может быть Вам в раздел "работа"?

[inkda1]

Нет. Я не прошу делать за меня задачу. У меня есть вполне конкретные вопросы.

[Хакер]

Задавай.

[Денис]

inkda1
Вообще есть два варианта:
1. рисовать круг на PictureBox'е используя метод PictureBox.Circle но тогда тебе придется каждый раз при перемещении стирать предыдущий нарисованный круг методом PictureBox.Cls
2. положить на PictureBox объект Shape и задать ему форму круга через свойства. тогда тебе останется только задавать ему координаты.

Случайное число в диапазоне от 0 до 1 генерируется функцией Rnd

[inkda1]

Ну в этом я разобрался =)
Первым методом делаю. Я не знаю каким образом сделать что бы он отталкивался от границ

[alibek]

Угол падения равен углу отражения.

[Денис]

Ну он же движется у тебя? Или он рандомно скачет? если скачет, то при чем тут отталкивание от границ? если же есть движение, то при столкновении с границей просто инвертируем счетчики координат (там где +1 становится -1 и наоборот)

и да: Угол падения равен углу отражения.

[inkda1]

Ну он же движется у тебя? Или он рандомно скачет? если скачет, то при чем тут отталкивание от границ? если же есть движение, то при столкновении с границей просто инвертируем счетчики координат (там где +1 становится -1 и наоборот)

и да: Угол падения равен углу отражения.

Да, движется конечно. Даже останавливается когда до границы доходит.
Мммм… Спасибо, подумаю еще.

[JohnK]

Делать было нечего, дело было к вечеру

На форму кинь Pic1, Timer1.Interval=1 . Классическая анимация.

Код: Выделить всё

Option Explicit
Dim X As Long, Y As Long
Dim Xlim As Long, Ylim As Long
Dim XDir As Long, YDir As Long
Dim D As Long

Private Sub Form_Load()
Pic1.ScaleMode = 3 'Pixels
Randomize
Xlim = Pic1.ScaleWidth: Ylim = Pic1.ScaleHeight
X = Xlim * Rnd(Xlim): Y = Ylim * Rnd(Ylim)
XDir = 1: YDir = 1: D = 20
Pic1.Circle (X, Y), D, &HFF00
End Sub

Sub doMove()
Pic1.Circle (X, Y), D, &H8000000F

X = X + XDir: Y = Y + YDir

If X >= Xlim - D Then
     XDir = -1
   ElseIf X <= D Then
     XDir = 1
End If

If Y >= Ylim - D Then
     YDir = -1
  ElseIf Y <= D Then
     YDir = 1
End If

Pic1.Circle (X, Y), D, &HFF00
End Sub

Private Sub Timer1_Timer()
doMove
End Sub



[inkda1]

Оххх, спасибо огромное! =)