Возможно ли управлять LPT портом с помощью VBA

@IvanOK · Регистрация: 25.06.2011

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

Возможно ли управлять LPT портом с помощью VBA и что для етого нужно?

@pincet · 25.01.2012, 14:30

http://www.xserver.ru/computer/sredaprogr/msvb/14/

@IvanOK · 25.01.2012, 16:06 **[ТС]**

ето уже шо то но как еге использавать у ВБА

Добавлено через 1 минуту
нужно ли шото допольнительное подключать или ето все есть в стадатрном офисе хр

@pincet · 25.01.2012, 17:46

Все будет окэ - главное либы объяви

@IvanOK · 31.01.2012, 13:53 **[ТС]**

жители даного форума может кто то может толком обяснить как работать с ЛПТ портом в ВБА.....

@locm · 31.01.2012, 14:25

Для работы с LPT портом на NT системах, нужно использовать драйвер. Можно конечно и через API OS, но с помощью драйвера намного проще.
Ищите информацию как из VBA обращаться к драйверам.

@pincet · 31.01.2012, 21:10

Держи. Поделка делана туеву хучу времени назад. Помню одно - нужна inpout32.dll - думаю, гугл подскажет, где разыскать
06.09.09 19.17.21.rar

@IvanOK · 01.02.2012, 20:08 **[ТС]**

и так inpout32.dll у меня есть .........как я понял его нужно как то в ХР зарегистрировать

@Ципихович Эндрю · 01.02.2012, 20:17

например:
В меню Пуск Выполнить ввести:
regsvr32 mscomm32.ocx
ОК - регистрация библиотеки
Если регистрация файлов *.dll или *.ocx прошла успешно, появится соответствующее сообщение
Например, в Windows Vista появится окно RegSvr32 с сообщением:
«Успешное выполнение DllRegisterServer в C:\WINDOWS\system32\msvbvm50.dll»

@IvanOK · 02.02.2012, 16:36 **[ТС]**

Ципихович Эндрю, шото в ХР не регисрируется.......есть еще какие то варианти регистрации *.dll в системе

raxper · 02.02.2012, 17:32

...е-мае, да не нужно ее регистрировать, эта DLL не предоставляет COM-интерфейсы, она не ActiveX (а mscomm32 нужно, но это для COM порта, так что не к месту). Первую же ссылку cо второго поста TC еще раз читаем или читаем это http://www.codeproject.com/Art... pout32-dll.

Объявляете функции, например, так:

Visual Basic
1
2
Private Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer
 Private Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

и пользуетесь ими:

Visual Basic
1
Out &H378, 0: Out &H378, 2

...или:

Visual Basic
1
2
3
4
5
6
7
8
9
Private Declare Sub Out Lib "inpout32.dll" _
                        Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)
Dim I As Integer
 
Sub test()
    I = 5
    Out &H378, i  ' Записать это число в порт
    Out &H378, 0  'обнулить разряды D0 - D7
End Sub

или:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Module InpOut32_Declarations
    Public Enum PortAddress
        Data = &H378
        Status = &H379
        Control = &H37A
    End Enum
 
    Public Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As PortAddress) As Integer
    Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As PortAddress, ByVal Value As Integer)
End Module
 
 
 
Out(PortAddress.Data, 0)

Важное замечание! TC, укажите версию вашей винды, если 64-бит, то используйте - inpout64.dll.

==============
Также с LPT портом можно работать с помощью <dlportio.dll>:

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
27
Public Declare Function DlPortReadPortUchar Lib "dlportio.dll" _
   (ByVal Port As Long) As Byte
Public Declare Function DlPortReadPortUshort Lib "dlportio.dll" _ 
   (ByVal Port As Long) As Integer
Public Declare Function DlPortReadPortUlong Lib "dlportio.dll" _ 
   (ByVal Port As Long) As Long
 
Public Declare Sub DlPortReadPortBufferUchar Lib "dlportio.dll" _
   (ByVal Port As Long, Buffer As Any, ByVal Count As Long)
Public Declare Sub DlPortReadPortBufferUshort Lib "dlportio.dll" _ 
   (ByVal Port As Long, Buffer As Any, ByVal Count As Long)
Public Declare Sub DlPortReadPortBufferUlong Lib "dlportio.dll" _ 
   (ByVal Port As Long, Buffer As Any, ByVal Count As Long)
 
Public Declare Sub DlPortWritePortUchar Lib "dlportio.dll" _ 
   (ByVal Port As Long, ByVal Value As Byte)
Public Declare Sub DlPortWritePortUshort Lib "dlportio.dll" _
   (ByVal Port As Long, ByVal Value As Integer)
