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

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

Новые блоги и статьи Все статьи Все блоги /
Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .	сукцессия 16. Общий обзор, в основном что бы другие ии поняли anaschu 29.06.2026 # Передаточный документ: модель микоризной сукцессии (для нового чата) Этот документ предназначен для того, чтобы новый чат Claude мог продолжить работу без необходимости заново разбираться в. . .	сукцессия 15 неявная схема anaschu 29.06.2026 Алиса Калибровка параметров симбиотической модели: технический обзор Содержание: Введение Постановка проблемы Технические аспекты реализации Процесс внедрения изменений	сукцессия 14. Обновленная схема модели anaschu 28.06.2026 ГЛОБАЛЬНАЯ ОПИСАТЕЛЬНАЯ СПЕЦИФИКАЦИЯ ЭКОСИСТЕМНОЙ МОДЕЛИ «SOIL CHEMISTRY & MYCORRHIZA 2. 0» https:/ / ibb. co/ NnkGpfMd Представленная интегрированная схема описывает непрерывную нелинейную. . .
сукцессия 13. Питон модель трехзонного мицелия, пока что в основном арбускулярного anaschu 28.06.2026 ## Разработка агентной модели микоризной сукцессии: от выявления артефактов к созданию комплексной системы ### Аннотация Представлено исследование по разработке агентной модели микоризной. . .	сукцессия 12. краткий список проверок модели перед запуском. anaschu 27.06.2026 Скрытые отказы в моделях систем динамики (SD-models) экологических систем: два случая из практики Контекст Разбирался прототип модели систем динамики (SD-модели) микоризной сукцессии: пять. . .	Сукцессия 11. Проверка орудий перед войной: разработка через тестирование anaschu 27.06.2026 Как не дать модели соврать самой себе: проверки для симуляции микоризной сукцессии Введение Когда вы строите математическую модель живой системы — грибов, растений, почвы — главная опасность. . .	10 сукцессия. Питон код войны грибов и растений anaschu 27.06.2026 import numpy as np class PlantAgent: def __init__(self, name, strategy, initial_biomass): self. name = name self. strategy = strategy # "greedy" (широколиственные) или. . .

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

Решение

Решение

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

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

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