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

@Василий-Робот · Регистрация: 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!

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

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

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

	Перемещение объекта 09.11.2009, 22:02. Показов 28763. Ответов 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 3924 / 925 / 125 Регистрация: 16.04.2009 Сообщений: 1,970
	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