Перемещение объекта

@Василий-Робот · Регистрация: 04.11.2009

Студворк — интернет-сервис помощи студентам

Как переместить объект (пусть прямоугольник) влево, вправо, вверх и вниз? Одним словом, как это все перемещать? Подсказывают, что через Mode, но как?!

@Василий-Робот · 12.11.2009, 11:49 **[ТС]**

Сообщение от Toxa33rus

ugo1 = IIf(ugo1 > 2 * Pi, ugo1 - 2 * Pi + HScroll1 / 10, ugo1 + HScroll1 / 10)

Все оказалось достаточно легко

@Василий-Робот · 12.11.2009, 12:17 **[ТС]**

А можно ли сделать следующую програмку: два поезда, две станции. Поезда следуют друг за другом по кругу, но при они не должны "врезаться" в друг друга и обгонять. На станциях, они делают небольшие остановки, а потом снова трогаются в путь.
Такое вообще возможно?

@Toxa33rus · 12.11.2009, 13:03

Если задать им одинаковую скорость то врезаться они не будут по определению.
Переменную "угол" можно оставить одну, синусы и косинусы брать для первого поезда от "угол", а для второго от "угол"+Pi.
Остановку можно сделать задав в нужный момент (когда угол равен (почти) нулю) интервал таймера в пару секунд, а на следующем цикле вернуть обратно 50 мс.

Ожидаю что дальше захочется сделать плавное торможение и разгон, но это уже сами

@Василий-Робот · 12.11.2009, 13:27 **[ТС]**

А таймер использовать один или два?
Понял - два

@BasicMan · 12.11.2009, 13:41

Сообщение от Василий-Робот

А таймер использовать один или два?

если разная скорость, то 2, иначе - 1

@Василий-Робот · 12.11.2009, 15:25 **[ТС]**

Сообщение от Toxa33rus

Остановку можно сделать задав в нужный момент (когда угол равен (почти) нулю) интервал таймера в пару секунд, а на следующем цикле вернуть обратно 50 мс.

Подробнее пожалуйста
И вопрос, а почему когда угол почти равен нулю? Ведь станция находиться все время на одном мечте, как синхронизировать временную остановку поезда именно в момент, когда он добрался до станции?

@Toxa33rus · 12.11.2009, 18:49

Сообщение от Василий-Робот

почему когда угол почти равен нулю? Ведь станция находиться все время на одном мечте, как синхронизировать временную остановку поезда именно в момент, когда он добрался до станции?

Угол задается в радианах, изначально равен нулю. Дальше к нему прибавляется 0.5 (например). Как только угол стал равен 2*Пи радиан то мы отнимаем эти самые 2*Пи.
Например через 13 циклов таймера угол = 0.5*13 = 6.5. Это больше 2*Пи и мы отнимаем 2*Пи и угол = 0,21681469282042
Это и есть ПОЧТИ ноль. Точный ноль там долго не появится

Если б изначально в условии были поезда то не надо было делать через IIF а надо былоа делать через If ugol > 2*Pi Then и там уже и отнимать лишнее да и делать остановку заодно.
Короче в таймер надо впихнуть условие:

Visual Basic
1
2
3
4
5
6
7
If ugol > 0 And ugol < HScroll1 / 10 or ugol > Pi And ugol < Pi + HScroll1 / 10 then
  ugol = 0
  'тут возможно придется обновить координаты
  timer1.interval = 2000 'можно покурить на пероне
else
  timer.interval=50
end if

Добавлено через 6 минут
Мораль сей басни такова:
Что изначально надо полное ТЗ писать
А если апосля пускать по рельсам поезда
То проще будет Вам проект уж новый начинать.

навеяло

@BasicMan · 12.11.2009, 19:29

Сообщение от Toxa33rus

Мораль сей басни такова:
Что изначально надо полное ТЗ писать
А если апосля пускать по рельсам поезда
То проще будет Вам проект уж новый начинать.

Не по теме:

запощу-ка я это в стихотворенство :)

@Василий-Робот · 12.11.2009, 21:55 **[ТС]**

Что такое ТЗ?

Прога вообще будет выглядеть так: много станций, много поездов. Поезда еду друг за другом с разными скоростями, как говорилось выше, не "врезаясь" и не обгоняя друг друга. Как предусмотрительно заметил Toxa33rus они действительно будут притормаживать у станций, останавливаться, ждать несколько секунд (высадка и посадка пассажиров) трогаться в путь набирая скорость и так до следующей станции. Плюс диспетчер (он же пользователь) будет видеть текущую скорость каждого поезда на табло и при желании пользователя он может "добавить" людей на какой-то станции, тем самым увеличивая время остановки поезда, а следовательно замедляя все составы идущие за ним.
Я прошу дать мне совет: стоит ли вообще это делать в Басике или идти на Дельфу или С ++ (но пожалуйста, аргументируйте)

@Василий-Робот · 09.12.2009, 18:16 **[ТС]**