Public Declare Sub DlPortWritePortUlong Lib "dlportio.dll" _
   (ByVal Port As Long, ByVal Value As Long)
 
Public Declare Sub DlPortWritePortBufferUchar Lib "dlportio.dll" _
   (ByVal Port As Long, Buffer As Any, ByVal Count As Long)
Public Declare Sub DlPortWritePortBufferUshort Lib "dlportio.dll" _
   (ByVal Port As Long, Buffer As Any, ByVal Count As Long)
Public Declare Sub DlPortWritePortBufferUlong Lib "dlportio.dll" _
   (ByVal Port As Long, Buffer As Any, ByVal Count As Long)

@IvanOK · 04.02.2012, 13:35 **[ТС]**

Все получилось, все намного проще чем я думал.

@Ципихович Эндрю · 04.02.2012, 13:40

ну и выложите пжл пример, чем управляете и как

@IvanOK · 07.02.2012, 01:05 **[ТС]**

Ципихович Эндрю, пока только опробывал ваш код о подаче сигнала на лпт порт...все елементарно работает. А работаю над автоматическим управлением системой магнитных пускателей(220В и 380В,9-15А) с помощю смс, в чем вы мне здорово помогли, за что от меня большая благодарность.

@Ципихович Эндрю · 07.02.2012, 11:59

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

опробывал ваш код

когда выложил - хз

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

работаю над автоматическим управлением системой магнитных пускателей(220В и 380В,9-15А) с помощю смс

не моя тема

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

от меня большая благодарность

пожалуйста

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

Возможно ли управлять LPT портом с помощью VBA

Решение

Решение

Решение

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718

	Возможно ли управлять LPT портом с помощью VBA 25.01.2012, 13:36. Показов 5207. Ответов 14 Метки нет (Все метки) Возможно ли управлять LPT портом с помощью VBA и что для етого нужно? 0

@pincet 1655 / 1154 / 173 Регистрация: 23.07.2010 Сообщений: 6,910
	25.01.2012, 14:30
	Сообщение было отмечено как решение Решение http://www.xserver.ru/computer/sredaprogr/msvb/14/ 3

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	25.01.2012, 16:06 [ТС]
	ето уже шо то но как еге использавать у ВБА Добавлено через 1 минуту нужно ли шото допольнительное подключать или ето все есть в стадатрном офисе хр 0

@pincet 1655 / 1154 / 173 Регистрация: 23.07.2010 Сообщений: 6,910
	25.01.2012, 17:46
	Все будет окэ - главное либы объяви 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	31.01.2012, 13:53 [ТС]
	жители даного форума может кто то может толком обяснить как работать с ЛПТ портом в ВБА..... 0

@locm 6855 / 3279 / 339 Регистрация: 28.10.2011 Сообщений: 12,816 Записей в блоге: 7
	31.01.2012, 14:25
	Для работы с LPT портом на NT системах, нужно использовать драйвер. Можно конечно и через API OS, но с помощью драйвера намного проще. Ищите информацию как из VBA обращаться к драйверам. 1

@pincet 1655 / 1154 / 173 Регистрация: 23.07.2010 Сообщений: 6,910
	31.01.2012, 21:10
	Сообщение было отмечено как решение Решение Держи. Поделка делана туеву хучу времени назад. Помню одно - нужна inpout32.dll - думаю, гугл подскажет, где разыскать 06.09.09 19.17.21.rar 4

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	01.02.2012, 20:08 [ТС]
	и так inpout32.dll у меня есть .........как я понял его нужно как то в ХР зарегистрировать 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,330
	01.02.2012, 20:17
	например: В меню Пуск Выполнить ввести: regsvr32 mscomm32.ocx ОК - регистрация библиотеки Если регистрация файлов .dll или .ocx прошла успешно, появится соответствующее сообщение Например, в Windows Vista появится окно RegSvr32 с сообщением: «Успешное выполнение DllRegisterServer в C:\WINDOWS\system32\msvbvm50.dll» 1

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	02.02.2012, 16:36 [ТС]
	Ципихович Эндрю, шото в ХР не регисрируется.......есть еще какие то варианти регистрации *.dll в системе 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	04.02.2012, 13:35 [ТС]
	Все получилось, все намного проще чем я думал. 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,330
	04.02.2012, 13:40
	ну и выложите пжл пример, чем управляете и как 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	07.02.2012, 01:05 [ТС]
	Ципихович Эндрю, пока только опробывал ваш код о подаче сигнала на лпт порт...все елементарно работает. А работаю над автоматическим управлением системой магнитных пускателей(220В и 380В,9-15А) с помощю смс, в чем вы мне здорово помогли, за что от меня большая благодарность. 0