Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/15: Рейтинг темы: голосов - 15, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 10.04.2019
Сообщений: 7

Используя метод Move изобразите движение автомобиля

19.10.2019, 13:41. Показов 3186. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Используя метод Move изобразите движение автомобиля (использовать картинку *.bmp или *.jpg файла). Движение управляется кнопками "Вперёд" - машина передвигается впереди "Назад" - возвращается назад. Измените программу, заставив машину не мгновенно перемещаться на новое место, плавно переезжать, и плавно возвращаться - регулятор скорости перемещения.

Написал движение как Picture1.Left = 1Picture1.Left - 50/Picture1.Left = 1Picture1.Left +50, а вот через метод Move не понимаю как написать
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
19.10.2019, 13:41
Ответы с готовыми решениями:

Используя метод Move изобразите движение автомобиля
используя метод Move изобразите движение автомобиля(используя картинку)движение управляется кнопкой вперед,кнопкой назад.машина...

Используя метод Move изобразите движение автомобиля (использовать картинку *.bmp или *.jpg файла).
Используя метод Move изобразите движение автомобиля (использовать картинку *.bmp или *.jpg файла). Движение управляется кнопками...

Изобразите на экране движение бильярдного шара после столкновения со стенкой
Изобразите на экране движение шара по бильярду без луз.Используйте правило:угол отражения равен углу падения.Начальное направление движения...

6
 Аватар для Pro_grammer
6807 / 2839 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
19.10.2019, 15:05
Там нет ни чего сложного.
Что бы автомобиль перемещался слева на право достаточно изменить всего 1 параметр X
Вставьте в код кнопки:
Visual Basic
1
2
X = 1000
Picture1.Move X
Плавное перемещение можно организовать по таймеру.
Скорость V =10, интервал таймера 50. Можно менять в сторону увеличения или уменьшения.
Visual Basic
1
2
3
4
5
6
Private Sub Timer1_Timer()
Static X As Integer
V = 10 
X = X + V
Picture1.Move X
End Sub
1
0 / 0 / 0
Регистрация: 10.04.2019
Сообщений: 7
19.10.2019, 16:50  [ТС]
можно ли сделать так, чтобы Picture1 не уходил на пределы формы ?
0
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
19.10.2019, 17:17
Цитата Сообщение от dsfdsdf Посмотреть сообщение
можно ли сделать так,
Ну конечно можно !
0
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
19.10.2019, 17:45
dsfdsdf, вот тебе машинка, играйся
Миниатюры
Используя метод Move изобразите движение автомобиля  
Вложения
Тип файла: rar AutoMove.rar (25.1 Кб, 17 просмотров)
2
0 / 0 / 0
Регистрация: 10.04.2019
Сообщений: 7
19.10.2019, 20:37  [ТС]
Цитата Сообщение от SoftIce Посмотреть сообщение
dsfdsdf
, что означают строки "Picture1.Picture = PL.Picture"," If dx = 0 Then dx = -1 Else dx = 0"," Else dx = 0"
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command1_Click()
    Picture1.Picture = PL.Picture
     If dx = 0 Then dx = -1 Else dx = 0
End Sub
 
Private Sub Timer1_Timer()
    x = x + dx
    If x > 0 And x < Me.ScaleWidth - Picture1.Width Then
    Picture1.Move x
  Else
  dx = 0
  End If
End Sub
0
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
19.10.2019, 21:50
Лучший ответ Сообщение было отмечено dsfdsdf как решение

Решение

Цитата Сообщение от dsfdsdf Посмотреть сообщение
что означают строки
Добавил комментарии
Вложения
Тип файла: rar AutoMove.rar (57.9 Кб, 27 просмотров)
2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
19.10.2019, 21:50
Помогаю со студенческими работами здесь

Модифицировать код, сделать движение машинки через Move
Нужно вместо этих кругов вставить любую машинку. желательно объяснить или сам попробую разобраться. uses GraphABC; type ...

How can I resize a picture when I move a move a mouse on it, and size it back when I move mouse out?
How can I resize a picture when I move a move a mouse on it, and size it back when I move mouse out. I know, I should use OnMouseMove...

Движение автомобиля в потоке
Доброе время суток. Возникла проблема при создании программы, необходимо придумать адекватный алгоритм движения автомобиля в потоке...

Изобразить движение автомобиля
Помогите зделать анимацию машины которая движеться.

Изобразить движение автомобиля
Помогите нарисовать мышку в Паскале, чтобы анимационная была, т.е передвигалась Добавлено через 28 минут Мышь которая не...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru