Реализовать движущийся фон

@aptos · Регистрация: 04.06.2013

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

Как это проще всего оформить в VB6? Менять координаты длиннющей картинки и перерисовывать ее чтобы создавалось ощущение движения, или есть способы получше?

@The trick · 25.04.2014, 09:58

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

DirectX8 чтоли устанавливать надо?

Нужна ActiveX библиотека dx8vb.dll

@aptos · 25.04.2014, 10:14 **[ТС]**

Сообщение от The trick

Нужна ActiveX библиотека dx8vb.dll

Жаль плюсики закончились. Спасибо)

Добавлено через 2 минуты
Ту строку пропустил, теперь тут ругается:

Visual Basic
1
Set dinput = dx8.DirectInputCreate()

"Active X component cannot create object"

Добавлено через 9 минут
В общем думаю установлю Microsoft DirectX 8.1 SDK for Visual Basic, а потом уже буду с ошибками разбираться. Наверно из-за этого все.

@The trick · 25.04.2014, 10:16

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

"Active X component cannot create object"

Библиотека зарегистрирована?

@aptos · 25.04.2014, 13:19 **[ТС]**

Сообщение от The trick

Библиотека зарегистрирована?

А точно, через cmd.exe ведь регестрировать надо...

Добавлено через 2 часа 35 минут

Visual Basic
1
  Set d3d = dx8.Direct3DCreate

Это инициализация переменной d3d... Можно узнать подробнее назначение Set? Инициализация? Если да, то что еще можно инициализировать.

Не по теме:

Только не отправлять на MSDN :)

@The trick · 25.04.2014, 13:25

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

Это инициализация переменной d3d... Можно узнать подробнее назначение Set? Инициализация? Если да, то что еще можно инициализировать.

Set - это присвоить одной объектной переменной ссылку на другую. Т.к. в VB есть такое понятие как свойство по умолчанию мы не можем просто сделать d3d = dx8.Direct3DCreate (в разных случаях по разному)б потому что это будет эквивалентно присвоению свойств объектов по умолчанию. В твоем примере ты создаешь новый объект посредством dx8.Direct3DCreate и присваиваешь его переменной d3d. Так же ты можешь потом написать Set d3d2 = d3d, и уже две переменные будут ссылаться на один и тот же объект.

@aptos · 25.04.2014, 13:39 **[ТС]**

Сообщение от The trick

Set - это присвоить одной объектной переменной ссылку на другую. Т.к. в VB есть такое понятие как свойство по умолчанию мы не можем просто сделать d3d = dx8.Direct3DCreate (в разных случаях по разному)б потому что это будет эквивалентно присвоению свойств объектов по умолчанию. В твоем примере ты создаешь новый объект посредством dx8.Direct3DCreate и присваиваешь его переменной d3d. Так же ты можешь потом написать Set d3d2 = d3d, и уже две переменные будут ссылаться на один и тот же объект.

Т.е. объект создается независимо от переменных, а уже переменные получают только ссылку на него? Вроде как, d3d2 ссылается на d3d, а d3d ссылается dx8.Direct3DCreate? Или я что-то не так понял.

Ой, наверно у обоих переменных один и тот же адрес будет...

Добавлено через 9 минут
Ну это несущественно, вот вопрос назрел. Что именно создает Direct3DCreate? В книге как-то этот момент обошли. Видно что-то Direct и 3D, но суть непонятна

@The trick · 25.04.2014, 13:53

Есть понятие кокласса, интерфейса. В VB6 классы являются коклассами. Грубо говря это такие которые могут создавать объект на своей основе. Примеры коклассов (Collection, StdFont). Создание объекта происходит при обращении к DAN ссылке или при явном создании Set Obj = New Class. Все объектные переменные являются указателями на указатели на интерфейс объектов. Сами данные объекты хранятся произвольно (в разных классах). Каждый объект хранит число ссылок на себя, как это число равно нулю, так объект уничтожается. Это очень большая тема и кроме как отправить тебя в MSDN я не могу, т.к. писать очень много.

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

Т.е. объект создается независимо от переменных, а уже переменные получают только ссылку на него? Вроде как, d3d2 ссылается на d3d, а d3d ссылается dx8.Direct3DCreate? Или я что-то не так понял.

Нет. Упрощенно dx8.Direct3DCreate создает объект и присваивает его переменной d3d, поэтому счетчик увеличивается на 1 и становится равен 1-му. Потом присваивая второй переменной счетчик еще увеличивается на 1 и становится равным 2. После выхода из области видимости функции, каждой переменной присваивается Nothing и счетчик также уменьшается и становится равным 0, поэтому объект уничтожается. Объект получается зависим от переменных.

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

Ой, наверно у обоих переменных один и тот же адрес будет...

Нет. Адреса будут разными, а вот значения по этим адресам одинаковые.
Вот небольшое описание VB классов Вызов любых функций по указателю

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

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

Direct3DCreate

Создает устройство вывода. С помощью него ты будешь "рисовать" объекты, накладывать текстуры, свет и т.п.

@aptos · 25.04.2014, 14:55 **[ТС]**

Я вернулся...

Не по теме:

~~Переловлю работников ЖКХ~~ свет включили...

Как всегда спасибо, мне бы преподавателя такого в универ... Все знаете.
Пока света не было и батарея на ноуте была жива, еще появились вопросы, не совсем именно по DirectX.

Насколько понял из MSDN (если правильно перевел), DoEvents возвращает значение, равное количеству открытых форм. Зачем он тут:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Form_Load()
Me.Show
D3DInit
Running = True
   Do While Running
   DoEvents
   Render
   Loop
