ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Алгоритм движения Image
3 сообщений из 3, страница 1 из 1
Алгоритм движения Image
    #32548152
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jojo
Участник
Привет всем
Делать нехрен ...а нада чёто
Подкинте кто нить алогоритм отражающегося от стенок шара
или фигуры ...у меня в форме фото
и я хочу чтоб она отражалась от стенок формы ...
Что то типа :
но он летит в одну сторону ...

Private Sub CommandButton1_Click()
Randomize

x_Form = UserForm1.Left
y_Form = UserForm1.Top

x_Image = Image1.Left
y_Image = Image1.Top

Do
If x_Image < x_Form And y_Image < y_Form Then
Image1.Move Image1.Left + Rnd(10), Image1.Top + Rnd(10)
Else
Image1.Move Image1.Left - Rnd(100), Image1.Top - Rnd(100)
End If
DoEvents

Loop Until x_Form = 999

End Sub

С уважением,
Jojo®
...
Рейтинг: 0 / 0
04.06.2004, 11:26
| Ответить | Цитировать | Написать  
Алгоритм движения Image
    #32548543
Шогал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Шогал
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Dim Dx As Integer
Dim Dy As Integer
Dim X As Integer
Dim Y As Integer

Private Sub Form_Load()
    Dx =  10 
    Dy =  10 
End Sub

Private Sub Timer1_Timer()
    X = X + Dx
    Y = Y + Dy
    If X <=  0  Or X >= Me.Width - Image1.Width Then Dx = -Dx
    If Y <=  0  Or Y >= Me.Height - Image1.Height Then Dy = -Dy
    
    Image1.Top = Y
    Image1.Left = X
End Sub
Остальное доделывай сам

SHOGAL
...
Рейтинг: 0 / 0
04.06.2004, 13:40
| Ответить | Цитировать | Написать  
Алгоритм движения Image
    #32548608
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jojo
Участник
спасибо

Jojo®
...
Рейтинг: 0 / 0
04.06.2004, 14:03
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Алгоритм движения Image
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]