Всем доброго дня!
Я промучился с остановкой. Как сделать медленное торможение перед станцией, остановку в течении нескольких секунд и снова набирание скорости?

@Василий-Робот · 14.12.2009, 21:08 **[ТС]**

Как сделать так, чтобы при круговом движении объект двигался "не рывками", а плавно?

@Toxa33rus · 15.12.2009, 14:00

Уменьшить интервал у таймера и соответственно шаг сдвига тоже.

@Василий-Робот · 15.12.2009, 20:58 **[ТС]**

Как понять "шаг сдвига"?
Где он есть в коде?

Pascal
1
2
3
4
5
6
7
8
9
10
11
Dim ugo1
Const Pi = 3.14159265358979
Private Sub Form_Load()
ugo1 = 0
Timer1.Interval = 200
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = True
Shape1.Move Sin(ugo1) * 3000 + 5000, Cos(ugo1) * 3000 + 5000
ugo1 = IIf(ugo1 > 2 * Pi, ugo1 - 2 * Pi + 0.5, ugo1 + 0.5)
End Sub

Добавлено через 1 час 46 минут
И как сделать так, чтобы поезда не двигались на определенном расстоянии друг от друга, а распределялись равномерно по всему кольцу (при условии, что количество поездов можно менять)

@Toxa33rus · 16.12.2009, 10:16

Сообщение от Василий-Робот

Как понять "шаг сдвига"?
Где он есть в коде?

Перемещение объекта

Василий-Робот, не будьте роботом - вникайте хоть немного в код который вам дают.

@Василий-Робот · 16.12.2009, 22:09 **[ТС]**

Toxa33rus, искренне, не понимаю, где шаг сдвига
Тыкни меня носом в код

Если движутся к примеру пять поездов, то как сделать чтобы они ехали на одинаковом расстоянии друг от друга?

@Василий-Робот · 16.12.2009, 22:58 **[ТС]**

Как располагать на равном расстоянии я уже знаю

@Toxa33rus · 17.12.2009, 20:36

Там есть такая хрень как угол, которая потом превратилась в уго1. Неужели сложно догадаться прибавить к ней 72 градуса в радианах 4 раза и для каждого раза нарисовать круг.

Добавлено через 1 минуту
0.5 это шаг

@Василий-Робот · 19.12.2009, 23:45 **[ТС]**

Как сделать так чтобы совместить суть выбора двух опций из трех
То есть есть три опции 1 - 2 - 3
При нажатия 1 и 3 - происходит одно и тоже
При нажатии 2 - происходит другое
Нужно полностью переписывать код или можно поставить что-то вроде or?
________________________________________ _____

Если загнать опции в две разные Frame, к примеру:
Frame 1 содержит опцию 1 и 2
Frame 2 содержит опцию 3 и 4
Как записать условие, что при нажатии опции 2 и 4 произойдет то-то?

Добавлено через 22 часа 26 минут
Повторю вопрос:
Как сделать так чтобы совместить суть выбора двух опций из трех
То есть есть три опции 1 - 2 - 3
При нажатия 1 и 3 - происходит одно и тоже
При нажатии 2 - происходит другое
Нужно полностью переписывать код или можно поставить что-то вроде or?
________________________________________ _____

Если загнать опции в две разные Frame, к примеру:
Frame 1 содержит опцию 1 и 2
Frame 2 содержит опцию 3 и 4
Как записать условие, что при нажатии опции 2 и 4 произойдет то-то?

Добавлено через 45 минут

Добавлено через 3 часа 43 минуты
И как же это делается?

@ks2010 · 02.03.2010, 15:24

как с помощью таймера сделать чтобы объект перемещался из одной точки в другую???хелп ми плиз)

@Можжевелов · 01.01.2021, 14:31

По этой теме для полноценного теста сделал по материалам форума тестовую программку, можно на ходу менять радиусы как горизонтальный, так и вертикальный, а также менять плавность и наоборот задержку (ступенчатость) вращения. В коде программы есть Public-переменные для установки центральной точки вращения на форме. См.вложения.

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@Василий-Робот TECHNO 28 / 28 / 8 Регистрация: 04.11.2009 Сообщений: 366

	Перемещение объекта 09.11.2009, 22:02. Показов 29192. Ответов 59 Метки нет (Все метки) Как переместить объект (пусть прямоугольник) влево, вправо, вверх и вниз? Одним словом, как это все перемещать? Подсказывают, что через Mode, но как?! 0

@Василий-Робот TECHNO 28 / 28 / 8 Регистрация: 04.11.2009 Сообщений: 366
	12.11.2009, 12:17 [ТС]
	А можно ли сделать следующую програмку: два поезда, две станции. Поезда следуют друг за другом по кругу, но при они не должны "врезаться" в друг друга и обгонять. На станциях, они делают небольшие остановки, а потом снова трогаются в путь. Такое вообще возможно? Миниатюры 0

