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

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

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

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

@BasicMan · 11.11.2009, 18:42

5 строка д.б. так

Visual Basic
1
Timer1.Interval = HScroll1.Value

Добавлено через 25 секунд
а строки 7-9 фтопку!!!

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

Таким макаром она не работает

@BasicMan · 11.11.2009, 18:50

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Dim ugo1
Const Pi = 3.14159265358979
 
Private Sub Form_Load()
  ugo1 = 0
  HScroll1.Value = 10
  Timer1.Interval = HScroll1.Value
End Sub
 
Private Sub HScroll1_Change()
  Timer1.Interval = HScroll1.Value
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
  Shape1.Move Sin(ugo1) * 1000 + 5040, Cos(ugo1) * 1000 + 5040
  ugo1 = IIf(ugo1 > 2 * Pi, ugo1 - 2 * Pi + 0.5, ugo1 + 0.5)
End Sub
 
Private Sub Command1_Click()
  Timer1.Enabled = True
End Sub
 
Private Sub Command2_Click()
  Timer1.Enabled = False
End Sub

Добавлено через 39 секунд
так попробуй

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

При включении формы, он без команды старт крутиться как заводной. А перемещении ползунка останавливается полностью. При этом он не реагирует на команду Старт не в какую и остается на месте.

@BasicMan · 11.11.2009, 19:18

забыл указать .Value для HScroll1

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Dim ugo1
Const Pi = 3.14159265358979
 
Private Sub Form_Load()
  ugo1 = 0
HScroll1.Value = 10
  Timer1.Interval = HScroll1.Value
End Sub
 
Private Sub HScroll1_Change()
  Timer1.Interval = HScroll1.Value
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
  Shape1.Move Sin(ugo1) * 1000 + 5040, Cos(ugo1) * 1000 + 5040
  ugo1 = IIf(ugo1 > 2 * Pi, ugo1 - 2 * Pi + 0.5, ugo1 + 0.5)
End Sub
 
Private Sub Command1_Click()
  Timer1.Enabled = True
End Sub
 
Private Sub Command2_Click()
  Timer1.Enabled = False
End Sub

Но здесь же указано!

@BasicMan · 11.11.2009, 19:42

Сообщение от CyberБурундукЪ

Timer1.Interval = HScroll1.Value

здесь не было указано!

Не по теме:

и код программы форматируй

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

Если значение указать в 7-ой строчке то он стоит как вкопанный
Если указать в 11-ой, то он крутиться и не подчинятся командам

