| Вопрос: чтение LPT порта.. | Добавлено: 06.02.08 10:39 |
Автор вопроса:  Андрей | Web-сайт: vstu.ucoz.ru/ | ICQ: 353336595 |
|
нашел один пример:
Option Explicit Private Declare Function Inp Lib "dll/inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer Private Declare Sub Out Lib "dll/inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer) Dim outData As Long Private Sub CommandOut_Click() Out &H378, outData End Sub Private Sub CommandInp_Click() MsgBox (Inp(&H378)) End Sub при CommandOut_Click я отправляю outData а как сделать. чтобы при CommandInp_Click данные принимались например в переменную InpData? |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  VβÐUηìt Вопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 06.02.08 18:46 |
|
Палош inpout32.dll!
Даеш dlportwriteportuchar и dlportreadportuchar! |
||
|
Номер ответа: 2 Автор ответа: Андрей ICQ: 353336595 Вопросов: 11 Ответов: 16 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 06.02.08 19:25 |
| http://www.vstu.ucoz.ru/INPOUT32.DLL | ||
|
Номер ответа: 3 Автор ответа: intel-DX ICQ: 445091742 Вопросов: 4 Ответов: 169 |
Профиль | Цитата | #3 | Добавлено: 12.02.08 20:34 |
|
Option Explicit Private Declare Function Inp Lib "dll/inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer Private Declare Sub Out Lib "dll/inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer) Dim outData As Long Dim InpData As Long Private Sub CommandOut_Click() Out &H378, outData End Sub Private Sub CommandInp_Click() '*********** InpData = Inp(&H378) '*********** End Sub Я лично так пользуюсь и все норамально. |
||
Страница: 1 |