@Toxa33rus 3926 / 928 / 125 Регистрация: 16.04.2009 Сообщений: 1,993
	12.11.2009, 13:03
	Если задать им одинаковую скорость то врезаться они не будут по определению. Переменную "угол" можно оставить одну, синусы и косинусы брать для первого поезда от "угол", а для второго от "угол"+Pi. Остановку можно сделать задав в нужный момент (когда угол равен (почти) нулю) интервал таймера в пару секунд, а на следующем цикле вернуть обратно 50 мс. Ожидаю что дальше захочется сделать плавное торможение и разгон, но это уже сами 1

@Василий-Робот TECHNO 28 / 28 / 8 Регистрация: 04.11.2009 Сообщений: 366
	12.11.2009, 13:27 [ТС]
	А таймер использовать один или два? Понял - два 0

@Василий-Робот TECHNO 28 / 28 / 8 Регистрация: 04.11.2009 Сообщений: 366
	12.11.2009, 21:55 [ТС]
	Что такое ТЗ? Прога вообще будет выглядеть так: много станций, много поездов. Поезда еду друг за другом с разными скоростями, как говорилось выше, не "врезаясь" и не обгоняя друг друга. Как предусмотрительно заметил Toxa33rus они действительно будут притормаживать у станций, останавливаться, ждать несколько секунд (высадка и посадка пассажиров) трогаться в путь набирая скорость и так до следующей станции. Плюс диспетчер (он же пользователь) будет видеть текущую скорость каждого поезда на табло и при желании пользователя он может "добавить" людей на какой-то станции, тем самым увеличивая время остановки поезда, а следовательно замедляя все составы идущие за ним. Я прошу дать мне совет: стоит ли вообще это делать в Басике или идти на Дельфу или С ++ (но пожалуйста, аргументируйте) 0

@Василий-Робот TECHNO 28 / 28 / 8 Регистрация: 04.11.2009 Сообщений: 366
	09.12.2009, 18:16 [ТС]
	Всем доброго дня! Я промучился с остановкой. Как сделать медленное торможение перед станцией, остановку в течении нескольких секунд и снова набирание скорости? 0

@Василий-Робот TECHNO 28 / 28 / 8 Регистрация: 04.11.2009 Сообщений: 366
	14.12.2009, 21:08 [ТС]
	Как сделать так, чтобы при круговом движении объект двигался "не рывками", а плавно? 0

@Toxa33rus 3926 / 928 / 125 Регистрация: 16.04.2009 Сообщений: 1,993
	15.12.2009, 14:00
	Уменьшить интервал у таймера и соответственно шаг сдвига тоже. 0

@Василий-Робот TECHNO 28 / 28 / 8 Регистрация: 04.11.2009 Сообщений: 366
	16.12.2009, 22:09 [ТС]
	Toxa33rus, искренне, не понимаю, где шаг сдвига Тыкни меня носом в код Если движутся к примеру пять поездов, то как сделать чтобы они ехали на одинаковом расстоянии друг от друга? Миниатюры 0

@Василий-Робот TECHNO 28 / 28 / 8 Регистрация: 04.11.2009 Сообщений: 366
	16.12.2009, 22:58 [ТС]
	Как располагать на равном расстоянии я уже знаю 0

@Toxa33rus 3926 / 928 / 125 Регистрация: 16.04.2009 Сообщений: 1,993
	17.12.2009, 20:36
	Там есть такая хрень как угол, которая потом превратилась в уго1. Неужели сложно догадаться прибавить к ней 72 градуса в радианах 4 раза и для каждого раза нарисовать круг. Добавлено через 1 минуту 0.5 это шаг 1

@Василий-Робот TECHNO 28 / 28 / 8 Регистрация: 04.11.2009 Сообщений: 366
	19.12.2009, 23:45 [ТС]
	Как сделать так чтобы совместить суть выбора двух опций из трех То есть есть три опции 1 - 2 - 3 При нажатия 1 и 3 - происходит одно и тоже При нажатии 2 - происходит другое Нужно полностью переписывать код или можно поставить что-то вроде or? ________________________________________ _____ Если загнать опции в две разные Frame, к примеру: Frame 1 содержит опцию 1 и 2 Frame 2 содержит опцию 3 и 4 Как записать условие, что при нажатии опции 2 и 4 произойдет то-то? Добавлено через 22 часа 26 минут Повторю вопрос: Как сделать так чтобы совместить суть выбора двух опций из трех То есть есть три опции 1 - 2 - 3 При нажатия 1 и 3 - происходит одно и тоже При нажатии 2 - происходит другое Нужно полностью переписывать код или можно поставить что-то вроде or? ________________________________________ _____ Если загнать опции в две разные Frame, к примеру: Frame 1 содержит опцию 1 и 2 Frame 2 содержит опцию 3 и 4 Как записать условие, что при нажатии опции 2 и 4 произойдет то-то? Добавлено через 45 минут Добавлено через 3 часа 43 минуты И как же это делается? 0

@ks2010 0 / 0 / 0 Регистрация: 19.02.2010 Сообщений: 11
	02.03.2010, 15:24
	как с помощью таймера сделать чтобы объект перемещался из одной точки в другую???хелп ми плиз) 0