Добавлено через 26 минут
Не работает((((((((

@BasicMan · 11.11.2009, 20:24

ну увеличь время интервала
т.е.

Visual Basic
1
Timer1.Interval = 100*HScroll1.Value

или

Visual Basic
1
Timer1.Interval = 1000*HScroll1.Value

@Toxa33rus · 11.11.2009, 20:35

Многое не читал. Если опоздал с ответом не бить.
Таймер лучше всегда оставить =50
А скорость меняется простой заменой в коде 0.5 (2 штуки!) на ваш ползунок. Всё! Только учитывайте что это значение не должно быть слишком большим (больше 1) а то не красиво получится.
Радиус я так понял догадались как менять.

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

Да! Да! Изменения есть, но они какие-то неуправляемые по большей степени. Почему - то он не увеличивает скорость постепенно, а хаотично, что не понятно.
Ссылка на прогу:

И еще когда опускаешь курсор от прокрутки ползунка он автоматически перемещается влево! Чертовщина!

@BasicMan · 11.11.2009, 21:13

может doЕvents не хватает?

Visual Basic
1
2
3
4
5
Private Sub Timer1_Timer()
  doevents
  Shape1.Move Sin(ugo1) * 1000 + 5040, Cos(ugo1) * 1000 + 5040
  ugo1 = IIf(ugo1 > 2 * Pi, ugo1 - 2 * Pi + 0.5, ugo1 + 0.5)
End Sub

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

Не работает... Тоже самое. Легкая же програмка! Блин...

@BasicMan · 11.11.2009, 21:29

ты весь код выложи в пост (текстом)
у меня ВБ нет. только Акцесс и Ексель еще. а для твоей проги ВБ нужен

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

На этом форуме разрешается публиковать ссылки на программу (приложение и установку)?

@BasicMan · 11.11.2009, 21:44

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

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

Он не мусор! Basic - царь и бог!
Придется ждать Toxa33rus

@Toxa33rus · 11.11.2009, 23:38

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

Basic - царь и бог!
Придется ждать Toxa33rus

Что-то напутано в синтаксисе. надо поменять местами Basic и Toxa33rus

Не по теме:

Я только сейчас осознал что ни у одного(!!!) модератора раздела бэйсик не стоит на компе бэйсик!:rofl: Бэйсиковские модераторы на столько суровые что отлаживают свои программы на деревянных счетах.

Зачем переменную ugol ("угол") переименовали в ugo1?

Ну ладно. Это для конспирации.
Вот как надо сделать:
в форм_лоад добавить строки:

Visual Basic
1
2
3
HScroll1.Min = 1
HScroll1.Max = 10
HScroll1.Value = 1

я ж говорил что вместо 0.5 надо вставлять числа не больше 1 (единицы) а у вас от 0 до 32000. По этому и не катит (т.е. крутит).

Дальше: удалите начисто процедуру Private Sub HScroll1_Change()
Именно в ней при изменении ползунка он обратно делается = 1!

И последнее: в коде таймера замените на эту строку:

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

Теперь мы меняем скорость от 0.1 до 1.

Назовете слово сразу или будете вращать барабан? (с)

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

Работает!
Toxa33rus, -

@BasicMan · 12.11.2009, 11:40

Не по теме:

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

будете вращать барабан?

барабан находится в револьвере

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

Не по теме:

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

Не по теме:

Бэйсиковские модераторы на столько суровые что отлаживают свои программы на деревянных счетах

ну у мя еще акцесс есть :-[

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

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

Дальше: удалите начисто процедуру Private Sub HScroll1_Change()
Именно в ней при изменении ползунка он обратно делается = 1!

а как же скорость менять? в смысле, значение таймера?

Новые блоги и статьи Все статьи Все блоги /
Программное добавление префикса в нумерацию документов Maks 27.10.2026 Реализация из решения ниже выполнена в самописной конфигурации на БСП (помощь начинающему коллеге). Задача: Программно добавить префикс в нумерацию документов. Решение: В модуле объекта. . .	После закрытия оутлука продолжает висеть процесс в диспетчере задач Maks 27.10.2026 С недавнего времени в продакшене возникла проблема: при закрытии оутлука в диспетчере задач продолжал висеть процесс outlook. exe. Проблема возникла после установки MS Office 2021 LTSC на машинах, под. . .	Baragoz - DPS/HPS бот для WoW 3.3.5a, многоязычный AmbA 26.10.2026 Хотите ещё ботов? У меня есть один! А я пока отдохну от него. https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=12062&stc=1&d=1793007952 Инструкция внутри. https:/ / youtu. be/ VpfFZSUDGnQ. . .	Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .
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й колонке просто выдумал. . Это. . .

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

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

@Василий-Робот TECHNO 28 / 28 / 8 Регистрация: 04.11.2009 Сообщений: 366
	11.11.2009, 18:47 [ТС]
	Таким макаром она не работает 0

@Василий-Робот TECHNO 28 / 28 / 8 Регистрация: 04.11.2009 Сообщений: 366
	11.11.2009, 18:55 [ТС]
	При включении формы, он без команды старт крутиться как заводной. А перемещении ползунка останавливается полностью. При этом он не реагирует на команду Старт не в какую и остается на месте. 0

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	11.11.2009, 19:18
	забыл указать .Value для HScroll1 0

@Василий-Робот TECHNO 28 / 28 / 8 Регистрация: 04.11.2009 Сообщений: 366
	11.11.2009, 20:23 [ТС]
	Если значение указать в 7-ой строчке то он стоит как вкопанный Если указать в 11-ой, то он крутиться и не подчинятся командам Добавлено через 26 минут Не работает(((((((( 0

@Toxa33rus 3926 / 928 / 125 Регистрация: 16.04.2009 Сообщений: 1,996
	11.11.2009, 20:35
	Многое не читал. Если опоздал с ответом не бить. Таймер лучше всегда оставить =50 А скорость меняется простой заменой в коде 0.5 (2 штуки!) на ваш ползунок. Всё! Только учитывайте что это значение не должно быть слишком большим (больше 1) а то не красиво получится. Радиус я так понял догадались как менять. 1

@Василий-Робот TECHNO 28 / 28 / 8 Регистрация: 04.11.2009 Сообщений: 366
	11.11.2009, 21:10 [ТС]
	Да! Да! Изменения есть, но они какие-то неуправляемые по большей степени. Почему - то он не увеличивает скорость постепенно, а хаотично, что не понятно. Ссылка на прогу: И еще когда опускаешь курсор от прокрутки ползунка он автоматически перемещается влево! Чертовщина! 0

@Василий-Робот TECHNO 28 / 28 / 8 Регистрация: 04.11.2009 Сообщений: 366
	11.11.2009, 21:26 [ТС]
	Не работает... Тоже самое. Легкая же програмка! Блин... 0

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	11.11.2009, 21:29
	ты весь код выложи в пост (текстом) у меня ВБ нет. только Акцесс и Ексель еще. а для твоей проги ВБ нужен 0

@Василий-Робот TECHNO 28 / 28 / 8 Регистрация: 04.11.2009 Сообщений: 366
	11.11.2009, 21:42 [ТС]
	На этом форуме разрешается публиковать ссылки на программу (приложение и установку)? 0

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	11.11.2009, 21:44
	на не лицуху нельзя, только на оффициальный сайт. но... из-за одной твоей проги я ставить ВБ не буду, у мя и так мусора на компе хватает. 0

@Василий-Робот TECHNO 28 / 28 / 8 Регистрация: 04.11.2009 Сообщений: 366
	11.11.2009, 21:49 [ТС]
	Он не мусор! Basic - царь и бог! Придется ждать Toxa33rus 0

@Василий-Робот TECHNO 28 / 28 / 8 Регистрация: 04.11.2009 Сообщений: 366
	12.11.2009, 09:16 [ТС]
	Работает! Toxa33rus, - 0