Я ещё только учусь!!!

[Areostar]

ПО этому и вопрос такой глупый!

КАк заставить геометрическую фигуру нарисованую на форме двигаться и при том при достижении края формы отталкиваться от них.!!!


Зарание благодарен!!!!!

[Areostar]

Забыл уточнить Visual Basic 6.0

[Antonariy]

По таймеру пересчитывать координаты в соответствии с выбранной формулой, рисовать фигуру на новом месте, при x>=Form.Width - фигура.Width/2 или x<=0 или y>=Form.Height - фигура.Height/2 или y<=0 менять соответствующее направление.

[Viper]

1. Читать правила.
2. Менять название темы
3. Пользоваться кнопкой Правка.
4. Учить математику.

З.Ы. До написания вопроса какие-либо порывы сделать желаемое были, али как?

[Debugger]

Скринсейвер делаешь?
Тогда юзай ещё ShowCursor

[|( () ( T |/| |(]

Смотря кокая фигура. Для окружности:

-------------------------
Dim x, y, vx, vy As Integer
Private Sub Form_Load()
x = Me.ScaleWidth / 2
y = Me.ScaleHeight / 2
vx = Rnd * 20
vy = Rnd * 20
End Sub
Private Sub Timer1_Timer()
Me.Cls
Me.Circle (x, y), 20
x = x + vx: y = y + vy
If x <= 20 Or x >= Me.ScaleWidth - 20 Then vx = -vx
If y <= 20 Or y >= Me.ScaleHeight - 20 Then vy = -vy
End Sub
--------------------------

если для какой другой, то проверяй координаты вершин, если они <0 или > Me.ScaleWidth и Me.ScaleHeight то меняй скорость на противоположную.

вот например для квадрата:

-------------------------------
Private Type vec
x As Integer
y As Integer
End Type
Dim F(3) As vec
Dim x, y, vx, vy As Integer
Private Sub Form_Load()
x = Me.ScaleWidth / 2
y = Me.ScaleHeight / 2
F(0).x = x - 10: F(0).y = y - 10
F(1).x = x + 10: F(1).y = y - 10
F(2).x = x + 10: F(2).y = y + 10
F(3).x = x - 10: F(3).y = y + 10
vx = Rnd * 20
vy = Rnd * 20
End Sub
Private Sub Timer1_Timer()
Me.Cls
Me.Line (F(0).x, F(0).y)-(F(1).x, F(1).y)
Me.Line (F(1).x, F(1).y)-(F(2).x, F(2).y)
Me.Line (F(2).x, F(2).y)-(F(3).x, F(3).y)
Me.Line (F(3).x, F(3).y)-(F(0).x, F(0).y)
For i = 0 To 3
If F(i).x <= 20 Or F(i).x >= Me.ScaleWidth - 20 Then vx = -vx
If F(i).y <= 20 Or F(i).y >= Me.ScaleHeight - 20 Then vy = -vy
Exit For
Next
For i = 0 To 3
F(i).x = F(i).x + vx: F(i).y = F(i).y + vy
Next
End Sub
------------------------------

P.S. Рисовать лучше через API.

[Areostar]

Большое спасибо!!!

[Areostar]

При компиляции программы комп постоянно выдаёт Run-time error '9'

Программу 10 раз перепроверил! Что это может быть!???

[NashRus]

не обманывай нас, восточный юноша !
при компиляции не бывает Run-time error !

[Viper]

Ошибка периода выполнения бывает именно во время выполнения, причем тут компиляция?

При запуске из под среды ошибка есть? Если есть, то показывай место где она происходит, если нет, то отслеживай процесс выполнения или через MsgBox или в лог-файл пиши

[Konst_One]

вот посмотри на это, может что для себя полезное найдешь