ник: snipe
не знаю что писал автор
но когда ему делали выгрузку в LPT порт выгружали слово из 24 бит
вот раскопал =>
на зелененьких проводах всегда установлена 1
если один из проводков (10-13) соединить с землей и потом считать состояние этой части порта то можно получить цифирку (а если подавать данные через шифратор то можно подцепить 16 датчиков)
вот таким кодом
dim statusint as variant
statusint=inp(889)
в начале модуля соответственно прописать
Private Declare Function Inp Lib "C:\WINDOWS\system32\inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer