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

@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 секунд
поэтому они в очередях ...

Новые блоги и статьи Все статьи Все блоги /
Клиент Uhbif79 18.06.2026 Здесь простой клиент для работы с сервером.	Сервер Uhbif79 18.06.2026 Выкладываю простейший сервер.	Дефенестрация kumehtar 18.06.2026 Узнал интересное слово. Дефенестрация. Это когда ты выбрасываешь кого-либо или что-либо из окна. Возьму на вооружение)))	Дихотомия добра и зла kumehtar 18.06.2026 Как Дзен-буддисты говорят о добре и зле: не нужно воевать против зла, нужно воевать против невежества. Тогда добро станет ествественным, и поэтому вечным. Но дело в том, что невежество всё время. . .
Своя Интернет-Компания iceja 18.06.2026 Я программист с экономическим образованием, пишу свой проект, это SaaS для бизнесов. Мне нужен co-founder с высшим экономическим образованием, и/ или инвестор. Сейчас проект в интенсивной разработке,. . .	24 Мат модель здравосохранения: функциональные требования к строительству пищеблока anaschu 18.06.2026 СРесурсами1: финансовый SD-контур, калькулятор функциональных требований пищеблока Сегодня разделили затраты в агенте Экономика по образцу модели НАСОСЫ, добавили расчёт ROI и построили первый. . .	23. что сделано за последнее время. anaschu 17.06.2026 • Эталон: Клиника НИИ питания РАМН, Москва — централизованный пищеблок, 225 коек, 180 пациентов • Git: репозиторий med2, ветка абсентеизм. Рабочий файл: СРесурсами1_v4. alp • Смежный проект:. . .	22. Подключение слоя системной динамики (потоковые диффуры): экономические метрики модели anaschu 17.06.2026 Апдейт модели: финансовый контур, разделение затрат Продолжаю развивать модель рабочего коллектива на AnyLogic. В этот раз работа шла над агентом Экономика — финансовым SD-слоем модели. Задача:. . .

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

Решение

Решение

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

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

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