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

@Василий-Робот · Регистрация: 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-переменные для установки центральной точки вращения на форме. См.вложения.

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

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

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

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

@Toxa33rus 3924 / 925 / 125 Регистрация: 16.04.2009 Сообщений: 1,977
	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 3924 / 925 / 125 Регистрация: 16.04.2009 Сообщений: 1,977
	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 3924 / 925 / 125 Регистрация: 16.04.2009 Сообщений: 1,977
	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