Unload Me
End Sub

И еще, когда происходит событие Form_QueryUnload?

И вот:

Visual Basic
1
2
3
4
5
6
7
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If Running Then
Cancel = 1: Running = False
Else
ClearAll
End If
End Sub

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

Извиняюсь за назойливость

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

Сообщение от The trick

Вот небольшое описание VB классов Вызов любых функций по указателю

Тут пока для меня слишком много непонятного, к этому позже немного вернусь

Добавлено через 4 минуты
интерфейс IDispatch...
реверс-инжиниринг...
наследует IUnknown...

Как обычно ==>

@The trick · 25.04.2014, 14:56

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

DoEvents возвращает значение, равное количеству открытых форм. Зачем он тут:

Функция DoEvents выполняет обработку сообщений находящихся в очереди. Если убрать DoEvents то приложение не будет отвечать и зависнет.

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

И еще, когда происходит событие Form_QueryUnload?

http://visualprogs.ru/all/6.html

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

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

Двоеточие эквивалентно переводу на новую строку.

@Антихакер32 · 25.04.2014, 14:59

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

Насколько понял из MSDN (если правильно перевел), DoEvents возвращает значение, равное количеству открытых форм. Зачем он тут:

DoEvents включает реакцию на события !

Добавлено через 2 минуты
Тоесть если использовать какой-либо безконечный цикл надо делать так

Visual Basic
1
2
3
Do
    DoEvents
Loop

безконечный цикл, но при этом продолжает реагировать на нажатия кнопок и мышок
иначе программа зависнет

@aptos · 25.04.2014, 15:03 **[ТС]**

Сообщение от The trick

Функция DoEvents выполняет обработку сообщений находящихся в очереди. Если убрать DoEvents то приложение не будет отвечать и зависнет.http://visualprogs.ru/all/6.htmlДвоеточие эквивалентно переводу на новую строку.

Ха, и правда зависло

Уже несколько раз от вас слышу "сообщение"... Это ведь не MsgBox, правда? Дайте хоть на MSDN ссылку, а то гугл на "сообщения в VB6" ничего путного не выдает

Добавлено через 38 секунд

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

DoEvents включает реакцию на события !

Добавлено через 2 минуты
Тоесть если использовать какой-либо безконечный цикл надо делать так

Visual Basic
1
2
3
Do
    DoEvents
Loop

безконечный цикл, но при этом продолжает реагировать на нажатия кнопок и мышок
иначе программа зависнет

Аааа, теперь понял, спасибо!

Не по теме:

Бесконечный :p

@Антихакер32 · 25.04.2014, 15:07

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

Аааа, теперь понял, спасибо!

я кстате дословно перевел, воспользовавшись яндекс-переводчиком ...Do Events = Неужели События

@The trick · 25.04.2014, 15:15

Кстати DoEvents довольно медленная функция, к тому же ее обычно используют не как функцию а как процедуру. Можно многократно ускорить

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Any, ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
Private Declare Function TranslateMessage Lib "user32" (lpMsg As Any) As Long
Private Declare Function DispatchMessage Lib "user32" Alias "DispatchMessageA" (lpMsg As Any) As Long
 
Private Sub Command1_Click()
    Dim Msg(6) As Long
    
    Do
        ' Fast DoEvents
        Do While PeekMessage(Msg(0), 0, 0, 0, 1)
            TranslateMessage Msg(0): DispatchMessage Msg(0)
        Loop
    Loop
End Sub

@Антихакер32 · 25.04.2014, 15:16

Не по теме:

Хотелось бы добавить что сервисы яндекса точнее переводят и правильнее чем сервисы гугла

@The trick · 25.04.2014, 15:16

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

Уже несколько раз от вас слышу "сообщение"...

Давай на "ты".

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

Дайте хоть на MSDN ссылку, а то гугл на "сообщения в VB6" ничего путного не выдает

http://vsokovikov.narod.ru/New... ssages.htm

@aptos · 25.04.2014, 18:29 **[ТС]**

Не по теме:

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

я кстате дословно перевел, воспользовавшись яндекс-переводчиком ...Do Events = Неужели События

Я вроде со школы помню, что Do - это делать... Гугл так же думает кстати - "сделать события" мне перевел :)
Может когда вводил что переводить ошибся?

Если не ошибся, то да, точность яндекса на высоте :D

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

Сообщение от The trick

Давай на "ты".

Оки

Сообщение от The trick

http://vsokovikov.narod.ru/New_MSDN_...s_messages.htm

Спасибо!

Т.е. сообщения - это реакция VB6 на какие-то изменения(события)?

@Антихакер32 · 25.04.2014, 19:18

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

да, точность яндекса на высоте

потому что гугл делали американские русофобы
а яндекс лицом к нам )

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

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

Т.е. сообщения - это реакция VB6 на какие-то изменения

Сообщения... Это основная форма общения между всеми объектами в операционной системе

Добавлено через 48 секунд
поэтому они в очередях ...

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

@aptos 13 / 13 / 3 Регистрация: 04.06.2013 Сообщений: 156

	Реализовать движущийся фон 24.04.2014, 22:29. Показов 5683. Ответов 56 Метки нет (Все метки) Как это проще всего оформить в VB6? Менять координаты длиннющей картинки и перерисовывать ее чтобы создавалось ощущение движения, или есть способы получше? 0

@Антихакер32
	25.04.2014, 15:16
	Не по теме: Хотелось бы добавить что сервисы яндекса точнее переводят и правильнее чем сервисы гугла 0

Реализовать движущийся фон

Решение

Решение